byte-code: require: not variable

call-interactively: Symbol's value as variable is void: last-command-char

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 " ")))
 

(話は変って)
まだ、マイナスの文字が小さすぎるようだ。 次の変更で一応(僕の環境では)見られるようになった

$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 "×") は１ですが、表示は全角になりました。

このままで 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