From 4b81a999b9ec48098518586025791d405e396a74 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 6 Jul 2001 09:59:25 +0000 Subject: [PATCH] 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. --- lisp/ChangeLog | 8 ++++++++ lisp/ps-print.el | 53 ++++++++++++++++++++++++++++++++++++++++-------- 2 files changed, 53 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1dced20e163..b2b90b71625 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2001-07-06 Vinicius Jose Latorre + + * 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 * 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 912fc9cfb53..dce8bda7e37 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -10,12 +10,12 @@ ;; Maintainer: Kenichi Handa (multi-byte characters) ;; Maintainer: Vinicius Jose Latorre ;; 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 ;; +;; 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")) -- 2.39.2