(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 0e77ebdffa3efd4888e3d0200f88a5bc504cfe28..20b78b024c1a840d86b444ff4532e6e001203685 100644 (file)
--- 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 b56d15aeafbb396d3241174766e70fbf66f898ed..dfeefc1277e97584545510bc96c7fa167cf466f2 100644 (file)
--- 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)
 \f
 (defun pwd ()