[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.8 emacs/lisp/newcomment.el:1.48.2.9
*** emacs/lisp/newcomment.el:1.48.2.8   Tue Jul  6 10:00:03 2004
--- emacs/lisp/newcomment.el    Tue Jul  6 10:17:17 2004
***************
*** 873,889 ****
                   (setq ,bindent (- ,bindent n)))))))))))
  
  (defun comment-region-internal (beg end cs ce
!                                   &optional ccs cce block lines indent)
    "Comment region BEG .. END.
! CS and CE are the comment start resp end string.
! CCS and CCE are the comment continuation strings for the start resp end
! of lines (default to CS and CE).
! BLOCK indicates that end of lines should be marked with either CCE, CE or CS
! \(if CE is empty) and that those markers should be aligned.
! LINES indicates that an extra lines will be used at the beginning and end
! of the region for CE and CS.
! INDENT indicates to put CS and CCS at the current indentation of the region
! rather than at left margin."
    ;;(assert (< beg end))
    (let ((no-empty (not (or (eq comment-empty-lines t)
                           (and comment-empty-lines (zerop (length ce)))))))
--- 873,889 ----
                   (setq ,bindent (- ,bindent n)))))))))))
  
  (defun comment-region-internal (beg end cs ce
!                                 &optional ccs cce block lines indent)
    "Comment region BEG .. END.
! CS and CE are the comment start string and comment end string,
! respectively.  CCS and CCE are the comment continuation strings
! for the start and end of lines, respectively (default to CS and CE).
! BLOCK indicates that end of lines should be marked with either CCE,
! CE or CS \(if CE is empty) and that those markers should be aligned.
! LINES indicates that an extra lines will be used at the beginning
! and end of the region for CE and CS.
! INDENT indicates to put CS and CCS at the current indentation of
! the region rather than at left margin."
    ;;(assert (< beg end))
    (let ((no-empty (not (or (eq comment-empty-lines t)
                           (and comment-empty-lines (zerop (length ce)))))))