emacs-devel
[Top][All Lists]
Advanced

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

Re: printing.el again


From: Vinicius Jose Latorre
Subject: Re: printing.el again
Date: Sun, 14 Nov 2004 13:29:08 -0200
User-agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8a4) Gecko/20040927

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





reply via email to

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