Re: [Mac-emacs-users] [Mac-emacs-users]

[Carsten B. <ca...@tz...>]

While you are fixing things:

I have two gripes with the CVS version of 21.3.50 (last fetched at Sep 
18, so please tell me this has been fixed already):

1) The default installation does not set the selection coding system.
So, pasting non-ASCII characters generates coding errors.
The following .emacs entry solves the problem only partially, because 
the selection coding system actually depends on what is selected, but 
it works for most European applications:
(if (eq window-system 'mac)
     (progn
       (setq selection-coding-system 'mac-roman)
       ))

(Setting the selection coding system should also obviate the need for 
the \r-to-\n replacement loop, no?)

2) I can't seem to tame the fonts.  I want to use andale-mono as my 
main font (much better readability), and I want to use it at size 9, 
because my Powerbook is only 1152x768.
So I say:

(if (fboundp 'new-fontset)
     (progn
       (create-fontset-from-fontset-spec
        "-etl-fixed-medium-r-normal-*-9-*-*-*-*-*-fontset-mac,
ascii:-apple-andale mono-*-9-*-*-*-*-*-*-m-*-mac-roman")
       (let ((monaco-font '("monaco" . "mac-roman")))
	(map-char-table
	 (function
	  (lambda (key val)
	    (or (generic-char-p key)
		(memq (char-charset key)
		      '(ascii eight-bit-control eight-bit-graphic))
		(set-fontset-font "fontset-mac" key monaco-font))))
	 (get 'mac-roman-encoder 'translation-table)))))

This gives me a problem, complaining about the andale-mono font.
It only works if I substitute -0- for -9-, but of course, this doesn't 
give me the right size.

As a workaround, what I'm doing is
(if (eq window-system 'mac)
     (set-frame-font "-apple-andale 
mono-medium-r-normal--9-120-75-75-m-120-mac-roman")
    ...)

This works, so there is no reason to complain in the code above, but of 
course all non-ascii characters stand out in the etl fonts (which is 
*mucho ugly* in German text :-).

Gruesse, Carsten