From: Dave Love <fx@gnu.org>
Date: Fri, 2 Jun 2000 18:46:19 +0000 (+0000)
Subject: (convert-standard-filename): Doc fix.
X-Git-Tag: emacs-pretest-21.0.90~3545
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37193ee6327794f520cf8856a27e57bbda8bba10;p=emacs.git

(convert-standard-filename): Doc fix.
(normal-backup-enable-predicate): New function.
(backup-enable-predicate): Use it to replace the lambda form.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e77ebdffa3..20b78b024c1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,19 @@
 2000-06-02  Dave Love  <fx@gnu.org>
 
+	* files.el (convert-standard-filename): Doc fix.
+	(normal-backup-enable-predicate): New function.
+	(backup-enable-predicate): Use it to replace the lambda form.
+
+	* calendar/todo-mode.el: [This needs more work on the outline
+	stuff.]  Doc fixes.
+	(todo) <defgroup>: Add :version.
+	(todo-add-category): Don't use pushnew.
+	(todo-cmd-raise): Fix typo.
+	(todo-top-priorities): Change temp buffer name.
+	(todo-category-alist): Avoid redundant lambda.
+	(todo-mode): Set paragraph-separate, outline-regexp from
+	todo-prefix.  Use outline-next-heading.
+
 	* autoarg.el: Rewritten to use define-minor-mode.
 	(autoarg-kp-digits, autoarg-kp-mode-map): New variable.
 	(autoarg-kp-mode, autoarg-kp-digit-argument): New command.
diff --git a/lisp/files.el b/lisp/files.el
index b56d15aeafb..dfeefc1277e 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -133,24 +133,26 @@ This variable is relevant only if `backup-by-copying' and
   :type '(choice (const nil) integer)
   :group 'backup)
 
-(defvar backup-enable-predicate
-  (lambda (name)
-    (not (or (let ((comp (compare-strings temporary-file-directory 0 nil
-				      name 0 nil)))
-	       ;; Directory is under temporary-file-directory.
-	       (and (not (eq comp t))
-		    (< comp -1)))
-	     (if small-temporary-file-directory
-		 (let ((comp (compare-strings small-temporary-file-directory
-					      0 nil
-					      name 0 nil)))
-		   ;; Directory is under small-temporary-file-directory.
-		   (and (not (eq comp t))
-			(< comp -1)))))))
+(defun normal-backup-enable-predicate (name)
+  "Default `backup-enable-predicate' function.
+Checks for files in `temporary-file-directory' or
+`small-temporary-file-directory'."
+  (not (or (let ((comp (compare-strings temporary-file-directory 0 nil
+					name 0 nil)))
+	     ;; Directory is under temporary-file-directory.
+	     (and (not (eq comp t))
+		  (< comp -1)))
+	   (if small-temporary-file-directory
+	       (let ((comp (compare-strings small-temporary-file-directory
+					    0 nil
+					    name 0 nil)))
+		 ;; Directory is under small-temporary-file-directory.
+		 (and (not (eq comp t))
+		      (< comp -1)))))))
+
+(defvar backup-enable-predicate 'normal-backup-enable-predicate
   "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.
-The default version checks for files in `temporary-file-directory' or
-`small-temporary-file-directory'.")
+Called with an absolute file name as argument, it returns t to enable backup.")
 
 (defcustom buffer-offer-save nil
   "*Non-nil in a buffer means always offer to save buffer on exit.
@@ -458,8 +460,9 @@ Runs the usual ange-ftp hook, but only for completion operations."
 (defun convert-standard-filename (filename)
   "Convert a standard file's name to something suitable for the current OS.
 This function's standard definition is trivial; it just returns the argument.
-However, on some systems, the function is redefined
-with a definition that really does change some file names."
+However, on some systems, the function is redefined with a definition
+that really does change some file names to canonicalize certain
+patterns and to guarantee valid names."
   filename)
 
 (defun pwd ()