Re: printing.el again

[Vinicius Jose Latorre <viniciusjl@ig.com.br>]

Hi Stefan,


 > In your merge of the two menus, why do you still bother with
 >
 >           (pr-:visible (if (eq ps-print-emacs-type 'emacs)
 >                :visible    ; GNU Emacs
 >              :included))
 >
 > since on Emacs, :visible and :included are synonyms anyway.
 > Also you now do

Ok, I just forgot about this. I'll modify printing.


 >     (let (...
 >           pr-:help)
 >       (if (eq ps-print-emacs-type 'emacs)
 >       (defalias 'pr-:help #'(lambda (text) (list :help text))) ; GNU 
Emacs
 >     (defalias 'pr-:help 'ignore))                   ; XEmacs
 >
 > which does not do what you think.  The `let' binding of the `pr-:help'
 > variable has *no effect* on the `pr-:help' function (the two name 
spaces are
 > separate).  I.e. the pr-:help function ends up defined globally anyway so
 > you had better define it at toplevel so it's less misleading (or 
otherwise,
 > you'd want to use CL's `flet' if you want to locally define a function).

Hummm, indeed, but this:

 (let (...
       (pr-:help (if (eq ps-print-emacs-type 'emacs)
                  #'(lambda (text) (list :help text))  ; GNU Emacs
                'ignore)))                  ; XEmacs
  ......
  ,@(funcall pr-:help ...)

Will do the work and pr-:help will be local.


Thanks,


Vinicius