;ELC   
;;; compiled by jwz@thalidomide on Sun May 15 00:45:48 1994
;;; from file /th/jwz/emacs19/lisp/prim/files.el
;;; emacs version 19.10 Lucid (beta23).
;;; bytecomp version 2.24; 26-Apr-94.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(defconst make-backup-files (byte-code "ء=?‡" [system-type vax-vms] 2) "\
*Non-nil means make a backup of a file the first time it is saved.
This can be done by renaming the file or by copying.

Renaming means that Emacs renames the existing file so that it is a
backup file, then writes the buffer into a new file.  Any other names
that the old file had will now refer to the backup file.  The new file
is owned by you and its group is defaulted.

Copying means that Emacs copies the existing file into the backup
file, then writes the buffer on top of the existing file.  Any other
names that the old file had will now refer to the new (edited) file.
The file's owner and group are unchanged.

The choice of renaming or copying is controlled by the variables
`backup-by-copying', `backup-by-copying-when-linked' and
`backup-by-copying-when-mismatch'.  See also `backup-inhibited'.")
(defvar backup-inhibited nil "\
Non-nil means don't make a backup, regardless of the other parameters.
This variable is intended for use by making it local to a buffer.
But it is local only if you make it local.")
(put 'backup-inhibited 'permanent-local t)
(defconst backup-by-copying nil "\
*Non-nil means always use copying to create backup files.
See documentation of variable `make-backup-files'.")
(defconst backup-by-copying-when-linked nil "\
*Non-nil means use copying to create backups for files with multiple names.
This causes the alternate names to refer to the latest version as edited.
This variable is relevant only if `backup-by-copying' is nil.")
(defconst backup-by-copying-when-mismatch nil "\
*Non-nil means create backups by copying if this preserves owner or group.
Renaming may still be used (subject to control of other variables)
when it would not result in changing the owner or group of the file;
that is, for files which are owned by you and whose group matches
the default for a new file created there by you.
This variable is relevant only if `backup-by-copying' is nil.")
(defvar backup-enable-predicate '(lambda (name) (or (< (length name) 5) (not (string-equal "/tmp/" (substring name 0 5))))) "\
Predicate that looks at a file name and decides whether to make backups.
Called with an absolute file name as argument, it returns t to enable backup.")
(defconst buffer-offer-save nil "\
*Non-nil in a buffer means offer to save the buffer on exit
even if the buffer is not visiting a file.
Automatically local in all buffers.")
(make-variable-buffer-local 'buffer-offer-save)
(defvar buffer-file-number nil "\
The device number and file number of the file visited in the current buffer.
The value is a list of the form (FILENUM DEVNUM).
This pair of numbers uniquely identifies the file.
If the buffer is visiting a new file, the value is nil.")
(byte-code "ہء!ˆآءأؤ#‡" [make-variable-buffer-local buffer-file-number put permanent-local t] 4)
(defconst file-precious-flag nil "\
*Non-nil means protect against I/O errors while saving files.
Some modes set this non-nil in particular buffers.")
(defvar version-control nil "\
*Control use of version numbers for backup files.
t means make numeric backup versions unconditionally.
nil means make them for files that have some already.
`never' means do not make them.")
(defvar dired-kept-versions 2 "\
*When cleaning directory, number of versions to keep.")
(defvar trim-versions-without-asking nil "\
*If t, deletes excess backup versions silently.
If nil, asks confirmation.  Any other value prevents any trimming.")
(defvar kept-old-versions 2 "\
*Number of oldest versions to keep when a new numbered backup is made.")
(defvar kept-new-versions 2 "\
*Number of newest versions to keep when a new numbered backup is made.
Includes the new backup.  Must be > 0")
(defconst require-final-newline nil "\
*Value of t says silently ensure a file ends in a newline when it is saved.
Non-nil but not t says ask user whether to add a newline when there isn't one.
nil means don't add newlines.")
(defconst auto-save-default t "\
*Non-nil says by default do auto-saving of every file-visiting buffer.")
(defconst auto-save-visited-file-name nil "\
*Non-nil says auto-save a buffer in the file it is visiting, when practical.
Normally auto-save files are written under other names.")
(defconst save-abbrevs nil "\
*Non-nil means save word abbrevs too when files are saved.
Loading an abbrev file sets this to t.")
(defconst find-file-run-dired t "\
*Non-nil says run dired if `find-file' is given the name of a directory.")
(defvar find-file-not-found-hooks nil "\
List of functions to be called for `find-file' on nonexistent file.
These functions are called as soon as the error is detected.
`buffer-file-name' is already set up.
The functions are called in the order given until one of them returns non-nil.")
(defvar find-file-hooks nil "\
List of functions to be called after a buffer is loaded from a file.
The buffer's local variables (if any) will have been processed before the
functions are called.")
(defvar write-file-hooks nil "\
List of functions to be called before writing out a buffer to a file.
If one of them returns non-nil, the file is considered already written
and the rest are not called.
These hooks are considered to pertain to the visited file.
So this list is cleared if you change the visited file name.
See also `write-contents-hooks' and `continue-save-buffer'.
Don't make this variable buffer-local; instead, use `local-write-file-hooks'.")
(put 'write-file-hooks 'permanent-local t)
(defvar local-write-file-hooks nil "\
Just like `write-file-hooks', except intended for per-buffer use.
The functions in this list are called before the ones in
`write-file-hooks'.")
(byte-code "ہء!ˆآءأؤ#ˆآإأؤ#‡" [make-variable-buffer-local local-write-file-hooks put permanent-local t after-save-hook] 4)
(defvar after-save-hook nil "\
List of functions to be called after writing out a buffer to a file.
These hooks are considered to pertain to the visited file.
So this list is cleared if you change the visited file name.")
(put 'after-write-file-hooks 'permanent-local t)
(defvar after-write-file-hooks nil "\
This variable is obsolete, though supported temporarily; you should use
the variable `after-save-hook' instead.")
(put 'after-set-visited-file-name-hooks 'permanent-local t)
(defvar after-set-visited-file-name-hooks nil "\
List of functions to be called after \\[set-visited-file-name]
or during \\[write-file].
You can use this hook to restore local values of write-file-hooks,
after-write-file-hooks, and revert-buffer-function, which pertain
to a specific file and therefore are normally killed by a rename.
Put hooks pertaining to the buffer contents on write-contents-hooks
and revert-buffer-insert-file-contents-function.")
(defvar write-contents-hooks nil "\
List of functions to be called before writing out a buffer to a file.
If one of them returns non-nil, the file is considered already written
and the rest are not called.
These hooks are considered to pertain to the buffer's contents,
not to the particular visited file; thus, `set-visited-file-name' does
not clear this variable, but changing the major mode does clear it.
See also `write-file-hooks' and `continue-save-buffer'.")
(put 'write-file-data-hooks 'permanent-local t)
(defvar write-file-data-hooks nil "\
List of functions to be called to put the bytes on disk.  
These functions receive the name of the file to write to as argument.
The default behavior is to call 
  (write-region (point-min) (point-max) filename nil t)
If one of them returns non-nil, the file is considered already written
and the rest are not called.
These hooks are considered to pertain to the visited file.
So this list is cleared if you change the visited file name.
See also `write-file-hooks'.")
(defconst enable-local-variables t "\
*Control use of local-variables lists in files you visit.
The value can be t, nil or something else.
A value of t means local-variables lists are obeyed;
nil means they are ignored; anything else means query.

The command \\[normal-mode] always obeys local-variables lists
and ignores this variable.")
(defconst enable-local-eval 'maybe "\
*Control processing of the \"variable\" `eval' in a file's local variables.
The value can be t, nil or something else.
A value of t means obey `eval' variables;
nil means ignore them; anything else means query.

The command \\[normal-mode] always obeys local-variables lists
and ignores this variable.")
(byte-code "ہء!¬…آءأ\"ˆہؤ!¬…آؤأ\"ˆہ‡" [fboundp lock-buffer defalias ignore unlock-buffer] 3)
(fset 'pwd #[nil "ہء\n\"‡" [message "Directory %s" default-directory] 3 "\
Show the current default directory." nil])
(defvar cd-path nil "\
Value of the CDPATH environment variable, as a list.
Not actually set up until the first time you you use it.")
(fset 'parse-colon-path #[(cd-path) "­­ءآءئPائ#‰«کU?­ˆبةO!!C¤ت\\ھ_+‡" [cd-path nil 0 cd-colon cd-start cd-list ":" string-match substitute-in-file-name file-name-as-directory 1] 6 "\
Explode a colon-separated list of paths into a string list."])
(fset 'cd-absolute #[(dir) "ہء\n!!ؤ=¬„إ\n!ئ\n!¬…اب\n\"‡\n‰	‡" [abbreviate-file-name expand-file-name dir system-type vax-vms file-name-as-directory file-directory-p error "%s is not a directory" default-directory] 3 "\
Change current directory to given absolute file name DIR."])
(fset 'cd #[(dir) "ہ	!«†آأ	!!‡¬ژإئا!!‰®‚ةC)تثچ®گجڑ«‡حخأ	!\"‡حد	\"‡" [file-name-absolute-p dir cd-absolute expand-file-name cd-path parse-colon-path getenv "CDPATH" trypath "./" found (byte-code "ہء\n\"ˆأ‡" [mapcar #[(x) "ہ	\nP!ؤ!­ˆإ!ˆئاب\")‡" [expand-file-name x dir f file-directory-p cd-absolute throw found t] 3] cd-path nil] 3) ("./") error "No such directory: %s" "Directory not found in $CDPATH: %s"] 5 "\
Make DIR become the current buffer's default directory.
If your environment includes a `CDPATH' variable, try each one of that
colon-separated list of directories when resolving a relative directory name." "DChange default directory: "])
(fset 'load-file #[(file) "ہء\n!أ‰ؤ$‡" [load expand-file-name file nil t] 5 "\
Load the Lisp file named FILE." "fLoad file: "])
(fset 'load-library #[(library) "ہ	!‡" [load library] 2 "\
Load the library named LIBRARY.
This is an interface to the function `load'." "sLoad library: "])
(fset 'file-local-copy #[(file &optional buffer) "ہ	آ\"‰­„آ	\")‡" [find-file-name-handler file file-local-copy handler] 4 "\
Copy the file FILE into a temporary file on this machine.
Returns the name of the local copy, or nil, if FILE is directly
accessible."])
(fset 'file-chase-links #[(filename) "ہء\nئ!‰«±اU«…بة\n\"ˆتث\"«•جہOحخدذخد!!!!!!ھeرد!\"SھH+‡" [nil 100 filename newname count tem file-symlink-p 0 error "Apparent cycle of symbolic links for %s" string-match "\\.\\./" 3 file-name-as-directory directory-file-name file-name-directory file-chase-links expand-file-name] 7 "\
Chase links in FILENAME until a name that is not a link.
Does not examine containing directories for links,
unlike `file-truename'."])
(fset 'switch-to-other-buffer #[(arg) "ء=«„آp!ˆأؤX«…إp!ھ…Tئ 8!‡" [arg 0 bury-buffer switch-to-buffer 1 other-buffer buffer-list] 3 "\
Switch to the previous buffer.  With a numeric arg, n, switch to the nth
most recent buffer.  With an arg of 0, buries the current buffer at the
bottom of the buffer stack." "p"])
(fset 'switch-to-buffer-other-window #[(buffer) "ہآہؤ #)‡" [t pop-up-windows pop-to-buffer buffer selected-screen] 4 "\
Select buffer BUFFER in another window." "BSwitch to buffer in other window: "])
(fset 'switch-to-buffer-other-screen #[(buffer) "ہ	!أ\n­†آؤ\n!BC!ئ	ا#ˆب!ˆ	*‡" [get-screen-name-for-buffer buffer name make-screen symbol-name screen pop-to-buffer t make-screen-visible] 4 "\
Switch to buffer BUFFER in a newly-created screen." "BSwitch to buffer in other screen: "])
(fset 'find-file #[(filename) "ہء\n!!‡" [switch-to-buffer find-file-noselect filename] 3 "\
Edit file FILENAME.
Switch to a buffer visiting file FILENAME,
creating one if none already exists." "FFind file: "])
(fset 'find-file-other-window #[(filename) "ہء\n!!‡" [switch-to-buffer-other-window find-file-noselect filename] 3 "\
Edit file FILENAME, in another window.
May create a new window, or reuse an existing one.
See the function `display-buffer'." "FFind file in other window: "])
(fset 'find-file-other-screen #[(filename) "ہء\n!!‡" [switch-to-buffer-other-screen find-file-noselect filename] 3 "\
Edit file FILENAME, in a newly-created screen." "FFind file in other screen: "])
(fset 'find-file-read-only #[(filename) "ہ	!ˆآp‡" [find-file filename t buffer-read-only] 2 "\
Edit file FILENAME but don't allow changes.
Like \\[find-file] but marks buffer as read-only.
Use \\[toggle-read-only] to permit editing." "fFind file read-only: "])
(fset 'find-file-read-only-other-window #[(filename) "ہ	!ˆآp‡" [find-file-other-window filename t buffer-read-only] 2 "\
Edit file FILENAME in another window but don't allow changes.
Like \\[find-file-other-window] but marks buffer as read-only.
Use \\[toggle-read-only] to permit editing." "fFind file read-only other window: "])
(fset 'find-file-read-only-other-screen #[(filename) "ہ	!ˆآp‡" [find-file-other-screen filename t buffer-read-only] 2 "\
Edit file FILENAME in another screen but don't allow changes.
Like \\[find-file-other-screen] but marks buffer as read-only.
Use \\[toggle-read-only] to permit editing." "fFind file read-only other screen: "])
(fset 'find-alternate-file #[(filename) "ہ «‘ءآأؤ!إ \"!¬†ئأا!!ˆp	\nإ ذأر!!ˆزز	ز\nسژش ˆص!ˆ)p=®„×!-‡" [buffer-modified-p yes-or-no-p format gettext "Buffer %s is modified; kill anyway? " buffer-name error "Aborted" buffer-file-name buffer-file-number buffer-file-truename oname otrue onum ofile obuf rename-buffer " **lose**" nil ((byte-code "p=«ڈ	ا ˆب	!ˆا‡" [obuf ofile buffer-file-name onum buffer-file-number otrue buffer-file-truename lock-buffer rename-buffer oname] 2)) unlock-buffer find-file filename kill-buffer] 5 "\
Find file FILENAME, select its buffer, kill previous buffer.
If the current buffer now contains an empty file that you just visited
(presumably by mistake), use this command to visit the file you really want." (byte-code "ء‰‰«ˆإ!ئ!ابة!\nء‰%+C‡" [buffer-file-name nil file-dir file-name file file-name-nondirectory file-name-directory read-file-name gettext "Find alternate file: "] 7)])
(fset 'create-file-buffer #[(filename) "ہ	!‰أک«‚	ؤ\n!)‡" [file-name-nondirectory filename lastname "" generate-new-buffer] 3 "\
Create a suitably named buffer for visiting FILENAME, and return it.
FILENAME (sans directory) is used unchanged if that name is free;
otherwise a string <2> or <3> or ... is appended to get an unused name."])
(defvar find-file-not-true-dirname-list nil "\
*List of logical names for which visiting shouldn't save the true dirname.
On VMS, when you visit a file using a logical name that searches a path,
you may or may not want the visited file name to record the specific
directory where the file was found.  If you *do not* want that, add the logical
name to this list as a string.")
(fset 'find-file-noselect #[(filename &optional nowarn) "ہء\n!!أ\n!«ژ«„إ\n!‡ئاب!\n\"‡ة\n!\n­†جح!›د\n«£¬„«›¬—ٹ\nqˆ\nڑ¬‹شاص!\n$ˆ)\n«ہ„ض\n!„×\n!¬ٹئاط!\n\"ˆ‚ظعغ\n!«…اـ!ھƒاف!ق\n!\"!ƒٹ\nqˆكà‰\"ˆ)ھّٹح\n!@‰!;­„ة!!\"م\"!«ٹشان!ه\"!\"ˆ*و\n!‰\nqˆç ˆèéêڈˆ+,ي=« د.ïًٌ\n!\"«‰ٌ\n!ٍ‰”O..3‌)¬„ٌ\n!45!¬‡ِ÷!ˆà7ّ?\"ˆ)\n+‡" [abbreviate-file-name expand-file-name filename file-directory-p find-file-run-dired dired-noselect error gettext "%s is a directory." get-file-buffer buf buffer-file-truename 10 file-attributes number nil find-file-compare-truenames find-file-use-truenames nowarn buffer-file-name message "%s and %s are the same file (%s)" verify-visited-file-modtime file-exists-p "File %s no longer exists!" yes-or-no-p format buffer-modified-p "File %s changed on disk.  Discard your edits? " "File %s changed on disk.  Read the new version? " file-name-nondirectory revert-buffer t link-name linked-buf bufferp "Symbolic link to file in buffer %s" buffer-name create-file-buffer erase-buffer e (insert-file-contents filename t) ((file-error (byte-code "\n‰«ڈ@ «„ؤھ†A‰¬q)ؤ‡" [e error find-file-not-found-hooks hooks nil] 2))) buffer-file-number system-type vax-vms logical string-match ":" file-name-directory 0 find-file-not-true-dirname-list default-directory backup-enable-predicate make-local-variable backup-inhibited after-find-file] 6 "\
Read file FILENAME into a buffer and return the buffer.
If a buffer exists visiting FILENAME, return that one, but
verify that the file has not changed since visited or saved.
The buffer is not selected, just returned to the caller."])
(fset 'after-find-file #[(&optional error warn noauto) "ہ	!?„™ ؤ«Œا	!«‡بةت!ھك\n¬›«Œجح 	\"«…ةخ!ھجب­ئةد!ھء¬‡بةذ!ھ¶ار!!«…ةس!ھ©شص	!!«…ؤ‰ھ‌ؤشص	!!¬“ض×ةط!ظ	!\"!«‡عص	!ب\"ˆؤ‰«چـ!ˆ¬…فقب\"ˆ*«ˆ ¬„لب!ˆâب!ˆمن%\"‡" [file-writable-p buffer-file-name buffer-read-only noninteractive nil not-serious error file-attributes t gettext "File exists, but cannot be read." warn file-newer-than-file-p make-auto-save-file-name "Auto save file is newer; consider M-x recover-file" "(New file)" "Note: file is write protected" directory-file-name default-directory "File not found and directory write-protected" file-exists-p file-name-directory yes-or-no-p format "The directory containing %s does not exist.  Create? " abbreviate-file-name make-directory msg message sit-for 1 auto-save-default noauto auto-save-mode normal-mode mapcar funcall find-file-hooks] 6 "\
Called after finding a file and by the default revert function.
Sets buffer mode, parses local variables.
Optional args ERROR, WARN, and NOAUTO: ERROR non-nil means there was an
error in reading the file.  WARN non-nil means warn if there
exists an auto-save file more recent than the visited file.
NOAUTO means don't mess with auto-save mode.
Finishes by calling the functions in `find-file-hooks'."])
(fset 'normal-mode #[(&optional find-file) "¬†	®پآ ˆأؤإڈ­„أئاڈ‡" [find-file default-major-mode fundamental-mode err (byte-code "ہ ˆء‡" [set-auto-mode t] 1) ((error (byte-code "ہءآ!أ!\"ˆإ‡" [message gettext "File mode specification error: %s" prin1-to-string err nil] 4))) (byte-code "ہ	?!‡" [hack-local-variables find-file] 2) ((error (byte-code "ہءآ!أ!\"‡" [message gettext "File local-variables error: %s" prin1-to-string err] 4)))] 3 "\
Choose the major mode for this buffer automatically.
Also sets up any specified local variables of the file.
Uses the visited file name, the -*- line, and the local variables spec.

This function is called automatically from `find-file'.  In that case,
we may set up specified local variables depending on the value of
`enable-local-variables': if it is t, we do; if it is nil, we don't;
otherwise, we query.  `enable-local-variables' is ignored if you
run `normal-mode' explicitly." nil])
(defvar auto-mode-alist (mapcar 'purecopy '(("\\.te?xt\\'" . text-mode) ("\\.c\\'" . c-mode) ("\\.h\\'" . c-mode) ("\\.tex\\'" . TeX-mode) ("\\.ltx\\'" . LaTeX-mode) ("\\.el\\'" . emacs-lisp-mode) ("\\.mm\\'" . nroff-mode) ("\\.me\\'" . nroff-mode) ("\\.ms\\'" . nroff-mode) ("\\.man\\'" . nroff-mode) ("\\.scm\\'" . scheme-mode) ("\\.l\\'" . lisp-mode) ("\\.lisp\\'" . lisp-mode) ("\\.f\\'" . fortran-mode) ("\\.for\\'" . fortran-mode) ("\\.p\\'" . pascal-mode) ("\\.pas\\'" . pascal-mode) ("\\.mss\\'" . scribe-mode) ("\\.pl\\'" . perl-mode) ("\\.cc\\'" . c++-mode) ("\\.hh\\'" . c++-mode) ("\\.C\\'" . c++-mode) ("\\.H\\'" . c++-mode) ("\\.texinfo\\'" . texinfo-mode) ("\\.texi\\'" . texinfo-mode) ("\\.s\\'" . asm-mode) ("ChangeLog\\'" . change-log-mode) ("change.log\\'" . change-log-mode) ("changelo\\'" . change-log-mode) ("ChangeLog.[0-9]+\\'" . change-log-mode) ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode) ("\\.[12345678]\\'" . nroff-mode) ("\\.TeX\\'" . TeX-mode) ("\\.sty\\'" . LaTeX-mode) ("\\.bbl\\'" . LaTeX-mode) ("\\.bib\\'" . bibtex-mode) ("\\.article\\'" . text-mode) ("\\.letter\\'" . text-mode) ("\\.tcl\\'" . tcl-mode) ("\\.lsp\\'" . lisp-mode) ("\\.awk\\'" . awk-mode) ("\\.prolog\\'" . prolog-mode) ("\\.tar\\'" . tar-mode) ("^/tmp/Re" . text-mode) ("/Message[0-9]*\\'" . text-mode) ("^/tmp/fol/" . text-mode) ("\\.y\\'" . c-mode) ("\\.lex\\'" . c-mode) ("\\.oak\\'" . scheme-mode) ("\\.scm.[0-9]*\\'" . scheme-mode) ("\\.html\\'" . html-mode) ("\\.sgm\\'" . sgml-mode) ("\\.sgml\\'" . sgml-mode) ("\\.dtd\\'" . sgml-mode) ("\\.c?ps\\'" . postscript-mode) ("[]>:/]\\..*emacs\\'" . emacs-lisp-mode) ("[:/]_emacs\\'" . emacs-lisp-mode) ("\\.ml\\'" . lisp-mode))) "\
Alist of filename patterns vs corresponding major mode functions.
Each element looks like (REGEXP . FUNCTION) or (REGEXP FUNCTION).
Visiting a file whose name matches REGEXP causes FUNCTION to be called.
If the element has the form (REGEXP FUNCTION), then after calling
FUNCTION, we delete the suffix that matched REGEXP and search the list
again for another match.")
(defconst interpreter-mode-alist (mapcar 'purecopy '(("perl" . perl-mode) ("scope" . tcl-mode) ("wish" . tcl-mode) ("shell" . tcl-mode) ("form" . tcl-mode) ("tcl" . tcl-mode) ("awk" . awk-mode) ("gawk" . awk-mode) ("scm" . scheme-mode))) "\
Alist mapping interpreter names to major modes.
This alist applies to files whose first line starts with `#!'.
Each element looks like (INTERPRETER . MODE).
The car of each element is compared with
the name of the interpreter specified in the first line.
If it matches, mode MODE is selected.")
(defconst inhibit-first-line-modes-regexps (purecopy '("\\.tar$")) "\
List of regexps; if one matches a file name, don't look for `-*-'.")
(fset 'set-auto-mode #[nil "ٹہآہ!)†­ ?†­ ؤ!ئ=ا	\n…¬ ہہ¬ہ«¼خ@@\n\"««@A:«›د@8«”@A@\nذ‰”O\nاھ‰@AہAھ<«† ˆھ¯ٹebˆرز!«Œذ•bˆ`ہˆ`{ھپس)ہض×!\"‰«…A ˆ**‚ +)‡" [nil enable-local-variables hack-local-variables-prop-line buffer-file-name file-name-sans-versions system-type vax-vms t keep-going case-fold-search name auto-mode-alist mode alist string-match 2 0 looking-at "#! *" "" elt interpreter assoc file-name-nondirectory interpreter-mode-alist] 4 "\
Select major mode appropriate for current buffer.
This checks for a -*- mode tag in the buffer's text, or
compares the filename against the entries in `auto-mode-alist'.  It does
not check for the \"mode:\" local variable in the Local Variables
section of the file; for that, use `hack-local-variables'.

If `enable-local-variables' is nil, this function does not check for a
-*- mode tag."])
(fset 'hack-local-variables #[(&optional force) "«ک	‰­ڈأ\n@\"?­‡\nA‰¬rؤ)?­‰إ!ˆا!‡" [buffer-file-name inhibit-first-line-modes-regexps tem string-match nil hack-local-variables-prop-line force hack-local-variables-last-page] 4 "\
Parse, and bind or evaluate as appropriate, any local variables
for current buffer."])
(byte-code "ہءMˆآأMˆؤإM‡" [hack-local-variables-p #[(mode-line) "ء=®…­‚آ‹‡" [enable-local-variables t ((byte-code "ہءآڈˆ¬‹ٹؤyˆإئ `\"ˆ)ابةت!«ƒثھپج«†خ!ھ„دذ P#!‡" [nil (byte-code "ہp!‡" [switch-to-buffer] 2) ((error (byte-code "ہءآڈ‡" [nil (byte-code "ہp!‡" [switch-to-buffer-other-window] 2) ((error (byte-code "ہp!‡" [switch-to-buffer-other-screen] 2)))] 3))) mode-line 0 set-window-start selected-window y-or-n-p format gettext "Set local variables as specified %s of %s? " "in -*- line" "at end" buffer-file-name file-name-nondirectory "buffer " buffer-name] 6))] 2] hack-local-variables-last-page #[(&optional force) "ٹdbˆہءdآZe]أ#ˆؤئابؤ#­‡	®ƒتب!)…‎ ؤب‰‰‰ربwˆl¬ˆ`بˆ`{ز”bˆn¬ˆ`زyˆ`{«‹Gس!«ˆس!شP…û «†ض×!ˆھƒطyˆ«’ظ!«†uˆھ†عغـ!!ˆربwˆ`فبwˆl«†عغق!!ˆربxˆ`{à!!ب\"—مک«…بھ®نبwˆطuˆàp!\"هبxˆربwˆ«†ظ!ھپl¬†عغو!!ˆç!\"\"ˆ+‚n .)‡" [search-backward "\n" 3000 move t case-fold-search search-forward "Local Variables:" nil force hack-local-variables-p enable-local-eval beg suffix prefixlen prefix continue " 	" 0 regexp-quote "$" selective-display re-search-forward "[\n]" 1 looking-at error gettext "Local variables entry is missing the prefix" "^:\n" "Missing colon in local variables entry" str read var val "end" "^:" "\n" "Local variables entry is terminated incorrectly" hack-one-local-variable] 6] hack-local-variables-prop-line #[(&optional force) "ٹebˆہءwˆءٹآأ!­پؤˆ`)ءبةت#«êآث!«ژجحخ”خ•{!BCھ×ٹبةت#«‡`دZھ†ذرز!!ˆ)`W«µآس!¬†ذرش!!ˆص•bˆحخ”خ•{—!Œ`}ˆضp!)‰BBظءwˆ*ھEںءج‍‰«کتع\"حغA!—ـP! ˆھ_)«©¬…قت!« «œ@@@Aك\"ˆ*A‰¬d,‡" [" 	\n" nil looking-at "^#!" 2 mode-p end result search-forward "-*-" t "[ 	]*\\([^ 	\n:;]+\\)\\([ 	]*-\\*-\\)" mode intern 1 3 error gettext "-*- not terminated before end of line" "[ 	]*\\([^ 	\n:]+\\)[ 	]*:[ 	]*" "malformed -*- line" 0 read val key " 	;" delq symbol-name "-mode" force hack-local-variables-p hack-one-local-variable] 5]] 2)
(defconst ignored-local-variables (list 'enable-local-eval) "\
Variables to be ignored in a file's local variable spec.")
(byte-code "ہءآأ#ˆہؤآأ#ˆہإآأ#ˆہئآأ#ˆابM‡" [put eval risky-local-variable t file-name-handler-alist minor-mode-map-alist after-load-alist hack-one-local-variable #[(var val) "ء=«ٹآأ!—إP! ‡>«‚ا‡بN¬ˆةتأ!\"««ث جک¬،خ=¬ˆ«—د‹«“ذ=«†ٹذ!)‡ر!ˆL‡زس!‡ر!ˆL‡" [var mode intern symbol-name val "-mode" ignored-local-variables nil risky-local-variable string-match "-hooks?\\'\\|-functions?\\'\\|-forms?\\'" user-login-name "root" enable-local-eval t ((byte-code "ہp!ˆٹءyˆآأ `\"ˆ)ؤإئا!\"!‰	‡" [switch-to-buffer 0 set-window-start selected-window y-or-n-p format "Process `eval' or hook local variables in file %s? " file-name-nondirectory buffer-file-name enable-local-eval] 5)) eval make-local-variable message "Ignoring `eval:' in file's local variables"] 4]] 4)
(fset 'set-visited-file-name #[(filename) "«ٹءک?­ƒآ!ڑ¬ٹ«„ؤ!ˆإ ˆ«®ئ!‰ءک«†بةت!!ˆج=«…—ح!د ک¬†ذر\"ˆ)ز ˆسص ˆ«‰ض×!8ھƒسظع!ˆظغ!ˆظـ!ˆظف!ˆظق!ˆظك!ˆظà!ˆلâ!«‡\"«ƒس#ظâ!ˆ$!¬‡هà!ˆر &'&¬چ«ژ(«ٹéر!ˆھ„ê &'«’&«ژë'!«ˆى'&ر#ˆ)«„ير!ˆîï!‡" [filename "" expand-file-name buffer-file-name lock-buffer unlock-buffer file-name-nondirectory new-name error gettext "Empty file name" system-type vax-vms file-name-directory default-directory buffer-name rename-buffer t compute-buffer-file-truename nil buffer-backed-up clear-visited-file-modtime 10 file-attributes buffer-file-number kill-local-variable write-file-hooks after-write-file-hooks after-save-hook local-write-file-hooks write-file-data-hooks revert-buffer-function backup-inhibited boundp vc-mode buffer-read-only backup-enable-predicate make-local-variable buffer-auto-save-file-name oauto auto-save-default auto-save-mode make-auto-save-file-name file-exists-p rename-file set-buffer-modified-p run-hooks after-set-visited-file-name-hooks] 5 "\
Change name of file visited in current buffer to FILENAME.
The next time the buffer is saved it will go in the newly specified file.
nil or empty string as argument means make buffer not be visiting any file.
Remember to delete the initial contents of the minibuffer
if you wish to pass an empty string as the argument." "FSet visited file name: "])
(fset 'write-file #[(filename) "«™ءک¬”آ!«‹«ˆؤ!إ!Pئ!ˆاب!ˆة ‡" [filename "" file-directory-p buffer-file-name file-name-as-directory file-name-nondirectory set-visited-file-name set-buffer-modified-p t save-buffer] 3 "\
Write current buffer into file FILENAME.
Makes buffer visit that file, and marks it not modified.
If the buffer is already visiting a file, you can specify
a directory name as FILENAME, to write a file of the same
old name in that directory." (byte-code "«‹ءآأ!ؤ‰‰‰%ھژءآأ!إئ ‍Aؤ‰ا %C‡" [buffer-file-name read-file-name gettext "Write file: " nil default-directory buffer-local-variables buffer-name] 6)])
(fset 'backup-buffer #[nil "­ء	?­½\n?­¹أ!­´إ!ئœاHب>­©ة‰‰‰\nد!ذ!‰@Aةرزڈ-‡" [make-backup-files backup-inhibited buffer-backed-up file-exists-p buffer-file-name file-attributes 8 0 (45 108) nil setmodes targets backupname backup-info real-file-name file-chase-links find-backup-file-name (byte-code "­–	آ=¬…	أ=­Œ	®‰ؤإئا!\"!	أتثڈˆآ	«ژ«‹أحخڈˆA‰¬u)‡" [targets trim-versions-without-asking t nil y-or-n-p format gettext "Delete excess backup versions of %s? " real-file-name delete-old-versions (byte-code "¬§	¬¤\n«‡أ!إV¬ڑ«‌ا!ة8®ˆت8ث U?)«‡جحخڈˆھچدر#ˆز!ج‡" [file-precious-flag backup-by-copying backup-by-copying-when-linked file-nlinks real-file-name 1 backup-by-copying-when-mismatch file-attributes attr 9 2 user-uid nil (byte-code "ہ	\nأ‰$‡" [copy-file real-file-name backupname t] 5) ((file-error (byte-code "ہ	!«‰آ	!¬„أ	!ˆؤ	ئ‰$‡" [file-exists-p backupname file-writable-p delete-file copy-file real-file-name t] 5))) rename-file backupname t file-modes setmodes] 4) ((file-error (byte-code "ہء!أؤإ!!ˆئا!ˆبةتڈ‡" [expand-file-name "~/%backup%~" backupname message gettext "Cannot write backup file; backing up in ~/%%backup%%~" sleep-for 1 nil (byte-code "ہ	\nأ‰$‡" [copy-file real-file-name backupname t] 5) ((file-error (byte-code "ہ	!«‰آ	!¬„أ	!ˆؤ	ئ‰$‡" [file-exists-p backupname file-writable-p delete-file copy-file real-file-name t] 5)))] 3))) buffer-backed-up (byte-code "ہ	@!‡" [delete-file targets] 2) ((file-error)) setmodes] 5) ((file-error))] 6 "\
Make a backup of the disk file visited by the current buffer, if appropriate.
This is normally done before saving the buffer the first time.
If the value is non-nil, it is the result of `file-modes' on the original file;
this means that the caller, after saving the buffer, should change the modes
of the new file to agree with the old modes."])
(fset 'file-name-sans-versions #[(name &optional keep-backup-version) "ہ	آ\"‰«‡آ	#ھ²	إا=«”بة	\"®£بت	\"«„ث”®™	Gھ•«„	Gھژبج	\"®ˆبح	\"®‚	GO)‡" [find-file-name-handler name file-name-sans-versions handler keep-backup-version 0 system-type vax-vms string-match ";[-+]?[0-9]*\\'" "\\.[^]>:]*\\(\\.[-+]?[0-9]*\\)\\'" 1 "\\.~[0-9]+~\\'" "~\\'"] 6 "\
Return FILENAME sans backup versions or strings.
This is a separate procedure so your site-init or startup file can
redefine it.
If the optional argument KEEP-BACKUP-VERSION is non-nil,
we do not remove backup version numbers, only true file version numbers."])
(fset 'make-backup-file-name #[(file) "ء=«–آ!إ!ئا\"­…بة•OتQ)‡ثP‡" [system-type ms-dos file-name-nondirectory file fn file-name-directory string-match "\\([^.]*\\)\\(\\..*\\)?" 0 1 ".bak" "~"] 4 "\
Create the non-numeric backup file name for FILE.
This is a separate function so you can redefine it for customization."])
(fset 'backup-file-name-p #[(file) "ء=«…آأ\"‡آإ\"‡" [system-type ms-dos string-match "\\.bak\\'" file "~\\'"] 3 "\
Return non-nil if FILE is a backup file name (numeric or not).
This is a separate function so you can redefine it for customization.
You may need to redefine `file-name-sans-versions' as well."])
(fset 'backup-extract-version #[(fn) "ہء\n#«چؤ”U«‡إ\nئO!‡ؤ‡" [string-match "[0-9]+~\\'" fn bv-length 0 string-to-int -1] 4 "\
Given the name of a numeric backup file, return the backup number.
Uses the free variable `bv-length', whose value should be
the index in the name where the version number begins."])
(fset 'find-backup-file-name #[(fn) "ء=«…آ!C‡ؤ!إP‰Gب	ب\nببببخدڈˆ¬†آ!Cھ±إذT!رRزV­،ص\\\\زY­–ض×\n›S›ب،ˆ)\"B.‡" [version-control never make-backup-file-name fn file-name-nondirectory ".~" base-versions bv-length nil possibilities versions high-water-mark deserve-versions-p number-to-delete (byte-code "ہ	آ!\"إئا\"ب\"	تثج	#®„جV	GZZزZہ‡" [file-name-all-completions base-versions file-name-directory fn possibilities sort mapcar backup-extract-version < versions apply max 0 high-water-mark version-control deserve-versions-p kept-old-versions kept-new-versions -1 number-to-delete] 4) ((file-error (byte-code "ہہ‡" [nil possibilities] 1))) int-to-string "~" 0 kept-new-versions kept-old-versions -1 mapcar #[(n) "ءآ!ؤR‡" [fn ".~" int-to-string n "~"] 4] v] 6 "\
Find a file name for a backup file, and suggestions for deletions.
Value is a list whose car is the name for the backup file
 and whose cdr is a list of old versions to consider deleting now."])
(fset 'file-nlinks #[(filename) "ہ	!A@‡" [file-attributes filename] 2 "\
Return number of names file FILENAME has."])
(fset 'file-relative-name #[(filename &optional directory) "ہ	!آ«…ہ!ھپ!«°إئ!!ک«‰ب!«„ةھ—تثج!P	\"«ٹ	ح•ةOةھƒ)ھM	‡" [expand-file-name filename file-name-as-directory directory default-directory file-name-directory directory-file-name up file-name-absolute-p nil string-match "\\`" regexp-quote 0] 4 "\
Convert FILENAME to be relative to DIRECTORY (default: default-directory)."])
(fset 'save-buffer #[(&optional args) "ہ ء آV­„إ=?‰«ˆب>«ƒة\n«Œ«ˆثجح!خ \"ˆد ˆ­‰ذ>­„ة‰\n+‡" [buffer-modified-p buffer-size 50000 make-backup-files args 0 large modp (16 64) nil buffer-backed-up message gettext "Saving file %s..." buffer-file-name basic-save-buffer (4 64)] 5 "\
Save current buffer in visited file if modified.  Versions described below.

By default, makes the previous version into a backup file
 if previously requested or if this is the first save.
With 1 or 3 \\[universal-argument]'s, marks this version
 to become a backup when the next save is done.
With 2 or 3 \\[universal-argument]'s,
 unconditionally makes the previous version into a backup file.
With argument of 0, never makes the previous version into a backup file.

If a file's name is FOO, the names of its numbered backup versions are
 FOO.~i~ for various integers i.  A non-numbered backup file is called FOO~.
Numeric backups (rather than FOO~) will be made if value of
 `version-control' is not the atom `never' and either there are already
 numeric versions of the file being backed up, or `version-control' is
 non-nil.
We don't want excessive versions piling up, so there are variables
 `kept-old-versions', which tells Emacs how many oldest versions to keep,
 and `kept-new-versions', which tells how many newest versions to keep.
 Defaults are 2 old versions and 2 new.
`dired-kept-versions' controls dired's clean-directory (.) command.
If `trim-versions-without-asking' is nil, system will query user
 before trimming versions.  Otherwise it does it silently." "p"])
(fset 'delete-auto-save-file-if-necessary #[(&optional force) "­—	­”\nک?­ژ¬„ؤ ­‡إئاڈˆب ‡" [buffer-auto-save-file-name delete-auto-save-files buffer-file-name force recent-auto-save-p nil (delete-file buffer-auto-save-file-name) ((file-error)) set-buffer-auto-saved] 3 "\
Delete auto-save file for current buffer if `delete-auto-save-files' is t.
Normally delete only if the file was written by this Emacs
since the last real save, but optional arg FORCE non-nil means delete anyway."])
(byte-code "ہء!¬‚آأؤM‡" [boundp continue-save-buffer-hooks-tail nil basic-write-file-data #[(realname) "ہ	\n«ژ¬‹\n@!\nA‰¬r?­‡إedہئ%*‡" [nil write-file-data-hooks hooks region-written realname write-region t] 7]] 2)
(fset 'basic-save-buffer #[nil "ہ ƒê ء ؤ=«¦ئ!ک¬ںائ!ة—!\nث\n!ج\n!ˆ)ح!ˆ)¬“خدذر!!ا\"ز!ش!ˆضp!¬—×!«’طظذع!غ!\"!¬†ـذف!!ˆŒ~ˆdقV«±dSfكU¬ھ ل=«‡dSfâU¬‌#ل=¬ڈ#«“نظذه!ث \"!«ˆٹdbˆكcˆ)ا&ç()*#ا‰‰‰‰*()+,‰-«–-.-@ ‰&)¬ˆ-A‰-¬j.&¬ƒï ˆ*ً\n!ˆٌى!ˆٌë!)‡ٍذَ!!‡" [buffer-modified-p recent-auto-save-p recent-save system-type vax-vms buffer-file-name file-name-sans-versions nil buffer-new-name create-file-buffer buf buffer-name kill-buffer rename-buffer expand-file-name read-file-name gettext "File to save in: " file-name-directory default-directory auto-save-mode auto-save-default verify-visited-file-modtime file-exists-p yes-or-no-p format "%s has changed since visited or saved.  Save anyway? " file-name-nondirectory error "Save not confirmed" 1 10 selective-display t 13 require-final-newline y-or-n-p "Buffer %s does not end in newline.  Add one? " done append write-contents-hooks local-write-file-hooks write-file-hooks after-save-hook after-write-file-hooks hooks continue-save-buffer-hooks-tail basic-save-buffer-1 delete-auto-save-file-if-necessary run-hooks message "(No changes need to be saved)"] 7 "\
Save the current buffer in its visited file, if it has been modified." nil])
(fset 'basic-save-buffer-1 #[nil "ہ‰أ!¬»إ!ا!¬ٹبةت!\"ˆھ¥ث!¬ٹبةج!\"ˆھ–حخةد!ذ!\"!«„رھ†بةز!!ˆ)¬ƒش «ضإ!ہ‰‰‰غر«–خـ#ث!Tھfفژق ˆكedہ%ˆر)à!لر#ˆ.ھ“	«Œ\n¬‰à!âم\"ˆن!ˆ­…هو!8'\n­„ہèéڈ*‡" [nil tempsetmodes setmodes file-writable-p buffer-file-name file-name-directory dir file-directory-p error gettext "%s is not a directory" file-exists-p "Directory %s write-protected" yes-or-no-p format "File %s is write-protected; try to save anyway? " file-name-nondirectory t "Attempt to save to a file which you aren't allowed to write" buffer-backed-up backup-buffer file-precious-flag succeed i nogood tempname realname 0 "%s#tmp#%d" ((byte-code "¬„ء\n!ˆء‡" [succeed delete-file tempname] 2)) clear-visited-file-modtime write-region file-modes rename-file set-file-modes 511 basic-write-file-data 10 file-attributes buffer-file-number (set-file-modes buffer-file-name setmodes) ((error))] 6])
(fset 'continue-save-buffer #[nil "®…ءآأ!!Aؤ‰«”@ ‰)¬ˆA‰¬l¬ƒا ˆ*ب‡" [continue-save-buffer-hooks-tail error gettext "continue-save-buffer called outside a write-file-hook!" nil done hooks basic-save-buffer-1 continue-save-buffer] 4 "\
Provide a clean way for a write-file-hook to wrap AROUND
the execution of the remaining hooks and writing to disk.
Do not call this function except from a functions
on the write-file-hooks or write-contents-hooks list.
A hook that calls this function must return non-nil,
to signal completion to its caller.  continue-save-buffer
always returns non-nil."])
(fset 'save-some-buffers #[(&optional arg exiting) "ہء \n«س\n@إ!«ؤئاہ#¬½ٹqˆ¬ژ	«°\n«¬ث جV«¦ح‰«،¬کد«‰ذرز!\"ھ‡ذرس!ش \"!«…ہصضڈˆ))\nA‰¬-«œ«کح¬‹دذرظ!\"!«„غہ!ˆہ«…ـہ!ھ…ـرف!!*‡" [nil buffer-list list considered buffer buffer-modified-p symbol-value-in-buffer save-buffers-skip buffer-file-name exiting buffer-offer-save buffer-size 0 t arg y-or-n-p format gettext "Save file %s? " "Save buffer %s? " buffer-name (save-buffer) ((error)) save-abbrevs abbrevs-changed "Save abbrevs in %s? " abbrev-file-name write-abbrev-file message "(No files need saving)"] 5 "\
Save some modified file-visiting buffers.  Asks user about each one.
Optional argument (the prefix) non-nil means save all with no questions.
Optional second argument EXITING means ask about certain non-file buffers
 as well as about file buffers." "P"])
(fset 'not-modified #[(&optional arg) "ہ	«…آأ!ھƒآؤ!!ˆإ	!‡" [message arg gettext "Modification-flag set" "Modification-flag cleared" set-buffer-modified-p] 3 "\
Mark current buffer as unmodified, not needing to be saved.
With prefix arg, mark buffer as modified, so \\[save-buffer] will save." "_P"])
(fset 'toggle-read-only #[(&optional arg) "¬„	?ھ…آ!أVؤإ !‡" [arg buffer-read-only prefix-numeric-value 0 set-buffer-modified-p buffer-modified-p] 2 "\
Change whether this buffer is visiting its file read-only.
With arg, set read-only iff arg is positive." "_P"])
(fset 'insert-file #[(filename) "ہ	!«ˆآأؤإ	E\"ˆئ	!ب`A@\\!)‡" [file-directory-p filename signal file-error "Opening input file" "file is a directory" insert-file-contents tem push-mark] 5 "\
Insert contents of file FILENAME into buffer after point.
Set mark after the inserted text.

This function is meant for the user to run interactively.
Don't call it from programs!  Use `insert-file-contents' instead.
(Its calling sequence is different; see its documentation)." "*fInsert file: "])
(fset 'append-to-file #[(start end filename) "ہ	\nؤ$‡" [write-region start end filename t] 5 "\
Append the contents of the region to the end of file FILENAME.
When called from a function, expects three arguments,
START, END and FILENAME.  START and END are buffer positions
saying what text to write." "r\nFAppend to file: "])
(fset 'file-newest-backup #[(filename) "ہ	!آ	!ؤ	!ئ\"ب	« @PAت!«l	«‡ث	\"«a	ھ\\	-‡" [expand-file-name filename file-name-nondirectory file file-name-directory dir file-name-all-completions comp nil newest backup-file-name-p file-newer-than-file-p] 3 "\
Return most recent backup file for FILENAME or nil if no backups exist."])
(fset 'rename-uniquely #[nil "ہء !ء\n!ؤ\n!ˆإ!ˆئا !*‡" [generate-new-buffer buffer-name new-buf name kill-buffer rename-buffer set-buffer-modified-p buffer-modified-p] 2 "\
Rename current buffer to a similar name not already taken.
This function is useful for creating multiple shell process buffers
or multiple mail buffers, etc." nil])
(fset 'make-directory-path #[(path) "ہ	آ\"‡" [make-directory path t] 3 "\
Create all the directories along path that don't exist yet." "Fdirectory path to create: "])
(fset 'make-directory #[(dir &optional parents) "ہ	آ\"‰«‡آ	#ھ¸¬…إ	!ھ°ئا	!!ب	ت	!¬ژ		B	ئث	!!ھm	­ڈإ	@!ˆ	A‰	¬rب*)‡" [find-file-name-handler dir make-directory handler parents make-directory-internal directory-file-name expand-file-name nil create-list file-exists-p file-name-directory] 5 "\
Create the directory DIR and any nonexistent parent dirs.
Interactively, the default choice of directory to create
is the current default directory for file names.
That is useful when you have visited a file in a nonexistent directory.

Noninteractively, the second (optional) argument PARENTS says whether
to create parent directories if they don't exist." (byte-code "ءآأ!!)D‡" [current-prefix-arg read-directory-name gettext "Create directory: "] 3)])
(put 'revert-buffer-function 'permanent-local t)
(defvar revert-buffer-function nil "\
Function to use to revert this buffer, or nil to do the default.")
(put 'revert-buffer-insert-file-contents-function 'permanent-local t)
(defvar revert-buffer-insert-file-contents-function nil "\
Function to use to insert contents when reverting this buffer.
Gets two args, first the nominal file name to use,
and second, t if reading the auto-save file.")
(fset 'revert-buffer #[(&optional ignore-auto noconfirm) "«…	\n\"‡`	?­‘ؤ ­چ­ٹئ!­…ابة!!‰\n«ƒھ‚‰¬‡حبخ!!ھٍ\n¬‹دذبر!\"!­نزس!ˆ\n¬ˆشp!¬ƒصط=¬ƒصصط«ٹ\n\"ˆھ¦غ!¬ˆحبـ!\"ˆص\n¬ƒف ˆ)~ˆق\n?ص‰ط%ˆ*d^bˆكص‰ط#ˆزà!ˆط+‡" [revert-buffer-function ignore-auto noconfirm opoint recent-auto-save-p buffer-auto-save-file-name file-readable-p y-or-n-p gettext "Buffer has been auto-saved recently.  Revert from auto-save file? " auto-save-p buffer-file-name file-name error "Buffer does not seem to be associated with any file" yes-or-no-p format "Revert buffer from file %s? " run-hooks before-revert-hook verify-visited-file-modtime nil buffer-backed-up buffer-undo-list t buffer-read-only revert-buffer-insert-file-contents-function file-exists-p "File %s no longer exists!" unlock-buffer insert-file-contents after-find-file after-revert-hook] 7 "\
Replace the buffer text with the text of the visited file on disk.
This undoes all changes since the file was visited or saved.
With a prefix argument, offer to revert from latest auto-save file, if
that is more recent than the visited file.
When called from lisp, the first argument is IGNORE-AUTO; only offer
to revert from the auto-save file when this is nil.  Note that the
sense of this argument is the reverse of the prefix argument, for the
sake of backward compatibility.  IGNORE-AUTO is optional, defaulting
to nil.

Optional second argument NOCONFIRM means don't ask for confirmation at
all.

If the value of `revert-buffer-function' is non-nil, it is called to
do the work.

The default revert function runs the hook `before-revert-hook' at the
beginning and `after-revert-hook' at the end." (byte-code "?C‡" [prefix-arg] 1)])
(fset 'recover-file #[(file) "ہ	!آ	!«‡أؤإ!	\"ˆ	ا )ة	\"¬‰أؤت!\"ھ¤ث‹«›جح	خ\"!ˆدر ˆزد\"ˆ)سد‰خ#ھ…أؤش!!)‡" [expand-file-name file auto-save-file-name-p error gettext "%s is an auto-save file" buffer-file-name make-auto-save-file-name file-name file-newer-than-file-p "Auto-save file %s not current" ((byte-code "ء=¬ںآأ!گؤ!ˆئاببة\n!«ƒثھپج\n&‘ˆخدآذ!\"!‡" [system-type vax-vms gettext "*Directory*" buffer-disable-undo standard-output call-process "ls" nil file-symlink-p file "-lL" "-l" file-name yes-or-no-p format "Recover auto save file %s? "] 9)) switch-to-buffer find-file-noselect t nil buffer-read-only erase-buffer insert-file-contents after-find-file "Recover-file cancelled."] 4 "\
Visit file FILE, but get contents from its last auto-save file." (byte-code "ء‰‰«ˆإ!ئ!ابة!\nء‰%+C‡" [buffer-file-name nil file-dir file-name prompt-file file-name-nondirectory file-name-directory read-file-name gettext "Recover file: "] 7)])
(fset 'kill-some-buffers #[nil "ہ ‰­³	@أ\n!‰إک¬ںئHاU¬کبةت\n!«…ثج!ھƒثح!\"!«„خ\n!ˆ*	A‰¬Nد)‡" [buffer-list list buffer buffer-name name "" 0 32 yes-or-no-p format buffer-modified-p gettext "Buffer %s HAS BEEN EDITED.  Kill? " "Buffer %s is unmodified.  Kill? " kill-buffer nil] 5 "\
For each buffer, ask whether to kill it." nil])
(fset 'auto-save-mode #[(arg) "¬„	?ھگآ=¬چ<¬‰¨­”أV­ڈ«ٹ«‡¬ƒھ‚ا أW«ƒأt«ژة	«…تث!ھƒتج!!ˆ	‡" [arg buffer-auto-save-file-name t 0 buffer-file-name auto-save-visited-file-name buffer-read-only make-auto-save-file-name buffer-saved-size message gettext "Auto-save on (in this buffer)" "Auto-save off (in this buffer)"] 3 "\
Toggle auto-saving of contents of current buffer.
With prefix argument ARG, turn auto-saving on if positive, else off." "P"])
(fset 'rename-auto-save-file #[nil "آ 	­‌­ڑک?­”	ک?­ژؤ	!­‰إ ­…ئ	ا#)‡" [buffer-auto-save-file-name osave make-auto-save-file-name buffer-file-name file-exists-p recent-auto-save-p rename-file t] 4 "\
Adjust current buffer's auto save file name for current conditions.
Also rename any existing auto save file, if it was made in this session."])
(fset 'make-auto-save-file-name #[nil "«ٹء!آأ!آR‡ؤ ئا\"«ڈب‰”Oةب•تOQھkثجح\"!)‡" [buffer-file-name file-name-directory "#" file-name-nondirectory buffer-name name string-match "/" 0 "!" nil expand-file-name format "#%s#"] 5 "\
Return file name to use for auto-saves of current buffer.
Does not consider `auto-save-visited-file-name' as that variable is checked
before calling this function.  You can redefine this for customization.
See also `auto-save-file-name-p'."])
(fset 'auto-save-file-name-p #[(filename) "ہء\n\"‡" [string-match "\\`#.*#\\'" filename] 3 "\
Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.
FILENAME should lack slashes.
You can redefine this for customization."])
(defconst list-directory-brief-switches (byte-code "ء=«‚آ‡أ‡" [system-type vax-vms "" "-CF"] 2) "\
*Switches for list-directory to pass to `ls' for brief listing,")
(defconst list-directory-verbose-switches (byte-code "ء=«‚آ‡أ‡" [system-type vax-vms "/PROTECTION/SIZE/DATE/OWNER/WIDTH=(OWNER:10)" "-l"] 2) "\
*Switches for list-directory to pass to `ls' for verbose listing,")
(fset 'list-directory #[(dirname &optional verbose) "«ƒ	ھپ\n¬‚ئ!اب!گة\n!ˆثاج!!ˆث!ˆح ˆٹاب!qˆخ!?ذ‰?$*‘)‡" [verbose list-directory-verbose-switches list-directory-brief-switches switches dirname default-directory expand-file-name gettext "*Directory*" buffer-disable-undo standard-output princ "Directory " terpri file-directory-p wildcard insert-directory] 6 "\
Display a list of files in or matching DIRNAME, a la `ls'.
DIRNAME is globbed by the shell if necessary.
Prefix arg (second arg if noninteractive) means supply -l switch to `ls'.
Actions controlled by variables `list-directory-brief-switches'
and `list-directory-verbose-switches'." (byte-code "آ	«…أؤ!ھƒأإ!ئئ$	)D‡" [current-prefix-arg pfx read-file-name gettext "List directory (verbose): " "List directory (brief): " nil default-directory] 5)])
(defvar insert-directory-program "ls" "\
Absolute or relative name of the `ls' program used by `insert-directory'.")
(fset 'insert-directory #[(file switches &optional wildcard full-directory-p) "ہ	آ\"‰«ٹآ	%ھَب=«‡ة	p#ھو«خت	!«…ث	!ھ…ثج	!!ح	!خزس#«—خ‰”Oشخ”صOQخ•Tھ`ضصطصظغـ°&+ھ•ضصطص«‡ف	!قPھپ	&)‡" [find-file-name-handler file insert-directory handler switches wildcard full-directory-p system-type vax-vms vms-read-directory file-name-absolute-p file-name-directory expand-file-name file-name-nondirectory 0 beg pattern default-directory string-match "[ 	\n;<>&|{}()#$]" "\\" nil call-process shell-file-name t "-c" insert-directory-program " -d " " " file-name-as-directory "."] 12 "\
Insert directory listing for FILE, formatted according to SWITCHES.
Leaves point after the inserted text.
Optional third arg WILDCARD means treat FILE as shell wildcard.
Optional fourth arg FULL-DIRECTORY-P means file is a directory and
switches do not contain `d', so that a full listing is expected.

This works by running a directory listing program
whose name is in the variable `insert-directory-program'.
If WILDCARD, it also runs the shell specified by `shell-file-name'."])
(defvar kill-emacs-query-functions nil "\
Functions to call with no arguments to query about killing Emacs.")
(fset 'save-buffers-kill-emacs #[(&optional arg) "ہ	آ\"ˆآأؤإ \">«‡ئاب!!­ëةت!«؟ت ث‰«¨خ@!د>«—ذ@!ذ@\"ˆ)«ƒآA‰¬X?®…ئاز!!*­§آ‰«–«’­„@ A‰¬j*­‚ض ‡" [save-some-buffers arg t mapcar #[(buf) "ہ	!­ƒآ	!‡" [buffer-file-name buf buffer-modified-p] 2] buffer-list yes-or-no-p gettext "Modified buffers exist; exit anyway? " fboundp process-list nil active processes process-status (run stop open) process-kill-without-query val "Active processes exist; kill them and exit anyway? " kill-emacs-query-functions yes functions kill-emacs] 5 "\
Offer to save each buffer, then kill this Emacs process.
With prefix arg, silently save all file-visiting buffers, then kill." "P"])