diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/time-stamp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index 42455ddfe33..0cc566f0d8c 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -499,7 +499,8 @@ and all `time-stamp-format' compatibility." (< ind fmt-len))) (if (and (<= ?0 cur-char) (>= ?9 cur-char)) ;; get format width - (let ((field-index ind)) + (let ((field-index ind) + (first-digit cur-char)) (while (progn (setq ind (1+ ind)) (setq cur-char (if (< ind fmt-len) @@ -510,6 +511,7 @@ and all `time-stamp-format' compatibility." (setq field-width (substring format field-index ind)) (setq ind (1- ind)) + (setq cur-char first-digit) t)))) (setq prev-char cur-char) ;; some characters we actually use |