From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 28 Mar 2000 11:24:00 +0000 (+0000)
Subject: (lm-last-modified-date): Add parameter
X-Git-Tag: emacs-pretest-21.0.90~4444
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07d505c1542656ba375ef4ea06206db8344dcabb;p=emacs.git

(lm-last-modified-date): Add parameter
ISO-DATE.  If non-nil, return date in ISO 8601 format.
---

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index 0fac9d944ae..2f50541fe6f 100644
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -287,21 +287,25 @@ The return value has the form (NAME . ADDRESS)."
   (lm-with-file file
     (lm-header "created")))
 
-(defun lm-last-modified-date (&optional file)
-  "Return the modify-date given in file FILE, or current buffer if FILE is nil."
+(defun lm-last-modified-date (&optional file iso-date)
+  "Return the modify-date given in file FILE, or current buffer if FILE is nil.
+ISO-DATE non-nil means return the date in ISO 8601 format."
   (lm-with-file file
-    (if (progn
-	  (goto-char (point-min))
-	  (re-search-forward
-	   "\\$[I]d: [^ ]+ [^ ]+ \\([^/]+\\)/\\([^/]+\\)/\\([^ ]+\\) "
-	   (lm-code-mark) t))
-	(format "%s %s %s"
-		(match-string 3)
-		(nth (string-to-int
-		      (match-string 2))
-		     '("" "Jan" "Feb" "Mar" "Apr" "May" "Jun"
-		       "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"))
-		(match-string 1)))))
+    (when (progn (goto-char (point-min))
+		 (re-search-forward
+		  "\\$[I]d: [^ ]+ [^ ]+ \\([^/]+\\)/\\([^/]+\\)/\\([^ ]+\\) "
+		  (lm-code-mark) t))
+      (let ((dd (match-string 3))
+	    (mm (match-string 2))
+	    (yyyy (match-string 1)))
+	(if iso-date
+	    (format "%s-%s-%s" yyyy mm dd)
+	  (format "%s %s %s"
+		  dd
+		  (nth (string-to-int mm)
+		       '("" "Jan" "Feb" "Mar" "Apr" "May" "Jun"
+			 "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"))
+		  yyyy))))))
 
 (defun lm-version (&optional file)
   "Return the version listed in file FILE, or current buffer if FILE is nil.
@@ -474,4 +478,3 @@ Prompts for bug subject TOPIC.  Leaves you in a mail buffer."
 (provide 'lisp-mnt)
 
 ;;; lisp-mnt.el ends here
-