Ignore:
Timestamp:
08/18/11 15:23:42 (3 years ago)
Author:
rjs
Message:

Update.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lisp/nzwei/for.lisp

    r257 r258  
    490490;;; Return an interval surrounding the DEFUN that BP is in, or NIL if it fails.
    491491
    492 (DEFUN DEFUN-INTERVAL (BP &OPTIONAL (TIMES 1) FIXUP-P (COMMENTS-P T))
     492(DEFUN DEFUN-INTERVAL (BP &OPTIONAL (TIMES 1) FIXUP-P (COMMENTS-P T) (TOP-BLANK-P NIL))
    493493  (PROG (BP1 BP2 BP3 BP4 SBP)
    494494        (COND ((NULL (SETQ BP1 (FORWARD-DEFUN BP -1)))
     
    499499        (OR (SETQ BP2 (FORWARD-SEXP BP1 TIMES))
    500500            (IF (NOT FIXUP-P) (RETURN NIL)
    501                 (SETQ BP2 (BEG-LINE (BACKWARD-OVER-COMMENT-LINES (FORWARD-DEFUN BP1 1 T))
     501                (SETQ BP2 (BEG-LINE (BACKWARD-OVER-COMMENT-LINES (FORWARD-DEFUN BP1 1 T)
     502                                                                 TOP-BLANK-P)
    502503                                    -1))))
    503504        (OR (BP-< (END-LINE BP2) BP)
     
    518519        (SETQ SBP BP1)                  ;Save real starting line
    519520     CONTIN
    520         (AND COMMENTS-P (SETQ BP1 (BACKWARD-OVER-COMMENT-LINES BP1)))
     521        (AND COMMENTS-P (SETQ BP1 (BACKWARD-OVER-COMMENT-LINES BP1 TOP-BLANK-P)))
    521522        (SETQ BP3 (FORWARD-OVER *BLANKS* BP2))
    522523        (AND BP3 (OR (= (LIST-SYNTAX (BP-CHAR BP3)) LIST-COMMENT)
Note: See TracChangeset for help on using the changeset viewer.