;ELC   
;;; compiled by roland@churchy.gnu.ai.mit.edu on Sun Aug 28 19:22:05 1994
;;; from file /gd/gnu/emacs/19.0/lisp/files.el
;;; emacs version 19.25.95.1.
;;; bytecomp version FSF 2.10
;;; 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 "`/gd/gnu/emacs/19.0/lisp/files.el' was compiled for Emacs 19"))

(defconst delete-auto-save-files t "\
*Non-nil means delete auto-save file when a buffer is saved or killed.")
(defconst directory-abbrev-alist nil "\
*Alist of abbreviations for file directories.
A list of elements of the form (FROM . TO), each meaning to replace
FROM with TO when it appears in a directory name.  This replacement is
done when setting up the default directory of a newly visited file.
*Every* FROM string should start with `^'.

Do not use `~' in the TO strings.
They should be ordinary absolute directory names.

Use this feature when you have directories which you normally refer to
via absolute symbolic links.  Make TO the name of the link, and FROM
the name it is linked to.")
(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 (quote backup-inhibited) (quote 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 (quote (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 (quote buffer-offer-save))
(defconst find-file-existing-other-name nil "\
*Non-nil means find a file under alternative names, in existing buffers.
This means if any existing buffer is visiting the file you want
under another name, you get the existing buffer instead of a new buffer.")
(defconst find-file-visit-truename nil "\
*Non-nil means visit a file under its truename.
The truename of a file is found by chasing all links
both at the file level and at the levels of the containing directories.")
(defvar buffer-file-truename nil "\
The abbreviated truename of the file visited in the current buffer.
That is, (abbreviated-file-name (file-truename buffer-file-name)).
This variable is automatically local in all buffers, when non-nil.")
(byte-code "ہء!ˆآءأؤ#‡" [make-variable-buffer-local buffer-file-truename put permanent-local t] 4)
(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 delete-old-versions nil "\
*If t, delete excess backup versions silently.
If nil, ask 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'.
Don't make this variable buffer-local; instead, use `local-write-file-hooks'.")
(put (quote write-file-hooks) (quote 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] 4)
(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'.")
(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 (quote 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 ange-ftp-completion-hook-function #[(op &rest args) "ء>ƒ\f آأ\f#‡إ=… Bآ\f\"*‡" [op (file-name-completion file-name-all-completions) apply ange-ftp-hook-function args ange-ftp-completion-hook-function inhibit-file-name-operation inhibit-file-name-handlers] 4]] 3)
(defalias '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.")
(defalias 'parse-colon-path #[(cd-path) "…7 ء‰آءاPبا\f#‰ƒ5 \fU?…+ ةت\fO!!C¤ث\\‚ ,‡" [cd-path nil 0 cd-colon cd-start cd-list cd-prefix ":" string-match substitute-in-file-name file-name-as-directory 1] 6 "\
Explode a colon-separated list of paths into a string list."])
(defalias 'cd-absolute #[(dir) "ء=„\n آ!ؤإ!!ئ!„ اب\"‡ة!ƒ& ‰\n‡اث\"‡" [system-type vax-vms file-name-as-directory dir abbreviate-file-name expand-file-name file-directory-p error "%s is not a directory" file-executable-p default-directory "Cannot cd to %s:  Permission denied"] 3 "\
Change current directory to given absolute file name DIR."])
(defalias 'cd #[(dir) "ہ	!ƒ\f آأ	!!‡\f„ إئا!!‰† ة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 found via CDPATH environment variable"] 4 "\
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." "FChange default directory: "])
(defalias 'load-file #[(file) "ہء\n!أ‰ؤ$‡" [load expand-file-name file nil t] 5 "\
Load the Lisp file named FILE." "fLoad file: "])
(defalias 'load-library #[(library) "ہ	!‡" [load library] 2 "\
Load the library named LIBRARY.
This is an interface to the function `load'." "sLoad library: "])
(defalias '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."])
(defalias 'file-truename #[(filename &optional counter prev-dirs) "ءک„ آأOءکƒ\" ؤإ\"ƒ\" ئ!‰اکƒ\" ب	„+ تC	ث\fƒ6 ‚F خ!ذرز\"\")\f„S ثC\f„.	‰@S ˆ	@آWƒl شص\"ˆض×\"‰ƒ‚ ×\"ظ‚*ع!ث‰ق!ک„ش ك\f@\"ƒ² ك\f@\"A‚ش à×	\f#!!\"\f\"!B\f@B ˆ!*م!نڑƒë قعق!!!ظ‚)م!هڑƒ‏ ق!ظ‚)م!Pو!‰ƒ&ç!ƒ‚Pث‚)ظ+)‚S *‡" [filename "~" 0 1 string-match "~[^/]*" expand-file-name "" "/" counter 100 nil prev-dirs file-name-handler-alist copy-sequence tem delq rassq ange-ftp-completion-hook-function done error "Apparent cycle of symbolic links for %s" find-file-name-handler file-truename handler t file-name-directory dirfile target dir directory-file-name assoc file-name-as-directory new old file-name-nondirectory ".." "." file-symlink-p file-name-absolute-p] 7 "\
Return the truename of FILENAME, which should be absolute.
The truename of a file name is found by chasing symbolic links
both at the level of the file and at the level of the directories
containing it, until no links are left at any level.

The arguments COUNTER and PREV-DIRS are used only in recursive calls.
Do not specify them in other calls."])
(defalias 'file-chase-links #[(filename) "ہء\nئ!‰ƒZ \fاUƒ بة\n\"ˆتث\"ƒ0 ا‰”TOا•ہOP‚ تج\"ƒM حہOخدذردذ!!!!!!‚0 زذ!\"\fS‚ +‡" [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'."])
(defalias 'switch-to-buffer-other-window #[(buffer) "ہآہ\")‡" [t pop-up-windows pop-to-buffer buffer] 3 "\
Select buffer BUFFER in another window." "BSwitch to buffer in other window: "])
(defalias 'switch-to-buffer-other-frame #[(buffer) "ہآہ\"ˆؤإئ !!)‡" [t pop-up-frames pop-to-buffer buffer raise-frame window-frame selected-window] 3 "\
Switch to buffer BUFFER in another frame." "BSwitch to buffer in other frame: "])
(defalias '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: "])
(defalias '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: "])
(defalias 'find-file-other-frame #[(filename) "ہء\n!!‡" [switch-to-buffer-other-frame find-file-noselect filename] 3 "\
Edit file FILENAME, in another frame.
May create a new frame, or reuse an existing one.
See the function `display-buffer'." "FFind file in other frame: "])
(defalias '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: "])
(defalias '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: "])
(defalias 'find-file-read-only-other-frame #[(filename) "ہ	!ˆآp‡" [find-file-other-frame filename t buffer-read-only] 2 "\
Edit file FILENAME in another frame but don't allow changes.
Like \\[find-file-other-frame] but marks buffer as read-only.
Use \\[toggle-read-only] to permit editing." "fFind file read-only other frame: "])
(defalias 'find-alternate-file #[(filename) "ہ ƒ ءآأؤ \"!„ إئ!ˆp	ؤ \n\fدذ!ˆررر	زژس ˆش!ˆ)p=†I ض!-‡" [buffer-modified-p yes-or-no-p format "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 "ء‰‰ƒ إ\f!ئ\f!اب\nء‰%+C‡" [buffer-file-name nil file-dir file-name file file-name-nondirectory file-name-directory read-file-name "Find alternate file: "] 7)])
(defalias 'create-file-buffer #[(filename) "ہ	!‰أکƒ\f 	ؤ\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."])
(defalias 'generate-new-buffer #[(name) "ہء\n!!‡" [get-buffer-create generate-new-buffer-name name] 3 "\
Create and return a buffer with a name based on NAME.
Choose the buffer's name using `generate-new-buffer-name'."])
(defconst automount-dir-prefix "^/tmp_mnt/" "\
Regexp to match the automounter prefix in a directory name.")
(defvar abbreviated-home-dir nil "\
The user's homedir abbreviated according to `directory-abbrev-list'.")
(defalias 'abbreviate-file-name #[(filename) "ہ	\n\"ƒ أؤ\nإ•SئO!!ƒ \nإ•SئO‰ƒA ہ@@\n\"ƒ8 @A\nإ•ئOPA‰„# 	„T ت	ثجحخ!!دQ)	ہ	\n\"ƒژ إ•ذUƒk \nإHرU„ژ س=ƒ€ ش ضژہ×\n\"*„ژ خ\nذ”ذ•O\nإ•ئOQ\n)‡" [string-match automount-dir-prefix filename file-exists-p file-name-directory 0 nil directory-abbrev-alist tail abbreviated-home-dir "$foo" "^" abbreviate-file-name expand-file-name "~" "\\(/\\|$\\)" 1 47 system-type ms-dos match-data match-data ((store-match-data match-data)) "^[a-zA-Z]:/$"] 6 "\
Return a version of FILENAME shortened using `directory-abbrev-alist'.
This also substitutes \"~\" for the user's home directory.
Type \\[describe-variable] directory-abbrev-alist RET for more information."])
(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.")
(defalias 'find-buffer-visiting #[(filename) "ہ	!آأ	!!‰†ک ئ ا	„? 	ƒ? ٹ	@qˆ\nƒ6 \fکƒ6 	@)	A	‚ *†ک جح\f!›ئ ا	‰ƒ• „• 	ƒ• ٹ	@qˆ\nƒŒ ڑƒŒ ذ\n!ƒŒ جح\n!›ڑƒŒ 	@)	A	‚W +*‡" [get-file-buffer filename abbreviate-file-name file-truename truename buf buffer-list nil found list buffer-file-name buffer-file-truename 10 file-attributes number buffer-file-number file-exists-p] 5 "\
Return the buffer visiting file FILENAME (a string).
This is like `get-file-buffer', except that it checks for any buffer
visiting the same file, possibly under a different name.
If there is no such live buffer, return nil."])
(defalias 'find-file-noselect #[(filename &optional nowarn) "ہء\n!!أ\n!ƒ \fƒ إ\n!‡ئا\n\"‡ب\n!	ہت\n!!جح!›	?…6 د\n!رƒe „W \nس!ک„W شص\nس!#ˆ„a ƒe 		ƒ¨ „ط	!„ظ\n!„„ ئع\n\"ˆ‚غـف	!ƒ‘ ق‚’ كà\n!\"!ƒٹ	qˆلâ‰\"ˆ)‚ٹم\n!‰	qˆن ˆرهوڈˆ'()ê=ƒê ر+ىيî\n!\"ƒف î\n!ï‰”O++0‌)„ê 'ƒ÷ ء'!‰î\n!12!„َô!ˆâ4ُ?\"ˆ)	-‡" [abbreviate-file-name expand-file-name filename file-directory-p find-file-run-dired dired-noselect error "%s is a directory." get-file-buffer buf file-truename truename 10 file-attributes number find-buffer-visiting other nil nowarn buffer-file-name message "%s and %s are the same file" find-file-existing-other-name find-file-visit-truename 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.  Reread from disk? " file-name-nondirectory revert-buffer t create-file-buffer erase-buffer (insert-file-contents filename t) ((file-error (byte-code "ہ\n‰ƒ @ ƒ ؤ‚ A‰„ )ؤ‡" [t error find-file-not-found-hooks hooks nil] 2))) buffer-file-truename 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."])
(byte-code "ہء!„ آآ‡" [boundp after-find-file-from-revert-buffer nil] 2)
(defalias 'after-find-file #[(&optional error warn noauto after-find-file-from-revert-buffer) "ہ	!?„™ ؤƒ ا	!ƒ بة‚u \n„< \nƒ1 ثج 	\"ƒ1 ح‚u ب…u خ‚u „G بد‚u اذ!!ƒT ز‚u سش	!!ƒb ؤ‰‚u ؤسشذش	!!!!ƒt ص‚u ض‰ƒٹ ط!ˆ„ٹ ظعؤب#ˆ*ƒ™ „™ فب!ˆقب!ˆكà!\"‡" [file-writable-p buffer-file-name buffer-read-only noninteractive nil not-serious error file-attributes t "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 "Use M-x make-dir RET RET to create the directory" "Use C-u M-x make-dir RET RET to create directory and its parents" 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.
Fourth arg AFTER-FIND-FILE-FROM-REVERT-BUFFER non-nil
 means this call was from `revert-buffer'.
Finishes by calling the functions in `find-file-hooks'."])
(defalias 'normal-mode #[(&optional find-file) "„ 	†	 آ ˆأؤإڈˆأئاڈ‡" [find-file default-major-mode fundamental-mode err (set-auto-mode) ((error (byte-code "ہءآ!\"‡" [message "File mode specification error: %s" prin1-to-string err] 4))) (byte-code "?† 	آ )‡" [find-file enable-local-variables hack-local-variables] 1) ((error (byte-code "ہءآ!\"‡" [message "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 (quote purecopy) (quote (("\\.text\\'" . 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\\'" . prolog-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) ("\\.sgm\\'" . sgml-mode) ("\\.sgml\\'" . sgml-mode) ("\\.dtd\\'" . sgml-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 (quote (("perl" . perl-mode) ("wish" . tcl-mode) ("wishx" . tcl-mode) ("tcl" . tcl-mode) ("tclsh" . 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 (quote ("\\.tar$")) "\
List of regexps; if one matches a file name, don't look for `-*-'.")
(defvar user-init-file "" "\
File name including directory of user's initialization file.")
(defalias 'set-auto-mode #[nil "ہ‰‰ٹebˆؤہwˆƒ¯ ‰ƒ- ب@	\"„- A‰„ )„¯ تثٹجح!…= خˆ`)د#ƒ¯ ذہwˆ`تثٹہˆ`)د#ƒ¯ رuˆذہxˆ`bˆٹتز\nد#)ƒ£ دتش\nد#)ƒ­ ذہwˆ`تص\nد#ƒڈ ضuˆ‚’ \nbˆذہxˆ×`{—طP! ˆ‚o ×\n{—طP! ˆد	?…e	…e	دغ!…dہہà=„&ƒ&ب@@\"ƒ@A:ƒخ@8ƒ@A@ل‰”Oد‚@AہA‚غ )ƒ3 ˆ‚`ٹebˆجâ!ƒEم”م•{‚Fن)ہ%&çè&!)\"‰%ƒ_%A ˆ**‚ئ *,‡" [nil done end beg " 	\n" enable-local-variables inhibit-first-line-modes-regexps temp string-match buffer-file-name search-forward "-*-" looking-at "^#!" 2 t " 	" -3 ":" case-fold-search "mode:" ";" -1 intern "-mode" keep-going name file-name-sans-versions auto-mode-alist mode alist system-type vax-vms 0 "#! *\\([^ 	\n]+\\)" 1 "" elt interpreter assoc file-name-nondirectory interpreter-mode-alist] 5 "\
Select major mode appropriate for current buffer.
This checks for a -*- mode tag in the buffer's text,
compares the filename against the entries in `auto-mode-alist',
or checks the interpreter that runs this file against
`interpreter-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."])
(defalias (quote hack-local-variables-prop-line) #[nil "ٹebˆہٹءآ!… أˆ`)ئا\fب#ƒx ءة!„x ٹئا\fب#ƒ1 `تZ‚5 ثج!ˆ)`\fWƒu ءح!„F ثخ!ˆد•bˆذر”ر•{—!Œ`\f}ˆزp!)‰ص=„m BBضہwˆ*‚6 ں…¢ ب=„چ …¢ ط‹…¢ …¢ ظ@@@A\"ˆA‰„‘ ہ+‡" [nil looking-at "^#!" 2 end result search-forward "-*-" t "[ 	]*\\([^ 	\n:;]+\\)\\([ 	]*-\\*-\\)" 3 error "-*- not terminated before end of line" "[ 	]*\\([^ 	\n:]+\\)[ 	]*:[ 	]*" "malformed -*- line" 0 intern 1 read val key mode " 	;" enable-local-variables ((byte-code "ہءآڈˆأؤإئ!\"!‡" [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-frame] 2)))] 3))) y-or-n-p format "Set local variables as specified in -*- line of %s? " file-name-nondirectory buffer-file-name] 5)) hack-one-local-variable] 5])
(defalias 'hack-local-variables #[nil "ہ ˆٹdbˆءآdأZe]ؤ#ˆإابةإ#…* \nإ=†* \n…* ث‹)…إة‰‰‰\f\fزةwˆl„Q `ةˆ`{س”bˆn„a `سyˆ`{ƒq Gش!ƒ~ ش!صP…ƒڈ ×ط!ˆ‚’ ظyˆƒ© ع!ƒ¥ uˆ‚© غـ!ˆزةwˆ`فةwˆlƒ¼ غق!ˆزةxˆ`{à!!ة\"—مکƒف ة‚\fنةwˆظuˆàp!\"هةxˆزةwˆƒ‎ ع!‚‏ l„غو!ˆç!\"\"ˆ+‚~ .)‡" [hack-local-variables-prop-line search-backward "\n\f" 3000 move t case-fold-search search-forward "Local Variables:" nil enable-local-variables ((byte-code "ہp!ˆٹءyˆآأ `\"ˆ)ؤإئƒ ب!‚\" ةت P\"!‡" [switch-to-buffer 0 set-window-start selected-window y-or-n-p format "Set local variables as specified at end of %s? " buffer-file-name file-name-nondirectory "buffer " buffer-name] 5)) enable-local-eval beg suffix prefixlen prefix continue " 	" 0 regexp-quote "$" selective-display re-search-forward "[\n]" 1 looking-at error "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 "\
Parse and put into effect this buffer's local variables spec."])
(defconst ignored-local-variables (quote (enable-local-eval)) "\
Variables to be ignored in a file's local variable spec.")
(byte-code "ہءآأ#ˆہؤآأ#ˆہإآأ#ˆہئآأ#ˆہاآأ#ˆہبآأ#ˆہةآأ#ˆہتآأ#ˆہثآأ#ˆہجآأ#ˆہحآأ#ˆہخآأ#ˆہدآأ#ˆہذآأ#ˆہرآأ#ˆزسش\"ˆزصض\"‡" [put debugger risky-local-variable t enable-local-eval eval file-name-handler-alist minor-mode-map-alist after-load-alist buffer-file-name buffer-auto-save-file-name buffer-file-truename exec-path load-path exec-directory process-environment outline-level rmail-output-file-alist defalias hack-one-local-variable-quotep #[(exp) ":… @ء=… A:‡" [exp quote] 2] hack-one-local-variable #[(var val) "ء=ƒ آأ\f!—إP! ‡>ƒ ا‡بN„( ةتأ!\"ƒ“ ث=ƒc \f:ƒc \f@ج=ƒc ح\fA@!ƒc حخ\f8!ƒc د\f8§„Y د\f8ذڑƒc خ\f8A@ر>„{ ز سU„ڈ ص=„{ ƒڈ ض‹ƒڈ ث=ƒ‡ ٹث\f!)‡×!ˆ\fL‡طظ!‡×!ˆ\fL‡" [var mode intern symbol-name val "-mode" ignored-local-variables nil risky-local-variable string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-command$" eval put hack-one-local-variable-quotep 2 3 (quote defun) (lisp-indent-hook) user-uid 0 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)) make-local-variable message "Ignoring `eval:' in file's local variables"] 4]] 4)
(defalias 'set-visited-file-name #[(filename) "ہ\nƒ \nأک?… ؤ\n!\nƒ  إ\n!ƒ  	\nڑ„2 \nƒ/ ب\n!ˆة ˆ\n\nƒj ت!‰أکƒI جح!ˆد=ƒU —ذ!ز ک„i سش\"ˆ)ہض ˆ	ƒy ×	!\n…ƒ ظع!8)ـف!ˆـق!ˆـك!ˆـà!ˆ!ƒ‍ ہ\"ـل!ˆ#!„± نà!ˆش %&%„ث ƒد 'ƒد èش!ˆ‚د é %&ƒè %ƒè ê&!ƒè ë&%ش#ˆ)…ٌ ىش!‡" [nil truename filename "" expand-file-name file-truename find-file-visit-truename buffer-file-name lock-buffer unlock-buffer file-name-nondirectory new-name error "Empty file name" system-type vax-vms file-name-directory default-directory buffer-name rename-buffer t buffer-backed-up clear-visited-file-modtime abbreviate-file-name buffer-file-truename 10 file-attributes buffer-file-number kill-local-variable write-file-hooks local-write-file-hooks revert-buffer-function backup-inhibited 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] 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: "])
(defalias '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." (list (if buffer-file-name (read-file-name "Write file: " nil nil nil nil) (read-file-name "Write file: " (cdr (assq (quote default-directory) (buffer-local-variables))) nil nil (buffer-name))))])
(defalias 'backup-buffer #[nil "…I 	?…I \n?…I أ\f!…I إ\f!ئœاHب>…I \fة‰‰‰\n\fد!ذ!‰@\f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 "… 	آ=„ 	أ=… 	† ؤإئ\"!أبةڈˆآ\n	ƒ8 ƒ8 أثجڈˆA‰„, )‡" [targets delete-old-versions t nil y-or-n-p format "Delete excess backup versions of %s? " real-file-name (byte-code "„1 	„1 \nƒ أ\f!إV„1 ƒ9 ا\f!ة8†- ت8ث U?)ƒ9 جحخڈˆ‚F د\fر#ˆز!ج‡" [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 "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."])
(defalias 'file-name-sans-versions #[(name &optional keep-backup-version) "ہ	آ\"‰ƒ آ	\f#‚L 	إا=ƒ2 بة	\"†K بت	\"ƒ- ث”†K 	G‚K \fƒ; 	G‚K بج	\"†K بح	\"†K 	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."])
(defalias 'make-backup-file-name #[(file) "ء=ƒ آ!إ!ئا\f\"… \fبة•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."])
(defalias 'backup-file-name-p #[(file) "ء=ƒ آأ\f\"‡آإ\f\"‡" [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."])
(defalias '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."])
(defalias 'find-backup-file-name #[(fn) "ء=ƒ آ!C‡ؤ!إP‰Gب	ب\nث\fبثبدذڈˆ„6 آ!C‚i إر\fT!زRثV…h ص\\\\ثY…h ض×\n›S›ب،ˆ)\"B.‡" [version-control never make-backup-file-name fn file-name-nondirectory ".~" base-versions bv-length nil possibilities versions 0 high-water-mark deserve-versions-p number-to-delete (byte-code "ہ	آ!\"إئا\f\"ب\"	تثج	#†! ج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 "~" 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."])
(defalias 'file-nlinks #[(filename) "ہ	!A@‡" [file-attributes filename] 2 "\
Return number of names file FILENAME has."])
(defalias 'file-relative-name #[(filename &optional directory) "ہ	!آہ† \f!!إابة!P	\"„, تثجO!حP‚ 	ث•خOP)‡" [expand-file-name filename file-name-as-directory directory default-directory "" ancestor string-match "^" regexp-quote file-name-directory 0 -1 "../" nil] 4 "\
Convert FILENAME to be relative to DIRECTORY (default: default-directory)."])
(defalias 'save-buffer #[(&optional args) "ہ ء آVƒ \fإ=?† \fئ>‰ƒ& \fة>ƒ& تƒ6 ƒ6 جحخ \"ˆد ˆ…H \fذ>…H ت‰+‡" [buffer-modified-p buffer-size 50000 make-backup-files args 0 (16 64) large modp (16 64) nil buffer-backed-up message "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 `delete-old-versions' is nil, system will query user
 before trimming versions.  Otherwise it does it silently." "p"])
(defalias '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."])
(defalias 'basic-save-buffer #[nil "ہ ƒً ء آ‰ا=ƒ? ة!ک„? آ\nة!ث—!\fح\f!\nخ\f!ˆ)د\n!ˆ)„M ذرزس!آ\"!ˆشp!„j ص!ƒj ض×طظ!\"!„j عغ!ˆŒ~ˆdـVƒ¨ dSfفU„¨ ك=ƒٹ dSfàU„¨ !ك=„  !ƒ¨ â×مح \"!ƒ¨ ٹdbˆفcˆ)ن%&'#آ(‰)ƒج )@ ‰(„ج )A‰)„¹ („ش ê *فë!8,\fƒو آيîڈˆ)ï!ˆًٌ!+‡ٍَ!‡" [buffer-modified-p recent-auto-save-p nil tempsetmodes setmodes recent-save system-type vax-vms buffer-file-name file-name-sans-versions buffer-new-name create-file-buffer buf buffer-name kill-buffer rename-buffer set-visited-file-name expand-file-name read-file-name "File to save in: " 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? " append write-contents-hooks local-write-file-hooks write-file-hooks done hooks basic-save-buffer-1 file-attributes buffer-file-number (set-file-modes buffer-file-name setmodes) ((error)) delete-auto-save-file-if-necessary run-hooks after-save-hook message "(No changes need to be saved)"] 6 "\
Save the current buffer in its visited file, if it has been modified." nil])
(defalias (quote basic-save-buffer-1) #[nil "ہ‰أ\f!„C إ\f!ا!„ بة\"ˆ‚B ت\f!„. بث\"ˆ‚B جحخد\f!\"!ƒ> ذ‚B بر!ˆ)„K س إ\f!ƒ³ أ!ƒ³ \fہ‰‰‰‰غذƒگ حـ#ت!T‚t فژق ˆكedہ%ˆذ)à\f!ل\fذ#ˆ.‚ج \nƒؤ 	„ؤ à\f!â\fم\"ˆكed\fہذ%ˆ)	*‡" [nil setmodes tempsetmodes file-writable-p buffer-file-name file-name-directory dir file-directory-p error "%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 temp 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] 6])
(defalias 'save-some-buffers #[(&optional arg exiting) "ہ‹‡" [((byte-code "ہءآأ ؤإئاEC%…- 	…- \n„% ثجح\"!ƒ) دذ!ˆذ	ر‰شV†? †? صض!*‡" [map-y-or-n-p #[(buffer) "ہ	!…8 آ	!„ …8 	qˆ\f…8 إ ئV…8 ƒ% ب‡آ	!ƒ2 ةتآ	!\"‡ةثج	!\"‡" [buffer-modified-p buffer buffer-file-name exiting buffer-offer-save buffer-size 0 arg t format "Save file %s? " "Save buffer %s? " buffer-name] 4] #[(buffer) "qˆء ‡" [buffer save-buffer] 1] buffer-list ("buffer" "buffers" "save") 18 #[(buf) "ہ	!ˆآؤ ˆإ‡" [view-buffer buf (lambda (ignore) (exit-recursive-edit)) view-exit-action recursive-edit nil] 2] "display the current buffer" save-abbrevs abbrevs-changed arg y-or-n-p format "Save abbrevs in %s? " abbrev-file-name write-abbrev-file nil t abbrevs-done files-done 0 message "(No files need saving)"] 9))] 1 "\
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"])
(defalias 'not-modified #[(&optional arg) "ہ	ƒ	 آ‚\n أ!ˆؤ	!‡" [message arg "Modification-flag set" "Modification-flag cleared" set-buffer-modified-p] 2 "\
Mark current buffer as unmodified, not needing to be saved.
With prefix arg, mark buffer as modified, so \\[save-buffer] will save." "P"])
(defalias '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"])
(defalias '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: "])
(defalias '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: "])
(defalias 'file-newest-backup #[(filename) "ہ	!آ	!ؤ	!ئ\"ب	ƒ> @PAت!ƒ 	ƒ8 ث	\"ƒ 	‚ 	-‡" [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."])
(defalias '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])
(defalias 'make-directory #[(dir &optional parents) "ہ	آ\"‰ƒ آ	\f#‚O \f„ إ	!‚O ئا	!!ب	ت	!„9 		B	ئث	!!‚$ 	…N إ	@!ˆ	A‰	„> ب*)‡" [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 nonexistint directory.

Noninteractively, the second (optional) argument PARENTS says whether
to create parent directories if they don't exist." (list (read-file-name "Make directory: " default-directory default-directory nil nil) t)])
(put (quote revert-buffer-function) (quote permanent-local) t)
(defvar revert-buffer-function nil "\
Function to use to revert this buffer, or nil to do the default.
The function receives two arguments IGNORE-AUTO and NOCONFIRM,
which are the arguments that `revert-buffer' received.")
(put (quote revert-buffer-insert-file-contents-function) (quote 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.")
(defalias 'revert-buffer #[(&optional ignore-auto noconfirm) "ƒ	 	\n\"‡`	?…\" ؤ …\" …\" ئ!…\" اب!‰	ƒ, ‚. \n‰„: جح!‚² \n„H خدذ\"!…² رز!ˆ	„Z سp!„Z ش×=„d شش×ƒz 	\"ˆ‚  ع!„‡ جغ\"ˆش\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 "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." (list (not prefix-arg))])
(defalias 'recover-file #[(file) "ہ	!آأ	!!ƒ ؤإ	\"ˆ	ا )ة	\"„) ؤت\"‚M ث‹ƒJ جح	خ\"!ˆدر ˆزد\"ˆ)سد‰خ#‚M ؤش!)‡" [expand-file-name file auto-save-file-name-p file-name-nondirectory error "%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 "ء=„% آگأ\f!ˆإئا\fاب	!ƒ ت‚ ث	\f&‘ˆحخد\f\"!‡" [system-type vax-vms "*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 "ء‰‰ƒ إ\f!ئ\f!اب\nء‰%+C‡" [buffer-file-name nil file-dir file-name prompt-file file-name-nondirectory file-name-directory read-file-name "Recover file: "] 7)])
(defalias 'kill-some-buffers #[nil "ہ ‰…= 	@أ\n!‰إک„4 \fئHاU„4 بةت\fث\n!ƒ* ج‚+ ح#!ƒ4 خ\n!ˆ*	A‰„ د)‡" [buffer-list list buffer buffer-name name "" 0 32 yes-or-no-p format "Buffer %s %s.  Kill? " buffer-modified-p "HAS BEEN EDITED" "is unmodified" kill-buffer nil] 7 "\
For each buffer, ask whether to kill it." nil])
(defalias 'auto-save-mode #[(arg) "„ 	ƒ$ \nأW‚! ؤ=„$ <„$ ¨…8 أV…8 ƒ6 ƒ6 „6 ‚8 ب \nأWƒA أtƒR ةت	ƒO ث‚P ج\"ˆ	‡" [arg buffer-auto-save-file-name buffer-saved-size 0 t buffer-file-name auto-save-visited-file-name buffer-read-only make-auto-save-file-name message "Auto-save %s (in this buffer)" "on" "off"] 3 "\
Toggle auto-saving of contents of current buffer.
With prefix argument ARG, turn auto-saving on if positive, else off." "P"])
(defalias '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."])
(defalias 'make-auto-save-file-name #[nil "ƒ ء!آأ!آR‡ؤ إاب\f#ƒA \fإ‰”O\fإ”إ•Oةکƒ1 ت‚2 ث\fإ•جOQإ•T‚ حخد\fذر!#!*‡" [buffer-file-name file-name-directory "#" file-name-nondirectory buffer-name 0 limit string-match "[/\\]" "/" "\\!" "\\\\" nil expand-file-name format "#%s#%s#" make-temp-name ""] 6 "\
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'."])
(defalias '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,")
(defalias 'list-directory #[(dirname &optional verbose) "ƒ 	‚	 \n\f„ ئ\f!اگب	!ˆتث!ˆت\f!ˆج ˆٹاqˆح\f!?د\f‰?$*‘)‡" [verbose list-directory-verbose-switches list-directory-brief-switches switches dirname default-directory expand-file-name "*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 "آ	ƒ أ‚\f ؤإإ$	)D‡" [current-prefix-arg pfx read-file-name "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'.")
(defalias 'insert-directory #[(file switches &optional wildcard full-directory-p) "ہء\n!أ\"‰ƒ \fأ\n%‚ـ ة=ƒ& ت\np#‚ـ ƒ‹ ث\n!ƒ7 ج\n!‚< جء\n!!ح\n!خزس#ƒh خ‰”Oشخ”صOQخ•T‚F ضصطصظغ;ƒ{ ‚€ ـفق#ق°&+‚ـ كضصطص‰ <ƒ   ‚ئ لڑ„ئ زق\"ƒہ خ‰”O B خ•صO‚¦  B â ƒض م\n!نP‚× \nC\")&)‡" [find-file-name-handler expand-file-name file insert-directory handler switches wildcard full-directory-p system-type vax-vms vms-read-directory file-name-absolute-p file-name-directory file-name-nondirectory 0 beg pattern default-directory string-match "[ 	\n;<>&|()#$]" "\\" nil call-process shell-file-name t "-c" insert-directory-program " -d " mapconcat identity " " apply list "" append file-name-as-directory "."] 13 "\
Insert directory listing for FILE, formatted according to SWITCHES.
Leaves point after the inserted text.
SWITCHES may be a string of options, or a list of strings.
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.
If any of these functions returns nil, killing Emacs is cancelled.")
(defalias 'save-buffers-kill-emacs #[(&optional arg) "ہ	آ\"ˆآأؤإ \">ƒ ئا!…ٹ بة!ƒ^ ة ت‰\fƒQ ح\f@!خ>ƒH د\f@!د\f@\"ˆ)ƒH آ\fA‰\f„& ?†Z ئر!*…ٹ آ‰ƒ‚ ƒ‚ …w @ A‰„i *…ٹ ص ‡" [save-some-buffers arg t mapcar #[(buf) "ہ	!…	 آ	!‡" [buffer-file-name buf buffer-modified-p] 2] buffer-list yes-or-no-p "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"])
(byte-code "ہ	آأ#ˆہ	ؤإ#ˆہ	ئا#ˆہ	بة#ˆہ	تث#ˆہ	جح#ˆہ	خد#ˆہ	ذر#ˆہسش#ˆہ	صض#ˆہ	×ط#ˆہعغ#ˆہـف#ˆہآغ#ˆہقك#ˆہàل#ˆہ\"قم#ˆہ\"عن#ˆہ\"آن#ˆہ\"ـه#‡" [define-key ctl-x-map "" find-file "" toggle-read-only "" find-file-read-only "" find-alternate-file "" save-buffer "s" save-some-buffers "" write-file "i" insert-file esc-map "~" not-modified "" list-directory "" save-buffers-kill-emacs ctl-x-4-map "f" find-file-other-window "r" find-file-read-only-other-window "b" switch-to-buffer-other-window "" display-buffer ctl-x-5-map switch-to-buffer-other-frame find-file-other-frame find-file-read-only-other-frame] 4)