# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1018604456 0
# Node ID a80baec69a4e24e8239e5c06dd59d0af55121a33
# Parent  f7b9d913406b7427a98a6e5e2511eba4371e67c3
(string-key-binding): Deal with margin events.

diff -r f7b9d913406b -r a80baec69a4e lisp/help.el
--- a/lisp/help.el	Fri Apr 12 09:36:56 2002 +0000
+++ b/lisp/help.el	Fri Apr 12 09:40:56 2002 +0000
@@ -1,6 +1,6 @@
 ;;; help.el --- help commands for Emacs
 
-;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001
+;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002
 ;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -433,7 +433,8 @@
 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))
+		  (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,7 +442,7 @@
     (when string-info
       (let* ((string (car string-info))
 	     (pos (cdr string-info))
-	     (local-map (and (> pos 0)
+	     (local-map (and (>= pos 0)
 			     (< pos (length string))
 			     (or (get-text-property pos 'local-map string)
 				 (get-text-property pos 'keymap string)))))