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

[Dieter Wilhelm <dieter@duenenhof-wilhelm.de>]

David Kastrup <dak@gnu.org> writes:

Hi David

> 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))

Ahh, not bad either, thanks.  Why is it necessary to provide a symbol
to the run-hook-with-args function?  Is it not possible to "overload"
functions with various arguments in lisp?

(run-hook-with-args '(scroll-bar-mode tool-bar-mode) 1)
(run-hook-with-args sroll-bar-mode 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))

I'm sorry, I've to chew on it for a while, I'll ask/comment later.

-- 
    Best wishes

    H. Dieter Wilhelm
    Darmstadt, Germany