-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathnav.elc
202 lines (193 loc) · 23.5 KB
/
nav.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
;ELC
;;; Compiled by [email protected] on Mon May 7 00:08:15 2012
;;; from file /Users/issactrotts/repos/emacs-nav/nav.el
;;; in Emacs version 23.3.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!\204 \302\303\304\217\210\305\306\307\310\311\312%\207" [featurep full-ack err (byte-code "\300\301!\207" [require ack] 2) ((error (message "Could not load ack."))) custom-declare-group nav nil "A lightweight filesystem navigator." :group applications] 6)
#@150 *If true, Nav will filter out files and directories such as
hidden files, backups and .elc files. The result depends on
`nav-boring-file-regexps'.
(custom-declare-variable 'nav-filtered-p 't '(#$ . -801) :type 'boolean :group 'nav)
#@87 *If non-nil, Nav will change its width to this when it opens files in
other windows.
(custom-declare-variable 'nav-width '25 '(#$ . -1041) :type 'integer :group 'nav)
#@72 *Nav ignores filenames that match any regular expression in this list.
(custom-declare-variable 'nav-boring-file-regexps '(list "^[.][^.].*$" "^[.]$" "~$" "[.]elc$" "[.]pyc$" "[.]o$" "[.]bak$" "^_MTN$" "^blib$" "^CVS$" "^RCS$" "^SCCS$" "^_darcs$" "^_sgbak$" "^autom4te.cache$" "^cover_db$" "^_build$") '(#$ . -1215) :type '(repeat string) :group 'nav)
(require 'dired)
#@33 Face name used for directories.
(defvar nav-directory-face 'dired-directory (#$ . 1590))
#@76 Regexes and associated faces used by Nav to fontify files and
directories.
(defvar nav-font-lock-keywords '(("^.*/$" . nav-directory-face)) (#$ . 1685))
#@57 Creates and returns a mode map with nav's key bindings.
(defalias 'nav-make-mode-map #[nil "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\360#\210\302\362\363#\210\302\364\363#\210\302\365\366#\210\302\367\370#\210\302\371\372#\210)\207" [keymap make-sparse-keymap define-key "a" ack "c" nav-copy-file-or-dir "C" nav-customize "d" nav-delete-file-or-dir-on-this-line "e" nav-invoke-dired "f" nav-find-files "g" grep-find "h" nav-jump-to-home "j" nav-jump-to-dir "m" nav-move-file-or-dir "n" nav-make-new-directory "o" nav-open-file-under-cursor "p" nav-pop-dir "P" nav-print-current-dir "q" nav-unsplit-window-horizontally "r" nav-refresh "s" nav-shell "u" nav-go-up-one-dir "w" nav-shrink-wrap "!" nav-shell-command "." nav-toggle-hidden-files "?" nav-help-screen "-" nav-shrink-a-bit "_" "+" nav-expand-a-bit "=" " " nav-jump-to-name [(control 120) (control 102)] nav-find-file-other-window [(control 120) 98] nav-switch-to-buffer-other-window] 4 (#$ . 1844)])
#@198 First, compute a new value for the delta to make sure we don't
make the window too small, according to the following equation:
window-width - delta' = max(window-min-width, window-width - delta)
(defalias 'nav-shrink-window-horizontally #[(delta) "\302 \302 Z]Z\303 !\210\304 )\207" [window-min-width delta window-width shrink-window-horizontally nav-remember-current-width-during-this-session] 4 (#$ . 3204)])
(defalias 'nav-enlarge-window-horizontally #[(delta) "\301!\210\302 \207" [delta enlarge-window-horizontally nav-remember-current-width-during-this-session] 2])
(defalias 'nav-remember-current-width-during-this-session #[nil "\300\301\302 \"\207" [customize-set-variable nav-width window-width] 3])
#@57 Decreases the width of the nav window by one character.
(defalias 'nav-shrink-a-bit #[nil "\300\301!\207" [nav-shrink-window-horizontally 1] 2 (#$ . 3926) nil])
#@57 Increases the width of the nav window by one character.
(defalias 'nav-expand-a-bit #[nil "\300\301!\207" [nav-enlarge-window-horizontally 1] 2 (#$ . 4093) nil])
#@28 Exits the nav help screen.
(defalias 'nav-quit-help #[nil "\300p!\207" [kill-buffer] 2 (#$ . 4261) nil])
#@27 Displays the help screen.
(defalias 'nav-help-screen #[nil "\300\301!\210\302c\210\303\304!\210\305\306!\210\307\304!\207" [switch-to-buffer-other-window "*nav-help*" "Nav Key Bindings\n================\n\nEnter/Return: Go to directory under cursor, or open file under\n cursor in other window.\n\nTab: Move forward through filenames.\nShift-Tab: Move backward through filenames.\n\nSpace: Press spacebar, then any other letter to jump to filename\n that starts with that letter.\n\na Recursively grep for a Perl regex using Ack (http://betterthangrep.com/).\nc Copy file or directory under cursor.\nC Customize Nav settings and bookmarks.\nd Delete file or directory under cursor (asks to confirm first).\ne Edit current directory in dired.\nf Recursively find files whose titles match a Perl regex (using Ack).\ng Grep recursively from current directory using grep-find\nh Jump to home (~).\nj Jump to another directory.\nm Move or rename file or directory.\nn Make a new directory.\no Open file under cursor in the nav window.\np Pop directory stack to go back to the previous directory.\nP Print full path of current displayed directory.\nq Quit nav.\nr Refresh.\ns Start a shell in an emacs window in the current directory.\nu Go up to parent directory.\nw Shrink-wrap Nav's window to fit the longest filename in the current directory.\n Hit C-x + to roughly undo this by balancing windows.\n! Run shell command.\n. Toggle display of hidden files.\n? Show this help screen.\n- Narrow Nav window by one character.\n+ Widen Nav window by one character.\n" nav-goto-line 1 view-mode -1 toggle-read-only] 2 (#$ . 4372) nil])
#@23 Mode map for nav mode
(defvar nav-mode-map (nav-make-mode-map) (#$ . 6049))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list nav-dir-stack default-boundp set-default nil] 3)
#@62 Hash table from dir paths to most recent cursor pos in them.
(defvar nav-map-dir-to-line-number (make-hash-table :test 'equal) (#$ . 6261))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list nav-button-face default-boundp set-default nil] 3)
#@121 Line where cursor starts in directories that have not yet been
visited. A value of 1 would start the cursor off on ../.
(defconst nav-default-line-num 2 (#$ . 6540))
#@85 Name of the buffer used for the command line shell spawned by
nav on the 's' key.
(defconst nav-shell-buffer-name "*nav-shell*" (#$ . 6712))
#@56 Name of the buffer where nav shows directory contents.
(defconst nav-buffer-name "*nav*" (#$ . 6861))
#@50 Name of the buffer where nav shows find results.
(defconst nav-buffer-name-for-find-results "*nav-find*" (#$ . 6969))
(defalias 'nav-join #[(sep string-list) "\302\303 #\207" [string-list sep mapconcat identity] 4])
(defalias 'nav-toggle-hidden-files #[nil "?\301 \207" [nav-filtered-p nav-refresh] 1 nil nil])
(defalias 'nav-filename-matches-some-regexp #[(filename regexps) "\305 \305\211\203 @\306\n\f\"\203 \307 A\211\204\n *)\207" [matches-p regexps rx --dolist-tail-- filename nil string-match t] 4])
(defalias 'nav-filter #[(condp lst) "\301\302\303\304\"\"\207" [lst delq nil mapcar #[(x) " !\205 \207" [condp x] 2]] 5])
(defalias 'nav-filter-out-boring-filenames #[(filenames boring-regexps) "\301\302\"\207" [filenames nav-filter #[(filename) "\302 \"?\207" [filename boring-regexps nav-filename-matches-some-regexp] 3]] 3])
(defalias 'nav-get-line-for-cur-dir #[nil "\301\302 \"\207" [nav-map-dir-to-line-number gethash nav-get-working-dir] 3])
#@64 Changes to a different directory and pushes it onto the stack.
(defalias 'nav-cd #[(dirname) "\302\303!!\304 \210\305!\210\306 )\207" [dirname default-directory file-name-as-directory file-truename nav-save-cursor-line nav-show-dir nav-restore-cursor-line] 3 (#$ . 7951)])
#@33 Updates line number hash table.
(defalias 'nav-save-cursor-line #[nil "\302`!\303\304 #)\207" [line-num nav-map-dir-to-line-number nav-line-number-at-pos puthash nav-get-working-dir] 4 (#$ . 8235)])
#@32 Jumps point to the given line.
(defalias 'nav-goto-line #[(line) "eb\210Sy\207" [line] 1 (#$ . 8443)])
#@69 Remembers what line we were on last time we visited this directory.
(defalias 'nav-restore-cursor-line #[nil "\302 \206 \303 !)\207" [nav-default-line-num line-num nav-get-line-for-cur-dir nav-goto-line] 2 (#$ . 8553)])
#@37 Opens a file or directory from Nav.
(defalias 'nav-open-file #[(filename) "\301!\203\n \302!\207\303!\207" [filename file-directory-p nav-push-dir find-file] 2 (#$ . 8782) "FFilename:"])
#@37 Opens a file or directory from Nav.
(defalias 'nav-open-file-other-window #[(filename) "\303!\203\n \304!\207 P\305\n!)\207" [filename default-directory path file-directory-p nav-push-dir nav-find-file-other-window] 2 (#$ . 8978) "FFilename:"])
#@53 Opens the file FILENAME in the window to the right.
(defalias 'nav-find-file-other-window #[(filename) "\301!\210\302 \210\303!\207" [filename message nav-must-windmove-right find-file] 2 (#$ . 9233) "FFilename:"])
(defalias 'nav-switch-to-buffer-other-window #[(buffer-name) "\301 \210\302!\207" [buffer-name nav-must-windmove-right switch-to-buffer] 2 nil "bSwitch to buffer:"])
#@182 Moves point to the window to the right of the current one.
If there is no such window, it first splits the current window
and then moves to the new window just formed on the right.
(defalias 'nav-must-windmove-right #[nil "\300\301\302\217\207" [err (windmove-right) ((error (byte-code "\300 \210\301 \207" [split-window-horizontally windmove-right] 1)))] 3 (#$ . 9624)])
#@34 Finds the file under the cursor.
(defalias 'nav-open-file-under-cursor #[nil "\301 \302!)\207" [filename nav-get-cur-line-str nav-open-file] 2 (#$ . 10002) nil])
#@40 Returns the currently selected window.
(defalias 'nav-get-current-window #[nil "\300p!\207" [get-buffer-window] 2 (#$ . 10172)])
#@53 Returns the width of the currently selected window.
(defalias 'nav-get-current-window-width #[nil "\300\301 !\207" [window-width nav-get-current-window] 2 (#$ . 10307)])
#@20 Points Nav to ../.
(defalias 'nav-go-up-one-dir #[nil "\300\301!\207" [nav-push-dir ".."] 2 (#$ . 10483) nil])
(defalias 'nav-get-shrink-wrap-width #[nil "\305\306 \307\310#\211G\311\312\"\313\314\n\"T\315 \316\245 \f^-\207" [lines num-lines line-lengths desired-width max-width split-string buffer-string "\n" t mapcar length apply max frame-width 2] 5])
#@147 Updates the width of the Nav window to fit the longest filename in the
current directory. Updates the global variable nav-width as a side effect.
(defalias 'nav-shrink-wrap #[nil "\300\301 !\207" [nav-set-window-width nav-get-shrink-wrap-width] 2 (#$ . 10852) nil])
(defalias 'nav-push-dir #[(dirname) "\303!\211 \230?\205 \303 !\nB\304!)\207" [dirname default-directory nav-dir-stack file-truename nav-cd] 3])
#@95 Goes to the previous directory in Nav's history.
This works like a web browser's back button.
(defalias 'nav-pop-dir #[nil "\302 \203# \203 \303\304\305!!\232\204 \306!\204# \211A@\202 \206( \305\307!)\207" [dir nav-dir-stack nil file-name-as-directory file-truename "." file-exists-p nav-cd] 4 (#$ . 11274) nil])
(defalias 'nav-get-cur-line-str #[nil "\300\301 \302 \"\207" [buffer-substring-no-properties point-at-bol point-at-eol] 3])
(defalias 'nav-non-boring-directory-files #[(dir) "\303\304! \205 \n\"\207" [dir nav-filtered-p nav-boring-file-regexps nav-filter-out-boring-filenames directory-files] 3])
(defalias 'nav-dir-suffix #[(dir) "\301\302\303\304!#\207" [dir replace-regexp-in-string ".*/" "" directory-file-name] 5])
(defalias 'nav-line-number-at-pos #[(p) "\304 \305\n W\203 \nf\306=\203 T\nT\211\202 +\207" [line-num p i --dotimes-limit-- 1 0 10] 3])
(defalias 'nav-replace-buffer-contents #[(new-contents) "\303`!\304\305 \210\nc\210\306 \210\307 !*\207" [inhibit-read-only saved-line-number new-contents nav-line-number-at-pos t erase-buffer nav-make-filenames-clickable nav-goto-line] 2])
(defalias 'nav-select-window #[(window) "\203 \301!\207\302\303!\207" [window select-window message "Attempted to select nil window"] 2])
#@52 Opens a file or directory in response to a button.
(defalias 'nav-button-action-to-open-file #[(button) "\305!\306 !\307\n!\210\310 \311U\203 \312 \210\313\314!!\210 \205/ \315 \316\n!\210\317 !\210\316\f!)*\207" [button buffer window-with-nav nav-width other-window overlay-buffer get-buffer-window nav-select-window count-windows 1 split-window-horizontally nav-open-file-other-window button-label nav-get-current-window select-window nav-set-window-width] 3 (#$ . 12560)])
(defalias 'nav-button-action-to-open-dir #[(button) "\302!\303 !\210\304\305!!)\207" [button buffer overlay-buffer pop-to-buffer nav-push-dir button-label] 3])
(defalias 'nav-make-filenames-clickable #[nil "\300\301\302\217\207" [err (byte-code "\212\306\307!\210\310\307d\"\311 W\205C \312 \313 \314\n \" \315\f!\203' \316\202( \317 \320\n \305\321\322\323\324\325&\n\210,\307y\210T\211\202 +\207" [i --dotimes-limit-- start end filename action nav-goto-line 1 count-lines 0 line-beginning-position line-end-position buffer-substring-no-properties file-directory-p nav-button-action-to-open-dir nav-button-action-to-open-file make-button follow-link t face help-echo nil nav-button-face] 12) ((error 'failed))] 3])
#@60 Tells whether S1 comes lexically before S2, ignoring case.
(defalias 'nav-string< #[(s1 s2) "\227 \227\231\207" [s1 s2] 2 (#$ . 13778)])
(defalias 'nav-show-dir #[(dir) "\306\307 !\306\211\203) @\211\310\n!\203 \311\202 \312P\211 B) A\211\204\f *\313\314\"\315\316\"\317!\210*\320\321 \"\322 )\207" [new-contents dir filename --dolist-tail-- line mode-line-format nil nav-non-boring-directory-files file-directory-p "/" "" sort nav-string< nav-join "\n" nav-replace-buffer-contents nav-make-mode-line "d" force-mode-line-update] 4])
(defalias 'nav-set-window-width #[(n) " ]\302 V\203 \303\302 Z!\210\302 W\205 \304\302 Z!)\207" [n window-min-width window-width nav-shrink-window-horizontally nav-enlarge-window-horizontally] 3])
#@69 Saves the width of the current window as the default width for Nav.
(defalias 'nav-save-window-width #[nil "\301\302 !\303\304\")\207" [width window-width nav-get-current-window customize-save-variable nav-width] 3 (#$ . 14539) nil])
(defalias 'nav-get-working-dir #[nil "\301\302!!\207" [default-directory file-name-as-directory file-truename] 3])
#@41 Invokes dired on the current directory.
(defalias 'nav-invoke-dired #[nil "\300\301 !\207" [dired nav-get-working-dir] 2 (#$ . 14897) nil])
#@70 Recursively finds files whose names match a Perl regular expression.
(defalias 'nav-find-files #[(pattern) "\304\305\"\304\306\"\307\310 \210\311 \312p#\210\313 \210\314\315!\210\316 \317\230\203) \320c\210\202- \321 !\210\322y+\207" [pattern find-command inhibit-read-only nav-mode-map format "%s[^/]*$" "ack -a -l '.' | ack %s" t erase-buffer call-process-shell-command nil nav-make-filenames-clickable message "Hit r to bring back Nav directory listing." buffer-string "" "No matching files found." use-local-map -1] 4 (#$ . 15043) "sPattern: "])
#@60 Resizes Nav window to original size, updates its contents.
(defalias 'nav-refresh #[nil "\300\301!\210\302 \207" [nav-show-dir "." nav-restore-cursor-line] 2 (#$ . 15604) nil])
#@29 Show home directory in Nav.
(defalias 'nav-jump-to-home #[nil "\300\301!\207" [nav-push-dir "~"] 2 (#$ . 15787) nil])
(defalias 'nav-jump-to-name #[(arg) "\302\303!\210\304P\305 !)\207" [arg nav-search-string nav-goto-line 2 "^" search-forward-regexp] 2 nil "K"])
#@37 Shows a specified directory in Nav.
(defalias 'nav-jump-to-dir #[(dirname) "\301!\207" [dirname nav-push-dir] 2 (#$ . 16059) "fDirectory: "])
(defalias 'nav-make-mode-line #[(mode dir) "\302\303\304!!\305\306\307\310 \203 \311\202 \312\"\260\207" [dir nav-filtered-p "-(nav)" nav-dir-suffix file-truename "/" " " format "[%s]" "filtered" "unfiltered"] 7])
(defalias 'nav-delete-file-or-dir #[(filename) "\301 \210\302!\203% \303\304!!\204% \305\306\307\"!\203: \310\311\"\210\312 \210\202: \304!\313\306\314\"!\2039 \315!\210\312 \210)\316 \207" [filename nav-save-cursor-line file-directory-p file-symlink-p directory-file-name yes-or-no-p format "Really delete directory %s ?" delete-directory t nav-refresh y-or-n-p "Really delete file %s ? " delete-file nav-restore-cursor-line] 4])
#@30 Deletes a file or directory.
(defalias 'nav-delete-file-or-dir-on-this-line #[nil "\300\301 !\207" [nav-delete-file-or-dir nav-get-cur-line-str] 2 (#$ . 16865) nil])
#@29 Copies a file or directory.
(defalias 'nav-copy-file-or-dir #[(target-name) "\302 \303!\203 \304 \"\210\202 \305 \"\210)\306 \207" [filename target-name nav-get-cur-line-str file-directory-p copy-directory copy-file nav-refresh] 3 (#$ . 17037) "FCopy to: "])
#@31 Starts customization for Nav.
(defalias 'nav-customize #[nil "\300\301!\207" [customize-group "nav"] 2 (#$ . 17308) nil])
#@28 Moves a file or directory.
(defalias 'nav-move-file-or-dir #[(target-name) "\302 \303 \"\210)\304 \207" [filename target-name nav-get-cur-line-str rename-file nav-refresh] 3 (#$ . 17436) "FMove to: "])
(defalias 'nav-append-slashes-to-dir-names #[(names) "\301\302\"\207" [names mapcar #[(name) "\301!\203\n \302P\207\207" [name file-directory-p "/"] 2]] 3])
#@26 Creates a new directory.
(defalias 'nav-make-new-directory #[(name) "\301!\210\302 \207" [name make-directory nav-refresh] 2 (#$ . 17807) "sMake directory: "])
#@161 Starts up a shell on the current nav directory.
Thanks to claudio.bley for this new, improved version.
http://code.google.com/p/emacs-nav/issues/detail?id=78
(defalias 'nav-shell #[nil "\302 \303 !)\207" [default-directory nav-shell-buffer-name nav-get-working-dir shell] 2 (#$ . 17975) nil])
#@57 Runs a shell command and then refreshes the Nav window.
(defalias 'nav-shell-command #[(command) "\301!\210\302 \207" [command shell-command nav-refresh] 2 (#$ . 18277) "sShell command: "])
#@54 Shows the full path that nav is currently displaying
(defalias 'nav-print-current-dir #[nil "\301!\207" [default-directory print] 2 (#$ . 18474) nil])
(byte-code "\302\303N\204 \304\302\303\305\306!#\210\307\310!\204 \304\310\311\312#\210\310B\313\310!\204* \314\310\315 \"\210\310\303N\2048 \304\310\303\305\316!#\210\307\317!\204D \304\317\311\312#\210\317B\313\317!\204T \314\317\320 \"\210\317\303N\204b \304\317\303\305\321!#\210\304\301\311\312#\210\301B\313\301!\204| \314\301\322\301\323\"\210 \"\210\301\303N\204\212 \304\301\303\305\324!#\210\304\312\325\323#\207" [current-load-list nav-mode-abbrev-table nav-mode-hook variable-documentation put purecopy "Hook run when entering Nav mode navigates filesystems. mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp nav-mode-map definition-name nav-mode default-boundp set-default make-sparse-keymap "Keymap for `nav-mode'." nav-mode-syntax-table make-syntax-table "Syntax table for `nav-mode'." define-abbrev-table nil "Abbrev table for `nav-mode'." derived-mode-parent] 5)
#@220 Major-mode.
Uses keymap `nav-mode-map', abbrev table `nav-mode-abbrev-table' and syntax-table `nav-mode-syntax-table'.
This mode runs the hook `nav-mode-hook', as the final step
during initialization.
\{nav-mode-map}
(defalias 'nav-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210\315\313 !\210\307\211\316\317\320 \307\"\210\321 \210)\322\323!\207" [delay-mode-hooks major-mode mode-name nav-mode-map nav-mode-syntax-table nav-mode-abbrev-table make-local-variable t kill-all-local-variables nav-mode "Nav mode navigates filesystems." use-local-map set-syntax-table "Nav" (nav-font-lock-keywords) set-window-dedicated-p selected-window nav-refresh run-mode-hooks nav-mode-hook local-abbrev-table buffer-read-only truncate-lines font-lock-defaults] 4 (#$ . 19612) nil])
#@108 Turns off the new feature where Emacs 23 automatically splits windows when
opening files in a large frame.
(defalias 'nav-disable-overeager-window-splitting #[nil "\211\207" [most-positive-fixnum split-width-threshold split-height-threshold] 2 (#$ . 20423) nil])
#@52 Width of the current window, including decoration.
(defalias 'nav-window-width-with-chrome #[nil "\301 \3028@Z)\207" [edges window-edges 2] 2 (#$ . 20696)])
#@60 Returns non-nil of the current window is not the leftmost.
(defalias 'nav-current-window-has-left-window-neighbor #[nil "\300 @\301V\207" [window-edges 0] 2 (#$ . 20862)])
#@69 Returns the width of the window to the left, or 0 if there is
none.
(defalias 'nav-width-of-window-to-left #[nil "\302 \203 \303 \304\305\306 \"r\307\216\310 \210\311 ,\207\312\207" [save-selected-window-alist save-selected-window-window nav-current-window-has-left-window-neighbor selected-window mapcar #[(frame) "\301!B\207" [frame frame-selected-window] 3] frame-list ((byte-code "\304\211\203( \n@\305 @!\203! \306 A!\203! \307 @ A\310#\210\nA\211\204 *\306 !\2034 \311 \310\"\210\304\207" [save-selected-window-alist elt --dolist-tail-- save-selected-window-window nil frame-live-p window-live-p set-frame-selected-window norecord select-window] 5)) windmove-left window-width 0] 4 (#$ . 21040)])(if macro-declaration-function (funcall macro-declaration-function (quote nav-ignore-errors) (quote (declare (debug t) (indent 0)))))
#@94 Execute BODY; if an error occurs, return nil.
Otherwise, return result of last form in BODY.
(defalias 'nav-ignore-errors '(macro . #[(&rest body) "\301\302\303B\304BBB\207" [body condition-case nil progn ((error nil))] 4 (#$ . 21893)]))
#@62 Attempts to reverse the effect of split-window-horizontally.
(defalias 'nav-unsplit-window-horizontally #[nil "\305 \306 p\307\310\311\217\210\312!\210\306 \211 V\211 \205 \313\n!-\207" [buf left-width nav-width new-left-width left-window-expanded nav-window-width-with-chrome nav-width-of-window-to-left nil (windmove-right) ((error)) kill-buffer enlarge-window-horizontally] 4 (#$ . 22138) nil])
#@142 Returns non-nil if STR1 is a prefix of STR2.
If IGNORE-CASE is non-nil, the comparison is done without paying attention
to case differences.
(defalias 'nav-string-prefix-p #[(str1 str2 &optional ignore-case) "\303\304\211 \305G\n&\306=\207" [str1 str2 ignore-case compare-strings nil 0 t] 8 (#$ . 22549)])
#@58 Returns non-nil if the current buffer is a Nav instance.
(defalias 'nav-current-buffer-is-nav #[nil "\301\302 \"\207" [nav-buffer-name nav-string-prefix-p buffer-name] 3 (#$ . 22864)])
#@71 Returns non-nil if there is a window to the left with a Nav
instance.
(defalias 'nav-left-neighbor-is-nav #[nil "\301 \205 \302 \210\303 \304 \210)\207" [is-nav nav-current-window-has-left-window-neighbor windmove-left nav-current-buffer-is-nav windmove-right] 1 (#$ . 23056)])
#@24 Toggles the nav panel.
(defalias 'nav-toggle #[nil "\300 \203 \301 \207\302 \203 \303 \210\301 \207\304 \207" [nav-current-buffer-is-nav nav-unsplit-window-horizontally nav-left-neighbor-is-nav windmove-left nav] 1 (#$ . 23343) nil])
#@35 Starts Nav in the current window.
(defalias 'nav-in-place #[nil "\301\302!!\210\303 \210\304 \207" [nav-buffer-name switch-to-buffer generate-new-buffer-name nav-mode nav-refresh] 3 (#$ . 23585) nil])
#@59 Opens Nav in a new window to the left of the current one.
(defalias 'nav #[nil "\302 \303 \210\304 \210\305 !)\207" [default-directory nav-width nav-get-working-dir split-window-horizontally nav-in-place nav-set-window-width] 2 (#$ . 23793) nil])
(provide 'nav)