comparison lisp/emacs-lisp/find-func.el @ 24062:dd143e80ffcf

(find-function-on-key): Fix previous change.

24061:c8311bcddab2

(defun find-function-on-key (key)
  "Find the function that KEY invokes.  KEY is a string.
Point is saved if FUNCTION is in the current buffer."
  (interactive "kFind function on key: ")
  (save-excursion
    (let* ((event (aref key 0))
	   (start (event-start event))
	   (modifiers (event-modifiers event))
	   (window (and (or (memq 'click modifiers) (memq 'down modifiers)
			    (memq 'drag modifiers))
			(posn-window start))))

24062:dd143e80ffcf

(defun find-function-on-key (key)
  "Find the function that KEY invokes.  KEY is a string.
Point is saved if FUNCTION is in the current buffer."
  (interactive "kFind function on key: ")
  (save-excursion
    (let* ((event (and (eventp key) (aref key 0))) ; Null event OK below.
	   (start (event-start event))
	   (modifiers (event-modifiers event))
	   (window (and (or (memq 'click modifiers) (memq 'down modifiers)
			    (memq 'drag modifiers))
			(posn-window start))))