summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2014-06-20 06:41:34 (GMT)
committer Bastien Guerry <bzg@altern.org>2014-06-20 06:41:34 (GMT)
commit4b0557bdd807dbdc49e59d9f172092957f2e6074 (patch)
tree88c6f5a866ad4c91fc685a4c6f0d666306c33a0c
parent08a9587e0183fa2831ba0d5f084d49665f7bec0f (diff)
downloadorg-mode-4b0557bdd807dbdc49e59d9f172092957f2e6074.zip
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.el12
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."