Mercurial > hg > xemacs-beta

diff lisp/modes/hideif.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 56c54cf7c5b6
children 929b76928fce
line wrap: on
line diff
--- a/lisp/modes/hideif.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/modes/hideif.el	Mon Aug 13 09:02:59 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 nil t)))
+  (let ((where (where-is-internal 'toggle-read-only '(keymap) 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.
-;;;don't ###autoload because of startup code doesn't define the map
-(add-minor-mode 'hide-ifdef-mode " Ifdef" hide-ifdef-mode-map)
+;;;###autoload
+(add-minor-mode 'hide-ifdef-mode " Ifdef")
 
 ;; fix c-mode syntax table so we can recognize whole symbols.
 (defvar hide-ifdef-syntax-table