MacOSX WorkShop/dot emacs el

MacOSX_WorkShop の「OSX-Preferences」と「emacs-lisps」で提供されている Emacs の設定ファイルを議論します。

基本方針

VineLinux の設定を基準にする。

OSXWS は大学や研究機関の計算機管理者が導入し、管理者権限を持たない学生さんやユーザーが利用する事を念頭に置いて下さい。

変更事項はその理由を明記する。

複数人の趣味に偏るのを避ける為にも必要です。

修正案の作り方

このWiki上で修正案を作る方法として、取り除くほうが良いと考えている物を「(取り除いた項目)」に移し、追加したいと考えているものを実際に追加し「(追加した項目)」に記入するようにしています。それにコメント、指摘を書き込んで頂けたら助かります。

inline-patch や transparency patch 等 upstream で仕様が今後も変更される確率が高く、且つ、OSXWS としてのデフォルトなど基本的な設定は、site-start.d 内で行う。

OSXWS-10.5-x の emacs 設定ファイル

グローバル共通

OSXWSのEmacs は起動時に/private/etc/emacs-[EMACSVER]/site-start.d/を読みに行きます。ここでは、upstream で今後も改変が予想される設定と、OSXWS のデフォルト設定を行います。これは、distribution 全体としての整合性や体裁（つまり、「街」としての機能を保つこと）を目的とします。ユーザーが自分の ~/.*.el を書き損じても、それら全てを無効にすれば OSXWS としての CarbonEmacs の機能が一通り利用できる事を目指します。

$ cat /usr/osxws/etc/emacs-[EMACSVER]/site-start.d/99osxws.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  osxws.el for MacOS X WorkShop
;;            KOBAYASHI Taizo <xxxxxxx@xxxxxxx>
;; Time-stamp: <2008-07-03 16:14:10 tkoba>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; setting the MacOS X WorkShop flag
(defconst osxws-emacs-flag t 
  "This is Emacs of MacOS X WorkShop.")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Local Variables:
;; mode: emacs-lisp
;; buffer-file-coding-system: junet-unix
;; End:

$ cat /usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec0.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Section 0 fundamental configurations
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; save the position before you editing.
(require 'saveplace)
(setq-default save-place t)
(setq save-place-file "~/Library/Application Support/OSXWS/emacs-places.txt")

;; copy foo to foo~ as a backup file
(setq backup-by-copying t)

;;; start emacsclient server
(server-start)

$ cat /usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec1.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Section 1 language configurations
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; japanese settings for Carbon Emacs Package
(if
    (equal 
     (substring 
      (concat 
       (shell-command-to-string "defaults read -g AppleLocale") "__") 0 2) "ja")
    (save-excursion
     (require 'utf-8m)
     (set-clipboard-coding-system 'utf-8)
     (set-terminal-coding-system 'utf-8) ; 'euc-jp-unix)
     (set-file-name-coding-system 'utf-8m)
     (set-language-environment 'Japanese)
     (set-default-coding-systems 'utf-8)
     (set-keyboard-coding-system (if window-system 'sjis-mac 'utf-8))
     (load "menu-tree")))

$ cat /usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec2.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Section 2 appearance setting
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; hide tool-bar
(tool-bar-mode nil)

;;; show the corresponding paren 
(require 'paren)
(show-paren-mode)

;;; colorizing mark region
(setq transient-mark-mode t)

;;; do not font scaling
(setq scalable-fonts-allowed nil)

;;; show line number
(line-number-mode t)

;;; show the present time on status bar
(if (equal (substring (concat 
       (shell-command-to-string "defaults read -g AppleLocale") "__") 0 2) "ja")
      (progn
       (setq dayname-j-alist
            '(("Sun" . "日") ("Mon" . "月") ("Tue" . "火") ("Wed" . "水")
             ("Thu" . "木") ("Fri" . "金") ("Sat" . "土")))
       (setq display-time-string-forms
             '((format "%s年%s月%s日(%s) %s:%s %s"
                       year month day
                       (cdr (assoc dayname dayname-j-alist))
                       24-hours minutes
                       load)))))
(display-time)

$ cat /usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec3.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Section 3 keyboard/keybindig
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; use "command", "control", "option" keys as
;;; alt, control, hyper, meta, super keys
(setq mac-command-modifier 'alt)
(setq mac-control-modifier 'control)
(setq mac-option-modifier 'meta)

(cua-selection-mode t)

;;; revert [Home] Key and [End] Key
(define-key global-map [home] 'beginning-of-buffer)
(define-key global-map [end] 'end-of-buffer)

;;; mac-key-mode 
;; (short cut of OSX applications)
(when (eq window-system 'mac)
  (require 'mac-key-mode)
  (mac-key-mode 1))

;; C. fix: Unicode => Japanese mapping
;; Thanks to saiki-san (see [macemacsjp-users 870])
;; register circle around digits to cjk table (by Ando-san)
(defadvice utf-translate-cjk-load-tables
  (after my-ad-circled-digit activate)
  (dotimes (i 20)
    (let ((unicode (+ #x2460 i))
	  (char (+ 54433 i)))
      (if (utf-translate-cjk-substitutable-p unicode)
	  (puthash unicode char ucs-unicode-to-mule-cjk))
      (puthash char unicode ucs-mule-cjk-to-unicode))))
;; prevent to use half-width marks (by Nanba-san)
(utf-translate-cjk-set-unicode-range 
 '((#x2e80 . #xd7a3)
   (#xff00 . #xffef)
   (#xa7 . #xa7)                        ;
   (#xb0 . #xb1)                        ;
   (#xb4 . #xb4)                        ;
   (#xb6 . #xb6)                        ;
   (#xd7 . #xd7)                        ;
   (#xf7 . #xf7)                        ;
   (#x370 . #x3ff)                      ; Greek
   (#x400 . #x4ff)                      ; Cyrillic
   (#x2000 . #x206f)                    ; punctuation mark
   (#x2103 . #x2103)                    ; centigrade degree
   (#x212b . #x212b)                    ; angstrom
   (#x2190 . #x21ff)                    ; Arrow
   (#x2200 . #x22ff)                    ; mathematical symbol
   (#x2300 . #x23ff)                    ; engineering symbol
   (#x2460 . #x2473)                    ; number in circle
   (#x2500 . #x257f)                    ; ruled line
   (#x25a0 . #x25ff)                    ; mosaic fragment
   (#x2600 . #x26ff)                    ; other symbol
   ))
;; C. end

;; D. fix yen key problem on JIS keyboard
;; Ando-san's code (see [Macemacsjp-users 1126])
(define-key global-map [2213] nil)
(define-key global-map [67111077] nil)
(define-key function-key-map [2213] [?\\])
(define-key function-key-map [67111077] [?\C-\\]) 

(define-key global-map [3420] nil)
(define-key global-map [67112284] nil)
(define-key function-key-map [3420] [?\\])
(define-key function-key-map [67112284] [?\C-\\])

$ cat /usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec4.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Section 4 shell-command
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; hide password 
(add-hook 'comint-output-filter-functions
	'comint-watch-for-password-prompt)

;;; escape sequence
(autoload 'ansi-color-for-comint-mode-on "ansi-color"
	"Set `ansi-color-for-comint-mode' to t." t)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

$ cat /usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec5.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Section 5 inline-patch by Hashimoto-san
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(when (eq window-system 'mac)
  (add-hook 'minibuffer-setup-hook 'mac-change-language-to-us)
  (mac-add-ignore-shortcut '(control))
  (mac-set-input-method-parameter 'japanese 'cursor-color "red"))

;; start up by Command-Space
(global-set-key [(alt \ )] 'toggle-input-method)
;; start up by Shift-Space
(global-set-key [?\S-\ ] 'toggle-input-method)

$ cat /usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec6.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Section 6 CarbonEmacs window mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(when (eq window-system 'mac)
  
  ;; fixed-width-fontset (carbon-font)
  (require 'carbon-font)
  ;; if display-height is less than 900, set font size 12pt.
  (if (< (display-pixel-height) 900)
    (setq fontsize 12)
    (setq fontsize 14))
  (fixed-width-set-fontset "hiramaru" fontsize)

  ;; color-theme
  ;; You can change the color theme by M-x color-theme-?
  ;(require 'color-theme)
  ;(color-theme-dark-blue2)

  ;; Transparency3
  (add-to-list
   'default-frame-alist
   '(alpha . (90 40))) ;; (alpha . (<active frame> <non active frame>))
  (setq frame-alpha-lower-limit 20)
  
  ;; anti alias (drag and drop)
  (setq mac-allow-anti-aliasing t)

  ;;----------------------------------------------------------
  ;; smart-dnd 
  (require 'smart-dnd)

  ;; yahtml-mode:
  (add-hook
   'yahtml-mode-hook
   '(lambda ()
      (smart-dnd-setup
       '(
	 ("\\.gif\\'" . "<img src=\"%R\">\n")
	 ("\\.jpg\\'" . "<img src=\"%R\">\n")
	 ("\\.png\\'" . "<img src=\"%R\">\n")
	 ("\\.css\\'" . "<link rel=\"stylesheet\" type=\"text/css\" href=\"%R\">\n" )
	 ("\\.js\\'"  . "<script type=\"text/javascript\" src=\"%R\"></script>\n" )
	 (".*" . "<a href=\"%R\">%f</a>\n")))))

  ;; yatex-mode:
  (add-hook
   'yatex-mode-hook
   '(lambda ()
      (smart-dnd-setup
       '(
	 ("\\.tex\\'" . "\\input{%r}\n")
	 ("\\.cls\\'" . "\\documentclass{%f}\n")
	 ("\\.sty\\'" . "\\usepackage{%f}\n")
	 ("\\.eps\\'" . "\\includegraphics[clip]{%r}\n")
	 ("\\.ps\\'"  . "\\includegraphics[clip]{%r}\n")
	 ("\\.pdf\\'" . "\\includegraphics[clip]{%r}\n")
	 ("\\.jpg\\'" . "\\includegraphics[clip]{%r}\n")
	 ("\\.png\\'" . "\\includegraphics[clip]{%r}\n")
         ("\\.bst\\'" . "\\bibliographystyle{%n}\n")
	 ("\\.bib\\'" . "\\bibliography{%n}\n")))))
  
  ;; C/C++ mode:
  (add-hook 
   'c-mode-common-hook
   '(lambda () (smart-dnd-setup '(("\\.h\\'" . "#include <%f>")))))
  ;;----------------------------------------------------------
  )

$ cat /usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec7.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Section 7 anything else
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Yatex
(if (file-exists-p "~/.yatex.el")
      (load-file "~/.yatex.el"))

;; Mew 6.2  -  Messaging in the Emacs World
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)

(if (file-exists-p "~/.mew.el")
      (load-file "~/.mew.el"))

;; No adding newline at end of buffer
(setq next-line-add-newlines nil)

;; The number of lines to scroll a window by when point moves out
(setq scroll-step 1)

;;; Time Stamp
;;;   If you put 'Time-stamp: <>' or 'Time-stamp: ""' on
;;;   top 8 lines of the file, the '<>' or '""' are filled with the date
;;;   at saving the file.
(require 'time-stamp)
(if (not (memq 'time-stamp write-file-functions))
    (setq write-file-functions
	  (cons 'time-stamp write-file-functions)))

ローカル共通

.emacsでは条件分岐のみを行います。他のEmacsに別の初期設定を行いたい場合もここから読み込むように設定します。

$ cat ~/.emacs

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; loading init files
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cond ((boundp 'osxws-emacs-flag)
       ; for Mac OS X WorkShop
       (load-file "~/.emacs_osxws.el")
       (load-file "~/.custom_osxws.el"))
      (t
       ; for others
       (if (file-exists-p "~/.emacs.el") 
 	   (load-file "~/.emacs.el"))
       (if (file-exists-p "~/.custom.el")
    	   (load-file "~/.custom.el")))
)

OSXWSのEmacs専用custom 用ファイル

M-x customize による設定が書き込まれるファイルです。

$ cat ~/.custom_osxws.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  .custom for MacOS X [[WorkShop]]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq custom-file "~/.custom_osxws.el")

OSXWSのEmacs専用 .emacs

OSXWS 固有の設定をここで読み込みます。従って、ユーザーは殆ど全ての設定をここで選択できます。

$ cat ~/.emacs_osxws.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ~/.emacs_osxws.el
;;  .emacs for MacOS X WorkShop
;; Time-stamp: <2008-07-03 18:24:55 tkoba>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq user-init-file "~/.emacs_osxws.el")

;; Section 0 fundamental configurations
 (load-file "/usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec0.el")

;; Section 1 language setting
 (load-file "/usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec1.el")

;; Section 2 appearance setting
 (load-file "/usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec2.el")

;; Section 3 keyboard/keybindig setting
 (load-file "/usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec3.el")

;; Section 4 shell-command setting
 (load-file "/usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec4.el")

;; Section 5 inline-patch setting
 (load-file "/usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec5.el")

;; Section 6 CarbonEmacs window mode setting
 (load-file "/usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec6.el")

;; Section 7 anything else setting
 (load-file "/usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws-sec7.el")

;;  ↓ ↓ ↓（追加案 ここから）
;;; Edit  
;;
;;; When you are familiar with the contents of the startup screen,
;;; you may inhibit the startup screen.
;; (setq inhibit-startup-message t) 
;;
;;; CarbonEmacs window mode setting
;; (when (eq window-system 'mac)
;;; Color-thema
;;   (require 'color-theme)
;;   (color-theme-dark-blue2)
;;
;;; Transparency3
;;   (add-to-list
;;    'default-frame-alist
;;    '(alpha . (90 40))) ;; (alpha . (<active frame> <non active frame>))
;;   )
;; ↑ ↑ ↑  (追加案 ここまで)

;; End:

YaTeXの設定ファイル

.emacs_osxws.elから読み込まれます。

$ cat .yatex.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  ~/.yatex.el for MacOS X WorkShop
;;            KOBAYASHI Taizo <xxxxxxxxx@xxxxxx.com>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; yatex の設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq auto-mode-alist
      (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)

;; platex と Skim
(setq tex-command "platex2pdf-utf8"
      dvi2-command "open -a Skim")
;; platex と Mxdvi
;(setq tex-command "platex --src-special"
;      dvi2-command "mxdvi")
;; platex と TeXShop
;(setq tex-command "~/Library/TeXShop/bin/platex2pdf-euc"
;      dvi2-command "open -a TeXShop")
;; pdflatex と TeXShop 
;(setq tex-command "pdflatex"
;      dvi2-command "open -a TeXShop")

(setq dviprint-command-format "dvips %s | lpr"
      YaTeX-kanji-code 4 ; (1 JIS, 2 SJIS, 3 EUC, 4 UTF-8)
      YaTeX-use-AMS-LaTeX t ; AMS-LaTeX
      section-name "documentclass"
      makeindex-command "mendex -U"
      bibtex-command "jbibtex -kanji=utf8"
      YaTeX-skip-default-reader  t
      YaTeX-latex-message-code 'utf-8
      YaTeX-use-font-lock t
)

(add-hook 'skk-mode-hook
	(lambda ()
	 (if (eq major-mode 'yatex-mode)
	     (progn
		(define-key skk-j-mode-map "\\" 'self-insert-command)
		(define-key skk-j-mode-map "$" 'YaTeX-insert-dollar)
	  ))
))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; yahtml の設定
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq auto-mode-alist
      (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist))
(autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t)
(add-to-list 'auto-mode-alist '("\\.htm\\'" . yahtml-mode))

(setq yahtml-www-browser "open"
      yahtml-lint-program "htmllint"
      yahtml-kanji-code 4)
 
(add-hook 'yahtml-mode-hook
     '(lambda ()
       (auto-fill-mode -1)
       )) 

;;;; 常に<p>をいれたら</p>
(setq yahtml-always-/p t)
;;;; 常に<li>をいれたら</li>
(setq yahtml-always-/li t)

;; End:

変更箇所

変更点

(追加した項目)

(削除した項目)

追加案

gnuplot-mode は使われていますか？今は、正式版リリースに集中するということで、追加の検討はその後でも良いと思いますが。--Seto
- いえ、ですが gnuplot の subpackage gnuplot-lisps として用意すべきですね。作業しておきます。--tkoba
昔 YaTeX のメーリングリストで広瀬さんに教えてもらった、どのバッファからでもファイル名を補完する関数です。とても便利なので、もしよかったらどこかに追加しませんか？
- 今は共通のところに置く必要はないですね。--Seto

(defun my-file-complete ()
  (interactive)
  (let*((p (point))
	(s (save-excursion
	     (skip-chars-backward "^ \t\n:;\"\'()<>")
	     (point)))
	(path (buffer-substring s p))
	(dir (or (file-name-directory path) ""))
	(file (file-name-nondirectory path))
	(res (file-name-completion file dir)))
    (cond
     ((eq res t)	(message "Sole completion"))
     ((eq res nil)	(ding) (message "No match!"))
     ((string= file res)
      (message (mapconcat 'princ (file-name-all-completions file dir) " ")))
     (t
      (delete-region p s)
      (insert dir res)))))

(global-set-key [(alt k)] 'my-file-complete) ;;  このキーバインドだとnwモードで使えない

10.4 Tiger 版に関する議論

http://www.bach-phys.ritsumei.ac.jp/OSXWS/node60.html

私が2008春版で22.2に当てたのはこのバージョンでした。v4の文法もご参考までに。--ぜ
移して頂いた３つの部分は .emacs_osxws.el 内のみにしようかと思いますが如何でしょう？ --Tkoba 2008年7月8日 (火) 00:55 (UTC)
Section 6で、Color-themaの部分がコメント化されていますが、グローバル共通のところではユーザが編集できないので、.emacs_osxws.elの後半にコメント化した設定をいくつか付け足してみました。 --Seto 2008年7月7日 (月) 23:19 (UTC)
Time Stamp をappearance settingからanything elseに移動しました。（fundamentalのほうかな？） --Seto 2008年7月7日 (月) 23:13 (UTC)
インラインパッチと透明パッチですが、安定板正式リリースである emacs-22.2 には対応していないので、22.3 リリース後に採用致します。 --Tkoba 2008年7月7日 (月) 22:30 (UTC)
すみません。emacs-lisps-1.3-10.5osx0.5 で直しておきました。 --Tkoba 2008年7月7日 (月) 22:04 (UTC)
先ほどdist-upgradeしましたが、/usr/osxws/share/emacs/site-lisp/emacs-lisps/osxws.elが無いみたいです。 --Seto 2008年7月7日 (月) 12:32 (UTC)
瀬戸さん、銭谷さん、皆さん、早速のコメントと修正を有り難うございます。今週中をメドに OSXWS のデフォルトを決定して、来週中に Leopard 版を正式リリースしようと思います。 --Tkoba 2008年7月7日 (月) 02:33 (UTC)
alphaの設定ですが、アクティブ時には画面に集中できて、非アクティブ時にも文字が読めるということでデフォルトでは(100 80)くらいで良いと思うのですがどうでしょうか？ --Seto 2008年7月6日 (日) 05:59 (UTC)
keyboard-coding-systemは指定してもしなくても、ことえりがonの時はjapanese-shift-jisで、ことえり英字や直接入力(U.S.)の時はmac-romanになるみたいですね。no window モードのときも、特に指定しなくてもutf-8になっていました。mule-cmds.elの中にいろいろ書かれているみたいですがややこしいです。language-environmentもJapaneseにしなくても、普通に使えるような気もしますし。 --Seto 2008年7月6日 (日) 05:38 (UTC)
インラインパッチは先週のを使って下さい。透明パッチは Emacs 23 互換の transparency4 をお薦めします。 --ぜ 2008年7月5日 (土) 23:59 (UTC)
utf-8 で問題なければ、そちらの方が良いと思います。（瀬戸さんのを真似て、ずっと sjis-mac にしていました） --ぜ 2008年7月5日 (土) 23:54 (UTC)
133.5.165.65 です．OSX-Preferences が update されていて，/usr/osxws/share/OSXWS/jp/.emacs_osxws.el が修正されていることを確認しました．対応していただきありがとうございました． --218.41.210.88 2008年7月5日 (土) 12:25 (UTC)
set-keyboard-coding-system は、windowモードのときにsjis-macにする必要があるでしょうか？（utf-8 にして試してみたら問題なく入力できるようでしたので。） --Seto 2008年7月5日 (土) 09:02 (UTC)
.emacs_osxws.elなどは、/usr/osxws/share/OSXWS/jp/ or en/ 以下にあります。 --Seto 2008年7月5日 (土) 07:48 (UTC)
上の.yatex.elが古かったので、新しい方を貼付けました。 --193.52.24.125 2008年7月5日 (土) 07:42 (UTC)
先ほどOSXWS10.5をクリーンインストールしましたが，現状では ~/.emacs_osxws.el に osxws-sec?.el などをロードする設定が書かれていないようです． --133.5.165.65 2008年7月4日 (金) 08:28 (UTC)
改善提案はもちろん、英語の間違いもドンドンたたいてやってください。 --Tkoba 2008年7月3日 (木) 10:00 (UTC)

参考したサイト