help-gnu-emacs
[Top][All Lists]
Advanced

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

Re: Why doesn't Emacs have a horizontal scroll bar?


From: David Kastrup
Subject: Re: Why doesn't Emacs have a horizontal scroll bar?
Date: Wed, 04 Jul 2007 00:16:06 +0200
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1.50 (gnu/linux)

Dieter Wilhelm <dieter@duenenhof-wilhelm.de> writes:

> Pascal Bourguignon <pjb@informatimago.com> writes:
>
>> Here is the first form I have in by ~/.emacs:
>>
>> (mapcar (lambda (f) (when (fboundp f) (funcall f -1)))
>>      '(scroll-bar-mode menu-bar-mode tool-bar-mode))

(let ((h '(scroll-bar-mode menu-bar-mode tool-bar-mode)))
  (run-hook-with-args 'h -1))

> That is very nice, thanks, I adapted it to my .emacs as well.  But
> is the fboundp check not a bit superfluous with this concise list?
>
> By the way, I'm just curious whether this might be more elegant, would
> you mind doing the same with a macro definition?

A definition for the purpose of an action is never elegant.

(macrolet ((h (&rest lst) (cons 'progn
                                (mapcar (lambda (x) (list x -1)) lst))))
          (h scroll-bar-mode menu-bar-mode tool-bar-mode))


-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum


reply via email to

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