wdired.elc

;ELC
;;; Compiled by cyd@ulysses on Sat Dec 15 22:26:06 2012
;;; from file /home/cyd/emacs/lisp/wdired.el
;;; in Emacs version 24.2.91.1
;;; with all optimizations.
;;; Function definitions are lazy-loaded.

;;; 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\302\303\304\"\210\305\306\307\310\311\301%\210\312\313\307\314\315\316\311\306&\210\312\317\320\321\315\316\311\306&\210\312\322\307\323\315\324\311\306&\210\312\325\320\326\315\316\311\306&\210\312\327\307\330\315\331\311\306&\210\312\332\320\333\315\334\335\336\311\306&	\207" [require dired autoload dired-do-create-files-regexp "dired-aux" custom-declare-group wdired nil "Mode to rename files by editing their names in dired buffers." :group custom-declare-variable wdired-use-interactive-rename "If non-nil, WDired requires confirmation before actually renaming files.\nIf nil, WDired doesn't require confirmation to change the file names,\nand the variable `wdired-confirm-overwrite' controls whether it is ok\nto overwrite files without asking." :type boolean wdired-confirm-overwrite t "If nil the renames can overwrite files without asking.\nThis variable has no effect at all if `wdired-use-interactive-rename'\nis not nil." wdired-use-dired-vertical-movement "If t, the \"up\" and \"down\" movement works as in Dired mode.\nThat is, always move the point to the beginning of the filename at line.\n\nIf `sometimes', only move to the beginning of filename if the point is\nbefore it, and `track-eol' is non-nil.  This behavior is very handy\nwhen editing several filenames.\n\nIf nil, \"up\" and \"down\" movement is done as in any other buffer." (choice (const :tag "As in any other mode" nil) (const :tag "Smart cursor placement" sometimes) (other :tag "As in dired mode" t)) wdired-allow-to-redirect-links "If non-nil, the target of the symbolic links are editable.\nIn systems without symbolic links support, this variable has no effect\nat all." wdired-allow-to-change-permissions "If non-nil, the permissions bits of the files are editable.\n\nIf t, to change a single bit, put the cursor over it and press the\nspace bar, or left click over it.  You can also hit the letter you want\nto set: if this value is allowed, the character in the buffer will be\nchanged.  Anyway, the point is advanced one position, so, for example,\nyou can keep the <x> key pressed to give execution permissions to\neverybody to that file.\n\nIf `advanced', the bits are freely editable.  You can use\n`string-rectangle', `query-replace', etc.  You can put any value (even\nnewlines), but if you want your changes to be useful, you better put a\nintelligible value.\n\nAnyway, the real change of the permissions is done by the external\nprogram `dired-chmod-program', which must exist." (choice (const :tag "Not allowed" nil) (const :tag "Toggle/set bits" t) (other :tag "Bits freely editable" advanced)) wdired-keep-marker-rename "Controls marking of files renamed in WDired.\nIf t, files keep their previous marks when they are renamed.\nIf a character, renamed files (whether previously marked or not)\nare afterward marked with that character.\nThis option affects only files renamed by `wdired-finish-edit'.\nSee `dired-keep-marker-rename' if you want to do the same for files\nrenamed by `dired-do-rename' and `dired-do-rename-regexp'." (choice (const :tag "Keep" t) (character :tag "Mark" :value 82)) :version "24.3"] 10)
(defvar wdired-mode-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\307#\210\302\311\312#\210\302\313\314#\210\302\315\314#\210\302\316\314#\210\302\317\320#\210\302\321\320#\210\302\322\323#\210\302\324\323#\210\302\325\326\301\326!B#\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)\207" [map make-sparse-keymap define-key "" wdired-finish-edit "" "" wdired-abort-changes "" "" wdired-exit "
" ignore "\n" "" [up] wdired-previous-line "" [down] wdired-next-line "" [menu-bar wdired] "WDired" [menu-bar wdired wdired-customize] ("Options" . wdired-customize) [menu-bar wdired dashes] ("--") [menu-bar wdired wdired-abort-changes] (menu-item "Abort Changes" wdired-abort-changes :help "Abort changes and return to dired mode") [menu-bar wdired wdired-finish-edit] ("Commit Changes" . wdired-finish-edit) [remap upcase-word] wdired-upcase-word [remap capitalize-word] wdired-capitalize-word [remap downcase-word] wdired-downcase-word] 6))
#@41 Hooks run when changing to WDired mode.
(defvar wdired-mode-hook nil (#$ . 4780))
#@711 Writable Dired (WDired) mode.
\<wdired-mode-map>
In WDired mode, you can edit the names of the files in the
buffer, the target of the links, and the permission bits of the
files.

Type \[wdired-finish-edit] to exit WDired mode, returning to
Dired mode, and make your edits "take effect" by modifying the
file and directory names, link targets, and/or file permissions
on disk.  If you delete the filename of a file, it is flagged for
deletion in the Dired buffer.

Type \[wdired-abort-changes] to abort your edits and exit WDired mode.

Type \[customize-group] RET wdired to customize WDired behavior.

The only editable texts in a WDired buffer are filenames,
symbolic link targets, and filenames permission.
(defalias 'wdired-mode #[nil #@95 ("\300\301!\207" . [error "This mode can be enabled only by `wdired-change-to-wdired-mode'"])(#$ . 5614) nil 2 (#$ . 4869) nil])
(put 'wdired-mode 'mode-class 'special)
#@323 Put a Dired buffer in Writable Dired (WDired) mode.
\<wdired-mode-map>
In WDired mode, you can edit the names of the files in the
buffer, the target of the links, and the permission bits of the
files.  After typing \[wdired-finish-edit], Emacs modifies the files and
directories to reflect your edits.

See `wdired-mode'.
(defalias 'wdired-change-to-wdired-mode #[nil #@1213 ("\306=\204\n
0\307\310!\210\311\301!\210ed{\311\302!\210\312ed\"\311\303!\210`\311\304!\210\313\311\305!\210\314\315%!\210\316 \210\317&\320'!\210\321\322\323\317\313$\210\324\325(\326)\327 \210\330 \210*\203Z
0\331 \210+\203h
0\332\333!\203h
0\334 \210\335 \210\336\317!\210\317,\337\340!\210\341\342\343\344!\"\207" . [major-mode wdired-old-content wdired-old-marks wdired-old-point query-replace-skip-read-only isearch-filter-predicate dired-mode error "Not a Dired buffer" make-local-variable dired-remember-marks t wdired-isearch-filter-read-only use-local-map force-mode-line-update nil dired-unadvertise add-hook kill-buffer-hook wdired-check-kill-buffer wdired-mode "Editable Dired" wdired-revert buffer-disable-undo wdired-preprocess-files wdired-preprocess-perms fboundp make-symbolic-link wdired-preprocess-symlinks buffer-enable-undo set-buffer-modified-p run-mode-hooks wdired-mode-hook message "%s" substitute-command-keys "Press \\[wdired-finish-edit] when finished or \\[wdired-abort-changes] to abort changes" wdired-mode-map buffer-read-only default-directory mode-name revert-buffer-function wdired-allow-to-change-permissions wdired-allow-to-redirect-links buffer-undo-list])(#$ . 6166) nil 5 (#$ . 5790) nil])
#@46 Skip matches that have a read-only property.
(defalias 'wdired-isearch-filter-read-only #[(beg end) #@116 ("\302	\"\205
0\303	^	]\304\305$?\207" . [beg end isearch-filter-visible text-property-not-all read-only nil])(#$ . 7526) nil 5 (#$ . 7419)])
(defalias 'wdired-preprocess-files #[nil #@461 ("\302eeT\303\304$\210\212eb\210`\305m\204L
0\306\305\304\"\211\203F
0\307!\310\235\204F
0\311 \210\312`S`\313\314BB#\210\302	`\315\304$\210\316\304!\302``T\317\304$\210\305y\210\202
0\302	d\315\304$+\207" . [filename b-protection put-text-property front-sticky t nil dired-get-filename file-name-nondirectory ("." "..") dired-move-to-filename add-text-properties old-name (rear-nonsticky (read-only)) read-only dired-move-to-end-of-filename end-name])(#$ . 7720) nil 7])
(defalias 'wdired-normalize-filename #[(file) #@266 ("\304\305\306\307\310#\305Q!\211\203 
0	\203 
0\n\204 
0\204 
0\311	\"\207" . [file buffer-file-coding-system file-name-coding-system default-file-name-coding-system read "\"" replace-regexp-in-string "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" encode-coding-string])(#$ . 8252) nil 7])
(put 'wdired-normalize-filename 'byte-optimizer 'byte-compile-inline-expand)
#@271 Return the filename at line.
Similar to `dired-get-filename' but it doesn't rely on regexps.  It
relies on WDired buffer's properties.  Optional arg NO-DIR with value
non-nil means don't include directory.  Optional arg OLD with value
non-nil means return old filename.
(defalias 'wdired-get-filename #[(&optional no-dir old) #@630 ("\306\211\211\212\307 \310 \210\311`\312\306	$\211	=\204[
0\203&
0\313\n\312\"\2021
0\311\n\314\"\315\nT	\"\203[
0\316\317\320\321\322#\317Q!\211\203X
0\f\203X
0
\204X
0\204X
0\323\f\")\204d
0\203h
0\202w
0\205w
0G\324V\205w
0\325 P,\207" . [file end beg old buffer-file-coding-system file-name-coding-system nil line-end-position beginning-of-line next-single-property-change old-name get-text-property end-name buffer-substring-no-properties read "\"" replace-regexp-in-string "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" encode-coding-string 0 dired-current-directory default-file-name-coding-system no-dir])(#$ . 8953) nil 7 (#$ . 8620)])
#@32 Change the mode back to dired.
(defalias 'wdired-change-to-dired-mode #[nil #@530 ("\306=\204\n
0\307\310!\210\311\312ed\313#\210)\314\n!\210\315 \210\311\316\317\320 \210\321\322\323\311#\210\324\305!\210\325\211\207" . [major-mode inhibit-read-only dired-mode-map buffer-read-only mode-name revert-buffer-function wdired-mode error "Not a Wdired buffer" t remove-text-properties (front-sticky nil rear-nonsticky nil read-only nil keymap nil) use-local-map force-mode-line-update dired-mode "Dired" dired-advertise remove-hook kill-buffer-hook wdired-check-kill-buffer make-local-variable dired-revert])(#$ . 9702) nil 4 (#$ . 9619)])
#@41 Abort changes and return to dired mode.
(defalias 'wdired-abort-changes #[nil #@244 ("\304\305 \210	c\210\nb\210)\306 \210\307\310!\210\310\311\312!\207" . [inhibit-read-only wdired-old-content wdired-old-point buffer-undo-list t erase-buffer wdired-change-to-dired-mode set-buffer-modified-p nil message "Changes aborted"])(#$ . 10353) nil 2 (#$ . 10268) nil])
#@66 Actually rename files based on your editing in the Dired buffer.
(defalias 'wdired-finish-edit #[nil #@1458 ("\306 \210\307\310\307\211\211\211\211\211\"#\212$\203,
0\311\312!\203,
0\313 \211A\"@#%\203J
0\314\315!\203J
0\316 \"A\\\"#\206H
0@#db\210o\204\265
0\317\307\320\"\211\203\257
0\317 \211\n\232\203h
0\320\202\257
0\320#	\204v
0\n
B\202\257
0&\203\247
0&\250\203\206
0&\202\225
0&\203\224
0\321\n'\"A\202\225
0\307\211(\203\246
0\322	!(B'B')\n\322	!B\fB\323y\210\202M
0)\f\203\302
0\"\324\f!\\\"#\203\363
0);\203\344
0\325)!\204\344
0\204\344
0\fG\326U\203\344
0\f@A)\327 \210\320*\330'!\210)\202



\320*\331ed\332#\210\333\334!\210)
\203	

\335
!\210\"\310V\203

\336\337\340\"\"\307\"\210.\341\307!\210\307\211+\207" . [tmp-value file-new file-old some-file-names-unchanged files-renamed files-deleted wdired-change-to-dired-mode nil 0 fboundp make-symbolic-link wdired-do-symlink-changes boundp wdired-col-perm wdired-do-perm-changes wdired-get-filename t assoc substitute-in-file-name -1 wdired-do-renames file-directory-p 1 revert-buffer dired-mark-remembered remove-text-properties (old-name nil end-name nil old-link nil end-link nil end-perm nil old-perm nil perm-changed nil) message "(No changes to be performed)" wdired-flag-for-deletion dired-log-summary format "%d rename actions failed" set-buffer-modified-p errors changes wdired-allow-to-redirect-links wdired-allow-to-change-permissions wdired-keep-marker-rename wdired-old-marks mark dired-directory inhibit-read-only buffer-undo-list])(#$ . 10748) nil 9 (#$ . 10639) nil])
#@30 Perform RENAMES in parallel.
(defalias 'wdired-do-renames #[(renames) #@967 ("\306\211\307?\206	
0\310
\204
0\f\211\306\211\203\247
0
\211A@\211A\311
\"\2035
0\312\313!\210\202\243
0\314
\"\203E
0\fB\202\243
0\314\f\"\203\203
0\315!\203\203
0\204\\
0
\203d
0\fB\202\243
0\316\317!\210\320!@B
BB\fB)\202\243
0\321@\203\231
0\322\"\210\202\242
0\323\324!\210\325\326\327\217\210)*\202

0\n,\207" . [wdired-confirm-overwrite overwrite errors progress residue renames nil 0 1 rassoc error "Trying to rename 2 files to the same name" assoc file-exists-p message "Circular renaming: using temporary file name" make-temp-name t wdired-search-and-rename require dired-aux err (byte-code "\304\305	\n#\210)\304\207" [dired-backup-overwrite file-ori file-new overwrite nil dired-rename-file] 4) ((error (byte-code "T\304\305	\306\n\307\260\"\207" [errors file-ori file-new err dired-log "Rename `" "' to `" "' failed:\n%s\n"] 6))) rename file-new tmp file-ori wdired-use-interactive-rename])(#$ . 12325) nil 5 (#$ . 12248)])
#@199 Exit wdired and return to dired mode.
Just return to dired mode if there are no changes.  Otherwise,
ask a yes-or-no question whether to save or cancel changes,
and proceed depending on the answer.
(defalias 'wdired-exit #[nil #@325 ("\301 \203
0\302\303\304p\"!\203
0\305 \207\306 \207\307 \210\310\311!\210\311\312\313!\207" . [buffer-undo-list buffer-modified-p y-or-n-p format "Buffer %s modified; save changes? " wdired-finish-edit wdired-abort-changes wdired-change-to-dired-mode set-buffer-modified-p nil message "(No changes need to be saved)"])(#$ . 13565) nil 4 (#$ . 13331) nil])
(defalias 'wdired-search-and-rename #[(filename-ori filename-new) #@451 ("\212db\210\305y\210\306\211	?\205L
0o?\205L
0\307\306\310\"\211\n\232\203F
0\310\211\311 \210\312\307\310!\306\310#\210\313\314\n!\310\211#\210)\315\316\317\320\321\f\306\310&\210\202
0\305y\210\202
0+\207" . [curr-filename done filename-ori inhibit-read-only filename-new -1 nil wdired-get-filename t dired-move-to-filename search-forward replace-match file-name-nondirectory dired-do-create-files-regexp dired-rename-file "Move" 1 ".*"])(#$ . 13999) nil 9])
(defalias 'wdired-flag-for-deletion #[(filenames-ori) #@163 ("\212eb\210m?\205
_
0\301\302\303\"\235\203
0\304\305!\210\202
0\302y\210\202
0)\207" . [filenames-ori dired-get-filename nil t dired-flag-file-deletion 1])(#$ . 14530) nil 3])
#@27 Customize WDired options.
(defalias 'wdired-customize #[nil #@62 ("\300\301\302\"\207" . [customize-apropos "wdired" groups])(#$ . 14784) nil 3 (#$ . 14718) nil])
#@103 Discard changes in the buffer and update it based on changes on disk.
Optional arguments are ignored.
(defalias 'wdired-revert #[(&optional _arg _noconfirm) #@108 ("\300 \210\301 \210\302 \207" . [wdired-change-to-dired-mode revert-buffer wdired-change-to-wdired-mode])(#$ . 15053) nil 1 (#$ . 14889)])
(defalias 'wdired-check-kill-buffer #[nil #@145 ("\300 \205
0\301\302!?\205
0\303\304!\207" . [buffer-modified-p y-or-n-p "Buffer changed. Discard changes and kill buffer? " error "Error"])(#$ . 15242) nil 2])
#@179 Move down lines then position at filename or the current column.
See `wdired-use-dired-vertical-movement'.  Optional prefix ARG
says how many lines to move; default is one line.
(defalias 'wdired-next-line #[(arg) #@148 ("\302!\210	\303=\204
0	\205
0i\212\304 \210i)W\205
0\304 \207" . [arg wdired-use-dired-vertical-movement next-line t dired-move-to-filename])(#$ . 15634) nil 2 (#$ . 15413) "p"])
#@177 Move up lines then position at filename or the current column.
See `wdired-use-dired-vertical-movement'.  Optional prefix ARG
says how many lines to move; default is one line.
(defalias 'wdired-previous-line #[(arg) #@152 ("\302!\210	\303=\204
0	\205
0i\212\304 \210i)W\205
0\304 \207" . [arg wdired-use-dired-vertical-movement previous-line t dired-move-to-filename])(#$ . 16048) nil 2 (#$ . 15825) "p"])
(defalias 'wdired-preprocess-symlinks #[nil #@439 ("\302\212eb\210m?\205I
0\303	!\203@
0\304\305!\210\306\307\224\310Z\307\224S\311\312\307!$\210\306\307\225\307\225T\313\302$\210\306\307\224S\307\224\314\315$\210\306\307\224\307\225\316\317$\210\317y\210\320 \210\202
0*\207" . [inhibit-read-only dired-re-sym t looking-at re-search-forward " -> \\(.*\\)$" put-text-property 1 2 old-link match-string-no-properties end-link rear-nonsticky (read-only) read-only nil beginning-of-line])(#$ . 16287) nil 6])
#@96 Return the next symlink target.
If OLD, return the old target.  If MOVE, move point before it.
(defalias 'wdired-get-previous-link #[(&optional old move) #@548 ("\306\211\211\307`\310\306#\211\2030
0\203
0\311\nS\310\"\202(
0\312\n\313\"\314\nT	\"\f\2030
0\nSb\210\205\\
0\315\316\317\320\321
#\316Q!\211\203Z
0\203Z
0\204Z
0\204Z
0\322
\"
)+\207" . [target end beg old move file nil previous-single-property-change old-link get-text-property next-single-property-change end-link buffer-substring-no-properties read "\"" replace-regexp-in-string "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" encode-coding-string buffer-file-coding-system file-name-coding-system default-file-name-coding-system])(#$ . 16912) nil 7 (#$ . 16751)])
(defalias 'wdired-do-symlink-changes #[nil #@550 ("\305\306\305\211\211db\210\307 \211\2036
0\307\310\211\"\311\305\310\"	\n\232\204

0\310	\312\232\203.
0\313\314\315\316\217\210\202

0\f-B\207" . [link-from link-to-new link-to-ori errors changes nil 0 wdired-get-previous-link t wdired-get-filename "" "/dev/null" err (byte-code "\302!\210\303\304	!\"\207" [link-from link-to-new delete-file make-symbolic-link substitute-in-file-name] 3) ((error (byte-code "T\304\305	\306\n\307\260\"\207" [errors link-from link-to-new err dired-log "Link `" "' to `" "' failed:\n%s\n"] 6)))])(#$ . 17542) nil 5])
(defalias 'wdired-xcase-word #[(command arg) #@258 ("\302W\203\n
0	!\207\302V\205
0\303\304\305\217\210\202\n
0\207" . [arg command 0 nil (byte-code "\302!\210	S\302\207" [command arg 1] 2) ((error (byte-code "\301v\203\f
0\302\303!\210\202
0\304\301\207" [arg nil skip-syntax-forward "^w" 0] 2)))])(#$ . 18163) nil 3])
#@89 WDired version of `downcase-word'.
Like original function but it skips read-only words.
(defalias 'wdired-downcase-word #[(arg) #@61 ("\301\302\"\207" . [arg wdired-xcase-word downcase-word])(#$ . 18580) nil 3 (#$ . 18446) "p"])
#@87 WDired version of `upcase-word'.
Like original function but it skips read-only words.
(defalias 'wdired-upcase-word #[(arg) #@59 ("\301\302\"\207" . [arg wdired-xcase-word upcase-word])(#$ . 18813) nil 3 (#$ . 18683) "p"])
#@91 WDired version of `capitalize-word'.
Like original function but it skips read-only words.
(defalias 'wdired-capitalize-word #[(arg) #@63 ("\301\302\"\207" . [arg wdired-xcase-word capitalize-word])(#$ . 19052) nil 3 (#$ . 18914) "p"])
(defvar wdired-perm-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\306#\210\302\311\306#\210\302\312\306#\210\302\313\306#\210\302\314\306#\210\302\315\306#\210\302\313\306#\210\302\316\306#\210\302\317\320#\210)\207" [map make-sparse-keymap define-key " " wdired-toggle-bit "r" wdired-set-bit "w" "x" "-" "S" "s" "T" "t" "l" [down-mouse-1] wdired-mouse-toggle-bit] 4))
(defalias 'wdired-preprocess-perms #[nil #@712 ("\306\307\301!\210\310\212eb\210m?\205t
0\311\n!\204k
0\312 \203k
0\313\314 \315#\203k
0\316\224\316\225	\2043
0i\317Z\320=\203L
0\321
\f\322\310$\210\321
S
\323\324$\210\202X
0\325
T\f\326\327BB#\210\321\f\211T\330\306$\210\321
\211T\331\332\316!$\210*\310y\210\333 \210\202\f
0*\207" . [inhibit-read-only wdired-col-perm dired-re-sym dired-re-perms end begin t make-local-variable nil looking-at wdired-get-filename re-search-forward line-end-position eol 0 9 advanced put-text-property read-only rear-nonsticky (read-only) add-text-properties keymap (rear-nonsticky (keymap)) end-perm old-perm match-string-no-properties beginning-of-line wdired-allow-to-change-permissions wdired-perm-mode-map])(#$ . 19622) nil 6])
(defalias 'wdired-perm-allowed-in-pos #[(char pos) #@259 ("\302U\203
0\303\207\304U\203
0	\305\246\306U\207\307U\203 
0	\305\246\310U\207\311U\203,
0	\305\246\312U\207\313>\2036
0	\314>\207\315>\203@
0	\316U\207\317U\205I
0	\320U\207" . [char pos 45 t 114 3 0 119 1 120 2 (115 83) (2 5) (116 84) 8 108 5])(#$ . 20411) nil 2])
#@33 Set a permission bit character.
(defalias 'wdired-set-bit #[nil #@391 ("\306i	Z\"\203=
0\307!\310`i	ZZ\311\312\313\314
\f%\210\311\312\313\315\310\f%\210\fc\210\316\313!\210\311\nS\n\317\310$\210\311`S`\320\321$+\207\313u\207" . [last-command-event wdired-col-perm pos-prop inhibit-read-only new-bit wdired-perm-mode-map wdired-perm-allowed-in-pos char-to-string t put-text-property 0 1 keymap read-only delete-char perm-changed rear-nonsticky (keymap)])(#$ . 20766) nil 6 (#$ . 20695) nil])
#@37 Toggle the permission bit at point.
(defalias 'wdired-toggle-bit #[nil #@410 ("\305\306`iZZ`f\307=\203/
0iZ\310\246\311U\203
_
0\312\202.
0iZ\310\246\313U\203-
0\314\202.
0\315\316\311\313\317\f\n%\210\316\311\313\320\305\n%\210\nc\210\321\313!\210\316	S	\322\305$\210\316`S`\323\324$+\207" . [wdired-col-perm pos-prop new-bit inhibit-read-only wdired-perm-mode-map t "-" 45 3 0 "r" 1 "w" "x" put-text-property keymap read-only delete-char perm-changed rear-nonsticky (keymap)])(#$ . 21277) nil 6 (#$ . 21199) nil])
#@50 Toggle the permission bit that was left clicked.
(defalias 'wdired-mouse-toggle-bit #[(event) #@69 ("\301!\210\302 \207" . [event mouse-set-point wdired-toggle-bit])(#$ . 21829) nil 2 (#$ . 21729) "e"])
(defalias 'wdired-perms-to-number #[(perms) #@497 ("\303	\304\234\305U\203
0\306Z	\307\234\305U\203
0\310Z	\311\234\211\312>\203(
0\313Z\n\314>\2032
0\315\\)	\316\234\305U\203?
0\317Z	\320\234\305U\203K
0\321Z	\322\234\211\323>\203Y
0\324Z\n\325>\203c
0\326\\)	\327\234\305U\203p
0\316Z	\330\234\305U\203|
0\307Z	\331\234\211\332>\203\211
0S\n\333>\203\223
0\334\\))\207" . [nperm perms p-bit 777 1 45 400 2 200 3 (45 83) 100 (115 83) 4000 4 40 5 20 6 (45 83 108) 10 (115 83 108) 2000 7 8 9 (45 84) (116 84) 1000])(#$ . 21985) nil 3])
(defalias 'wdired-do-perm-changes #[nil #@759 ("\306\307\310=\203\f
0\311\202

0\312\306\211\211\211\313e
\306d$b\210m\204\214
0\314`\311\"\315`\313`\316\"\"\n\232\204\200
0\317\320\306\317\"\nG\321U\203q
0\322\323\n!!\324\306\211\211	\f&\307\232\204\200
0T\325\326	\327\f\330\260!\210\202\200
0T\325\331\n\332\f\333\260!\210\313`T
\306d$b\210\202\"
0.B\207" . [wdired-allow-to-change-permissions perm-tmp perms-new perms-ori filename prop-wanted nil 0 advanced old-perm perm-changed next-single-property-change get-text-property buffer-substring-no-properties end-perm t wdired-get-filename 10 int-to-string wdired-perms-to-number process-file dired-log " " " `" "' failed\n\n" "Cannot parse permission `" "' for file `" "'\n\n" errors changes dired-chmod-program])(#$ . 22548) nil 7])
(provide 'wdired)