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

Redefine two functions as regular defuns

Browse Source 
* lisp/dframe.el (dframe-popup-kludge, dframe-mouse-event-p):
Redefine as regular defun.
This commit is contained in:
Stefan Kangas 2021-02-01 05:33:02 +01:00
parent 7de495a7c1
commit c322728e0d
1 changed files with 16 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lisp/dframe.el
View File

@ -686,28 +686,26 @@ Evaluates all cached timer functions in sequence."
(funcall (car l)))
(setq l (cdr l)))))
(defalias 'dframe-popup-kludge
(lambda (e)
"Pop up a menu related to the clicked on item.
(defun dframe-popup-kludge (e)
"Pop up a menu related to the clicked on item.
Must be bound to event E."
(interactive "e")
(save-excursion
(mouse-set-point e)
;; This gets the cursor where the user can see it.
(if (not (bolp)) (forward-char -1))
(sit-for 0)
(popup-menu (mouse-menu-major-mode-map) e))))
(interactive "e")
(save-excursion
(mouse-set-point e)
;; This gets the cursor where the user can see it.
(if (not (bolp)) (forward-char -1))
(sit-for 0)
(popup-menu (mouse-menu-major-mode-map) e)))
;;; Interactive user functions for the mouse
;;
(defalias 'dframe-mouse-event-p
(lambda (event)
"Return t if the event is a mouse related event."
(if (and (listp event)
(member (event-basic-type event)
'(mouse-1 mouse-2 mouse-3)))
t
nil)))
(defun dframe-mouse-event-p (event)
"Return t if the event is a mouse related event."
(if (and (listp event)
(member (event-basic-type event)
'(mouse-1 mouse-2 mouse-3)))
t
nil))
(defun dframe-track-mouse (event)
"For motion EVENT, display info about the current line."