diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-04-19 15:44:55 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-04-19 15:44:55 +0200 |
| commit | 06b605171f1c9d8b42bd3326a243b8b03d2e4e58 (patch) | |
| tree | e96c135042999136bf0e75d113aae306e51983e3 /lisp/time-stamp.el | |
| parent | 04c569546ad52f6270d8fc6d4aa0750950a0ac05 (diff) | |
| download | emacs-06b605171f1c9d8b42bd3326a243b8b03d2e4e58.tar.gz | |
lisp/*.el: Lexical-binding cleanup.
Diffstat (limited to 'lisp/time-stamp.el')
| -rw-r--r-- | lisp/time-stamp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index 9a9fc8b4a83..59340583997 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -470,7 +470,7 @@ and all `time-stamp-format' compatibility." (result "") field-width field-result - alt-form change-case require-padding + alt-form change-case (paren-level 0)) (while (< ind fmt-len) (setq cur-char (aref format ind)) @@ -480,7 +480,7 @@ and all `time-stamp-format' compatibility." (cond ((eq cur-char ?%) ;; eat any additional args to allow for future expansion - (setq alt-form nil change-case nil require-padding nil field-width "") + (setq alt-form nil change-case nil field-width "") (while (progn (setq ind (1+ ind)) (setq cur-char (if (< ind fmt-len) |