mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

New fun.

Browse Source
This commit is contained in:
Vinicius Jose Latorre 2004-05-06 03:21:04 +00:00
parent 1c34b5a97d
commit 51138c946f
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/ps-print.el
View File

@ -3657,14 +3657,23 @@ If `ps-prefix-quote' is nil, it's set to t after generating string."
(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))))