[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c322728 3/7: Redefine two functions as regular defuns
From: |
Stefan Kangas |
Subject: |
master c322728 3/7: Redefine two functions as regular defuns |
Date: |
Mon, 1 Feb 2021 08:01:19 -0500 (EST) |
branch: master
commit c322728e0d4ecd95237291c6b28c7221ffa8060b
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Redefine two functions as regular defuns
* lisp/dframe.el (dframe-popup-kludge, dframe-mouse-event-p):
Redefine as regular defun.
---
lisp/dframe.el | 34 ++++++++++++++++------------------
1 file changed, 16 insertions(+), 18 deletions(-)
diff --git a/lisp/dframe.el b/lisp/dframe.el
index 09d2fe4..23cb6c5 100644
--- a/lisp/dframe.el
+++ b/lisp/dframe.el
@@ -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."
- master updated (a6be184 -> 3b708f4), Stefan Kangas, 2021/02/01
- master f215332 1/7: Add cross-references to defvar-local, Stefan Kangas, 2021/02/01
- master 7de495a 2/7: Make two eshell aliases obsolete, Stefan Kangas, 2021/02/01
- master c322728 3/7: Redefine two functions as regular defuns,
Stefan Kangas <=
- master 9785c6d 5/7: * lisp/hi-lock.el (hi-lock-mode): Doc fix; don't mention Emacs 21., Stefan Kangas, 2021/02/01
- master 3b708f4 7/7: * test/src/minibuf-tests.el (test-inhibit-interaction): Fix test., Stefan Kangas, 2021/02/01
- master d987ca6 6/7: Remove another variable obsolete since Emacs 23.2, Stefan Kangas, 2021/02/01
- master 1fdd7a0 4/7: Make XEmacs compat alias obsolete in allout-widgets.el, Stefan Kangas, 2021/02/01