;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303\304\305#\210\300\306\304\305#\207" [require cl font-lock nav-flash nil t back-button] 4) #@66 Toggle button-lock-mode, a minor mode for making text clickable. (autoload 'button-lock-mode "button-lock" '(#$ . 223)) (byte-code "\300\301\302\303\304\305\306\307\306\310\306\311\312\313\314\315\314\316\314\317&\210\320\321\302\322\323\324\314\301&\210\320\325\326\327\314\301\323\330&\210\331\325\332\333#\210\320\334\335\336\323\337\314\301&\210\320\340\333\341\323\324\314\301&\210\320\342\343\344\323\345\314\301&\210\300\346\302\347\314\301%\210\320\350\351\352\323\353\314\346&\210\320\354\355\356\323\357\314\346&\210\320\360\361\362\323\363\314\346&\210\320\364\365\366\323\367\314\346&\210\320\370\371\372\323\373\314\346&\210\300\374\302\375\314\301%\210\376\377\201@\201A\314\374%\210\376\201B\201C\201D\314\374%\210\300\201E\302\201F\314\301%\210\320\201G\201H\201I\323\330\314\201E&\210\320\201J\201K\201L\323\330\314\201E&\210\320\201M\201N\201O\323\201P\314\201E&\210\320\201Q\201R\201S\323\201P\314\201E&\210\320\201T\201U\201V\323\201P\314\201E&\210\320\201W\201X\201Y\323\201P\314\201E&\210\320\201Z\201[\201\\\323\201P\314\201E&\210\300\201]\302\201^\314\301%\210\320\201_\201`\201a\323\201b\314\201]&\210\320\201c\201d\201e\323\201P\314\201]&\210\320\201f\201g\201h\323\201i\314\201]&\210\320\201j\201k\201l\323\201m\314\201]&\207" [custom-declare-group wiki-nav nil "Simple file navigation using [[WikiStrings]]." :version "1.0.2" :link (emacs-commentary-link :tag "Commentary" "wiki-nav") (url-link :tag "GitHub" "http://github.com/rolandwalker/button-lock") (url-link :tag "EmacsWiki" "http://emacswiki.org/emacs/WikiNavMode") :prefix "wiki-nav-" :group navigation mouse convenience custom-declare-variable wiki-nav-less-feedback "Give less echo area feedback." :type boolean wiki-nav-mode-lighter " wikn" "This string appears in the mode-line when `wiki-nav-mode' is active.\n\nSet to nil or the empty string to disable the mode-line\nlighter for `wiki-nav-mode'." string put risky-local-variable t wiki-nav-comment-only-modes '(cperl-mode emacs-lisp-mode lisp-mode perl-mode prog-mode python-mode ruby-mode sh-mode prog-mode) "List of major modes for which to constrain navigation links to comments only.\n\nThe constraint also applies to any major mode which is derived\nfrom one of these modes.\n\nBecause the comment-only search is not built into font-lock, the\nsearch must be less exact and/or less efficient. This method is\nparticularly inexact, but avoids being slow.\n\nIt will not work for `c-mode' and many other modes which have\nmulti-line comments or multi-character comment delimiters." (repeat symbol) wiki-nav-rear-nonsticky "Whether to set the 'rear-nonsticky property on wiki-nav buttons.\n\nThis value may be unset to stop `wiki-nav-mode' from attempting\nto manage the 'rear-nonsticky text property, which may improve\ncompatibility with other modes that depend on setting the same\nproperty (Example: ielm).\n\nThe default, t, is better for most users, because it keeps the\nproperties of the button from spuriously attaching to other\ntext." wiki-nav-multi-action-function 'wiki-nav-default-multi-action "Function to run on double-click of a wiki-nav link." function wiki-nav-keys "Keyboard bindings used by wiki-nav" wiki-nav-find-any-link-keys '("C-c C-w") "List of key sequences to search forward for the next defined wiki-nav link.\n\nThe search will automatically wrap past the end of the buffer.\nThe key binding is in effect anywhere in the buffer when wiki-nav\nmode is active.\n\nThe format for key sequences is as defined by `kbd'." (repeat string) wiki-nav-find-any-previous-link-keys '("C-c C-W") "List of key sequences to search backward for the previous wiki-nav link.\n\nThe search will automatically wrap past the beginning of the\nbuffer. The key binding is in effect anywhere in the buffer when\nwiki-nav mode is active.\n\nThe format for key sequences is as defined by `kbd'." (repeat string) wiki-nav-activate-keys '("RET") "List of key sequences to activate a wiki-nav link under the point.\n\nThe key binding is active only when the point is on a wiki-nav link.\n\nThe format for key sequences is as defined by `kbd'." (repeat string) wiki-nav-skip-to-next-keys '("") "List of key sequences to skip forward from a wiki-nav link to the next link.\n\nThe key binding is active only when the point is on a wiki-nav link.\n\nThe format for key sequences is as defined by `kbd'." (repeat string) wiki-nav-skip-to-previous-keys '("S-TAB" "S-" "" "S-") "List of key sequences to skip back from a wiki-nav link to the previous link.\n\nThe key binding is active only when the point is on a wiki-nav link.\n\nThe format for key sequences is as defined by `kbd'." (repeat string) wiki-nav-faces "Faces used by wiki-nav." custom-declare-face wiki-nav-link-face ((t (:inherit link))) "Face to show wiki-nav links" wiki-nav-mouse-face ((t (:inherit button-lock-mouse-face))) "Face to highlight wiki-nav link mouseovers" wiki-nav-parsing "Strings and regular expressions used by wiki-nav to define links." wiki-nav-link-start "[[" "A string (not a regular expression) which open a wiki-style navigation link.\n\nSince the construct [[text]] can show up for other reasons, you\nmight change this to \"[[[\"." wiki-nav-link-stop "]]" "A string (not a regexp) which closes a wiki-style navigation link.\n\nSince the construct [[text]] can show up for other reasons, you\nmight change this to \"]]]\"." wiki-nav-link-text "[^][\n]+" "A regular expression defining the text inside wiki-style navigation links.\n\nThe value should exclude newlines and start/stop delimiters." regexp wiki-nav-external-link-pattern "\\`[a-zA-Z]+:[^[:space:]]+" "A regular expression for recognizing URLs inside wiki-style navigation links.\n\nThe default is very permissive. To be more strict, try\n\n \"\\\\`[a-zA-Z]+://[^[:space:]]+\",\nor\n\n \"\\\\`http://[^[:space:]]+\".\n\nSetting the value to the empty string will disable the feature\nentirely, suppressing the recognition of external URLs." wiki-nav-visit-link-pattern "\\`visit:\\([^:\n]+?\\)\\(?:\\|:\\([^\n]*\\)\\)\\'" "A regular expression for recognizing wiki-nav links outside the current file.\n\nThe format defined by the default expression is delimited by colons\n\n visit:/posix/path/to/another/file\n\n or\n\n visit:/posix/path/to/another/file:WikiString\n\nOther internally recognized link schemes may be substituted for\nthe WikiString\n\n visit:/posix/path/to/another/file:line:10\n\nSet this value to the empty string to disable the feature entirely." wiki-nav-function-link-pattern "\\`func\\(?:tion\\)?:\\([^\n]+\\)\\'" "A regexp identifying wiki-nav links which point to function definitions.\n\nThe format defined by the default expression is delimited by colons\n\n func:function_name\n\nImenu is used to find the function definition.\n\nSet this value to the empty string to disable the feature entirely." wiki-nav-line-number-link-pattern "\\`line:\\([0-9]+\\)\\'" "A regexp for identifying wiki-nav links which point to line numbers.\n\nThe format defined by the default expression is delimited by colons\n\n line:111\n\nSet this value to the empty string to disable the feature entirely." wiki-nav-global "Settings for `global-wiki-nav-mode'." wiki-nav-exclude-modes '(fundamental-mode org-mode) "List of major modes in which global wiki-nav will not be activated.\n\nA buffer will also be excluded if its major mode is derived from a mode in\nthis list.\n\nThis is in addition to any modes listed in `button-lock-exclude-modes'.\n\nModes may be excluded for reasons of security (since buttons can\nexecute arbitrary functions), efficiency, or to avoid conflicts\nwith modes that provide similar functionality." (repeat symbol) wiki-nav-buffer-name-exclude-pattern "\\`[* ]" "Do not activate minor made in buffers matching this regular expression.\n\nBuffers may be excluded for reasons of security (since buttons\ncan execute arbitrary functions), efficiency, or to avoid\nconflicts with modes that provide similar functionality.\n\nThe default pattern is designed to match buffers which are\nprogramatically generated or internal to Emacs." wiki-nav-buffer-include-functions 'nil "Do not activate minor mode in a buffer unless all functions evaluate non-nil.\n\nEach function should take a single argument (a buffer).\n\nSet this value to nil to disable." (repeat function) wiki-nav-buffer-exclude-functions 'nil "Do not activate minor mode in a buffer if any function evaluates non-nil.\n\nEach function should take a single argument (a buffer).\n\nSet this value to nil to disable." (repeat function)] 20) #@29 Mode variable for wiki-nav. (defvar wiki-nav-mode nil (#$ . 8895)) (make-variable-buffer-local 'wiki-nav-mode) #@67 Holds the buffer-local button definition when the mode is active. (defvar wiki-nav-button nil (#$ . 9012)) (make-variable-buffer-local 'wiki-nav-button) (defvar wiki-nav-mode-keymap (byte-code "\305  \306\211\203 @\307\310\n!\311#\210 A\211\204 *\f\306\211\2038 @\307\310\n!\312#\210 A\211\204&*)\207" [map wiki-nav-find-any-link-keys key --dolist-tail-- wiki-nav-find-any-previous-link-keys make-sparse-keymap nil define-key read-kbd-macro wiki-nav-find-any-link wiki-nav-find-any-previous-link] 5)) #@149 A backward-compatible version of `called-interactively-p'. Optional KIND is as documented at `called-interactively-p' in GNU Emacs 24.1 or higher. (defalias 'wiki-nav-called-interactively-p '(macro . #[(&optional kind) "\301\302!\204\303\207\3041\302\305!\210\3060\202\210\202 \203 \302D\207\307\207" [kind fboundp called-interactively-p (interactive-p) (error) any t (called-interactively-p)] 2 (#$ . 9537)])) (byte-code "\300\301!\204\302\303KM\210\304\301\305\"\210\300\207" [fboundp back-button-push-mark-local-and-global back-button-push-mark push-mark defalias #[(&optional location nomsg activate consecutives) "\206`\306 \n#\210 \307=\204\310 \f@\232?\205Q \311=\2035\312\f@!p=\2035\f@\313\211\223\210\f\210\fA\314\310 !\fB\211G V\205Q \f\233@\313\211\223\210 S\f\233\313\241\207" [location nomsg activate consecutives global-mark-ring global-mark-ring-max back-button-push-mark allow-dupes mark-marker limit marker-buffer nil copy-marker] 5 "Push mark at LOCATION, and unconditionally add to `global-mark-ring'.\n\nThis function differs from `push-mark' in that `global-mark-ring'\nis always updated.\n\nLOCATION is optional, and defaults to the current point.\n\nNOMSG and ACTIVATE are as documented at `push-mark'.\n\nWhen CONSECUTIVES is set to 'limit and the new mark is in the same\nbuffer as the first entry in `global-mark-ring', the first entry\nin `global-mark-ring' will be replaced. Otherwise, a new entry\nis pushed onto `global-mark-ring'.\n\nWhen CONSECUTIVES is set to 'allow-dupes, it is possible to push\nan exact duplicate of the current topmost mark onto `global-mark-ring'."]] 3) #@100 Return the position before the current point. Returns `point-min' if the point is at the minimum. (defalias 'wiki-nav-point-before #[nil "e`S]\207" [] 2 (#$ . 11179)]) #@77 Return true if links should be constrained to comments in the current mode. (defalias 'wiki-nav-comment-only-mode-p #[nil "\301\302\303\304\"\"\207" [wiki-nav-comment-only-modes delq nil mapcar derived-mode-p] 5 (#$ . 11354)]) #@73 Flatten LIST which may contain other lists. Do not flatten cons cells. (defalias 'wiki-nav-alist-flatten #[(list) "\204\301\207:\203\302!\233\203C\207<\203,@:\203,\303\304@!\304A!\"\207<\2039@\304A!B\207C\207" [list nil safe-length append wiki-nav-alist-flatten] 4 (#$ . 11588)]) #@62 Return BUF if global wiki-nav should enable wiki-nav in BUF. (defalias 'wiki-nav-buffer-included-p #[(buf) "?\205\274\306 !\205\274\307 !\205\274\310\311!\210r q\210\312 !?\205\273\307 \313H\314=?\205\273\n >?\205\273\n\f>?\205\273\315\316 \"?\205\273\315\316 \f\"?\205\273 \307 !\317\320\321#)\266\203?\205\273\3222\211\317\211\203\206@\211 !\203}\323\322\317\"\210A\211\204m*\3200\205\273\3242\267\317\211\203\264@\211 !\204\253\323\324\317\"\210A\211\204\233*\3200\205\273 )\207" [noninteractive buf major-mode button-lock-exclude-modes wiki-nav-exclude-modes wiki-nav-buffer-name-exclude-pattern bufferp buffer-name require button-lock minibufferp 0 32 intersection button-lock-parent-modes nil t string-match success throw failure inhibit-changing-match-data wiki-nav-buffer-exclude-functions filt --dolist-tail-- wiki-nav-buffer-include-functions] 8 (#$ . 11897)]) #@110 Use `button-lock-mode' to set up wiki-nav links in a buffer. If called with negative ARG, remove the links. (defalias 'wiki-nav-link-set #[(&optional arg) "\206\306\211\307Y\203\310\301!\203 \204\301\306!\210\307W\203$\311\n!\207\312\313 \203.\314\202/\315\316 !\317\f\320\316 !\260\321\322\"\323\324\325\326\327\330\331\332\333#\334\306&$\335%\211&\203o&@%\336\n\337\335%$\210&A\211&\204Y*'\335%\211&\203\221&@%\336\n\340\335%$\210&A\211&\204{*(\335%\211&\205\264&@%\336\n\341\335%$\210&A\211&\204\235\335*\207" [arg button-lock-mode wiki-nav-button wiki-nav-link-start wiki-nav-link-text wiki-nav-link-stop 1 0 boundp button-lock-unset-button button-lock-set-button wiki-nav-comment-only-mode-p "\\s<\\S>*?" "" regexp-quote "\\(" "\\)" wiki-nav-mouse-action :double-mouse-1 :face wiki-nav-link-face :mouse-face wiki-nav-mouse-face :face-policy prepend :additional-property wiki-nav :rear-sticky :grouping nil button-lock-extend-binding wiki-nav-keyboard-action wiki-nav-find-any-link wiki-nav-find-any-previous-link wiki-nav-multi-action-function wiki-nav-rear-nonsticky wiki-nav-activate-keys key --dolist-tail-- wiki-nav-skip-to-next-keys wiki-nav-skip-to-previous-keys] 18 (#$ . 12830)]) #@159 Return an alist of all wiki-nav links in BUFFER (defaults to current buffer). The return value is an alist of cells in the form ("text" buffer . start-pos). (defalias 'wiki-nav-links #[(&optional buffer) "\206prq\210 \205g\306\307\211\310 \210\311e\312\"\211\203e dW\203e\313 \312\"\203\\  \203I dW\203I\313 \312\"\203I\311 \312\"\211\2043\313 \312\"\204[\314 \" BB\nB)\311 \312\"\211\204 \n+)\207" [buffer wiki-nav-mode links pos font-lock-fontify-buffer-function start font-lock-default-fontify-buffer nil font-lock-fontify-buffer next-single-property-change wiki-nav get-text-property buffer-substring-no-properties] 4 (#$ . 14080)]) #@159 Return an alist of wiki-nav links in all buffers. See `wiki-nav-links'. Note that this function fontifies every buffer, which can take seconds to complete. (defalias 'wiki-nav-links-all-buffers #[nil "\306\307\310\311 G#\310\312\311 \312\211\203B\f@ \2045\n T\211\312\247\203.@Y\2053\313#\266\314 !B\fA\211\204*\315\n!\210\316\312\317!\"+\207" [l-alist counter reporter buf --dolist-tail-- wiki-nav-less-feedback make-progress-reporter "Searching ..." 0 buffer-list nil progress-reporter-do-update wiki-nav-links progress-reporter-done delq wiki-nav-alist-flatten] 8 (#$ . 14750)]) #@129 Dispatch the default double-click navigation action. The link used is that identified by the position at EVENT, a mouse event. (defalias 'wiki-nav-default-multi-action #[(event) "\306\307\310!!\311\"\312\313\312\211\2054\314\315\316\317\f@\fA\"#\320\321!\2054\321\322\323 !\324 \325\323!\260\313#,\207" [event search-upper-case case-fold-search str-val bounds wiki-nav-link-start button-lock-find-extent posn-point event-end wiki-nav nil t replace-regexp-in-string "\\(^[[:space:]<>]*\\|[[:space:]]*\\'\\)" "" buffer-substring-no-properties fboundp multi-occur-in-matching-buffers "\\`[^ *]" regexp-quote "[[:space:]<>]*" "[[:space:]]*" wiki-nav-link-stop] 9 (#$ . 15365) "e"]) #@70 Dispatch the default navigation action for the wiki-nav link at POS. (defalias 'wiki-nav-action-1 #[(pos) "\306\307\"\310\211\211\311e\312p`\310\313\31056789:\211;\203\250\314;@;A\":\315:\310\313<\316#)\266\203\203K\3177d6\3205\321\322\323:#:=\203\320>G\324V\203\320>:\310\313<\316#)\266\203\204\320?G\324V\203\320?:\310\313<\316#)\266\203\204\320@G\324V\203\320@:\310\313<\316#)\266\203\204\320=G\324V\203\320=:\310\313<\316#)\266\203\203\320\325\326!\210\327:!\210\202\250\330 A\331\216>G\324V\203\316>:\"\203\323B\332\333:\"B\334\335\336\337\332\340:\"!!!!\210B:)\341\f\313\"\210:G\324U\203\342\343!\203\343 \210\3138:G\324V\203\247?G\324V\203\201\316?:\"\203\201\212\344\337\332\340:\"!!\210`)\211\203b `U\204b\341\f\313\"\210 b\210\342\343!\203_\343 \210\34599\204a8\203{:G\324V\203{\334 !\210\3108\fb\210\202a@G\324V\203\302\316@:\"\203\302\346\332\340:\"!C~\210\341\f\313\"\210eb\210CSy\210\342\343!\203\263\343 \210\347 CU\203\276\3509)\202a\351\337:!!:\352 \2107\353 \203\330\354\202\331\323\355\351D!\356:\357\351E!\360\260\310\313#\203\3619\341\f\313\"\210\333\224b\210\342\343!\203E\343 \210\202E6b\210\352 \2107\353 \203\354\202\323\355\351D!\356:\357\351E!\360\260\310\313#\203E\3629\341\f\313\"\210\333\224b\210\342\343!\203E\343 \2109\204a8\203^:G\324V\203^\334 !\210\3108\fb\2108\203rF\204\247\325\363!\210\202\2479\203\217`;@DGZY\203\226`;AEG\\X\203\226\325\364!\210\202\2479\362=\203\247F\204\247\3255!\210*9.\f\207" [pos search-upper-case case-fold-search new-point point-start buffer-start button-lock-find-extent wiki-nav nil re-search-forward "Search wrapped past end of file" t buffer-substring-no-properties "^[[:space:]]*<" string-match re-search-backward "Search wrapped past beginning of file" replace-regexp-in-string "\\(^[[:space:]<>]*\\|[[:space:]]*\\'\\)" "" 0 message "browsing to external URL..." browse-url match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] match-string-no-properties 2 switch-to-buffer find-file expand-file-name url-unhex-string 1 back-button-push-mark-local-and-global fboundp nav-flash-show imenu :func string-to-number line-number-at-pos :line regexp-quote deactivate-mark wiki-nav-comment-only-mode-p "\\s<\\S>*?" "\\(" "\\([[:space:]<>]*" "[[:space:]]*\\)" "\\)" :jump :wrap "followed link to new file" "no matching link found" wrap-message wrap-point search-function visit found str-val bounds inhibit-changing-match-data wiki-nav-external-link-pattern wiki-nav-visit-link-pattern wiki-nav-function-link-pattern wiki-nav-line-number-link-pattern save-match-data-internal tmp ln wiki-nav-link-start wiki-nav-link-stop wiki-nav-less-feedback] 13 (#$ . 16061)]) #@127 Dispatch the default action for the wiki-nav link at the mouse location. Mouse location is defined by the mouse event EVENT. (defalias 'wiki-nav-mouse-action #[(event) "\301\302\303!!!\207" [event wiki-nav-action-1 posn-point event-end] 4 (#$ . 18903) "e"]) #@79 Dispatch the default navigation action for the wiki-nav link under the point. (defalias 'wiki-nav-keyboard-action #[nil "\300`!\207" [wiki-nav-action-1] 2 (#$ . 19169) nil]) #@95 Non-nil if Wiki-Nav mode is enabled. Use the command `wiki-nav-mode' to change this variable. (defvar wiki-nav-mode nil (#$ . 19349)) (make-variable-buffer-local 'wiki-nav-mode) #@2175 Turn on navigation by bracketed [[WikiStrings]] within a document. This is a minor mode. If called interactively, toggle the `Wiki-Nav mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `wiki-nav-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. When wiki-nav links are activated, clicking on a bracketed link causes emacs to search the document for another link with text matching the inner string. If a match is found, the cursor is moved to the location of the match. If the string looks like it might be a URL (starts with alphabetical characters followed by a colon), an external browser will be spawned on the URL. This behavior can be controlled by the customizable variable `wiki-nav-external-link-pattern'. If `multi-occur' is installed (standard with recent Emacs), double-clicking a wiki-nav link will search for matching links in all open file buffers. If the link follows the form visit:/path/name:WikiString Emacs will visit the named file, and search for the navigation string there. This behavior can be controlled by the customizable variable `wiki-nav-visit-link-pattern'. If the link follows the form func:FunctionName the link will lead to the definition of the given function, as defined by imenu. This behavior can be controlled by the customizable variable `wiki-nav-function-link-pattern'. If the link follows the form line: the link will lead to the given line number. This behavior can be controlled by the customizable variable `wiki-nav-line-number-link-pattern'. The leading and trailing delimiters which define the navigation links may be customized, as may the regular expressions that match URLs and non-URL inner text. With no argument, this command toggles the mode. Non-null prefix argument turns on the mode. Null prefix argument turns off the mode. (defalias 'wiki-nav-mode #[(&optional arg) "\306  \307=\203\n?\202 \247\203 \310W\203\311\202\312\313\303!\2032\314\302 \"\n\2032\302 B\n\203H\f\204C\315 \316H\317=\203H\311\202j\n\203\\\320 \210\321\322!\203j\323\324!\210\202j\320\325!\210\321\322!\203j\323\326!\210\327\330\n\203t\331\202u\332\"\210\321\333!\203\232\306 \203\211\306 \232\203\232\334\323\335\n\203\225\336\202\226\337 #\210))\340 \210\n\207" [#1=#:last-message arg wiki-nav-mode local-minor-modes noninteractive local current-message toggle 1 nil t boundp delq buffer-name 0 32 wiki-nav-link-set called-interactively-p interactive message "wiki-nav mode enabled" -1 "wiki-nav mode disabled" run-hooks wiki-nav-mode-hook wiki-nav-mode-on-hook wiki-nav-mode-off-hook any " in current buffer" "Wiki-Nav mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 19535) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar wiki-nav-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\207" [wiki-nav-mode-keymap wiki-nav-mode-hook variable-documentation put "Hook run after entering or leaving `wiki-nav-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode wiki-nav-mode wiki-nav-mode-lighter] 6) #@494 Called by `global-wiki-nav-mode' to activate `wiki-nav-mode' in a buffer. `wiki-nav-mode' will be activated in every buffer, except minibuffers buffers with names that begin with space buffers excluded by `wiki-nav-exclude-modes' buffers excluded by `button-lock-exclude-modes' buffers excluded by `wiki-nav-buffer-name-exclude-pattern' buffers excluded by `button-lock-buffer-name-exclude-pattern' If called with a negative ARG, deactivate `wiki-nav-mode' in the buffer. (defalias 'wiki-nav-maybe-turn-on #[(&optional arg) "\206\301\211\302W\204\303p!\205\304!\207" [arg 1 0 wiki-nav-buffer-included-p wiki-nav-mode] 3 (#$ . 23160)]) (put 'global-wiki-nav-mode 'globalized-minor-mode t) (defvar wiki-nav-mode-major-mode nil nil) (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \207" [make-variable-buffer-local wiki-nav-mode-major-mode custom-declare-variable global-wiki-nav-mode nil "Non-nil if Global Wiki-Nav mode is enabled.\nSee the `global-wiki-nav-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-wiki-nav-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group wiki-nav] 12) #@335 Toggle Wiki-Nav mode in all buffers. With prefix ARG, enable Global Wiki-Nav mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Wiki-Nav mode is enabled in all buffers where `wiki-nav-maybe-turn-on' would do it. See `wiki-nav-mode' for more information on Wiki-Nav mode. (defalias 'global-wiki-nav-mode #[(&optional arg) "\306 \307\303 \310=\203\311\303!?\202\" \247\203! \312W\203!\313\202\"\314\"\210\315\302!\2039\316\303\n\"\311\303!\2039\303\nB \203O\317\320\321\"\210\317\322\323\"\210\317\324\325\"\210\202^\326\320\321\"\210\326\322\323\"\210\326\324\325\"\210\327 \313\211\203\211 @r\fq\210 \203x\330 \210\202\201\203\201\331\332!\210) A\211\204g*\333\334\311\303!\203\226\335\202\227\336\"\210\337\340!\203\304\341\303!\210\306 \203\257\306 \232\203\304\342(\343\344\311\303!\203\276\345\202\277\346(#\210))\347 \210\311\303!\207" [#1=#:last-message arg global-minor-modes global-wiki-nav-mode buf --dolist-tail-- current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook global-wiki-nav-mode-enable-in-buffers find-file-hook global-wiki-nav-mode-check-buffers change-major-mode-hook global-wiki-nav-mode-cmhh remove-hook buffer-list wiki-nav-maybe-turn-on wiki-nav-mode -1 run-hooks global-wiki-nav-mode-hook global-wiki-nav-mode-on-hook global-wiki-nav-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Wiki-Nav mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 24497) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar global-wiki-nav-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [global-wiki-nav-mode-map global-wiki-nav-mode-hook variable-documentation put "Hook run after entering or leaving `global-wiki-nav-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-wiki-nav-mode boundp] 6) (defvar wiki-nav-mode-set-explicitly nil nil) (make-variable-buffer-local 'wiki-nav-mode-set-explicitly) (defalias 'wiki-nav-mode-set-explicitly #[nil "\301\211\207" [wiki-nav-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put wiki-nav-mode-set-explicitly definition-name global-wiki-nav-mode add-hook wiki-nav-mode-hook] 4) (defvar global-wiki-nav-mode-buffers nil) (defalias 'global-wiki-nav-mode-enable-in-buffers #[nil "\306 \306\211\205B @\307\n!\203:r\nq\210\f\2046  =\2046\2033\310\311!\210\312 \210\2026\312 \210 ) A\211\204\f\306+\207" [global-wiki-nav-mode-buffers buffers buf --dolist-tail-- wiki-nav-mode-set-explicitly wiki-nav-mode-major-mode nil buffer-live-p wiki-nav-mode -1 wiki-nav-maybe-turn-on major-mode] 3]) (put 'global-wiki-nav-mode-enable-in-buffers 'definition-name 'global-wiki-nav-mode) (defalias 'global-wiki-nav-mode-check-buffers #[nil "\300 \210\301\302\303\"\207" [global-wiki-nav-mode-enable-in-buffers remove-hook post-command-hook global-wiki-nav-mode-check-buffers] 3]) (put 'global-wiki-nav-mode-check-buffers 'definition-name 'global-wiki-nav-mode) (defalias 'global-wiki-nav-mode-cmhh #[nil "p\211 \235\203 \210\202 B)\302\303\304\"\207" [#1=#:x global-wiki-nav-mode-buffers add-hook post-command-hook global-wiki-nav-mode-check-buffers] 4]) (put 'global-wiki-nav-mode-cmhh 'definition-name 'global-wiki-nav-mode) #@189 Skip forward to the next defined wiki-nav link. Automatically wraps past the end of the buffer. With a negative prefix argument ARG, skip backward to the previous defined wiki-nav link. (defalias 'wiki-nav-find-any-link #[(&optional arg) "\205\270\306\307`\310\311\312e\307 \313 \210!\203.!\314W\203.\315\316d\317\320 \321\"\203D `\321\"\211\203Db\210\322 \210\f\323 \203Q\324\202R\325\326\327\"!\326#\330\327$!\330\260\307\331#\203}\332\331\"\210\333\224b\210\334\335!\205\266\335 \202\266\nb\210\322 \210\f\323 \203\215\324\202\216\325\326\327\"!\326#\330\327$!\330\260\307\331#\205\266\332\331\"\210\333\224b\210\334\335!\205\266\335 .\207" [wiki-nav-mode bounds wrap-point look-function search-function skip-function font-lock-default-fontify-buffer nil next-single-property-change re-search-forward point font-lock-fontify-buffer 0 previous-single-property-change re-search-backward wiki-nav-point-before get-text-property wiki-nav deactivate-mark wiki-nav-comment-only-mode-p "\\s<\\S>*?" "" "\\(" regexp-quote "\\)" t back-button-push-mark-local-and-global 2 fboundp nav-flash-show orig-pos newpos font-lock-fontify-buffer-function arg wiki-nav-link-start wiki-nav-link-text wiki-nav-link-stop] 9 (#$ . 28101) "p"]) #@200 Skip backward to the previous defined wiki-nav link. Automatically wraps past the beginning of the buffer. With a negative prefix argument ARG, skip backward to the previous defined wiki-nav link. (defalias 'wiki-nav-find-any-previous-link #[nil "\300\301!\207" [wiki-nav-find-any-link -1] 2 (#$ . 29382) nil]) #@132 Navigate to wiki-nav strings using `ido-completing-read'. With universal prefix ARG, navigate to wiki-nav strings in all buffers. (defalias 'wiki-nav-ido #[(arg) ":\203\n\305 \202\f\306 \307\310\311 \"!\312\313\314\315\n\"\211\205D\316 \"\205D\317\312\313\"\210\316 \"A\320 @!\210 Ab\210\321\322!\205D\322 ,\207" [arg links str-list choice ido-mode wiki-nav-links-all-buffers wiki-nav-links delete-dups mapcar car nil t ido-completing-read "WikiString: " assoc back-button-push-mark-local-and-global switch-to-buffer fboundp nav-flash-show] 5 (#$ . 29702) "P"]) (provide 'wiki-nav)