%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/
Current File : //usr/local/share/emacs/27.2/lisp/wdired.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\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&	\210\312\337\320\340\335\341\315\316\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" wdired-create-parent-directories "If non-nil, create parent directories of destination files.\nIf non-nil, when you rename a file to a destination path within a\nnonexistent directory, wdired will create any parent directories\nnecessary.  When nil, attempts to rename a file into a\nnonexistent directory will fail." "26.1"] 10)
#@31 Keymap used in `wdired-mode'.
(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) (#$ . 3935))
#@41 Hooks run when changing to WDired mode.
(defvar wdired-mode-hook nil (#$ . 5064))
#@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 "\300\301!\207" [error "This mode can be enabled only by `wdired-change-to-wdired-mode'"] 2 (#$ . 5153) 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 "\306\307!\204\n\310\311!\210\312\300!\210ed{\312\301!\210\313ed\"\312\302!\210`\312\303!\210\314\315\316\317\320B\321\322$\210\323\f!\210\324 \210\322\325,!\210\326\327\330\322\314$\210\326\331\332\322\314$\210\333-\334.\335/\336 \210\337 \2100\203c\340 \2101\203q\341\342!\203q\343 \210\344 \210\345\322!\210\3222\346\347!\210\350\351\352\353!\"\207" [wdired-old-content wdired-old-marks wdired-old-point query-replace-skip-read-only wdired-mode-map buffer-read-only derived-mode-p dired-mode error "Not a Dired buffer" make-local-variable dired-remember-marks t advice--add-function :after-while #[nil "\300\301!\207" [advice--buffer-local isearch-filter-predicate] 2] #[(gv--val) "\301\302\"\207" [gv--val advice--set-buffer-local isearch-filter-predicate] 3] wdired-isearch-filter-read-only nil use-local-map force-mode-line-update dired-unadvertise add-hook kill-buffer-hook wdired-check-kill-buffer after-change-functions wdired--restore-dired-filename-prop 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" default-directory major-mode mode-name revert-buffer-function wdired-allow-to-change-permissions wdired-allow-to-redirect-links buffer-undo-list] 5 (#$ . 6049) nil])
#@46 Skip matches that have a read-only property.
(defalias 'wdired-isearch-filter-read-only #[(beg end) "\302	^	]\303\304$?\207" [beg end text-property-not-all read-only nil] 5 (#$ . 7936)])
(defalias 'wdired-preprocess-files #[nil "\302eeT\303\304$\210\212eb\210`\305m\204L\306\305\304\"\211\203F\307!\310\235\204F\311 \210\312`S`\313\314BB#\210\302	`\315\304$\210\316\304!\302``T\317\304$\210\305y\210\202\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] 7])
(defalias 'wdired-normalize-filename #[(file unquotep) "\203\305\306\307\310\311	#\306Q!	\203$\n\203$\204$\f\204$\312	\n\"	\207" [unquotep file buffer-file-coding-system file-name-coding-system default-file-name-coding-system read "\"" replace-regexp-in-string "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" encode-coding-string] 6])
(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) "\306\211\211\212\307 \310 \210\311`\312\306	$\211	=\204c\203&\313\n\312\"\2021\311\n\314\"\315\nT	\"\203c?\f\203I\316\317\320\321\322#\317Q!\203`
\203`\204`\204`\323
\"*\204l\203p\202\205G\324V\205\325 P,\207" [file end beg old unquotep buffer-file-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 file-name-coding-system default-file-name-coding-system no-dir] 7 (#$ . 9037)])
#@32 Change the mode back to dired.
(defalias 'wdired-change-to-dired-mode #[nil "\306=\204\n\307\310!\210\311\312ed\313#\210)\314\315\316!\317\"\211\315\316!=\204'\320\316\n\"\210)\321!\210\322 \210\311\323\324\325 \210\326\327\330\311#\210\326\331\332\311#\210\333\334!\210\335\211\207" [major-mode inhibit-read-only #1=#:new dired-mode-map buffer-read-only mode-name wdired-mode error "Not a Wdired buffer" t remove-text-properties (front-sticky nil rear-nonsticky nil read-only nil keymap nil) advice--remove-function advice--buffer-local isearch-filter-predicate wdired-isearch-filter-read-only advice--set-buffer-local use-local-map force-mode-line-update dired-mode "Dired" dired-advertise remove-hook kill-buffer-hook wdired-check-kill-buffer after-change-functions wdired--restore-dired-filename-prop make-local-variable revert-buffer-function dired-revert] 5 (#$ . 10013)])
#@41 Abort changes and return to dired mode.
(defalias 'wdired-abort-changes #[nil "\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"] 2 (#$ . 10909) nil])
#@66 Actually rename files based on your editing in the Dired buffer.
(defalias 'wdired-finish-edit #[nil "\306\307\306\211\211\211\211\211\"#\212$\203)\310\311!\203)\312 \211A\"@#%\203G\313\314!\203G\315 \"A\\\"#\206E@#db\210o\204\262\316\306\317\"\211\203\254\316 \211\n\232\203e\317\202\254\317#	\204s\n
B\202\254&\203\244&\250\203\203&\202\222&\203\221\320\n'\"A\202\222\306\211(\203\243\321	!(B'B')\n\321	!B\fB\322y\210\202J)\f\203\277\"\323\f!\\\"\324 \210#\203\363);\203\344\325)!\204\344\204\344\fG\326U\203\344\f@A)\327 \210\317*\330'!\210)\202\317*\331ed\332#\210\333\334!\210)
\203	\335
!\210\"\307V\203\336\337\340\"\"\306\"\210.\341\306!\210\306\211+\207" [tmp-value file-new file-old some-file-names-unchanged files-renamed files-deleted 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 wdired-change-to-dired-mode 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] 9 (#$ . 11253) nil])
#@30 Perform RENAMES in parallel.
(defalias 'wdired-do-renames #[(renames) "\306\211\307?\206	\310
\204\f\211\306\211\203\317
\211A\242\211A\311
\"\2035\312\313!\210\202\313\314
\"\203E\fB\202\313\314\f\"\203\203\315!\203\203\204\\
\203d\fB\202\313\316\317!\210\320!@B
BB\fB)\202\313\321@\203\231\322\"\210\202\312\323\324!\210\3251\272\306 \203\256\326!\210\327	#)0\202\311!\nT\330\331!$)\210)*\202
\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 (error) wdired-create-parentdirs dired-rename-file dired-log "Rename `%s' to `%s' failed:\n%s\n" rename file-new tmp file-ori wdired-use-interactive-rename dired-backup-overwrite wdired-create-parent-directories err] 6 (#$ . 12806)])
#@61 Create parent directories for FILE-NEW if they don't exist.
(defalias 'wdired-create-parentdirs #[(file-new) "\301\302!!?\205\303\304\"\205\305\302!\306\"\207" [file-new file-exists-p file-name-directory message "Creating directory for file %s" make-directory t] 3 (#$ . 13807)])
#@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 "\301 \203\302\303\304p\"!\203\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)"] 4 (#$ . 14101) nil])
(defalias 'wdired-search-and-rename #[(filename-ori filename-new) "\212db\210\306y\210\307\310\307\n?\205So?\205S\311\307\310\"\211\232\203M\312\216\310\211\313 \210\314\311\310!\307\310#\210\315\316!\310\211#\210)\317\320\321\322\323
\307\310&\210\307)\202
\306y\210\202
,\207" [curr-filename failed done filename-ori inhibit-read-only filename-new -1 nil t wdired-get-filename #[nil "\205\301 \207" [failed wdired-change-to-dired-mode] 1] dired-move-to-filename search-forward replace-match file-name-nondirectory dired-do-create-files-regexp dired-rename-file "Move" 1 ".*"] 9])
(defalias 'wdired-flag-for-deletion #[(filenames-ori) "\212eb\210m?\205\301\302\303\"\235\203\304\305!\210\202\302y\210\202)\207" [filenames-ori dired-get-filename nil t dired-flag-file-deletion 1] 3])
#@27 Customize WDired options.
(defalias 'wdired-customize #[nil "\300\301\302\"\207" [customize-apropos "wdired" groups] 3 (#$ . 15484) 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) "\300 \210\301 \210\302 \207" [wdired-change-to-dired-mode revert-buffer wdired-change-to-wdired-mode] 1 (#$ . 15629)])
(defalias 'wdired-check-kill-buffer #[nil "\300 \205\301\302!?\205\303\304!\207" [buffer-modified-p y-or-n-p "Buffer changed. Discard changes and kill buffer? " error "Error"] 2])
(defalias 'wdired--restore-dired-filename-prop #[(beg end _len) "\306 \307\216\212\310 \311 \210\312\n	\313#\205L`\314\f\315\313#\203,\316\317!\203,\320\321	\313#\204<\322
\323\324#\203B\312\325	\313#\203B\326\224b\202C	\327\330\313$,\207" [save-match-data-internal lep directory-listing-before-filename-regexp beg dired-permission-flags-regexp dired-actual-switches match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] line-end-position beginning-of-line re-search-forward t re-search-backward nil looking-at "l" search-forward " -> " dired-check-switches "F" "classify" "[*/@|=>]$" 0 put-text-property dired-filename end] 5])
#@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) "\302!\210	\303=\204	\205i\212\304 \210i)W\205\304 \207" [arg wdired-use-dired-vertical-movement next-line t dired-move-to-filename] 2 (#$ . 16777) "^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) "\302!\210	\303=\204	\205i\212\304 \210i)W\205\304 \207" [arg wdired-use-dired-vertical-movement previous-line t dired-move-to-filename] 2 (#$ . 17160) "^p"])
(defalias 'wdired-preprocess-symlinks #[nil "\302\212eb\210m?\205F\303	!\203@\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\202*\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] 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) "\306\211\211\307`\310\306#\211\2030\203\311\nS\310\"\202(\312\n\313\"\314\nT	\"\f\2030\nSb\210\205i\315
\203J\316\317\320\321\322#\317Q!\203f\203f\204f\204f\323\"*+\207" [target end beg old move unquotep nil previous-single-property-change old-link get-text-property next-single-property-change end-link buffer-substring-no-properties t read "\"" replace-regexp-in-string "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" encode-coding-string file buffer-file-coding-system file-name-coding-system default-file-name-coding-system] 7 (#$ . 18000)])
(defalias 'wdired-do-symlink-changes #[nil "\306\307\306\211\211db\210\310 \211\203O\310\311\211\"\312\306\311\"	\n\232\204
\311	\313\232\203.\314\3151@\316!\210\317\320	!\"0\202KT\321\322	
$)\210\202
\f-B\207" [link-from link-to-new link-to-ori errors changes err nil 0 wdired-get-previous-link t wdired-get-filename "" "/dev/null" (error) delete-file make-symbolic-link substitute-in-file-name dired-log "Link `%s' to `%s' failed:\n%s\n"] 5])
(defalias 'wdired-xcase-word #[(command arg) "\302W\203\n	!\207\302V\2053\3031 	\304!\210S\2110\202/\210\305 \203,\306\307!\202/\302\211\210\202\n\207" [arg command 0 (error) 1 forward-word-strictly skip-syntax-forward "^w"] 2])
#@89 WDired version of `downcase-word'.
Like original function but it skips read-only words.
(defalias 'wdired-downcase-word #[(arg) "\301\302\"\207" [arg wdired-xcase-word downcase-word] 3 (#$ . 19447) "p"])
#@87 WDired version of `upcase-word'.
Like original function but it skips read-only words.
(defalias 'wdired-upcase-word #[(arg) "\301\302\"\207" [arg wdired-xcase-word upcase-word] 3 (#$ . 19658) "p"])
#@91 WDired version of `capitalize-word'.
Like original function but it skips read-only words.
(defalias 'wdired-capitalize-word #[(arg) "\301\302\"\207" [arg wdired-xcase-word capitalize-word] 3 (#$ . 19863) "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 "\306\307\301!\210\310\212eb\210m?\205t\311\n!\204k\312 \203k\313\314 \315#\203k\316\224\316\225	\2043i\317Z\320=\203L\321
\f\322\310$\210\321
S
\323\324$\210\202X\325
T\f\326\327BB#\210\321\f\211T\330\306$\210\321
\211T\331\332\316!$\210*\310y\210\333 \210\202\f*\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] 6])
(defalias 'wdired-perm-allowed-in-pos #[(char pos) "\302U\203\303\207\304U\203	\305\246\306U\207\307U\203 	\305\246\310U\207\311U\203,	\305\246\312U\207\313\267\202:	\314>\207	\315U\207\316U\205C	\317U\207" [char pos 45 t 114 3 0 119 1 120 2 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (115 50 83 50 116 54 84 54)) (2 5) 8 108 5] 2])
#@33 Set a permission bit character.
(defalias 'wdired-set-bit #[nil "\306i	Z\"\203=\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)] 6 (#$ . 21636) nil])
#@37 Toggle the permission bit at point.
(defalias 'wdired-toggle-bit #[nil "\305\306`iZZ`f\307=\203/iZ\310\246\311U\203\312\202.iZ\310\246\313U\203-\314\202.\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)] 6 (#$ . 22112) nil])
#@50 Toggle the permission bit that was left clicked.
(defalias 'wdired-mouse-toggle-bit #[(event) "\301!\210\302 \207" [event mouse-set-point wdired-toggle-bit] 2 (#$ . 22609) "e"])
(defalias 'wdired-perms-to-number #[(perms) "\303	\304\234\305U\203\306Z	\307\234\305U\203\310Z	\311\234\211\312>\203(\313Z\n\314>\2032\315\\)	\316\234\305U\203?\317Z	\320\234\305U\203K\321Z	\322\234\211\323>\203Y\324Z\n\325>\203c\326\\)	\327\234\305U\203p\316Z	\330\234\305U\203|\307Z	\331\234\211\332>\203\211S\n\333>\203\223\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] 3])
(defalias 'wdired-do-perm-changes #[nil "\306\307\310=\203\f\311\202
\312\306\211\211\211\313e
\306d$b\210m\204\204\314`\311\"\315`\313`\316\"\"\n\232\204x\317\320\306\317\"\nG\321U\203m\322\323\n!!\324\306\211\211	\f&\307\232\204xT\325\326	\f$\210\202xT\325\327\n\f#\210\313`T
\306d$b\210\202\".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 "%s %s `%s' failed\n\n" "Cannot parse permission `%s' for file `%s'\n\n" errors changes dired-chmod-program] 7])
(provide 'wdired)
Zerion Mini Shell 1.0