Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(foldout-inhibit-key-bindings):

Browse source 
Avoid concatenating onto outline-minor-mode-prefix.
Make a new keymap for that prefix, if it does not already have one.
This commit is contained in:
Richard M. Stallman 1999-01-19 18:22:46 +00:00
parent c5377356a7
commit f9e0762857
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/foldout.el
View file

@ -531,11 +531,12 @@ Valid modifiers are shift, control, meta, alt, hyper and super.")
()
(define-key outline-mode-map "\C-c\C-z" 'foldout-zoom-subtree)
(define-key outline-mode-map "\C-c\C-x" 'foldout-exit-fold)
(define-key outline-minor-mode-map
(concat outline-minor-mode-prefix "\C-z") 'foldout-zoom-subtree)
(define-key outline-minor-mode-map
(concat outline-minor-mode-prefix "\C-x") 'foldout-exit-fold)
(let ((map (lookup-key outline-minor-mode-map outline-minor-mode-prefix)))
(unless map
(setq map (make-sparse-keymap))
(define-key outline-minor-mode-map outline-minor-mode-prefix map))
(define-key map "\C-z" 'foldout-zoom-subtree)
(define-key map "\C-x" 'foldout-exit-fold))
(let* ((modifiers (apply 'concat
(mapcar (function
(lambda (modifier)