|
Namazu for hns による簡易全文検索 詳しくは 詳細指定/ヘルプを参照して下さい |
|||||||||||||||||||||||||||||||||||||||||||||
2013年12月15日(日) 旧暦 [n年日記] [更新:"2013/12/17 22:42:55"]#1 [Emacs][Wanderlust] Reading Google mail (by imap)
返事を書こうとすると
byte-code: require: not variableeelll を開始しようとすると call-interactively: Symbol's value as variable is void: last-command-charこっちは *Backtrace* が有 Debugger entered--Lisp error: (void-variable last-command-char) tcode-electric-space(1) call-interactively(tcode-electric-space nil nil) command-execute(tcode-electric-space) tcode-eval-action(tcode-electric-space)多分これでしょう。 $NetBSD$ Replace obsolete variable --- lisp/eelll.el.orig 2013-12-15 14:34:57.000000000 +0900 +++ lisp/eelll.el 2013-12-15 14:33:32.000000000 +0900 @@ -1000,7 +1000,7 @@ (defun eelll-key) (interactive) (save-excursion (set-buffer " *eelll: strokes*") - (insert (char-to-string last-command-char))) + (insert (char-to-string last-command-event))) (if eelll-move-cursor (insert " "))) @ M-x eelll (うなぎぎで練習):
(話は変って)
まだ、マイナスの文字が小さすぎるようだ。 次の変更で一応(僕の環境では)見られるようになった $NetBSD$ Replace obsolete variable --- lisp/eelll.el.orig 2013-12-15 14:31:48.000000000 +0900 +++ lisp/eelll.el 2013-12-15 14:51:43.000000000 +0900 @@ -361,7 +361,7 @@ Tコードで入力できなければnilを返す。" (setq j (1+ j) k 0) (while (< k 5) (setq k (1+ k)) - (insert "‐‐‐‐‐ ") + (insert "一一一一一 ") (if (= k c) (insert " "))) (delete-horizontal-space) (insert "\n"))いち(一)でなくて (全角の)マイナスを使って見たが、このスクリーンショットでは違いが分らない でも少し間隔が空くかも知れない --- lisp/eelll.el.orig 2013-12-15 14:31:48.000000000 +0900 +++ lisp/eelll.el 2013-12-15 15:06:25.000000000 +0900 @@ -361,7 +361,7 @@ (setq j (1+ j) k 0) (while (< k 5) (setq k (1+ k)) - (insert "‐‐‐‐‐ ") + (insert "一一一一一 ") (if (= k c) (insert " "))) (delete-horizontal-space) (insert "\n"))これは次のメールの話に関係していると思う To: mule-ja-2010 m17n org Subject: [mule-ja-2009:09748] Re: 「かける」の記号が半角だったり全角だったり From: NAKAJI Hiroyuki <nakaji kankyo-u ac jp> Date: Tue, 08 Jun 2010 20:32:45 +0900 (中略) はい。ヒントがありましたので、~/.emacs に (set-face-font 'default "-sony-fixed-medium-r-normal--16-*-*-*-*-*-iso8859-1") (set-fontset-font (face-attribute 'default :fontset) 'japanese-jisx0208 "-jis-fixed-medium-r-normal--16-*-*-*-*-*-jisx0208.1983-0") (set-fontset-font (face-attribute 'default :fontset) 'katakana-jisx0201 "-sony-fixed-medium-r-normal--16-*-*-*-*-*-jisx0201.1976-0") と書いたところ、(string-width "×") は1ですが、表示は全角になりました。このままで Emacs-21 でもいいのかな。 Emacs-20 (20.7) -> Symbol's function definition is void: coding-system-from-name Emacs-21 (21.4) -> Symbol's function definition is void: coding-system-from-name Emacs-22 (22.3) -> Symbol's function definition is void: coding-system-from-name Emacs-23 (23.4) -> ;; For Emacs-23.0-Versions before 2009-01-27. ;; CVSWeb URLs: ;; http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-cmds.el?cvsroot=emacs&r1=1.355&r2=1.356 (when (not (and (fboundp 'canonicalize-coding-system-name) (fboundp 'coding-system-from-name))) ;; Canonicalize the coding system name NAME by removing some prefixes ;; and delimiter characters. Support function of ;; coding-system-from-name. (defun canonicalize-coding-system-name (name) (if (string-match "^iso[-_ ]?[0-9]" name) ;; "iso-8859-1" -> "8859-1", "iso-2022-jp" ->"2022-jp" (setq name (substring name (1- (match-end 0))))) (let ((idx (string-match "[-_ /]" name))) ;; Delete "-", "_", " ", "/" but do distinguish "16-be" and "16be". (while idx (if (and (>= idx 2) (eq (string-match "16-[lb]e$" name (- idx 2)) (- idx 2))) (setq idx (string-match "[-_ /]" name (match-end 0))) (setq name (concat (substring name 0 idx) (substring name (1+ idx))) idx (string-match "[-_ /]" name idx)))) name)) (defun coding-system-from-name (name) "Return a coding system whose name matches with NAME (string or symbol)." (let (sym) (if (stringp name) (setq sym (intern name)) (setq sym name name (symbol-name name))) (if (coding-system-p sym) sym (let ((eol-type (if (string-match "-\\(unix\\|dos\\|mac\\)$" name) (prog1 (intern (match-string 1 name)) (setq name (substring name 0 (match-beginning 0))))))) (setq name (canonicalize-coding-system-name (downcase name))) (catch 'tag (dolist (elt (coding-system-list)) (if (string= (canonicalize-coding-system-name (symbol-name elt)) name) (throw 'tag (if eol-type (coding-system-change-eol-conversion elt eol-type) elt))))))))))When building emacs-23.4, I've got /usr/pkg/lib/libXext.so.6: undefined reference to `_XGetRequest' *** Error code 1 Stop. make: stopped in /export/WRKOBJDIR/devel/m17n-lib/work/m17n-lib-1.6.4/example /usr/pkg/lib/libX11.so 00035be0 T _XGetRequest ( つっこみ )
|
最近の日記 2024年05月06日 ・py-setuptools (python 3.11.9) ・make release took 1 hours and 10 min ・qemu invocation for 10.99.10 2024年05月05日 ・Windows 10 version ・serial connection ・bc bench 2024年05月04日 ・Trial on 10.99.10 ・another version (later trial) to succeed 2024年04月29日 ・dkim 2024年03月10日 ・停電 (瞬電) | ||