mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

New fun.

Browse Source
This commit is contained in:
Vinicius Jose Latorre 2004-05-06 03:47:19 +00:00
parent 51138c946f
commit bd20e8cd66
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ps-print.el
View File

@ -3501,6 +3501,7 @@ The table depends on the current ps-print setup."
#'ps-print-quote
(list
(concat "\n;;; ps-print version " ps-print-version "\n")
(ps-comment-string "ps-print-emacs-type" ps-print-emacs-type)
'(25 . ps-print-color-p)
'(25 . ps-lpr-command)
'(25 . ps-lpr-switches)
@ -3674,6 +3675,11 @@ If `ps-prefix-quote' is nil, it's set to t after generating string."
(format "%S" val))))
(defun ps-comment-string (str value)
"Return a comment string like \";; STR = VALUE\\n\"."
(concat ";; " str " = " (ps-value-string value) "\n"))
(defun ps-value (alist-sym key)
"Return value from association list ALIST-SYM which car is `eq' to KEY."
(cdr (assq key (symbol-value alist-sym))))