mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(Setting minor-mode-map-alist):

Browse Source 
Put the map directly in the alist, not a variable name.
This commit is contained in:
Richard M. Stallman 1993-05-13 03:14:07 +00:00
parent 0e5ad25f6b
commit 4f6e4ad6cd
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/progmodes/compile.el
View File

@ -31,7 +31,7 @@
;;;###autoload
(defvar compilation-mode-hook nil
"*List of hook functions run by compilation-mode (see `run-hooks').")
"*List of hook functions run by `compilation-mode' (see `run-hooks').")
;;;###autoload
(defconst compilation-window-height nil
@ -336,7 +336,7 @@ Returns the compilation buffer created."
(define-key map "\M-{" 'compilation-previous-file)
(define-key map "\M-}" 'compilation-next-file)
map)
"Keymap for compilation-minor-mode.")
"Keymap for `compilation-minor-mode'.")
(defvar compilation-mode-map
(let ((map (cons 'keymap compilation-minor-mode-map)))
@ -344,7 +344,7 @@ Returns the compilation buffer created."
(define-key map "\^?" 'scroll-down)
map)
"Keymap for compilation log buffers.
compilation-minor-mode-map is a cdr of this.")
`compilation-minor-mode-map' is a cdr of this.")
(defun compilation-mode ()
"Major mode for compilation log buffers.
@ -380,8 +380,8 @@ Compilation major mode are available.")
(setq minor-mode-alist (cons '(compilation-minor-mode " Compilation")
minor-mode-alist)))
(or (assq 'compilation-minor-mode minor-mode-map-alist)
(setq minor-mode-map-alist (cons '(compilation-minor-mode
. compilation-minor-mode-map)
(setq minor-mode-map-alist (cons (cons 'compilation-minor-mode
compilation-minor-mode-map)
minor-mode-map-alist)))
(defun compilation-minor-mode (&optional arg)
@ -441,7 +441,7 @@ See `compilation-mode'."
(defun compilation-filter (proc string)
"Process filter for compilation buffers.
Just inserts the text, but uses insert-before-markers."
Just inserts the text, but uses `insert-before-markers'."
(save-excursion
(set-buffer (process-buffer proc))
(let ((buffer-read-only nil))

2
lisp/vc.el
View File

@ -830,7 +830,7 @@ the variable `vc-header-alist'."
(or (not (boundp 'minor-mode-map-alist))
(assq 'vc-dired-mode minor-mode-map-alist)
(setq minor-mode-map-alist
(cons '(vc-dired-mode . vc-dired-prefix-map)
(cons (cons 'vc-dired-mode vc-dired-prefix-map)
minor-mode-map-alist)))
(defun vc-dired-mode ()