diff options
| author | Glenn Morris | 2012-11-14 00:29:25 -0800 |
|---|---|---|
| committer | Glenn Morris | 2012-11-14 00:29:25 -0800 |
| commit | e0ea8060060193f66c776b513e3da731765fc38d (patch) | |
| tree | 8b5f032ff743449f634805efcff40f3928180681 | |
| parent | e4e9830bd9b59f5988e2e6d0774af0707f4d9182 (diff) | |
| download | emacs-e0ea8060060193f66c776b513e3da731765fc38d.tar.gz emacs-e0ea8060060193f66c776b513e3da731765fc38d.zip | |
* lisp/subr.el (set-temporary-overlay-map): Doc fix.
* etc/NEWS: Related edit.
| -rw-r--r-- | etc/NEWS | 4 | ||||
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/subr.el | 15 |
3 files changed, 17 insertions, 6 deletions
| @@ -932,7 +932,9 @@ describing the cycle. | |||
| 932 | *** `function-get' fetches a function property, following aliases. | 932 | *** `function-get' fetches a function property, following aliases. |
| 933 | +++ | 933 | +++ |
| 934 | *** `posnp' tests if an object is a `posn'. | 934 | *** `posnp' tests if an object is a `posn'. |
| 935 | *** `set-temporary-overlay-map' sets up a temporary overlay map. | 935 | |
| 936 | *** `set-temporary-overlay-map' sets up a temporary keymap that | ||
| 937 | takes precedence over most other maps for a short while (normally one key). | ||
| 936 | +++ | 938 | +++ |
| 937 | *** `system-users' returns the user names on the system. | 939 | *** `system-users' returns the user names on the system. |
| 938 | +++ | 940 | +++ |
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c13ef1289f8..80ae61df8c1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2012-11-14 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * subr.el (set-temporary-overlay-map): Doc fix. | ||
| 4 | |||
| 1 | 2012-11-13 Martin Rudalics <rudalics@gmx.at> | 5 | 2012-11-13 Martin Rudalics <rudalics@gmx.at> |
| 2 | 6 | ||
| 3 | * window.el (record-window-buffer) | 7 | * window.el (record-window-buffer) |
diff --git a/lisp/subr.el b/lisp/subr.el index d328b7cddf5..d02b889ec44 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -3960,11 +3960,16 @@ The properties used on SYMBOL are `composefunc', `sendfunc', | |||
| 3960 | (put symbol 'hookvar (or hookvar 'mail-send-hook))) | 3960 | (put symbol 'hookvar (or hookvar 'mail-send-hook))) |
| 3961 | 3961 | ||
| 3962 | (defun set-temporary-overlay-map (map &optional keep-pred) | 3962 | (defun set-temporary-overlay-map (map &optional keep-pred) |
| 3963 | "Set MAP as a temporary overlay map. | 3963 | "Set MAP as a temporary keymap taking precedence over most other keymaps. |
| 3964 | When KEEP-PRED is `t', using a key from the temporary keymap | 3964 | Note that this does NOT take precedence over the \"overriding\" maps |
| 3965 | leaves this keymap activated. KEEP-PRED can also be a function, | 3965 | `overriding-terminal-local-map' and `overriding-local-map' (or the |
| 3966 | which will have the same effect when it returns `t'. | 3966 | `keymap' text property). Unlike those maps, if no match for a key is |
| 3967 | When KEEP-PRED is nil, the temporary keymap is used only once." | 3967 | found in MAP, the normal key lookup sequence then continues. |
| 3968 | |||
| 3969 | Normally, MAP is used only once. If the optional argument | ||
| 3970 | KEEP-PRED is `t', MAP stays active if a key from MAP is used. | ||
| 3971 | KEEP-PRED can also be a function of no arguments: if it returns | ||
| 3972 | non-nil then MAP stays active." | ||
| 3968 | (let* ((clearfunsym (make-symbol "clear-temporary-overlay-map")) | 3973 | (let* ((clearfunsym (make-symbol "clear-temporary-overlay-map")) |
| 3969 | (overlaysym (make-symbol "t")) | 3974 | (overlaysym (make-symbol "t")) |
| 3970 | (alist (list (cons overlaysym map))) | 3975 | (alist (list (cons overlaysym map))) |