Added stuff for emacs.

Pascal J. Bourguignon [2015-04-03 06:17]
Added stuff for emacs.
Filename
streams.lisp
diff --git a/streams.lisp b/streams.lisp
index 5b7c4ea..390ed24 100644
--- a/streams.lisp
+++ b/streams.lisp
@@ -186,6 +186,7 @@ for use by DEFINE-STREAM-METHODS"))

 (defclass cl-stream (stream) ()) ; forward declaration for define-forward...

+#+emacs (put 'define-forward 'lisp-indent-function 2)
 (defmacro define-forward (name arguments &body body)
   "
 DO:     Specifies the name and parameter list of methods.
@@ -290,6 +291,7 @@ DO:     Specifies the name and parameter list of methods.
           body))))


+#+emacs (put 'define-stream-methods 'lisp-indent-function 1)
 (defmacro define-stream-methods (class-name &body methods)
   "
 DO:     Expands to a bunch of defmethod forms, with the parameter
@@ -415,7 +417,7 @@ DO:     Expands to a bunch of defmethod forms, with the parameter
            (cl-forward t)
            (check-open-p t)))

-
+
 (define-forward write-string (string
                               &optional (output-stream *standard-output*)
                               &key (start 0) (end nil))
ViewGit