Mercurial > hg > xemacs-beta

diff lisp/modes/hideif.el @ 171:929b76928fce r20-3b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b12
author cvs
date Mon, 13 Aug 2007 09:47:52 +0200
parents 131b0175ea99
children
line wrap: on
line diff
--- a/lisp/modes/hideif.el	Mon Aug 13 09:47:00 2007 +0200
+++ b/lisp/modes/hideif.el	Mon Aug 13 09:47:52 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
@@ -169,7 +169,7 @@
 ;                minor-mode-alist)))
 ;; XEmacs: do it right.
 ;;;###autoload
-(add-minor-mode 'hide-ifdef-mode " Ifdef")
+(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