[emacs-wiki-discuss] Suggested fix for planner keymap to inherit muse-mode-map

[Adrian Aichner]

Hi!

This patch is against
 http://www.mwolson.org/static/dist/planner-latest.tar.gz
as of 2006-05-04.

I looked at the tarball as of today and this hunk should still apply,
if with slight offset.

I've only tested this in XEmacs.

Let me know of any issues.

Adrian

--- c:\DOCUME~1\AICHNE~1\LOCALS~1\Temp\planner\planner.el       2006-04-02 
20:30:03.000000000 +0200
+++ c:\progra~1\xemacs\site-packages\lisp\planner\planner.el    2006-06-05 
13:00:03.937500000 +0200
@@ -625,7 +625,16 @@
 
 
 (defvar planner-mode-map
-  (let ((map (copy-keymap muse-mode-map)))
+  (let ((map (make-sparse-keymap)))
+    (cond
+     ;; XEmacs
+     ((featurep 'xemacs)
+      (set-keymap-parents map muse-mode-map))
+     ;; Emacs
+     ((fboundp 'set-keymap-parent)
+      (set-keymap-parent map muse-mode-map))
+     ;; incompatible
+     (t (error "Planner Mode is incompatible with this version of Emacs")))
     (define-key map "\C-c\C-n" 'planner-goto-today)
     ;; moving between daily pages C-c C-j for goto (used to be C-g,
     ;; but that was confusing)

-- 
Adrian Aichner
 mailto:address@hidden
 http://www.xemacs.org/