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

[David Kastrup]

David Kastrup <dak@gnu.org> writes:

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

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

Perhaps more macroesque would be

(macrolet ((h (lst) `(progn ,@(mapcar (lambda (x) `(,x -1)) lst))))
          (h (scroll-bar-mode menu-bar-mode tool-bar-mode)))


-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum