Use locale dependant date to print date in header. Doc

fix.
(ps-print-version): New version number (6.5.3).
(ps-right-header, ps-right-footer): Initialization and doc fix.
(ps-time-stamp-locale-default): New fun.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1dced20e1637f97a02ad7c13f5d407db610b16ec..b2b90b716253f7fd633940fbe3869dce1298acd0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2001-07-06  Vinicius Jose Latorre  <vinicius@cpqd.com.br>
+
+       * ps-print.el: Use locale dependant date to print date in header.  Doc
+       fix.
+       (ps-print-version): New version number (6.5.3).
+       (ps-right-header, ps-right-footer): Initialization and doc fix.
+       (ps-time-stamp-locale-default): New fun.
+
 2001-07-06  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * bindings.el (mode-line-mule-info): Don't show the tip with

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 912fc9cfb53d3079166d192947ad05ce40785d4c..dce8bda7e3753eaf732cccc0fbbd88f3514f0525 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -10,12 +10,12 @@
 ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:   wp, print, PostScript
-;; Time-stamp: <2001/05/30 17:44:36 vinicius>
-;; Version:    6.5.2
+;; Time-stamp: <2001/06/19 11:01:09 vinicius>
+;; Version:    6.5.3
 ;; X-URL:      http://www.cpqd.com.br/~vinicius/emacs/
 
-(defconst ps-print-version "6.5.2"
-  "ps-print.el, v 6.5.2 <2001/05/30 vinicius>
+(defconst ps-print-version "6.5.3"
+  "ps-print.el, v 6.5.3 <2001/06/19 vinicius>
 
 Vinicius's last change version -- this file may have been edited as part of
 Emacs without changes to the version number.  When reporting bugs, please also
@@ -1212,6 +1212,12 @@ Please send all bug fixes and enhancements to
 ;;
 ;; [vinicius] Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;;
+;;    20010619
+;;      `ps-time-stamp-locale-default'
+;;
+;;    20010530
+;;      Handle before-string and after-string overlay properties.
+;;
 ;;    20010407
 ;;      `ps-line-number-color', `ps-print-footer', `ps-footer-offset',
 ;;      `ps-print-footer-frame', `ps-footer-font-family',
@@ -2956,12 +2962,24 @@ variable, the string value has PostScript string delimiters added to it."
 
 (defcustom ps-right-header
   (list "/pagenumberstring load"
-       'ps-time-stamp-mon-dd-yyyy 'ps-time-stamp-hh:mm:ss)
+       'ps-time-stamp-locale-default 'ps-time-stamp-hh:mm:ss)
   "*The items to display (each on a line) on the right part of the page header.
 This applies to generating PostScript.
 
 See the variable `ps-left-header' for a description of the format of this
-variable."
+variable.
+
+There are the following basic functions implemented:
+
+   `ps-time-stamp-locale-default'      Return the locale's \"preferred\" date
+                                       as, for example, \"06/18/01\".
+
+   `ps-time-stamp-hh:mm:ss'            Return time as \"17:28:31\".
+
+   `ps-time-stamp-mon-dd-yyyy'         Return date as \"Jun 18 2001\".
+
+You can also create your own time stamp function by using `format-time-string'
+(which see)."
   :type '(repeat (choice :menu-tag "Right Header"
                         :tag "Right Header"
                         string symbol))
@@ -2991,12 +3009,24 @@ variable, the string value has PostScript string delimiters added to it."
 
 (defcustom ps-right-footer
   (list "/pagenumberstring load"
-       'ps-time-stamp-mon-dd-yyyy 'ps-time-stamp-hh:mm:ss)
+       'ps-time-stamp-locale-default 'ps-time-stamp-hh:mm:ss)
   "*The items to display (each on a line) on the right part of the page footer.
 This applies to generating PostScript.
 
 See the variable `ps-left-footer' for a description of the format of this
-variable."
+variable.
+
+There are the following basic functions implemented:
+
+   `ps-time-stamp-locale-default'      Return the locale's \"preferred\" date
+                                       as, for example, \"06/18/01\".
+
+   `ps-time-stamp-hh:mm:ss'            Return time as \"17:28:31\".
+
+   `ps-time-stamp-mon-dd-yyyy'         Return date as \"Jun 18 2001\".
+
+You can also create your own time stamp function by using `format-time-string'
+(which see)."
   :version "21.1"
   :type '(repeat (choice :menu-tag "Right Footer"
                         :tag "Right Footer"
@@ -3486,11 +3516,18 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'."
   (symbol-value alist-sym))
 
 
+(defun ps-time-stamp-locale-default ()
+  "Return the locale's \"preferred\" date as, for example, \"06/18/01\"."
+  (format-time-string "%x"))
+
+
 (defun ps-time-stamp-mon-dd-yyyy ()
+  "Return date as \"Jun 18 2001\"."
   (format-time-string "%b %d %Y"))
 
 
 (defun ps-time-stamp-hh:mm:ss ()
+  "Return time as \"17:28:31\"."
   (format-time-string "%T"))