-
- (add-hook 'isearch-mode-end-hook 'outline-isearch-rectification)
- (if (fboundp 'outline-real-isearch-abort)
- ;;
- nil
- ; Ensure load of isearch-mode:
- (if (or (and (fboundp 'isearch-mode)
- (fboundp 'isearch-abort))
- (condition-case error
- (load-library "isearch-mode")
- ('file-error (message
- "Skipping isearch-mode provisions - %s '%s'"
- (car (cdr error))
- (car (cdr (cdr error))))
- (sit-for 1)
- ;; Inhibit subsequent tries and return nil:
- (setq outline-isearch-dynamic-expose nil))))
- ;; Isearch-mode loaded, encapsulate specific entry points for
- ;; outline dynamic-exposure business:
- (progn
- ;; stash crucial isearch-mode funcs under known, private
- ;; names, then register wrapper functions under the old
- ;; names, in their stead:
- (fset 'outline-real-isearch-abort (symbol-function 'isearch-abort))
- (fset 'isearch-abort 'outline-isearch-abort)))))
-;;;_ > outline-isearch-abort ()
-(defun outline-isearch-abort ()
- "Wrapper for outline-real-isearch-abort \(which see), to register
-actual quits."
- (interactive)
- (setq outline-isearch-did-quit nil)
- (condition-case what
- (outline-real-isearch-abort)
- ('quit (setq outline-isearch-did-quit t)
- (signal 'quit nil))))