[Emacs-diffs] Changes to emacs/lisp/help.el

[Gerd Moellmann]

Index: emacs/lisp/help.el
diff -c emacs/lisp/help.el:1.248 emacs/lisp/help.el:1.249
*** emacs/lisp/help.el:1.248    Mon Apr  1 22:23:26 2002
--- emacs/lisp/help.el  Fri Apr 12 05:40:56 2002
***************
*** 1,6 ****
  ;;; help.el --- help commands for Emacs
  
! ;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001
  ;;   Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
--- 1,6 ----
  ;;; help.el --- help commands for Emacs
  
! ;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002
  ;;   Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
***************
*** 433,439 ****
  or `keymap' property, return the binding of KEY in the string's keymap."
    (let* ((defn nil)
         (start (when (vectorp key)
!                 (if (memq (aref key 0) '(mode-line header-line))
                      (event-start (aref key 1))
                    (and (consp (aref key 0))
                         (event-start (aref key 0))))))
--- 433,440 ----
  or `keymap' property, return the binding of KEY in the string's keymap."
    (let* ((defn nil)
         (start (when (vectorp key)
!                 (if (memq (aref key 0)
!                           '(mode-line header-line left-margin right-margin))
                      (event-start (aref key 1))
                    (and (consp (aref key 0))
                         (event-start (aref key 0))))))
***************
*** 441,447 ****
      (when string-info
        (let* ((string (car string-info))
             (pos (cdr string-info))
!            (local-map (and (> pos 0)
                             (< pos (length string))
                             (or (get-text-property pos 'local-map string)
                                 (get-text-property pos 'keymap string)))))
--- 442,448 ----
      (when string-info
        (let* ((string (car string-info))
             (pos (cdr string-info))
!            (local-map (and (>= pos 0)
                             (< pos (length string))
                             (or (get-text-property pos 'local-map string)
                                 (get-text-property pos 'keymap string)))))