Mercurial > emacs
changeset 55383:ba1da01a183d
New fun.
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Thu, 06 May 2004 03:21:04 +0000 |
| parents | 777e9f38cea4 |
| children | 4be40784bad4 |
| files | lisp/ps-print.el |
| diffstat | 1 files changed, 13 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ps-print.el Thu May 06 01:12:06 2004 +0000 +++ b/lisp/ps-print.el Thu May 06 03:21:04 2004 +0000 @@ -3657,14 +3657,23 @@ (if (> col len) (make-string (- col len) ?\ ) " ") - (cond ((null val) "nil") - ((eq val t) "t") - ((or (symbolp val) (listp val)) (format "'%S" val)) - (t (format "%S" val)))))) + (ps-value-string val)))) (t "") )) +(defun ps-value-string (val) + "Return a string representation of VAL. Used by `ps-print-quote'." + (cond ((null val) + "nil") + ((eq val t) + "t") + ((or (symbolp val) (listp val)) + (format "'%S" val)) + (t + (format "%S" val)))) + + (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))))