Mercurial > emacs
comparison lisp/time-stamp.el @ 32874:12f068b4d5ac
(time-stamp-string-preprocess): Fix a wrong
type argument error.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Wed, 25 Oct 2000 12:06:41 +0000 |
parents | 08bfb5555d7b |
children | ccf845685d1c |
comparison
equal
deleted
inserted
replaced
32873:1dbdec58e580 | 32874:12f068b4d5ac |
---|---|
1 ;;; time-stamp.el --- Maintain last change time stamps in files edited by Emacs | 1 ;;; time-stamp.el --- Maintain last change time stamps in files edited by Emacs |
2 | 2 |
3 ;; Copyright 1989, 1993, 1994, 1995, 1997, 2000 | 3 ;; Copyright 1989, 1993, 1994, 1995, 1997, 2000 |
4 ;;; Free Software Foundation, Inc. | 4 ;;; Free Software Foundation, Inc. |
5 | 5 |
6 ;; Maintainer's Time-stamp: <2000-06-07 13:05:45 gildea> | 6 ;; Maintainer's Time-stamp: <2000-10-23 16:08:34 gildea> |
7 ;; Maintainer: Stephen Gildea <gildea@alum.mit.edu> | 7 ;; Maintainer: Stephen Gildea <gildea@alum.mit.edu> |
8 ;; Keywords: tools | 8 ;; Keywords: tools |
9 | 9 |
10 ;; This file is free software; you can redistribute it and/or modify | 10 ;; This file is free software; you can redistribute it and/or modify |
11 ;; it under the terms of the GNU General Public License as published by | 11 ;; it under the terms of the GNU General Public License as published by |
573 ((eq cur-char ?L) ;(undocumented alt user full name) | 573 ((eq cur-char ?L) ;(undocumented alt user full name) |
574 (user-full-name)) | 574 (user-full-name)) |
575 ((eq cur-char ?h) ;mail host name | 575 ((eq cur-char ?h) ;mail host name |
576 (time-stamp-mail-host-name)) | 576 (time-stamp-mail-host-name)) |
577 )) | 577 )) |
578 (if (string-equal field-width "") | 578 (let ((padded-result |
579 field-result | 579 (format (format "%%%s%c" |
580 (let ((padded-result | 580 field-width |
581 (format (format "%%%s%c" | 581 (if (numberp field-result) ?d ?s)) |
582 field-width | 582 (or field-result "")))) |
583 (if (numberp field-result) ?d ?s)) | 583 (let* ((initial-length (length padded-result)) |
584 (or field-result "")))) | 584 (desired-length (if (string-equal field-width "") |
585 (let ((initial-length (length padded-result)) | 585 initial-length |
586 (desired-length (string-to-int field-width))) | 586 (string-to-int field-width)))) |
587 (if (> initial-length desired-length) | 587 (if (> initial-length desired-length) |
588 ;; truncate strings on right, years on left | 588 ;; truncate strings on right, years on left |
589 (if (stringp field-result) | 589 (if (stringp field-result) |
590 (substring padded-result 0 desired-length) | 590 (substring padded-result 0 desired-length) |
591 (if (eq cur-char ?y) | 591 (if (eq cur-char ?y) |
592 (substring padded-result (- desired-length)) | 592 (substring padded-result (- desired-length)) |
593 padded-result)) ;non-year numbers don't truncate | 593 padded-result)) ;non-year numbers don't truncate |
594 padded-result))))) | 594 padded-result)))) |
595 (t | 595 (t |
596 (char-to-string cur-char))))) | 596 (char-to-string cur-char))))) |
597 (setq ind (1+ ind))) | 597 (setq ind (1+ ind))) |
598 result)) | 598 result)) |
599 | 599 |