/[emacs]/emacs/lisp/help.el
ViewVC logotype

Diff of /emacs/lisp/help.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.248 by monnier, Tue Apr 2 03:23:26 2002 UTC revision 1.249 by gerd, Fri Apr 12 09:40:56 2002 UTC
# Line 1  Line 1 
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
# Line 433  If KEY is an event on a string, and that Line 433  If KEY is an event on a string, and that
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))))))
# Line 441  or `keymap' property, return the binding Line 442  or `keymap' property, return the binding
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)))))

Legend:
Removed from v.1.248  
changed lines
  Added in v.1.249

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26