|
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月08日 ・comparison on ./buildsh tools 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 | ||