mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-07 06:41:00 -07:00
Code Issues Projects Releases Wiki Activity

(kmacro-end-call-mouse): Make obsolete

Browse source 
* lisp/kmacro.el (kmacro-end-and-call-macro): Add EVENT argument.
(kmacro-end-call-mouse): Define as obsolete alias
of `kmacro-end-and-call-macro`.
This commit is contained in:
Stefan Monnier 2026-03-27 08:43:39 -04:00
parent 07baef0aff
commit db412283d6
1 changed files with 11 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lisp/kmacro.el
View file

@ -219,7 +219,7 @@ macro to be executed before appending to it."
;;;###autoload (autoload 'kmacro-keymap "kmacro" "Keymap for keyboard macro commands." t 'keymap)
(if kmacro-call-mouse-event
(global-set-key (vector kmacro-call-mouse-event) #'kmacro-end-call-mouse))
(global-set-key (vector kmacro-call-mouse-event) #'kmacro-end-and-call-macro))
;;; Called from keyboard-quit
@ -742,8 +742,8 @@ With numeric ARG, repeat the macro that many times,
counting the definition just completed as the first repetition.
An argument of zero means repeat until error."
(interactive "p")
;; Isearch may push the kmacro-end-macro key sequence onto the macro.
;; Just ignore it when executing the macro.
;; Isearch may push the kmacro-end-macro key sequence onto the macro.
;; Just ignore it when executing the macro. FIXME: When?Why?
(unless executing-kbd-macro
(end-kbd-macro arg #'kmacro-loop-setup-function)
(when (and last-kbd-macro (= (length last-kbd-macro) 0))
@ -880,35 +880,25 @@ With \\[universal-argument], call second macro in macro ring."
;;;###autoload
(defun kmacro-end-and-call-macro (arg &optional no-repeat)
(defun kmacro-end-and-call-macro (arg &optional no-repeat event)
"Call last keyboard macro, ending it first if currently being defined.
With numeric prefix ARG, repeat macro that many times.
Zero argument means repeat until there is an error.
If triggered via a mouse EVENT, moves point to the position clicked
with the mouse before calling the macro.
To give a macro a name, so you can call it even after defining other
macros, use \\[kmacro-name-last-macro]."
(interactive "p")
(interactive (list current-prefix-arg nil
(if (consp last-input-event) last-input-event)))
(if defining-kbd-macro
(kmacro-end-macro nil))
(if event (mouse-set-point event))
(kmacro-call-macro arg no-repeat))
;;;###autoload
(defun kmacro-end-call-mouse (event)
"Move point to the position clicked with the mouse and call last kbd macro.
If kbd macro currently being defined end it before activating it."
(interactive "e")
(when defining-kbd-macro
(end-kbd-macro)
(when (and last-kbd-macro (= (length last-kbd-macro) 0))
(setq last-kbd-macro nil)
(message "Ignore empty macro")
;; Don't call `kmacro-ring-empty-p' to avoid its messages.
(while (and (null last-kbd-macro) kmacro-ring)
(kmacro-pop-ring1))))
(mouse-set-point event)
(kmacro-call-macro nil t))
(define-obsolete-function-alias 'kmacro-end-call-mouse
#'kmacro-end-and-call-macro "31.1")
;;; Misc. commands