[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#19566: (unload-feature 'misearch) breaks isearch
From: |
Ivan Shmakov |
Subject: |
bug#19566: (unload-feature 'misearch) breaks isearch |
Date: |
Sun, 11 Jan 2015 11:37:57 +0000 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) |
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
--- 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)
+
(provide 'multi-isearch)
(provide 'misearch)
- bug#19566: (unload-feature 'misearch) breaks isearch,
Ivan Shmakov <=