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

[David Kastrup]

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