Mercurial > emacs
comparison lisp/follow.el @ 85973:d3e87ee5aa0e
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-923
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 09 Nov 2007 09:45:30 +0000 |
| parents | 62f2f3aa55e2 3e37b479924d |
| children | 5ae8af9a4b8e 880960b70474 |
comparison
equal
deleted
inserted
replaced
| 85972:51aa47312c4b | 85973:d3e87ee5aa0e |
|---|---|
| 2161 ;;}}} | 2161 ;;}}} |
| 2162 | 2162 |
| 2163 ;;{{{ The end | 2163 ;;{{{ The end |
| 2164 | 2164 |
| 2165 (defun follow-unload-function () | 2165 (defun follow-unload-function () |
| 2166 "Unload Follow mode library." | |
| 2166 (easy-menu-remove-item nil '("Tools") "Follow") | 2167 (easy-menu-remove-item nil '("Tools") "Follow") |
| 2167 (follow-stop-intercept-process-output) | 2168 (follow-stop-intercept-process-output) |
| 2168 (dolist (group '((before | 2169 (dolist (group '((before |
| 2169 ;; XEmacs | 2170 ;; XEmacs |
| 2170 isearch-done | 2171 isearch-done |
| 2187 (progn | 2188 (progn |
| 2188 (ad-remove-advice fun class | 2189 (ad-remove-advice fun class |
| 2189 (intern (concat "follow-" (symbol-name fun)))) | 2190 (intern (concat "follow-" (symbol-name fun)))) |
| 2190 (ad-update fun)) | 2191 (ad-update fun)) |
| 2191 (error nil)))))) | 2192 (error nil)))))) |
| 2193 ;; continue standard processing | |
| 2192 nil) | 2194 nil) |
| 2193 | |
| 2194 (defvar follow-unload-function 'follow-unload-function) | |
| 2195 | 2195 |
| 2196 ;; | 2196 ;; |
| 2197 ;; We're done! | 2197 ;; We're done! |
| 2198 ;; | 2198 ;; |
| 2199 | 2199 |