;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\"\210\305\306\307\310\311\301%\210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\320\321%\210\312\325\314\315\326DD\327\320\330%\210\312\331\314\315\332DD\333\320\321%\210\312\334\314\315\335DD\336\320\337%\210\312\340\314\315\341DD\342\320\343\344\345&\210\312\346\314\315\347DD\350\344\351\320\321&\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 funcall function #[0 "\300\207" [nil] 1 #1=""] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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\nThe real change of the permissions is done by the external\nprogram \"chmod\", 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 #[0 "\300\207" [t] 1 #1#] "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 #[0 "\300\207" [t] 1 #1#] "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"] 8)
#@31 Keymap used in `wdired-mode'.
(defvar wdired-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\303#\210\301
\305\306#\210\301
\307\306#\210\301
\310\311#\210\301
\312\313#\210\301
\314\313#\210\301
\315\313#\210\301
\316\317#\210\301
\320\317#\210\301
\321\322#\210\301
\323\322#\210\301
\324\325#\210\301
\326\327#\210\301
\330\331#\210\301
\332\333#\210\207" [make-sparse-keymap define-key "" wdired-finish-edit "" "" wdired-abort-changes "" "" wdired-exit "
" undefined "\n" "" [up] wdired-previous-line "" [down] wdired-next-line "" [remap upcase-word] wdired-upcase-word [remap capitalize-word] wdired-capitalize-word [remap downcase-word] wdired-downcase-word [remap self-insert-command] wdired--self-insert] 5) (#$ . 3804))
#@25 Menu for `wdired-mode'.
(defvar wdired-mode-menu nil (#$ . 4558))
(easy-menu-do-define 'wdired-mode-menu wdired-mode-map "Menu for `wdired-mode'." '("WDired" ["Commit Changes" wdired-finish-edit] ["Abort Changes" wdired-abort-changes :help "Abort changes and return to Dired mode"] "---" ["Options" wdired-customize]))
#@41 Hooks run when changing to WDired mode.
(defvar wdired-mode-hook nil (#$ . 4883))
#@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 #[0 "\300\301!\207" [error "This mode can be enabled only by `wdired-change-to-wdired-mode'"] 2 (#$ . 4972) 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 #[0 "\306\307!\204\n\310\311!\210\312\300!\210ed{\312\301!\210\313ed\"\312\302!\210`\314 \210\312\303!\210\315\316\317\320\321B\322\323$\210\324\f!\210\325 \210\323\326+!\210\327\330\331\323\315$\210\327\332\333\323\315$\210\327\334\335\323\315$\210\336,\337-\316\340\341\342B\343\323$\210\344\323!\210\323.\345\346!\210\347\350\351\352!\"\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 wdired--set-permission-bounds t advice--add-function :after-while #[0 "\300\301!\207" [advice--buffer-local isearch-filter-predicate] 2] #[257 "\300\301\"\207" [advice--set-buffer-local isearch-filter-predicate] 4 "\n\n(fn GV--VAL)"] wdired-isearch-filter-read-only nil use-local-map force-mode-line-update dired-unadvertise add-hook kill-buffer-hook wdired-check-kill-buffer before-change-functions wdired--before-change-fn after-change-functions wdired--restore-properties wdired-mode "Editable Dired" :override #[0 "\300\301!\207" [advice--buffer-local revert-buffer-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local revert-buffer-function] 4 "\n\n(fn GV--VAL)"] wdired-revert 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 buffer-undo-list] 5 (#$ . 5866) nil])
(defalias 'wdired--set-permission-bounds #[0 "\212eb\210\303\304\305\306$\204\307\301!\210\304\307\302!\210\304\211\2025\310\224b\210\307\301!\210\311 T\310\225b\210\307\302!\210\311 \211)\207" [dired-re-perms wdired--perm-beg wdired--perm-end re-search-forward nil t 1 make-local-variable 0 wdired--current-column] 5])
(defalias 'wdired--current-column #[0 "`\300 Z\207" [line-beginning-position] 2])
(defalias 'wdired--point-at-perms-p #[0 "\205\n\302\303 	#\207" [wdired--perm-beg wdired--perm-end <= wdired--current-column] 4])
(defalias 'wdired--line-preprocessed-p #[0 "\300\301 \302\"\207" [get-text-property line-beginning-position front-sticky] 3])
(defalias 'wdired--self-insert #[0 "\300 \203	\301\302!\207\303``\"\210\304`\305\"\301
\203\306\307 \"\206 \302!\207" [wdired--line-preprocessed-p call-interactively self-insert-command wdired--before-change-fn get-text-property keymap lookup-key this-command-keys] 5 nil nil])
(put 'wdired--self-insert 'delete-selection 'delete-selection-uses-region-p)
#@16 

(fn BEG END)
(defalias 'wdired--before-change-fn #[514 "\304 \305\306\"\216\212\214~\210
b\210\307 \262b\210\310y\210`W\203S\311 \204M\312 \313\211\313\305\314\"\216\315``T\316\313$\210\317 \210\203B\320 \210\321\322!\203K\323 \210,\210\324y\210\202m\205n\312 \313\211\313\305\325\"\216\315dSd\326\313$,\262
+\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks wdired-allow-to-change-permissions match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] line-end-position 0 wdired--line-preprocessed-p buffer-modified-p t #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] put-text-property front-sticky wdired--preprocess-files wdired--preprocess-perms fboundp make-symbolic-link wdired--preprocess-symlinks nil #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] read-only] 10 (#$ . 8783)])
#@60 Skip matches that have a read-only property.

(fn BEG END)
(defalias 'wdired-isearch-filter-read-only #[514 "\300^]\301\302$?\207" [text-property-not-all read-only nil] 7 (#$ . 9680)])
(defalias 'wdired--preprocess-files #[0 "\212\302\303\304#`\305\306\307\"\211\2038\310
!\311\235\2048\312 \210\313`S`\314\315BB#\210\316`\317\307$\210\320\307!\210\316``T\321\307$\210\203E\322\323!\203E\306u\210\212\324	\306\307#\205Z\322\325!\205Z\326\327\330 \307#)\205a\330 b\266\203)\207" [dired-actual-switches dired-permission-flags-regexp dired-check-switches "F" "classify" dired-get-filename nil t file-name-nondirectory ("." "..") dired-move-to-filename add-text-properties old-name (rear-nonsticky (read-only)) put-text-property read-only dired-move-to-end-of-filename end-name looking-at "[*/@|=>]$" re-search-backward "l" search-forward " -> " line-end-position] 9])
#@22 

(fn FILE UNQUOTEP)
(defalias 'wdired-normalize-filename #[514 "\211\203g\305\306\"\203\307\310\311\312\313%\262\202\314!\2039\315\305\316#\2038\307\317\311\312\313%\262\315\225S\262
\202\210	\320=\203_\321 \322\323\"\216\315\305\324#\203\\\315\224\325I\210\315\225\262
\202G\210)\210\326\327\327Q!\262
\203}\n\203}\204}\f\204}\330\n\"\262
\207" [dired-actual-switches system-type buffer-file-coding-system file-name-coding-system default-file-name-coding-system string-match "\\(?:[^\\]\\|\\`\\)\\(\"\\)" replace-match "\\\"" nil t 1 dired-switches-escape-p 0 "\\(\\\\\\) " "" windows-nt match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] "\\\\" 47 read "\"" encode-coding-string] 9 (#$ . 10566)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put wdired-normalize-filename speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@298 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.

(fn &optional NO-DIR OLD)
(defalias 'wdired-get-filename #[512 "\306\307\310#\311\211\211\312``\"\210\212\313 \262\314 \210\315`\316\311$\262=\204
\2030\317\316\"\262
\202\213\315\320\311$\262\212\321	\311\322#\205d\323\224b\205d\324\325!\205d\203^\n\203^\321\326\313 \322#\202d\327\330\313 \322#)\203o\323\224b\210`\262\203\204\212
b\210\331\332`S\")\203\204
S\262\333T\"\262
\211\203
\211?\211\203\371\334\335\"\203\251\336\337\311\322\340%\262\202\226\341!\203\313\323\334\342#\203\312\336\343\311\322\340%\262\323\225S\262
\202\260\210\344=\203\361\345 \346\347\"\216\323\334\350#\203\356\323\224\351I\210\323\225\262
\202\331\210)\210\352\353\353Q!\262
\203
\f\203

\204
/\204
\354\f\"\262
\266\202\262
\204
\203+
\203'
\355
!\202:
\211\202:
\211\205:
\211G\323V\205:
\356 
P)\207" [dired-actual-switches dired-permission-flags-regexp dired-ls-F-marks-symlinks system-type buffer-file-coding-system file-name-coding-system dired-check-switches "F" "classify" nil wdired--before-change-fn line-end-position beginning-of-line next-single-property-change old-name get-text-property end-name re-search-forward t 0 looking-at "l" "@? -> " search-forward " -> " looking-back "[*/@|=>]$" buffer-substring-no-properties string-match "\\(?:[^\\]\\|\\`\\)\\(\"\\)" replace-match "\\\"" 1 dired-switches-escape-p "\\(\\\\\\) " "" windows-nt match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] "\\\\" 47 read "\"" encode-coding-string file-relative-name dired-current-directory default-file-name-coding-system] 15 (#$ . 11489)])
#@32 Change the mode back to dired.
(defalias 'wdired-change-to-dired-mode #[0 "\305=\204\n\306\307!\210\310\311ed\312#\210)\313\314\315!\316\"\211\314\315!=\204&\317\315\"\210\210\320\n!\210\321 \210\310\322\323\324 \210\325\326\327\310#\210\325\330\331\310#\210\325\332\333\310#\210\313\314\334!\335\"\211\314\334!=?\205\\\317\334\"\207" [major-mode inhibit-read-only 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 before-change-functions wdired--before-change-fn after-change-functions wdired--restore-properties revert-buffer-function wdired-revert] 4 (#$ . 13385)])
#@43 Abort changes and return to `dired-mode'.
(defalias 'wdired-abort-changes #[0 "\304\305\306\307#\210\307\310 \210	c\210\nb\210)\311 \210\312\313!\210\313\314\315!\207" [inhibit-read-only wdired--old-content wdired--old-point buffer-undo-list remove-hook before-change-functions wdired--before-change-fn t erase-buffer wdired-change-to-dired-mode set-buffer-modified-p nil message "Changes aborted"] 4 (#$ . 14343) nil])
#@66 Actually rename files based on your editing in the Dired buffer.
(defalias 'wdired-finish-edit #[0 "\306\307\306\211\211\211\211\211\212\203\310\311!\203\312 \262
\211A\262\211@\262	\203;\n\203;\313 \262

A\\\262\2069\211@\262db\210o\204\247\314 \205K\315\306\316\"\262\203\241\315 \262
\232\203a\316\262\202\241\316\262
\204qB\262\202\241\203\230\250\203~\202\213\203\212\317\f\"A\202\213\306\211\203\227\320!
B\fB\210\320!BB\262\321y\210\202>)\203\265\322!\\\262\323 \210\203\345
;\203\327\324
!\204\327\204\327G\325U\203\327@A\326 \210\316!\327\f!\210)\202\366\316!\330ed\331#\210\332\333!\210\326 \210)\203\377\334!\210\307V\203
\335\336\337	\"\306\"\210\266\340\306!\210\306\211\"\207" [wdired-allow-to-redirect-links wdired-allow-to-change-permissions wdired--perm-beg wdired-keep-marker-rename wdired--old-marks dired-directory nil 0 fboundp make-symbolic-link wdired-do-symlink-changes wdired-do-perm-changes wdired--line-preprocessed-p 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 actions failed" set-buffer-modified-p inhibit-read-only buffer-undo-list] 12 (#$ . 14771) nil])
#@44 Perform RENAMES in parallel.

(fn RENAMES)
(defalias 'wdired-do-renames #[257 "\304\211\305GS\306\307\305#?\206\310\204#\211\262\304\262\304\262\203\352
GZ\304
\247\2036
@Y\205;\311#\266\211A\262\242\211A\312
\n\"\203V\313\314!\266\202\315
\n\"\203i
B\262\266\202\315
	\"\203\251\316
!\203\251\204\201\203\214
B\262\266\202\317\320!\210\321
!@
B\nB\262\n\211B	B\262	\266\202\322\262
@	\203\273\323
\"\266\202\324\325!\210\3261\332\304\203\315\327!\210\330
#)0\266\202T\262\331\332$\266\202\333!\210\207" [wdired-confirm-overwrite wdired-use-interactive-rename dired-backup-overwrite wdired-create-parent-directories nil 0 make-progress-reporter "Renaming" 1 progress-reporter-do-update 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" progress-reporter-done] 16 (#$ . 16269)])
#@76 Create parent directories for FILE-NEW if they don't exist.

(fn FILE-NEW)
(defalias 'wdired-create-parentdirs #[257 "\300\301!!?\205\302\303\"\205\304\301!\305\"\207" [file-exists-p file-name-directory message "Creating directory for file %s" make-directory t] 4 (#$ . 17381)])
#@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 #[0 "\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 (#$ . 17674) nil])
#@34 

(fn FILENAME-ORI FILENAME-NEW)
(defalias 'wdired-search-and-rename #[514 "\212db\210\301y\210\302\303C\302?\205Zo?\205Z\304\302\303\"\262
\211\232\203T\305\306\"\216\303\262\303\307 \210\310\304\303!\302\303#\210\311\312!\303\211#\210)\313\314\315\316\317\302\303&\210
\302\240\210)\202\301y\210\202\266\203)\207" [inhibit-read-only -1 nil t wdired-get-filename make-closure #[0 "\300\242\205\301 \207" [V0 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 ".*"] 13 (#$ . 18244)])
#@22 

(fn FILENAMES-ORI)
(defalias 'wdired-flag-for-deletion #[257 "\212eb\210m?\205\300\301\302\"
\235\203\303\304!\210\202\301y\210\202)\207" [dired-get-filename nil t dired-flag-file-deletion 1] 4 (#$ . 18865)])
#@27 Customize WDired options.
(defalias 'wdired-customize #[0 "\300\301\302\"\207" [customize-apropos "wdired" groups] 3 (#$ . 19090) nil])
#@133 Discard changes in the buffer and update it based on changes on disk.
Optional arguments are ignored.

(fn &optional ARG NOCONFIRM)
(defalias 'wdired-revert #[512 "\300 \210\301 \210\302 \207" [wdired-change-to-dired-mode revert-buffer wdired-change-to-wdired-mode] 3 (#$ . 19233)])
(defalias 'wdired-check-kill-buffer #[0 "\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])
#@20 

(fn BEG END LEN)
(defalias 'wdired--restore-properties #[771 "\304 \305\306\"\216\212\214~\210\307 \310\311\312#\212\313	\314\315#\210\316\317!)\203>\320`S\321\"\203>\320`\321\"\204>\320`\322\"\204>\323``T\322\315$\210\324 \210\325\n\315#\205\217`\262\313	\314\315#\203r\316\317!\203r\211\203j\203j\325\326\315#\202o\327\330\315#\204~\211\203\204\325\331\315#\203\204\332\224b\202\205
\262\323\321\315$\266\202+\207" [dired-actual-switches dired-permission-flags-regexp directory-listing-before-filename-regexp dired-ls-F-marks-symlinks match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] line-end-position dired-check-switches "F" "classify" re-search-backward nil t looking-at "l" get-text-property dired-filename end-name put-text-property beginning-of-line re-search-forward "@? -> " search-forward " -> " "[*/@|=>]$" 0] 11 (#$ . 19704)])
#@189 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.

(fn ARG)
(defalias 'wdired-next-line #[257 "\302\211
!\210	\303=\204	\205i\212\304 \210i)W\205\304 \207" [this-command wdired-use-dired-vertical-movement next-line t dired-move-to-filename] 4 (#$ . 20613) "^p"])
#@187 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.

(fn ARG)
(defalias 'wdired-previous-line #[257 "\302\211
!\210	\303=\204	\205i\212\304 \210i)W\205\304 \207" [this-command wdired-use-dired-vertical-movement previous-line t dired-move-to-filename] 4 (#$ . 21018) "^p"])
(defalias 'wdired--preprocess-symlinks #[0 "\212\302!\205.\303\304!\210\305\306\224S\306\224\307\310\306!$\210\305\306\225\306\225T\311\312$\210	?\205.\305\313\224\306\225\314\312$)\207" [dired-re-sym wdired-allow-to-redirect-links looking-at re-search-forward " -> \\(.*\\)$" put-text-property 1 old-link match-string-no-properties end-link t 0 read-only] 6])
#@121 Return the next symlink target.
If OLD, return the old target.  If MOVE, move point before it.

(fn &optional OLD MOVE)
(defalias 'wdired-get-previous-link #[512 "\305\211\211\306`\307\305#\262\203O\212b\210\310\311!\205\312\313\314 \")\203%T\262\2033\315S\307\"\262
\202G\212b\210\316\317\305\320 $)\262\321\"\262
\203OSb\210\211\205\325\211\322\211\203\274\323\324\"\203l\325\326\305\322\327%\262\202Y\330!\203\216\331\323\332#\203\215\325\333\305\322\327%\262\331\225S\262
\202s\210	\334=\203\264\335 \336\337\"\216\331\323\340#\203\261\331\224\341I\210\331\225\262
\202\234\210)\210\342\343\343Q!\262
\203\322\n\203\322\204\322\f\204\322\344\n\"\262
\266\202\207" [dired-actual-switches system-type buffer-file-coding-system file-name-coding-system default-file-name-coding-system nil previous-single-property-change old-link looking-at " " looking-back " ->" line-beginning-position get-text-property next-single-property-change end-link line-end-position buffer-substring-no-properties t string-match "\\(?:[^\\]\\|\\`\\)\\(\"\\)" replace-match "\\\"" 1 dired-switches-escape-p 0 "\\(\\\\\\) " "" windows-nt match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] "\\\\" 47 read "\"" encode-coding-string] 14 (#$ . 21793)])
(defalias 'wdired-do-symlink-changes #[0 "\300\301\300\211\211db\210\302 \211\262\203Q\302\303\211\"\262\304\300\303\"\262

\232\204\303\262
\305\232\203/\306 \262\3071B\310
!\210\311\312!\"0\210\202T\262\313\314$\266\202B\207" [nil 0 wdired-get-previous-link t wdired-get-filename "" null-device (error) delete-file make-symbolic-link substitute-in-file-name dired-log "Link `%s' to `%s' failed:\n%s\n"] 11])
#@20 

(fn COMMAND ARG)
(defalias 'wdired-xcase-word #[514 "\211\300W\203\n

!\207\211\300V\2055\3011\"
\302!\210\211S\211\2620\210\202\n\210\303 \203/\304\305!\210\202\n\300\262
\202\n\207" [0 (error) 1 forward-word-strictly skip-syntax-forward "^w"] 4 (#$ . 23542)])
#@99 WDired version of `downcase-word'.
Like original function but it skips read-only words.

(fn ARG)
(defalias 'wdired-downcase-word #[257 "\300\301\"\207" [wdired-xcase-word downcase-word] 4 (#$ . 23820) "p"])
#@97 WDired version of `upcase-word'.
Like original function but it skips read-only words.

(fn ARG)
(defalias 'wdired-upcase-word #[257 "\300\301\"\207" [wdired-xcase-word upcase-word] 4 (#$ . 24035) "p"])
#@101 WDired version of `capitalize-word'.
Like original function but it skips read-only words.

(fn ARG)
(defalias 'wdired-capitalize-word #[257 "\300\301\"\207" [wdired-xcase-word capitalize-word] 4 (#$ . 24245) "p"])
(defvar wdired-perm-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\305#\210\301
\307\305#\210\301
\310\305#\210\301
\311\305#\210\301
\312\305#\210\301
\313\305#\210\301
\314\305#\210\301
\312\305#\210\301
\315\305#\210\301
\316\317#\210\207" [make-sparse-keymap define-key " " wdired-toggle-bit "r" wdired-set-bit "w" "x" "-" "S" "s" "T" "t" "l" [mouse-1] wdired-mouse-toggle-bit] 5))
(defalias 'wdired--preprocess-perms #[0 "\212\304!?\205P\305 \205P\306	\307 \310#\205P\311\224\311\225\n\312=\2032\313\314\315$\210\313S\316\317$\210\202=\320T\321\322BB#\210\313
\211T\323\324$\210\313\211T\325\326\311!$\266\202)\207" [dired-re-sym dired-re-perms wdired-allow-to-change-permissions wdired-perm-mode-map looking-at wdired-get-filename re-search-forward line-end-position eol 0 advanced put-text-property read-only nil rear-nonsticky (read-only) add-text-properties keymap (rear-nonsticky (keymap)) end-perm t old-perm match-string-no-properties] 8])
#@17 

(fn CHAR POS)
(defalias 'wdired-perm-allowed-in-pos #[514 "
\300U\203\301\207
\302U\203\211\303\246\304U\207
\305U\203 \211\303\246\306U\207
\307U\203,\211\303\246\310U\207
\311\267\202:\211\312>\207\211\313U\207
\314U\205C\211\315U\207" [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] 4 (#$ . 25457)])
#@54 Set a permission bit character.

(fn &optional CHAR)
(defalias 'wdired-set-bit #[256 "\211\204\262
\303
\304 	Z\"\2035\305
!\306\307 	\\
\310\311\312\313`!$\210c\210\314\312!\210\315
S\316\306$)\207\312u\207" [last-command-event wdired--perm-beg inhibit-read-only wdired-perm-allowed-in-pos wdired--current-column char-to-string t line-beginning-position set-text-properties 0 1 text-properties-at delete-char put-text-property perm-changed] 9 (#$ . 25883) (list last-command-event)])
#@37 Toggle the permission bit at point.
(defalias 'wdired-toggle-bit #[0 "\301`f\302=\204\f\302\202+\303 Z\304\246\305U\203\306\202+\303 Z\304\246\307U\203*\310\202+\311!\207" [wdired--perm-beg wdired-set-bit 45 wdired--current-column 3 0 114 1 119 120] 3 (#$ . 26383) nil])
#@62 Toggle the permission bit that was left clicked.

(fn EVENT)
(defalias 'wdired-mouse-toggle-bit #[257 "\300
!\210\301 \207" [mouse-set-point wdired-toggle-bit] 3 (#$ . 26669) "e"])
#@14 

(fn PERMS)
(defalias 'wdired-perms-to-number #[257 "\300
\301\234\302U\203\f\303\262

\304\234\302U\203\211\305Z\262

\306\234\211\307>\203'
\310Z\262\211\311>\2032
\312\\\262\210
\313\234\302U\203@\211\314Z\262

\315\234\302U\203M\211\316Z\262

\317\234\211\320>\203[
\321Z\262\211\322>\203f
\323\\\262\210
\324\234\302U\203t\211\313Z\262

\321\234\302U\203\201\211\304Z\262

\325\234\211\326>\203\216
S\262\211\327>\203\231
\330\\\262\210\207" [511 1 45 255 2 128 3 (45 83) 64 (115 83) 2048 4 32 5 16 6 (45 83 108) 8 (115 83 108) 1024 7 9 (45 84) (116 84) 512] 5 (#$ . 26856)])
(defalias 'wdired-do-perm-changes #[0 "\301\302\303=\203\f\304\202
\305\301\211\211\306e\301d$b\210m\204t\307`\304\"\262\310`\306`\311\"\"\262


\232\204h\312\262\313\301\312\"\262\211G\314U\203^\3151P\316\317!\"0\210\202h\210T\262\320\321#\210\202hT\262\320\322#\210\306`T\301d$b\210\202B\207" [wdired-allow-to-change-permissions 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 (error) set-file-modes wdired-perms-to-number dired-log "Setting mode of `%s' to `%s' failed\n\n" "Cannot parse permission `%s' for file `%s'\n\n"] 11])
(provide 'wdired)