Re: [spr8563] GNU Emacs 19.8 (or later) and the Allegro Emacs-Lisp interface

[Kevin Layer <layer@franz.com>]

>> If your planning another public release of the Allegro Emacs-Lisp
>> interface, perhaps you could add in some CLIM indentation definitions.
>> Your CLIM developers may have a set they use. I just sent a message to
>> allegro-cl about this also.

Already done.  I've included them below so you can use them now (by
inserting the below form into your .emacs).  Be sure to put it before
the load of fi/site-init.el, so when you get the new release of the
emacs-lisp interface any changes will supercede what you put in
your .emacs.

Kevin Layer, Franz Inc.         1995 University Avenue, Suite 275
layer@Franz.COM (internet)      Berkeley, CA  94704  USA
Phone: (510) 548-3600           FAX: (510) 548-8253

(let ((tag 'fi:common-lisp-indent-hook))
  
  ;; for clim 2.x
  (put 'dolist-noting-progress tag '(like dolist))
  (put 'dotimes-noting-progress tag '(like dolist))
  (put 'indenting-output tag 1)
  (put 'filling-output tag 1)
  (put 'dragging-output tag 1)
  (put 'noting-progress tag 1)
  (put 'vertically tag 1)
  (put 'bulletin-board tag 1)
  (put 'scrolling tag 1)
  (put 'horizontally tag 1)
  (put 'bordering tag 1)
  (put 'spacing tag 1)
  (put 'outlining tag 1)
  (put 'tabling tag 1)
  (put 'labelling tag 1)
  (put 'updating-output tag 1)
  (put 'surrounding-output-with-border tag 1)
  (put 'formatting-item-list tag 1)
  (put 'formatting-table tag 1)
  (put 'formatting-row tag 1)
  (put 'formatting-column tag 1)
  (put 'formatting-cell tag 1)
  (put 'tracking-pointer tag 1)
  (put 'with-bounding-rectangle* tag 2)
  (put 'with-scaling tag 1)
  (put 'with-rotation tag 1)
  (put 'with-presentation-type-decoded tag 1)
  (put 'letf-globally tag 1)
  (put 'horizontally tag 1)
  (put 'catch-abort-gestures tag 1)
  (put 'accepting-values tag 1)
  (put 'accept-values-command-button tag 1)
  (put 'changing-space-requirements tag 1)
  (put 'define-application-frame tag '(like defclass))
  )