「Emacs」タグアーカイブ

GNU Emacs 21.3.50 w/ multi-tty support

　さて、XEmacs 21.[45]からGNU Emacs 21.3.50 w/ multi-tty supportに乗り換えた、というかそちらをメインで使うようにしたのだが、いくつか問題もある。 Emacs serve… 続きを読む »

Emacs multi-tty support

　XEmacsのgnuserv/gnuclientの使い勝手が非常にいいのでGNU Emacsもttyまわりを改良してほしいなあと思っていたら、Emacs multi-tty supportというプロジェクトを見つけた。… 続きを読む »

tDiary – tdiary-mode-hook

　tdiary-mode-hookは、次のように設定している。

(add-hook
 'tdiary-mode-hook
 '(lambda ()
    (add-local-hook
     'kill-buffer-hook
     '(lambda ()
	(and (buffer-modified-p)
	     (not (yes-or-no-p (format "Buffer %s is modified; kill anyway? "
				       (buffer-name))))
	     (error "Aborted"))))

    (local-set-key "\C-i" 'tdiary-complete-plugin)

    (defun tdiary-read-title (date)
      (and
       (or (not (stringp tdiary-title))
	   (eq (length tdiary-title) 0))
       (string-match "\\([0-9][0-9][0-9][0-9]\\)\\([0-9][0-9]\\)\\([0-9][0-9]\\)"
		     tdiary-date)
       (setq tdiary-title
	     (concat (match-string 1 tdiary-date) "-"
		     (match-string 2 tdiary-date) "-"
		     (match-string 3 tdiary-date) "の日記")))
      (read-string (concat "Title for " date ": ") tdiary-title))))

(add-hook

'tdiary-mode-hook

'(lambda ()

(add-local-hook

'kill-buffer-hook

'(lambda ()

(and (buffer-modified-p)

(not (yes-or-no-p (format "Buffer %s is modified; kill anyway? "

(buffer-name))))

(error "Aborted"))))

(local-set-key "\C-i" 'tdiary-complete-plugin)

(defun tdiary-read-title (date)

(and

(or (not (stringp tdiary-title))

(eq (length tdiary-title) 0))

(string-match "\\([0-9][0-9][0-9][0-9]\\)\\([0-9][0-9]\\)\\([0-9][0-9]\\)"

tdiary-date)

(setq tdiary-title

(concat (match-string 1 tdiary-date) "-"

(match-string 2 tdiary-date) "-"

(match-string 3 tdiary-date) "の日記")))

(read-string (concat "Title for " date ": ") tdiary-title))))

Emacsではファイルに結びついていないバッファは確認なしにkillできてしまうので、書き… 続きを読む »

Mac OS X – XEmacs

　XEmacs 21.5b14を入れ、elisp群はインストールがめんどくさいのでFreeBSD機からまるごとコピーした。例によってUTF-8を使う設定。それ以外はまったく変更せずに動いている。 [crayon-63af… 続きを読む »