* help.el (string-key-binding, describe-key-briefly)

	(describe-key): Remove `string-key-binding' and its callers since
	`key-binding' already caters for the proper lookup now.

(string-key-binding, describe-key-briefly)
(describe-key): Remove `string-key-binding' and its callers since
`key-binding' already caters for the proper lookup now.

2 files changed, 10 insertions, 29 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 711edf8ab92..def6ac8bdfa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2006-09-11  David Kastrup  <dak@gnu.org>
+
+        * help.el (string-key-binding, describe-key-briefly)
+        (describe-key): Remove `string-key-binding' and its callers since
+        `key-binding' already caters for the proper lookup now.
+
 2006-09-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * progmodes/cfengine.el (cfengine-font-lock-syntactic-keywords): New var.
diff --git a/lisp/help.el b/lisp/help.el
index db76efb01a0..d5682512b2d 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -535,28 +535,6 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer."
           (princ string)))))
   nil)
 
-(defun string-key-binding (key)
-  "Value is the binding of KEY in a string.
-If KEY is an event on a string, and that string has a `local-map'
-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))))))
-         (string-info (and (consp start) (nth 4 start))))
-    (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)))))
-        (setq defn (and local-map (lookup-key local-map key)))))
-    defn))
-
 (defun help-key-description (key untranslated)
   (let ((string (key-description key)))
     (if (or (not untranslated)
@@ -620,8 +598,7 @@ temporarily enables it to allow getting help on disabled items and buttons."
             (set-buffer (window-buffer window))
             (goto-char position)))
       ;; Ok, now look up the key and name the command.
-      (let ((defn (or (string-key-binding key)
-                      (key-binding key t)))
+      (let ((defn (key-binding key t))
             key-desc)
         ;; Handle the case where we faked an entry in "Select and Paste" menu.
         (if (and (eq defn nil)
@@ -698,7 +675,7 @@ temporarily enables it to allow getting help on disabled items and buttons."
       (when (windowp window)
             (set-buffer (window-buffer window))
         (goto-char position))
-      (let ((defn (or (string-key-binding key) (key-binding key t))))
+      (let ((defn (key-binding key t)))
         ;; Handle the case where we faked an entry in "Select and Paste" menu.
         (if (and (eq defn nil)
                  (stringp (aref key (1- (length key))))
@@ -743,8 +720,7 @@ temporarily enables it to allow getting help on disabled items and buttons."
                         ((vectorp mouse-1-remapped)
                          (setcar up-event (elt mouse-1-remapped 0)))
                         (t (setcar up-event 'mouse-2))))
-                (setq defn (or (string-key-binding sequence)
-                               (key-binding sequence)))
+                (setq defn (key-binding sequence))
                 (unless (or (null defn) (integerp defn) (equal defn 'undefined))
                   (princ (if mouse-1-tricky
                              "\n\n----------------- up-event (short click) ----------------\n\n"
@@ -761,8 +737,7 @@ temporarily enables it to allow getting help on disabled items and buttons."
                   (describe-function-1 defn))
                 (when mouse-1-tricky
                   (setcar up-event 'mouse-1)
-                  (setq defn (or (string-key-binding (vector up-event))
-                                 (key-binding (vector up-event))))
+                  (setq defn (key-binding (vector up-event)))
                   (unless (or (null defn) (integerp defn) (eq defn 'undefined))
                     (princ (or hdr
                                "\n\n----------------- up-event (long click) ----------------\n\n"))