# HG changeset patch # User Richard M. Stallman <rms@gnu.org> # Date 795396507 0 # Node ID b4bf1f2d99f82db39fcfedafdf145588792cf351 # Parent 796be3f4f8a166daf884ef0ebea5801ef41af425 (make-auto-save-file-name, auto-save-file-name-p): Doc fixes. diff -r 796be3f4f8a1 -r b4bf1f2d99f8 lisp/vms-patch.el --- a/lisp/vms-patch.el Thu Mar 16 23:04:55 1995 +0000 +++ b/lisp/vms-patch.el Thu Mar 16 23:28:27 1995 +0000 @@ -54,10 +54,11 @@ (defun make-auto-save-file-name () "Return file name to use for auto-saves of current buffer. -Does not consider auto-save-visited-file-name; that is checked -before calling this function. -This is a separate function so your .emacs file or site-init.el can redefine it. -See also auto-save-file-name-p." +This function does not consider `auto-save-visited-file-name'; +the caller should check that before calling this function. +This is a separate function so that your `.emacs' file or the site's +`site-init.el' can redefine it. +See also `auto-save-file-name-p'." (if buffer-file-name (concat (file-name-directory buffer-file-name) "_$" @@ -66,9 +67,10 @@ (expand-file-name (concat "_$_" (make-legal-file-name (buffer-name)) "$")))) (defun auto-save-file-name-p (filename) - "Return t if FILENAME can be yielded by make-auto-save-file-name. + "Return t if FILENAME can be yielded by `make-auto-save-file-name'. FILENAME should lack slashes. -This is a separate function so your .emacs file or site-init.el can redefine it." +This is a separate function so that your `.emacs' file or the site's +`site-init.el' can redefine it." (string-match "^_\\$.*\\$" filename)) ;;;