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

/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

        if (xf86GetVerbosity() > 1)
        {
                xf86DrvMsgVerb(pScrn->scrnIndex, X_INFO, VERBLEV,
                                "Saved current video mode.  Register dump:\n");
                SMI_PrintRegs(pScrn);
        }

        LEAVE_PROC("SMI_Save");
}

#define VERBLEV 2

SMI_PrintRegs(ScrnInfoPtr pScrn)
{
#define VERBLEV 2

• kterm は TERM を xterm とすべき
• emacs は TERM が kterm であっても色を付けること
• kterm を起動したら setenv TERM xterm とすれば良い
• (それとも僕が何かへまをやっている ?)