diff options
author | Bastien Guerry <bzg@altern.org> | 2014-06-20 08:41:34 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-06-20 08:41:34 +0200 |
commit | 4b0557bdd807dbdc49e59d9f172092957f2e6074 (patch) | |
tree | 88c6f5a866ad4c91fc685a4c6f0d666306c33a0c | |
parent | 08a9587e0183fa2831ba0d5f084d49665f7bec0f (diff) | |
download | org-mode-4b0557bdd807dbdc49e59d9f172092957f2e6074.tar.gz |
org.el: Delete `org-fix-ellipsis-at-bol'
* org.el (org-fix-ellipsis-at-bol): Delete.
(org-mode, org-show-context, org-isearch-end): Don't use
`org-fix-ellipsis-at-bol'.
-rw-r--r-- | lisp/org.el | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/org.el b/lisp/org.el index 6fb0387..adfbeaa 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5427,8 +5427,7 @@ 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))) - (org-add-hook 'isearch-mode-end-hook 'org-fix-ellipsis-at-bol 'append 'local)) + (lambda (&rest ignore) (org-show-context 'isearch)))) ;; Setup the pcomplete hooks (set (make-local-variable 'pcomplete-command-completion-function) @@ -5483,9 +5482,6 @@ The following commands are available: (put 'org-mode 'flyspell-mode-predicate 'org-mode-flyspell-verify) -(defsubst org-fix-ellipsis-at-bol () - (save-excursion (set-window-start (selected-window) (window-start)))) - (defun org-find-invisible-foreground () (let ((candidates (remove "unspecified-bg" @@ -13663,8 +13659,7 @@ How much context is shown depends upon the variables (error nil)) (not (bobp))) (org-flag-heading nil) - (when siblings-p (org-show-siblings))))) - (unless (eq key 'agenda) (org-fix-ellipsis-at-bol)))) + (when siblings-p (org-show-siblings))))))) (defvar org-reveal-start-hook nil "Hook run before revealing a location.") @@ -23793,8 +23788,7 @@ 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))) - (org-fix-ellipsis-at-bol))) + 'append 'local))))) (defun org-isearch-post-command () "Remove self from hook, and show context." |