Enhance the fix implemented in 41882a99
* org.el (org-mode): Add `org-fix-ellipsis-at-bol' to `isearch-mode-end-hook' so that any isearch fixes the problem with ellipsis on the first line. (org-fix-ellipsis-at-bol): New defsubst. (org-show-context, org-isearch-end): Use it.
This commit is contained in:
parent
5f47cb2b9f
commit
c8c26c8e19
10
lisp/org.el
10
lisp/org.el
|
@ -4972,7 +4972,8 @@ The following commands are available:
|
|||
(org-add-hook 'isearch-mode-end-hook 'org-isearch-end 'append 'local)
|
||||
;; Emacs 22 deals with this through a special variable
|
||||
(org-set-local 'outline-isearch-open-invisible-function
|
||||
(lambda (&rest ignore) (org-show-context 'isearch))))
|
||||
(lambda (&rest ignore) (org-show-context 'isearch)))
|
||||
(org-add-hook 'isearch-mode-end-hook 'org-fix-ellipsis-at-bol 'append 'local))
|
||||
|
||||
;; Setup the pcomplete hooks
|
||||
(set (make-local-variable 'pcomplete-command-completion-function)
|
||||
|
@ -5011,6 +5012,8 @@ The following commands are available:
|
|||
|
||||
(put 'org-mode 'flyspell-mode-predicate 'org-mode-flyspell-verify)
|
||||
|
||||
(defsubst org-fix-ellipsis-at-bol ()
|
||||
(save-excursion (goto-char (window-start)) (recenter 0)))
|
||||
|
||||
(defun org-find-invisible-foreground ()
|
||||
(let ((candidates (remove
|
||||
|
@ -12864,7 +12867,7 @@ How much context is shown depends upon the variables
|
|||
(not (bobp)))
|
||||
(org-flag-heading nil)
|
||||
(when siblings-p (org-show-siblings)))))
|
||||
(save-excursion (goto-char (window-start)) (recenter 0))))
|
||||
(org-fix-ellipsis-at-bol)))
|
||||
|
||||
(defvar org-reveal-start-hook nil
|
||||
"Hook run before revealing a location.")
|
||||
|
@ -22181,7 +22184,8 @@ Show the heading too, if it is currently invisible."
|
|||
isearch-mode-end-hook-quit)
|
||||
;; Only when the isearch was not quitted.
|
||||
(org-add-hook 'post-command-hook 'org-isearch-post-command
|
||||
'append 'local)))))
|
||||
'append 'local)))
|
||||
(org-fix-ellipsis-at-bol)))
|
||||
|
||||
(defun org-isearch-post-command ()
|
||||
"Remove self from hook, and show context."
|
||||
|
|
Loading…
Reference in New Issue