mac-emacs-users

[Mac-emacs-users] Turn off beep

[Jonathan A. <jda...@bu...>]

Is there anyway to turn off the beep in Mac Emacs?

+====================================================+
| Jonathan Arnold (mailto:jda...@bu...)     |
| Havas Interactive             HyperStudio Engineer |
| http://www.buddydog.org http://www.hyperstudio.com |
+====================================================+

If you pick up a starving dog and make him prosperous,
he will not bite you; that is the principal difference
between a dog and a man. -- Mark Twain

[Mac-emacs-users] Is there a applescript-mode

[Mike W. <MWi...@ba...>]

I was tring to find a applescript-mode.el. Does anyone have any idea were to
get one.                                                                      
                                                                              
                                               

[Mac-emacs-users] list-fontset or creat-fontset-from-fontset-spec

[Makoto F. <ma...@ki...>]

I was using 20.5 on PowerMac G4 quite happily. I got terrific
another world if Emacs runs on MacOS. 
Japanes characters are displayed, and even I do type Japanese
characters using Elisp based input method tcode.
(t-code page in Japanese is at
http://vlsilab.ics.es.osaka-u.ac.jp/~kitajima/tc2/)

Then I tried another environment, 20.6 on iBook.
with .emacs included in distribution, I got 
Error in init file: error "Font \"fontset-mac\" is not defined.

It seems to me create-fontset-from-fontset-spec is not working
or the argument for that function may not be right for my environment.
By the way, (if (fboundp 'new-fontset)
seems to me true.
After that, M-x list-fontset show me just title like,

Fontset-Name                    WDxHT Style
------------                    ----- -----

Does anybody know what is wrong on my situation ?
---
(Makoto Fujiwara)

Re: [Mac-emacs-users] RMail

[Andrew C. <ch...@tr...>]

The following information is from the FAQ.  Let me know if you need
more help setting it up.

Eventually I'd like to support Rmail using movemail and fakemail
subprocesses (like Unix Emacs) so Eudora will not be needed.
--

** How do I set up Emacs to send and receive E-mail?

The Mac build calls upon the scriptable application Eudora Light to
send and fetch E-mail from a SMTP and POP server, resp.  To use this
feature, Eudora Light must be set up to operate without showing any
dialogs to the user (e.g., the password for the POP server must have
already been typed into and remembered by Eudora Light and all the
settings for servers and user identity must have already been set, all
methods for announcing incoming mail must be turned off, and it must
not prompt for the Trash mailbox to be emptied when it quits).  Then
one should be able to type M-x rmail to receive mail and C-x m to
compose a message and C-c C-c to send it.  Eudora Light can be
downloaded at

  http://www.eudora.com/eudoralight/

and is free for personal use.

[Mac-emacs-users] RMail

[Jon H. <jo...@ha...>]

Does the 20.6 release come with rmail? Can anyone give me pointers to 
documentation on how hard it might be to set up?

Thanks,

Jon

Re: [Mac-emacs-users] Can't install

[Andrew C. <ch...@tr...>]

Hi Ian,

That message simply means that you are running a Mac OS version
earlier than 8.1 (which is the first one to support HFS+).  The .smi
file was created using DiskCopy 6.3.1 and required HFS+ support to
mount.

If it is possible, borrow a Mac which is running Mac OS 8.1 or later
and mount the file there.  Then copy the entire disk (using AppleTalk
e.g.) to your Mac to create a folder.  Note that Emacs *does not
require* HFS+ to run, only to install.

It is not feasible for me to create StuffIt archives and upload them
to my FTP server in the next few days.  But if you cannot access
another Mac running Mac OS 8.1 or later, please write back so I can
set up an alternative way for you to download the files some time next
week.

Andrew.

[Mac-emacs-users] Can't install

[Ian F. M. <ia...@sa...>]

I downloaded the latest binary files and after I successfully convert
the file to an .smi, I get the following...

[Image]

Anyone have any thoughts??

Thanks, Ian.

[Mac-emacs-users] Bug Fix: Correctly Choosing Coding System for Mac Roman

[Andrew C. <ch...@tr...>]

Hi Everyone,

There is a bug in the .emacs file I posted on 20-03-2000 that prevents
Emacs from correctly choosing the right coding system to save a file
containing Mac Roman characters.

The code to construct the coding system was

;; INCORRECT
(make-coding-system
 'mac-roman 4 ?M "Mac Roman Encoding"
 '(decode-mac-roman . encode-mac-roman)
 '((safe-charsets (ascii mac-roman-lower mac-roman-upper))
;                 ^ DELETE!                             ^ DELETE!
   (valid codes (0 . 255))))

and it should actually read

;; CORRECT
(make-coding-system
 'mac-roman 4 ?M "Mac Roman Encoding"
 '(decode-mac-roman . encode-mac-roman)
 '((safe-charsets ascii mac-roman-lower mac-roman-upper)
   (valid codes (0 . 255))))

Also, if you want use cut-and-paste in Emacs with Mac Roman
characters, put the following in your .emacs file:

  (set-selection-coding-system 'mac-roman) 

  (setq interprogram-cut-function 
        '(lambda (str push) 
           (mac-cut-function
            (encode-coding-string str selection-coding-system t) push))) 

  (setq interprogram-paste-function 
        '(lambda () 
           (decode-coding-string
            (mac-paste-function) selection-coding-system t)))

Make sure your buffer is set to the mac-roman encoding:

  C-x RET f mac-roman RET

and cutting-and-pasting clipboards with Mac Roman characters should
work correctly between Emacs and other applications.  Together with
the fix above, you can save your files in Mac Roman encoding and open
it with other applications like Alpha or BB Edit too.

I'd like to thank Tsutomu for sending in those two previous bug fixes.

Cheers,
Andrew.

[Mac-emacs-users] Calc Installation Instructions

[Andrew C. <ch...@tr...>]

Hi Everyone,

I'm still on a short break from programming Emacs.  But I'd like to
share with you something really interesting that I discovered
yesterday: Calc.  Calc is a calculator package written in Emacs Lisp.
It is quite powerful and has features such as infinite precision,
symbolic algebra and calculus, hexidecimal and binary display modes,
etc.  It has a 500-page manual!  For a full set of features, see this
on-line manual, e.g.

  http://www.cl.cam.ac.uk/texinfodoc/calc_toc.html

Here is what you need to do to install Calc.

1. Download the file calc-2.02f.tar.gz from any GNU software mirror.
   You can of course always get it at

     ftp://ftp.gnu.org/gnu/calc/calc-2.02f.tar.gz

2. Unpack this using StuffIt Expander.  Since these are all source
   files, it doesn't matter which end of line setting you use.

3. The resulting folder calc-2.02f can be placed anywhere on your
   system.  The instructions that follow assume you have put it in
   :emacs-20.6:site-lisp:.

4. Open the Emacs application.  Then load the file calc-maint.el by
   typing:

     M-x load-file RET ~/../site-lisp/calc-maint.el RET

5. Then byte-compile the Calc source files by typing

     M-x calc-compile RET

   (This will take a while.)

6. Then set up the autoloads and load path in your .emacs file by typing

     M-x calc-private-autoloads RET

7. Build the Calc info file by first finding the file calc.texinfo

     C-x C-f ~/../site-lisp/calc.texinfo RET

   Ignore the bell and the message

     Fontifying calc.texinfo...buffer too big

   that Emacs generates.  Then format the info file by typing

     M-x texinfo-format-buffer

   (This will take a while.)  Ignore the bell and the message

     Fontifying calc.info...buffer too big

8. Now exit and re-enter Emacs and you are ready to use Calc!

The prefix key for enter Calc is set to M-#.  If you are using the
command key as meta key, M-# is also command-shift-3, which invokes
the screen shot function on the Mac.  You can type ESC # instead, or
change the line

  (global-set-key "\e#" 'calc-dispatch)

that Calc adds to your .emacs file.  To get you started,

  ESC # c starts Calc,
  ESC # t gets you into the Calc tutorial, and
  ESC # i show the info file for Calc.

Have fun!  If anyone has interesting experience using Emacs on the
Mac, please share!

Andrew.

[Mac-emacs-users] Mac Roman Character Sets and Coding System

[Andrew C. <ch...@tr...>]

Hi Everyone,

Attached to this message is an interesting and useful use of the new
fontset support: the definition of character sets and coding system
for the Mac Roman encoding.

Once this code is loaded, Mac Roman characters will have their own
character sets and can appear in a buffer along with any other
characters sets.  Also, dired mode shows the correct characters.

One can also type "C-x RET c mac-roman RET C-x C-f" to find a file in
the Mac Roman encoding, or put -*- coding: mac-roman; -*- on the first
line of a file for the conversion to occur automatically when a file
is visited.

The mac-roman-lower and mac-roman-upper character sets are now
associated with Monaco 14 in fontset-mac.  It would be nice if we can
have a font consistent with ETL-Fixed-ISO8859-1 but in the Mac Roman
encoding (any one have some free time to do this?).

The code also defines a minor mode "mac-roman-kdb-mode".  Turning it
on allows characters typed at the Mac keyboard with code between
128-255 to be inserted into the buffer as mac-roman-lower or
mac-roman-upper characters.

It is now in the form of a .emacs file (just cut the following text
and store it as your .emacs file).  Some of it should eventually go
into its own file.

Andrew.

---cut here---
; MPW does not allow saving a file with name beginning with a period.
; Use Emacs or SimpleText to edit and save this file instead.

(cond ((fboundp 'global-font-lock-mode)
       ;; Turn on font-lock in all modes that support it
       (global-font-lock-mode t)
       ;; Maximum colors
       (setq font-lock-maximum-decoration t)))

; My preference for RMAIL.
(setq rmail-summary-window-size 10)
(setq mail-yank-prefix "> ")

; See the time on the status line.
(display-time)

; Most people should want to use the Mac command key as the meta key
; so dead key processing with the Mac option key will work.
(setq mac-command-key-is-meta t)

; Uncomment the following to edit files directly in Mac Roman
; encoding.  Visit a file with M-x find-file-literally instead of C-x
; C-f.
;
; (let
;     ((i 128))
;   (while (<= i 255)
;     (global-set-key (vector i) 'self-insert-command)
;     (setq i (1+ i))))
;
; (standard-display-8bit 128 255)

; Uncomment the following line to use Mac keyboard layouts for
; entering ISO Latin-1 characters.
;
;   (setq mac-keyboard-text-encoding kTextEncodingISOLatin1)
;

; Uncomment the following lines to use traditional Chinese.
;
; (set-language-environment 'Chinese-BIG5)
; (set-input-method 'chinese-b5-tsangchi)
;
; Uncomment the following line to use a traditional Chinese input
; method supported by the Mac OS (e.g., Mac OS + the Chinese Language
; Kit),
;
; (set-keyboard-coding-system 'chinese-big5)

; Uncomment the following line to use Japanese.
;
; (set-language-environment 'Japanese)
;
; To use a Japanese input method supported by the Mac OS (e.g., Mac OS
; + the Japanese Language Kit), uncomment the following line
;
; (set-keyboard-coding-system 'sjis)

; My attempt at making font-lock colors a little nicer.
(custom-set-variables)
(custom-set-faces
 '(font-lock-comment-face ((t (:italic t :foreground "DarkOliveGreen"))))
 '(font-lock-string-face ((t (:foreground "Brown"))))
 '(font-lock-keyword-face ((t (:bold t :foreground "Purple4"))))
 '(font-lock-constant-face ((t (:bold t :foreground "IndianRed4"))))
 '(font-lock-type-face ((t (:bold t :foreground "grey40"))))
 '(font-lock-variable-name-face ((t (:bold t :foreground "Navy"))))
 '(font-lock-builtin-face ((t (:bold t :foreground "Orchid4")))))

; Here is where I keep my Emacs Lisp info files
(setq
 Info-default-directory-list
 '("~emacs/../elisp-manual-20-2.5/" "~emacs/info"))

;; Definitions for the Mac Roman character sets and coding system.
;; The Mac Roman encoding uses all 128 code points in the range 128 to
;; 255 for actual characters.  Since Emacs cannot handle this many
;; code points as one character set, we divide it into two:
;; mac-roman-lower for code points 128 to 159 and mac-roman-upper for
;; code points 160 to 255.

(defvar mac-roman-lower-final-char
  (get-unused-iso-final-char 1 96))
(defvar mac-roman-upper-final-char
  (1+ mac-roman-lower-final-char))

(define-charset nil 'mac-roman-lower
  (vector 1 96 1 0 mac-roman-lower-final-char 1
     "Mac Roman lower" "Mac Roman lower" "Mac Roman lower"))
(define-charset nil 'mac-roman-upper
  (vector 1 96 1 0 mac-roman-upper-final-char 1
     "Mac Roman upper" "Mac Roman upper" "Mac Roman upper"))

;; Since Mac Roman does not follow the ISO 2022 standard and uses code
;; points in the range 128-159, it is necessary to define it as a
;; type-4 charset, with CCL programs and all.

(define-ccl-program decode-mac-roman
  `(2
    (loop
     (read r0)
     (if (r0 < 128)  ;; ASCII
	 (if (r0 == ?\r)  ;; assume such a file uses Mac EOL's
	     (write-repeat ?\n)
	   (write-repeat r0))
       (if (r0 < 160)  ;; lower
	   ((r0 += 32)
	    (r1 = ,(charset-id 'mac-roman-lower))
	    (write-multibyte-character r1 r0)
	    (repeat))
	 ((r1 = ,(charset-id 'mac-roman-upper))  ;; upper
	  (write-multibyte-character r1 r0)
	  (repeat)))))))

(define-ccl-program encode-mac-roman
  `(1
    (loop
     (read-multibyte-character r0 r1)
     (if (r0 == ,(charset-id 'ascii))
	 (if (r1 == ?\n)
	     (write-repeat ?\r)
	   (write-repeat r1))
       (if (r0 == ,(charset-id 'mac-roman-lower))
	   ((r1 += 96)
	    (write-repeat r1))
	 (if (r0 == ,(charset-id 'mac-roman-upper))
	     ((r1 += 128)
	      (write-repeat r1))))))))

(make-coding-system
 'mac-roman 4 ?M "Mac Roman Encoding"
 '(decode-mac-roman . encode-mac-roman)
 '((safe-charsets (ascii mac-roman-lower mac-roman-upper))
   (valid codes (0 . 255))))

;; This doesn't seem to do anything for type-4 charsets:
;; (put 'mac-roman 'eol-type (make-subsidiary-coding-system 'mac-roman))

(define-ccl-program ccl-encode-mac-roman-font
  `(0
    (if (r0 == ,(charset-id 'mac-roman-lower))
	(r1 += 96)
      (r1 += 128))))

(setq font-ccl-encoder-alist
      (cons (cons "mac-roman" ccl-encode-mac-roman-font)
	    font-ccl-encoder-alist))

; This shows how the font for an indiviual character set can be
; chosen.

(if (fboundp 'new-fontset)
    (progn
      (create-fontset-from-fontset-spec
       "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-mac,
        mac-roman-lower:-*-Monaco-*-*-*-*-14-*-*-*-*-*-mac-roman,
        mac-roman-upper:-*-Monaco-*-*-*-*-14-*-*-*-*-*-mac-roman,
        thai-tis620:-ETL-Fixed-*-*-*-*-16-*-*-*-*-*-tis620.2529-1,
        lao:-Misc-Fixed-*-*-*-*-16-*-*-*-*-*-MuleLao-1,
        vietnamese-viscii-lower:-ETL-Fixed-*-*-*-*-16-*-*-*-*-*-viscii1.1-1,
        vietnamese-viscii-upper:-ETL-Fixed-*-*-*-*-16-*-*-*-*-*-viscii1.1-1,
        chinese-big5-1:-*-Nice Taipei Mono-*-*-*-*-12-*-*-*-*-*-big5,
        chinese-big5-2:-*-Nice Taipei Mono-*-*-*-*-12-*-*-*-*-*-big5,
        chinese-gb2312:-*-Beijing-*-*-*-*-16-*-*-*-*-*-gb2312,
        japanese-jisx0208:-*-\x8d\xd7\x96\xbe\x92\xa9\x91\xcc-*-*-*-*-16-*-*-*-*-*-jisx0208-sjis,
        katakana-jisx0201:-*-*-*-*-*-*-16-*-*-*-*-*-JISX0201.1976-0,
        korean-ksc5601:-*-Seoul-*-*-*-*-16-*-*-*-*-*-ksc5601"
       t)
      
      ; Use the fontset we just created
      (modify-frame-parameters
       (selected-frame)
       '((height . 44)
	 (width . 80)
	 (font . "fontset-mac")))))

;; To display filenames in Chinese or Japanese, replace mac-roman with
;; big5 or sjis
(setq file-name-coding-system 'mac-roman)

;;(prefer-coding-system 'mac-roman)

(defun mac-roman-kbd-insert ()
  (interactive "*")
  (let ((ch last-command-char))
    (if (< ch 160)
	(insert
	 (make-char 'mac-roman-lower
		    (- last-command-char 96)))
      (insert
       (make-char 'mac-roman-upper
		  (- last-command-char 128))))))

(defvar mac-roman-kbd-mode nil
  "Non-nil if in Mac-kbd minor mode.")
(put 'mac-roman-kbd-mode 'permanent-local t)

(or (assq 'mac-roman-kbd-mode minor-mode-alist)
    (setq minor-mode-alist
	  (cons '(mac-roman-kbd-mode " Mac-kbd") minor-mode-alist)))

(defvar mac-roman-kbd-mode-map
  (let ((map (make-keymap))
	(i 128))
    (while (< i 256)
      (define-key map (vector i) 'mac-roman-kbd-insert)
      (setq i (1+ i)))
    map)
  "Keymap for Mac-kbd minor mode.")

(or (assq 'mac-roman-kbd-mode minor-mode-map-alist)
    (setq minor-mode-map-alist
	  (cons (cons 'mac-roman-kbd-mode mac-roman-kbd-mode-map)
		minor-mode-map-alist)))

(defun mac-roman-kbd-mode (&optional arg)
  "Toggle Mac Roman Keyboard (Mac-kbd) minor mode, in which characters
in the range 128 to 255 generated by the Mac keyboard are inserted as
mac-roman-lower or mac-roman-upper characters, in the mac-roman
encoding.

With an argument, a positive argument enables Mac Roman Keyboard mode,
and a negative argument disables it."

  (interactive "P")

  (if (if arg
	  ;; Negative arg means switch it off.
	  (<= (prefix-numeric-value arg) 0)
	;; No arg means toggle.
	mac-roman-kbd-mode)
      (setq mac-roman-kbd-mode nil)

    ;; Enable mode.
    (setq mac-roman-kbd-mode t)))

[Mac-emacs-users] Version d5 Released

[Andrew C. <ch...@tr...>]

Hi Everyone,

I write to announce that version d5 of GNU Emacs for Mac OS is now
available from my web site:

  http://www.csis.hku.hk/~choi/emacs/index.html

This is the actual release of d5 and not the prerelease of d5
available earlier.

If the download is slow there, you can also try the SourceForge FTP
site (which is sometimes hard to get it):

  ftp://mac-emacs.sourceforge.net/pub/mac-emacs/

The most important new feature in this release is fontsets and
international character sets support.  A set of fonts converted from
free GNU international fonts for use with it is also available from
the web page.

Even if you normally use a single language, bold, italic, and
bold-italic fonts are now supported which makes font-lock mode real
pretty under the suitable choice of fonts (ETL-Fixed-ISO8859-1, size
16).  Please look at the screen shots on the web page.

The fontset implementation is a full implementation in the sense that
any language supported by Unix Emacs is supported by the Mac version
as long as a set of fonts is provided for that language.  The fonts
that I distribute include the following encodings:

  iso8859-1, iso8859-2, iso8859-3, iso8859-4, iso8859-5, iso8859-6,
  iso8859-7, iso8859-8, iso8859-9, tis620.2529-1 (Thai),
  jisx0201.1976-0 (Japanese Katakana), viscii1.1-1 (Vietnamese),
  MuleLao-1 (Lao).

Running under Mac OS with WorldScript II and two-byte fonts installed,
the Mac version also supports:

  big-5 (Traditional Chinese), gb2312 (Simplify Chinese), jisx0208
  (Japanese), ksc5601 (Korean).

LEIM is fully supported so any of Emacs's input methods can be used,
which is convenient for people who must switch between Unix and the
Mac OS.  One can also use input methods and keyboard layouts supported
by the Mac OS.

A new FAQ collects in one place what used to be in the README file, my
guestbook, discussion groups, and answers I have given by E-mail.

Finder drag-and-drop is now supported.

There is a new document icon (you will probably need to rebuild your
desktop file to see it).

I am only making this announcement to the mailing lists and will wait
a few more days before I do so more publicly.  Please help me by
downloading these files and trying them.  Let me know if you have
questions or if you encounter problems.

Thank you for your help.  Enjoy the program!

Andrew.

Re: [Mac-emacs-users] 68k Binary please!

[Andrew C. <ch...@tr...>]

In reply to a 68K build: I am currently working quite hard on the next
release (d5), which I shall be able to distribute in a few days.  This
one has good support for fontsets which means many languages are
supported.

Tod McQuillin was working on compiling the program for 68K machines
(see guestbook from my web page).  I will get in touch with him to see
how he's doing.

After replying to Charlie I was not able to work on a 68K build at
this time, I did find a Quadra 950 which I can use.  Let me know if
people can't build a 68K binary and perhaps I can work on one after
the release.

[Mac-emacs-users] 68k Binary please!

[<cha...@ne...>]

Finally I am going to have the real emacs for my good old mac. I don't
have compilers on my mac,

>>>>>>>>> can someone pleaes send me a copy of 68k binary?

Just the program please, I've already downloaded the whole thing
but the program was for PowerPC.

Regards,

ztech

Re: [Mac-emacs-users] macterm and edt-emulation-on

[Andrew C. <ch...@tr...>]

> [...] I tried
> 
>   M-x edt-emulation-on
> 
> and received
> 
>   "Unable to load EDT terminal specific file for macterm"

You need to modify the file ".../lisp/emulation/edt.el" and change the
line

  (if (eq window-system 'x)

to

  (if (or (eq window-system 'x) (eq window-system 'mac))

Then you need to byte-compile that file by typing

  M-x byte-compile-file

and giving it the name of the file ".../lisp/emulation/edt.el" when
prompted.  Emacs will generate a bunch of messages.  Don't worry about
them.

After that when you turn on EDT emulation for the first time by typing
"M-x edt-emulation-on", you should get a chance to define keys on your
keyboard to emulate keys on a DEC keyboard.  Follow the instructions
given.  You should then get a file called .edt-gnu-keys in your "mac"
directory.  Thereafter when you start EDT emulation you should be able
to go right in.

Please let me know if things work correctly or not.  It has been a
while since I used EDT so I would not know how to test the emulation
mode.

Andrew.

[Mac-emacs-users] macterm and edt-emulation-on

[Michael W. J. W. p. 302-695-9. <Mic...@us...>]

I have flirted with emacs awhile and am trying to get serious.  Being an old EDT user, I tried

M-x edt-emulation-on

and received

"Unable to load EDT terminal specific file for macterm"


Is there a work-around?