* bug#19566: (unload-feature 'misearch) breaks isearch
@ 2015-01-11 11:37 Ivan Shmakov
2015-01-11 20:44 ` Juri Linkov
2015-01-23 14:25 ` bug#19566: unloading support for misearch Ivan Shmakov
0 siblings, 2 replies; 3+ messages in thread
From: Ivan Shmakov @ 2015-01-11 11:37 UTC (permalink / raw
To: 19566
[-- Attachment #1: Type: text/plain, Size: 490 bytes --]
Package: emacs
Severity: minor
Tags: patch
Using unload-feature to unload misearch.el also undefines the
autoloaded variables, which breaks isearch.el as it still uses
them.
Please thus consider the patch MIMEd.
* lisp/misearch.el (multi-isearch-unload-function): New function
to retain definitions of autoloaded variables when unloading.
(misearch-unload-function): New alias.
--
FSF associate member #7257 np. The Middle Path — David Modica B6A0 230E 334A
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/diff, Size: 965 bytes --]
--- a/lisp/misearch.el
+++ b/lisp/misearch.el
@@ -377,6 +377,25 @@
(goto-char (if isearch-forward (point-min) (point-max)))
(isearch-forward-regexp nil t)))
+(defun multi-isearch-unload-function ()
+ "Remove autoloaded variables from `unload-function-defs-list'.
+Also prevent the feature from being reloaded via `isearch-mode-hook'."
+ (remove-hook 'isearch-mode-hook 'multi-isearch-setup)
+ (let ((defs (list (car unload-function-defs-list)))
+ (auto '(multi-isearch-next-buffer-function
+ multi-isearch-next-buffer-current-function
+ multi-isearch-current-buffer
+ multi-isearch-buffer-list multi-isearch-file-list)))
+ (dolist (def (cdr unload-function-defs-list))
+ (unless (and (symbolp def)
+ (memq def auto))
+ (push def defs)))
+ (setq unload-function-defs-list (nreverse defs))
+ ;; .
+ nil))
+
+(defalias 'misearch-unload-function 'multi-isearch-unload-function)
+
\f
(provide 'multi-isearch)
(provide 'misearch)
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2015-01-23 14:25 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2015-01-11 11:37 bug#19566: (unload-feature 'misearch) breaks isearch Ivan Shmakov
2015-01-11 20:44 ` Juri Linkov
2015-01-23 14:25 ` bug#19566: unloading support for misearch Ivan Shmakov
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.