Keep it simple
This commit is contained in:
parent
afa5e0470c
commit
29fff0ce0f
28
README.org
28
README.org
@ -2361,28 +2361,16 @@ list detailing and motivating each listing:
|
|||||||
#+caption: Undo calling =org-ctags-enable=.
|
#+caption: Undo calling =org-ctags-enable=.
|
||||||
#+name: lst:undo-org-ctags
|
#+name: lst:undo-org-ctags
|
||||||
#+begin_src emacs-lisp -n :results silent
|
#+begin_src emacs-lisp -n :results silent
|
||||||
(with-eval-after-load 'org-ctags
|
;; See also `org-link-search-must-match-exact-headline' for link searches.
|
||||||
;; See also `org-link-search-must-match-exact-headline' for link searches.
|
;; Undo calling `org-ctags-enable'. For what may cause `org-ctags'
|
||||||
;; Undo calling `org-ctags-enable'. For what may cause `org-ctags'
|
;; loading, see: https://list.orgmode.org/87mt43agk6.fsf@localhost/
|
||||||
;; loading, see: https://list.orgmode.org/87mt43agk6.fsf@localhost/
|
(defun org-ctags-disable ()
|
||||||
(defun org-ctags-disable ()
|
|
||||||
"Undo calling `org-ctags-enable'."
|
"Undo calling `org-ctags-enable'."
|
||||||
(put 'org-mode 'find-tag-default-function nil)
|
|
||||||
(setq org-ctags-enabled-p nil)
|
(setq org-ctags-enabled-p nil)
|
||||||
;; Use the `:options' list from the `org-ctags-open-link-functions' code.
|
(setq org-open-link-functions nil)
|
||||||
(let ((options '(org-ctags-find-tag
|
(put 'org-mode 'find-tag-default-function nil))
|
||||||
org-ctags-ask-rebuild-tags-file-then-find-tag
|
|
||||||
org-ctags-rebuild-tags-file-then-find-tag
|
(with-eval-after-load 'org-ctags
|
||||||
org-ctags-ask-append-topic
|
|
||||||
org-ctags-append-topic
|
|
||||||
org-ctags-ask-visit-buffer-or-file
|
|
||||||
org-ctags-visit-buffer-or-file
|
|
||||||
org-ctags-fail-silently))
|
|
||||||
(fns org-open-link-functions))
|
|
||||||
(dolist (fn options)
|
|
||||||
(setq fns (delq fn fns)))
|
|
||||||
;; Reset `org-open-link-functions' after removal of prepended functions.
|
|
||||||
(setq org-open-link-functions fns)))
|
|
||||||
(org-ctags-disable))
|
(org-ctags-disable))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user