Mercurial > emacs
comparison lisp/help.el @ 36777:4fd2da49b57d
(string-key-binding): Don't call event-start on
a non-list.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 13 Mar 2001 15:00:45 +0000 |
| parents | 00977877718a |
| children | d0fab2f2af5a |
comparison
equal
deleted
inserted
replaced
| 36776:66a72e7c05aa | 36777:4fd2da49b57d |
|---|---|
| 212 or `keymap' property, return the binding of KEY in the string's keymap." | 212 or `keymap' property, return the binding of KEY in the string's keymap." |
| 213 (let* ((defn nil) | 213 (let* ((defn nil) |
| 214 (start (when (vectorp key) | 214 (start (when (vectorp key) |
| 215 (if (memq (aref key 0) '(mode-line header-line)) | 215 (if (memq (aref key 0) '(mode-line header-line)) |
| 216 (event-start (aref key 1)) | 216 (event-start (aref key 1)) |
| 217 (event-start (aref key 0))))) | 217 (and (consp (aref key 0)) |
| 218 (event-start (aref key 0)))))) | |
| 218 (string-info (and (consp start) (nth 4 start)))) | 219 (string-info (and (consp start) (nth 4 start)))) |
| 219 (when string-info | 220 (when string-info |
| 220 (let* ((string (car string-info)) | 221 (let* ((string (car string-info)) |
| 221 (pos (cdr string-info)) | 222 (pos (cdr string-info)) |
| 222 (local-map (and (> pos 0) | 223 (local-map (and (> pos 0) |