From 66657f2792360581daa4641ab88e836359be78b7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 16 Mar 1995 23:28:27 +0000 Subject: (make-auto-save-file-name, auto-save-file-name-p): Doc fixes. --- lisp/vms-patch.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'lisp/vms-patch.el') diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el index 93edaa8680..18cc9f823c 100644 --- a/lisp/vms-patch.el +++ b/lisp/vms-patch.el @@ -54,10 +54,11 @@ otherwise a string <2> or <3> or ... is appended to get an unused name." (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 @@ See also auto-save-file-name-p." (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)) ;;; -- cgit v1.2.3