[Mew-dist 07473] Re: b6 diff

[Shun-ichi GOTO]

後藤＠太陽計測です

>>>>> at Tue, 16 Feb 1999 17:42:13 +0900, kazu <kazu at example.com> said,
kazu> mode-map を nconc や cons すると、XEmacs では怒られます。こうするのが
kazu> 正しいか自信がありません。動けばよしとして下さい。

set-keymap-parents と set-keymap-parentが混在してますね。
＃typoかな？

mew-env.elあたりでmew-set-keymap-parentとかを定義して利用するのはいか
がでしょうか。
とりあえずmew-env.elのdiffを添えておきます。


--- mew-env.el.orig	Tue Feb 16 12:15:18 1999
+++ mew-env.el	Tue Feb 16 15:57:34 1999
@@ -111,6 +111,23 @@
     (fset 'mew-string-as-multibyte (symbol-function 'string-as-multibyte))
   (defmacro mew-string-as-multibyte (str) (` (, str))))
 
+(if (fboundp 'set-keymap-parent)	; for Emacs (or XEmacs)
+    (defalias 'mew-set-keymap-parent 'set-keymap-parent)
+  (if (fboundp 'set-keymap-parents)	; for XEmacs
+      (defalias 'mew-set-keymap-parent 'set-keymap-parents)
+    (defun mew-set-keymap-parent (keymap parent) ; for Emacs19
+      (if (not (keymapp keymap))
+	  (error "ERROR: not keymap, %s" keymap)
+	(if (and parent (not keymapp parent))
+	    (error "ERROR: not keymap, %s" parent)
+	  (catch 'done
+	    (while (cdr keymap)
+	      (if (eq (car (cdr keymap)) 'keymap)
+		  (throw 'done (setcdr keymap parent)))
+	      (setq keymap (cdr keymap)))
+	    (nconc keymap parent)
+	    parent))))))
+
 ;; to avoid competition with mh-e.el, sigh.
 (if (rassq 'mh-letter-mode auto-mode-alist)
     (setq auto-mode-alist



--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN