[Emacs-diffs] Changes to emacs/lisp/newcomment.el [lexbind]

[Miles Bader]

Index: emacs/lisp/newcomment.el
diff -c emacs/lisp/newcomment.el:1.48.2.7 emacs/lisp/newcomment.el:1.48.2.8
*** emacs/lisp/newcomment.el:1.48.2.7   Fri Mar 19 23:29:18 2004
--- emacs/lisp/newcomment.el    Tue Jul  6 10:00:03 2004
***************
*** 356,362 ****
    "Find a comment start between point and LIMIT.
  Moves point to inside the comment and returns the position of the
  comment-starter.  If no comment is found, moves point to LIMIT
! and raises an error or returns nil of NOERROR is non-nil."
    (if (not comment-use-syntax)
        (if (re-search-forward comment-start-skip limit noerror)
          (or (match-end 1) (match-beginning 0))
--- 356,362 ----
    "Find a comment start between point and LIMIT.
  Moves point to inside the comment and returns the position of the
  comment-starter.  If no comment is found, moves point to LIMIT
! and raises an error or returns nil if NOERROR is non-nil."
    (if (not comment-use-syntax)
        (if (re-search-forward comment-start-skip limit noerror)
          (or (match-end 1) (match-beginning 0))
***************
*** 392,398 ****
    "Find a comment start between LIMIT and point.
  Moves point to inside the comment and returns the position of the
  comment-starter.  If no comment is found, moves point to LIMIT
! and raises an error or returns nil of NOERROR is non-nil."
    ;; FIXME: If a comment-start appears inside a comment, we may erroneously
    ;; stop there.  This can be rather bad in general, but since
    ;; comment-search-backward is only used to find the comment-column (in
--- 392,398 ----
    "Find a comment start between LIMIT and point.
  Moves point to inside the comment and returns the position of the
  comment-starter.  If no comment is found, moves point to LIMIT
! and raises an error or returns nil if NOERROR is non-nil."
    ;; FIXME: If a comment-start appears inside a comment, we may erroneously
    ;; stop there.  This can be rather bad in general, but since
    ;; comment-search-backward is only used to find the comment-column (in
***************
*** 955,961 ****
  (defun comment-region (beg end &optional arg)
    "Comment or uncomment each line in the region.
  With just \\[universal-argument] prefix arg, uncomment each line in region 
BEG .. END.
! Numeric prefix arg ARG means use ARG comment characters.
  If ARG is negative, delete that many comment characters instead.
  By default, comments start at the left margin, are terminated on each line,
  even for syntax in which newline does not end the comment and blank lines
--- 955,961 ----
  (defun comment-region (beg end &optional arg)
    "Comment or uncomment each line in the region.
  With just \\[universal-argument] prefix arg, uncomment each line in region 
BEG .. END.
! Numeric prefix ARG means use ARG comment characters.
  If ARG is negative, delete that many comment characters instead.
  By default, comments start at the left margin, are terminated on each line,
  even for syntax in which newline does not end the comment and blank lines