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



_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel

Reply via email to