[no subject]

[Philip E. Agre <AGRE at MIT-AI>]

In zwei in System 78.51, ZMail 38.5, Local-File 32.12, Experimental DAEDALUS 29.5, microcode 843, on Lisp Machine Two:

Doing M-X Fill Long Comment at the "@" in Lisp mode in the following
fills all three comments and not just the one where the cursor is:



(defun fact (n)
  (if ( n 2) 1 (* n (fact (1- n)))))

;;;
;;; Here is a table I don't want all messed up:
;;;   Code      Action
;;;   ----      ------
;;;
;;;   A         Eat
;;;   B         Suck
;;;   C         Bite
;;;

;;; This is just a bunch of random text.  I want @
;;; this stuff to be filled, but not the stuff around it.  Unfortunately,
;;; M-X Fill Long Comment
;;; isn't very smart about this.  It should realize that when you put a blank line between
;;; comments then that means that they are really separate comments.

;;; The format of a baz is (w1 w2 r1 r2) where
;;;       w1 is the first thing to write
;;;       w2        second
;;;       r1 is the first thing to read
;;;       r2        second


(defun traverse (sexp fn)
  (funcall fn sexp)
  (ifnot (atom sexp) (traverse (car sexp) fn) (traverse (cdr sexp) fn)))




This produces the following garbage:





(defun fact (n)
  (if ( n 2) 1 (* n (fact (1- n)))))

;;;
;;; Here is a table I don't want all messed up:    Code Action    ----
;;;------
;;;
;;;   A Eat    B Suck    C Bite
;;;

;;; This is just a bunch of random text.  I want @  this stuff to be
;;;filled, but not the stuff around it.  Unfortunately,  M-X Fill Long
;;;Comment  isn't very smart about this.  It should realize that when
;;;you put a blank line between  comments then that means that they are
;;;really separate comments.

;;; The format of a baz is (w1 w2 r1 r2) where        w1 is the first
;;;thing to write        w2 second        r1 is the first thing to read
;;;r2 second


(defun traverse (sexp fn)
  (funcall fn sexp)
  (ifnot (atom sexp) (traverse (car sexp) fn) (traverse (cdr sexp) fn)))





While I'm at it, it would be good if Fill Long Comment would notice that all my
comments have a space after the ";;;" and enforce this convention in the result.
This, of course, is not as big a point.        - phIl