Mercurial > hg > xemacs-beta

diff lisp/modes/hideif.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents ac2d302a0011
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/modes/hideif.el	Mon Aug 13 08:55:32 2007 +0200
+++ b/lisp/modes/hideif.el	Mon Aug 13 08:56:04 2007 +0200
@@ -138,7 +138,7 @@
   (define-key hide-ifdef-mode-submap "\C-s" 'show-ifdef-block)
 
   (define-key hide-ifdef-mode-submap "\C-q" 'hide-ifdef-toggle-read-only)
-  (let ((where (where-is-internal 'toggle-read-only '(keymap) t)))
+  (let ((where (where-is-internal 'toggle-read-only nil t)))
     (if where
 	(define-key hide-ifdef-mode-submap
 	  where
@@ -168,8 +168,8 @@
 ;          (cons '(hide-ifdef-mode " Ifdef")
 ;                minor-mode-alist)))
 ;; XEmacs: do it right.
-;;;###autoload
-(add-minor-mode 'hide-ifdef-mode " Ifdef")
+;;;don't ###autoload because of startup code doesn't define the map
+(add-minor-mode 'hide-ifdef-mode " Ifdef" hide-ifdef-mode-map)
 
 ;; fix c-mode syntax table so we can recognize whole symbols.
 (defvar hide-ifdef-syntax-table