procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Fix 'ibuffer-do-isearch{-regexp}'

Browse source 
* lisp/ibuf-ext.el (ibuffer-do-isearch)
(ibuffer-do-isearch-regexp): Use 'defun' instead of
'define-ibuffer-op'.  (Bug#71927)
This commit is contained in:
Eshel Yaron 2024-07-06 20:53:06 +02:00
parent 8b1a0f8695
commit d68a4ea3ec
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618
1 changed files with 6 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/ibuf-ext.el
View file

@ -594,22 +594,16 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
:modifier-p :maybe) :modifier-p :maybe)
(revert-buffer t t)) (revert-buffer t t))
;;;###autoload (autoload 'ibuffer-do-isearch "ibuf-ext") ;;;###autoload
(define-ibuffer-op ibuffer-do-isearch () (defun ibuffer-do-isearch ()
"Perform a `isearch-forward' in marked buffers." "Perform a `isearch-forward' in marked buffers."
(:interactive () (interactive "" ibuffer-mode)
:opstring "searched in"
:complex t
:modifier-p :maybe)
(multi-isearch-buffers (ibuffer-get-marked-buffers))) (multi-isearch-buffers (ibuffer-get-marked-buffers)))
;;;###autoload (autoload 'ibuffer-do-isearch-regexp "ibuf-ext") ;;;###autoload
(define-ibuffer-op ibuffer-do-isearch-regexp () (defun ibuffer-do-isearch-regexp ()
"Perform a `isearch-forward-regexp' in marked buffers." "Perform a `isearch-forward-regexp' in marked buffers."
(:interactive () (interactive "" ibuffer-mode)
:opstring "searched regexp in"
:complex t
:modifier-p :maybe)
(multi-isearch-buffers-regexp (ibuffer-get-marked-buffers))) (multi-isearch-buffers-regexp (ibuffer-get-marked-buffers)))
;;;###autoload (autoload 'ibuffer-do-replace-regexp "ibuf-ext") ;;;###autoload (autoload 'ibuffer-do-replace-regexp "ibuf-ext")