emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[ps-print] Why imposing symbols for user functions?


From: drkm
Subject: [ps-print] Why imposing symbols for user functions?
Date: Mon, 07 Mar 2005 15:16:44 +0100
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (windows-nt)

  Hi

  Why does PS Print impose user functions (in `ps-left-header' for
example) to be symbols?  `ps-generate-string-list' and
`ps-generate-header-line' use `symbolp' and `fboundp' instead of
`functionp'.  Why don't use the following, to allowing lambdas in PS
Print customs:

*** ps-print.el-orig    Thu Dec 23 07:02:00 2004
--- ps-print.el Mon Mar  7 15:06:00 2005
***************
*** 4823,4829 ****
                       ((stringp (car content))
                        (car content))
                       ;; function symbol
!                      ((and (symbolp (car content)) (fboundp (car content)))
                        (concat "(" (funcall (car content)) ")"))
                       ;; variable symbol
                       ((and (symbolp (car content)) (boundp (car content)))
--- 4823,4829 ----
                       ((stringp (car content))
                        (car content))
                       ;; function symbol
!                      ((functionp (car content))
                        (concat "(" (funcall (car content)) ")"))
                       ;; variable symbol
                       ((and (symbolp (car content)) (boundp (car content)))
***************
*** 4863,4869 ****
  
     ;; Functions are called -- they should return strings; they will be 
inserted
     ;; as strings and the PS string delimiters added.
!    ((and (symbolp content) (fboundp content))
      (ps-output-string (ps-mule-encode-header-string (funcall content)
                                                    fonttag)))
  
--- 4863,4869 ----
  
     ;; Functions are called -- they should return strings; they will be 
inserted
     ;; as strings and the PS string delimiters added.
!    ((functionp content)
      (ps-output-string (ps-mule-encode-header-string (funcall content)
                                                    fonttag)))
  

--drkm





reply via email to

[Prev in Thread] Current Thread [Next in Thread]