Edit file File name : org-goto.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require org-macs org-compat] 2) (defvar org-goto-exit-command nil) (defvar org-goto-map nil) (defvar org-goto-marker nil) (defvar org-goto-selected-point nil) (defvar org-goto-start-pos nil) (defvar org-goto-window-configuration nil) (defconst org-goto-local-auto-isearch-map (make-sparse-keymap)) (set-keymap-parent org-goto-local-auto-isearch-map isearch-mode-map) (defconst org-goto-help "Browse buffer copy, to find location or copy text.%s\nRET=jump to location C-g=quit and return to previous location\n[Up]/[Down]=next/prev headline TAB=cycle visibility [/] org-occur") (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\306\301\316\317&\210\310\320\312\313\321DD\322\306\301\316\323&\210\310\324\312\313\325DD\326\306\301\316\327&\207" [custom-declare-group org-goto nil "Options concerning Org Goto navigation interface." :tag "Org Goto" :group org custom-declare-variable org-goto-interface funcall function #[0 "\300\207" [outline] 1] "The default interface to be used for `org-goto'.\n\nAllowed values are:\n\n`outline'\n\n The interface shows an outline of the relevant file and the\n correct heading is found by moving through the outline or by\n searching with incremental search.\n\n`outline-path-completion'\n\n Headlines in the current buffer are offered via completion.\n This is the interface also used by the refile command." :type (choice (const :tag "Outline" outline) (const :tag "Outline-path-completion" outline-path-completion)) org-goto-max-level #[0 "\300\207" [5] 1] "Maximum target level when running `org-goto' with refile interface." integer org-goto-auto-isearch #[0 "\300\207" [t] 1] "Non-nil means typing characters in `org-goto' starts incremental search.\nWhen nil, you can use these keybindings to navigate the buffer:\n\n q Quit the Org Goto interface\n n Go to the next visible heading\n p Go to the previous visible heading\n f Go one heading forward on same level\n b Go one heading backward on same level\n u Go one heading up" boolean] 8) #@28 Set the keymap `org-goto'. (defalias 'org-goto--set-map #[0 "\303 \304\211\211\203 \211@\305\211$\210A\266\202\202 \266\306!\210\307\310\311#\210\307\312\311#\210\307\313\314#\210\307\315\316#\210\307\317\320#\210\307\321\322#\210\307\323\322#\210\307\324\325#\210\307\326\327#\210 \203h \330\331!\203\214 \331\332\333#\210\202\214 \307\334\320#\210\307\335\325#\210\307\336\327#\210\307\337\340#\210\307\341\342#\210\307\343\344#\210\307\345\346#\210\307\347\325#\210\307\350\327#\210\307\351\340#\210\307\352\342#\210\307\353\344#\210\211\262\211\207" [global-map org-goto-auto-isearch org-goto-map make-sparse-keymap (isearch-forward isearch-backward kill-ring-save set-mark-command mouse-drag-region universal-argument org-occur) substitute-key-definition suppress-keymap org-defkey " " org-goto-ret [(return)] [(left)] org-goto-left [(right)] org-goto-right [(control 103)] org-goto-quit " " org-cycle [(tab)] [(down)] outline-next-visible-heading [(up)] outline-previous-visible-heading fboundp define-key-after [t] org-goto-local-auto-isearch "q" "n" "p" "f" outline-forward-same-level "b" outline-backward-same-level "u" outline-up-heading "/" org-occur "" "" "" "" ""] 9 (#$ . 2510)]) (byte-code "\301\302!\203 \303\304\302#\210\303\305\302#\210\202' \303\304\306#\210\303\305\306#\210\303\307\306#\210\306\207" [org-goto-local-auto-isearch-map fboundp isearch-other-control-char define-key " " " " nil [return]] 4) #@84 Search and make sure that any matches are in headlines. (fn STRING BOUND NOERROR) (defalias 'org-goto--local-search-headings #[771 "\3022J \203 \303#\202 \304#\205I \305 \306\307\310\311\312!\313\"\314$\216\212\315 \210\316 !)\205; \317\224?\206; `\317\224W)\262\203 \320\302`\"\210\202 0\207" [isearch-forward org-complex-heading-regexp return search-forward search-backward match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 beginning-of-line looking-at 5 throw] 10 (#$ . 3990)]) #@16 Start isearch. (defalias 'org-goto-local-auto-isearch #[0 "\301 \302\"\303=\205 \304\305!\210\306\307!!\210\310 \207" [isearch-mode-map this-command-keys lookup-key isearch-printing-char isearch-mode t isearch-process-search-char string-to-char org-font-lock-ensure] 4 (#$ . 4534) nil]) #@69 Finish `org-goto' by going to the new location. (fn &optional ARG) (defalias 'org-goto-ret #[256 "`\302\303\304\305\"\207" [org-goto-selected-point org-goto-exit-command return throw exit nil] 4 (#$ . 4831) "P"]) #@49 Finish `org-goto' by going to the new location. (defalias 'org-goto-left #[0 "\302 \203 \303\304!\210`\305\306\307\310\"\207\311\312!\207" [org-goto-selected-point org-goto-exit-command org-at-heading-p beginning-of-line 1 left throw exit nil user-error "Not on a heading"] 3 (#$ . 5053) nil]) #@49 Finish `org-goto' by going to the new location. (defalias 'org-goto-right #[0 "\302 \203 `\303\304\305\306\"\207\307\310!\207" [org-goto-selected-point org-goto-exit-command org-at-heading-p right throw exit nil user-error "Not on a heading"] 3 (#$ . 5356) nil]) #@42 Finish `org-goto' without cursor motion. (defalias 'org-goto-quit #[0 "\302\303\304\305\302\"\207" [org-goto-selected-point org-goto-exit-command nil quit throw exit] 3 (#$ . 5628) nil]) #@155 Let the user select a location in current buffer. This function uses a recursive edit. It returns the selected position or nil. (fn &optional BUF HELP) (defalias 'org-goto-location #[512 "\306\211\n\306\307\206\f 2\212\310 \311\312\313\314\315!\316\"\317$\216\320 \210\321\322!\203/ \323\322!\210\324\3251< \326p\322\"0\202A \210\326p\322\"!\210\306\211 3 45r\327\330!q\210p\331 \2105\306\21167\332\2118\332 9 :\333 \210\334\335!\210+\211 ;\336\337<\203~ \340\202 \341\"!\210\342!\210)\266*\343\344\330!!\210\3066\332\306\211 = > ?\345 \210\346 \210+\3326\347\350!\203\303 \351(!\203\303 (b\210\352 \203\306 \353\354!\210\202\306 eb\210\306 @\355 \210)\356\357!\210\360A!\210\361 \210)\210)\323\322!\210BC+B\266\204*\207" [display-buffer-alist pop-up-frames org-goto-local-auto-isearch-map org-goto-help isearch-search-fun-function isearch-hide-immediately nil #[0 "\300\207" [org-goto--local-search-headings] 1] current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 delete-other-windows get-buffer "*org-goto*" kill-buffer pop-to-buffer-same-window (error) make-indirect-buffer get-buffer-create "*Org Help*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ format " Just type for auto-isearch." " n/p/f/b/u to navigate, q to quit." internal-temp-output-buffer-show org-fit-window-to-buffer get-buffer-window org-mode org-overview boundp org-goto-start-pos integer-or-marker-p org-invisible-p org-show-set-visibility lineage org-beginning-of-line message "Select location and press RET" use-local-map recursive-edit isearch-mode-map temp-buffer-show-hook temp-buffer-show-function default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output org-goto-auto-isearch org-startup-align-all-tables org-startup-folded org-startup-truncated org-special-ctrl-a/e org-goto-map org-goto-selected-point org-goto-exit-command] 14 (#$ . 5824)]) #@949 Look up a different location in the current file, keeping current visibility. When you want look-up or go to a different location in a document, the fastest way is often to fold the entire buffer and then dive into the tree. This method has the disadvantage, that the previous location will be folded, which may not be what you want. This command works around this by showing a copy of the current buffer in an indirect buffer, in overview mode. You can dive into the tree in that copy, use org-occur and incremental search to find a location. When pressing RET or `Q', the command returns to the original buffer in which the visibility is still unchanged. After RET it will also jump to the location selected in the indirect buffer and expose the headline hierarchy above. With a prefix argument, use the alternative interface: e.g., if `org-goto-interface' is `outline' use `outline-path-completion'. (fn &optional ALTERNATIVE-INTERFACE) (defalias 'org-goto #[256 "\306 \210\307\310BBC\311\307\211\204 \f\202! \f\312=\203 \313\202! \312` \211\312=\203/ \314 @\202; \315\316!\317!\210\3208\262\211\203V \321 !\210\211b\210\322 \204P \323 \205Y \324\325!\202Y \326\327!,\207" [org-goto-max-level org-refile-targets org-refile-use-outline-path org-refile-target-verify-function org-goto-interface org-goto-start-pos org-goto--set-map nil :maxlevel t outline outline-path-completion org-goto-location org-refile-get-location "Goto" org-refile-check-position 3 org-mark-ring-push org-invisible-p org-invisible-p2 org-show-context org-goto message "Quit"] 5 (#$ . 7848) "P"]) (provide 'org-goto) Save