[AUCTeX-diffs] Changes to auctex/latex.el,v

[Tassilo Horn]

CVSROOT:        /sources/auctex
Module name:    auctex
Changes by:     Tassilo Horn <tsdh>     13/03/04 09:26:51

Index: latex.el
===================================================================
RCS file: /sources/auctex/auctex/latex.el,v
retrieving revision 5.487
retrieving revision 5.488
diff -u -b -r5.487 -r5.488
--- latex.el    25 Feb 2013 11:24:50 -0000      5.487
+++ latex.el    4 Mar 2013 09:26:50 -0000       5.488
@@ -1980,6 +1980,18 @@
                    nil t)
    optional))
 
+(defun TeX-arg-date (optional &optional prompt)
+  "Prompt for a date, defaulting to the current date.
+If OPTIONAL is non-nil, insert the resulting value as an optional
+argument, otherwise as a mandatory one.  Use PROMPT as the prompt
+string."
+  (let ((default (format-time-string "%Y/%m/%d" (current-time))))
+    (TeX-argument-insert
+     (TeX-read-string (TeX-argument-prompt
+                      optional prompt (format "Date (default %s)" default))
+                     nil nil default)
+     optional)))
+
 (defun TeX-arg-pagestyle (optional &optional prompt definition)
   "Prompt for a LaTeX pagestyle with completion.
 If OPTIONAL is non-nil, insert the resulting value as an optional
@@ -5461,7 +5473,7 @@
    '("breve" t) '("check" t) '("hat" t) '("vec" t) '("dot" t)
    '("widetilde" t) '("widehat" t)
    '("author" t)
-   '("date" t)
+   '("date" TeX-arg-date)
    '("thanks" t)
    '("title" t)
    '("pagenumbering" (TeX-arg-eval