(defconst delete-auto-save-files t "*Non-nil means delete a buffer's auto-save file when the buffer is saved for real.") (defconst make-backup-files t "*Create a backup of each file when it is saved for the first time. This can be done by renaming the file or by copying, according to the values of backup-by-copying and backup-by-copying-when-linked.") (defconst backup-by-copying nil "*Non-nil means create backups of files by copying rather than by renaming.") (defconst backup-by-copying-when-linked nil "*Non-nil means create backups of multi-named files by copying rather than by renaming. This causes the alternate names to refer to the latest version as edited.") (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 true, deletes excess backup versions silently. Otherwise asks confirmation.") (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 "*t says silently put a newline at the end whenever a file is saved. Non-nil but not t says ask user whether to add a newline in each such case. nil means don't add newlines.") (defconst auto-save-default t "*t says by default do auto-saving of every file-visiting buffer.") (defconst auto-save-visited-file-name nil "*t 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 t "*Non-nil means save word abbrevs too when files are saved.") (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-hook nil "*If non-nil specifies a function to be called for find-file on nonexistent file. This function is called as soon as the error is detected. buffer-file-name is already set up.") (defvar find-file-hook nil "*If non-nil specifies a function to be called after a buffer is found or reverted from a file. The buffer's local variables (if any) will have been processed before the function is called.") (defvar write-file-hook nil "*If non-nil specifies a function to be called before writing out a buffer to a file.") (or (fboundp (quote lock-buffer)) (fset (quote lock-buffer) (quote ignore))) (or (fboundp (quote unlock-buffer)) (fset (quote unlock-buffer) (quote ignore))) (defun pwd nil "\ Show the current default directory." (interactive nil) (byte-code " \"" [nil default-directory message "Directory %s"] 3)) (defun cd (dir) "\ Make DIR become the current buffer's default directory." (interactive "DChange default directory: ") (byte-code "!\" P!?# \"&