(convert-standard-filename): Doc fix.

(normal-backup-enable-predicate): New function.
(backup-enable-predicate): Use it to replace the lambda form.

2 files changed, 36 insertions, 19 deletions

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 ()