diff options
| author | Vinicius Jose Latorre | 2004-05-06 03:21:04 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre | 2004-05-06 03:21:04 +0000 |
| commit | 51138c946f09b6987ee7ffd6c964a5c7bca34fcf (patch) | |
| tree | a6f13bfa8a73b54e663dc83583f76261ff312fe5 /lisp | |
| parent | 1c34b5a97d7a7bf9a29c40fb6928d0c2a1b5532c (diff) | |
| download | emacs-51138c946f09b6987ee7ffd6c964a5c7bca34fcf.tar.gz emacs-51138c946f09b6987ee7ffd6c964a5c7bca34fcf.zip | |
New fun.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ps-print.el | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index e60eebe07cf..620398ac3b9 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el | |||
| @@ -3657,14 +3657,23 @@ If `ps-prefix-quote' is nil, it's set to t after generating string." | |||
| 3657 | (if (> col len) | 3657 | (if (> col len) |
| 3658 | (make-string (- col len) ?\ ) | 3658 | (make-string (- col len) ?\ ) |
| 3659 | " ") | 3659 | " ") |
| 3660 | (cond ((null val) "nil") | 3660 | (ps-value-string val)))) |
| 3661 | ((eq val t) "t") | ||
| 3662 | ((or (symbolp val) (listp val)) (format "'%S" val)) | ||
| 3663 | (t (format "%S" val)))))) | ||
| 3664 | (t "") | 3661 | (t "") |
| 3665 | )) | 3662 | )) |
| 3666 | 3663 | ||
| 3667 | 3664 | ||
| 3665 | (defun ps-value-string (val) | ||
| 3666 | "Return a string representation of VAL. Used by `ps-print-quote'." | ||
| 3667 | (cond ((null val) | ||
| 3668 | "nil") | ||
| 3669 | ((eq val t) | ||
| 3670 | "t") | ||
| 3671 | ((or (symbolp val) (listp val)) | ||
| 3672 | (format "'%S" val)) | ||
| 3673 | (t | ||
| 3674 | (format "%S" val)))) | ||
| 3675 | |||
| 3676 | |||
| 3668 | (defun ps-value (alist-sym key) | 3677 | (defun ps-value (alist-sym key) |
| 3669 | "Return value from association list ALIST-SYM which car is `eq' to KEY." | 3678 | "Return value from association list ALIST-SYM which car is `eq' to KEY." |
| 3670 | (cdr (assq key (symbol-value alist-sym)))) | 3679 | (cdr (assq key (symbol-value alist-sym)))) |