mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Remove some compat code from ffap.el

Browse Source 
* lisp/ffap.el (ffap-mouse-event, ffap-event-buffer): Make obsolete.
(ffap-menu-ask, ffap-at-mouse): Adjust callers.
This commit is contained in:
Stefan Kangas 2020-11-19 17:46:16 +01:00
parent 493e19b97f
commit 842fc2d01e
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/ffap.el
View File

@ -301,15 +301,14 @@ disable ffap most of the time."
:version "20.3")
;;; Compatibility:
;;
;; This version of ffap supports only the Emacs it is distributed in.
;; See the ftp site for a more general version. The following
;; functions are necessary "leftovers" from the more general version.
;;; Obsolete:
(defun ffap-mouse-event () ; current mouse event, or nil
(declare (obsolete nil "28.1"))
(and (listp last-nonmenu-event) last-nonmenu-event))
(defun ffap-event-buffer (event)
(declare (obsolete nil "28.1"))
(window-buffer (car (event-start event))))
@ -1736,7 +1735,9 @@ Function CONT is applied to the entry chosen by the user."
(let (choice)
(cond
;; Emacs mouse:
((and (fboundp 'x-popup-menu) (ffap-mouse-event))
((and (fboundp 'x-popup-menu)
(listp last-nonmenu-event)
last-nonmenu-event)
(setq choice
(x-popup-menu
t
@ -1829,7 +1830,7 @@ Return value:
(ffap-guesser))))
(cond
(guess
(set-buffer (ffap-event-buffer e))
(set-buffer (window-buffer (car (event-start e))))
(ffap-highlight)
(unwind-protect
(progn