diff options
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 2ce87f20866..7013442d04c 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -2135,9 +2135,8 @@ You may need to redefine `file-name-sans-versions' as well." | |||
| 2135 | (defvar backup-extract-version-start) | 2135 | (defvar backup-extract-version-start) |
| 2136 | 2136 | ||
| 2137 | ;; This is used in various files. | 2137 | ;; This is used in various files. |
| 2138 | ;; The usage of bv-length is not very clean, | 2138 | ;; The usage of backup-extract-version-start is not very clean, |
| 2139 | ;; but I can't see a good alternative, | 2139 | ;; but I can't see a good alternative, so as of now I am leaving it alone. |
| 2140 | ;; so as of now I am leaving it alone. | ||
| 2141 | (defun backup-extract-version (fn) | 2140 | (defun backup-extract-version (fn) |
| 2142 | "Given the name of a numeric backup file, return the backup number. | 2141 | "Given the name of a numeric backup file, return the backup number. |
| 2143 | Uses the free variable `backup-extract-version-start', whose value should be | 2142 | Uses the free variable `backup-extract-version-start', whose value should be |