1 |
;;; help.el --- help commands for Emacs |
;;; help.el --- help commands for Emacs |
2 |
|
|
3 |
;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001 |
;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
433 |
or `keymap' property, return the binding of KEY in the string's keymap." |
or `keymap' property, return the binding of KEY in the string's keymap." |
434 |
(let* ((defn nil) |
(let* ((defn nil) |
435 |
(start (when (vectorp key) |
(start (when (vectorp key) |
436 |
(if (memq (aref key 0) '(mode-line header-line)) |
(if (memq (aref key 0) |
437 |
|
'(mode-line header-line left-margin right-margin)) |
438 |
(event-start (aref key 1)) |
(event-start (aref key 1)) |
439 |
(and (consp (aref key 0)) |
(and (consp (aref key 0)) |
440 |
(event-start (aref key 0)))))) |
(event-start (aref key 0)))))) |
442 |
(when string-info |
(when string-info |
443 |
(let* ((string (car string-info)) |
(let* ((string (car string-info)) |
444 |
(pos (cdr string-info)) |
(pos (cdr string-info)) |
445 |
(local-map (and (> pos 0) |
(local-map (and (>= pos 0) |
446 |
(< pos (length string)) |
(< pos (length string)) |
447 |
(or (get-text-property pos 'local-map string) |
(or (get-text-property pos 'local-map string) |
448 |
(get-text-property pos 'keymap string))))) |
(get-text-property pos 'keymap string))))) |