diff options
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2004-05-06 03:47:19 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2004-05-06 03:47:19 +0000 |
| commit | db3315ee65f0089291465f70f3919ddf9d32334f (patch) | |
| tree | e76ef9c74b06178f2d0026ee7cdc6d11af540efb | |
| parent | 31d9189e7cd343b32d298b3d6567f59fd37b219a (diff) | |
| download | emacs-db3315ee65f0089291465f70f3919ddf9d32334f.tar.gz | |
New fun.
| -rw-r--r-- | lisp/ps-print.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 620398ac3b9..d6042a9763c 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -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)))) |