procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(define-hide-ifdef-mode-map): Don't bind C-c LETTER.

Browse source 
Use C-c ESC LETTER instead.
Handle case where where-is-internal returns nil.
This commit is contained in:
Richard M. Stallman 1993-06-03 19:35:54 +00:00
parent 6bf9133d7f
commit 81b2711286
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/progmodes/hideif.el
View file

@ -154,13 +154,13 @@ before `hide-ifdef-mode' modifies it.")
(if hide-ifdef-mode-map
() ; dont redefine it.
(setq hide-ifdef-mode-map (make-sparse-keymap))
(define-key hide-ifdef-mode-map "d" 'hide-ifdef-define)
(define-key hide-ifdef-mode-map "u" 'hide-ifdef-undef)
(define-key hide-ifdef-mode-map "D" 'hide-ifdef-set-define-alist)
(define-key hide-ifdef-mode-map "U" 'hide-ifdef-use-define-alist)
(define-key hide-ifdef-mode-map "\ed" 'hide-ifdef-define)
(define-key hide-ifdef-mode-map "\eu" 'hide-ifdef-undef)
(define-key hide-ifdef-mode-map "\eD" 'hide-ifdef-set-define-alist)
(define-key hide-ifdef-mode-map "\eU" 'hide-ifdef-use-define-alist)
(define-key hide-ifdef-mode-map "h" 'hide-ifdefs)
(define-key hide-ifdef-mode-map "s" 'show-ifdefs)
(define-key hide-ifdef-mode-map "\eh" 'hide-ifdefs)
(define-key hide-ifdef-mode-map "\es" 'show-ifdefs)
(define-key hide-ifdef-mode-map "\C-h" 'hide-ifdef-block)
(define-key hide-ifdef-mode-map "\C-s" 'show-ifdef-block)
@ -171,9 +171,11 @@ before `hide-ifdef-mode' modifies it.")
(define-key hide-ifdef-mode-map "\C-n" 'next-ifdef)
(define-key hide-ifdef-mode-map "\C-p" 'previous-ifdef)
(define-key hide-ifdef-mode-map "\C-q" 'hide-ifdef-toggle-read-only)
(define-key hide-ifdef-mode-map
(where-is-internal 'toggle-read-only nil nil t)
'hide-ifdef-toggle-outside-read-only)
(let ((where (where-is-internal 'toggle-read-only nil nil t)))
(if where
(define-key hide-ifdef-mode-map
where
'hide-ifdef-toggle-outside-read-only)))
)
(fset 'hide-ifdef-mode-map hide-ifdef-mode-map) ; the function is the map
)