comparison lisp/newcomment.el @ 29066:720287a2312f

(comment-region-internal): Go back to BEG after quoting the nested comment markers.

29065:e8d5eb064973

;; Author: code extracted from Emacs-20's simple.el
;; Maintainer: Stefan Monnier <[e-mail]>
;; Keywords: comment uncomment
;; Version: $Name:  $
;; Revision: $Id: newcomment.el,v 1.11 2000/05/19 15:37:41 monnier Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

		   (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.

	  (goto-char (point-min))
	  ;; Quote any nested comment marker
	  (comment-quote-nested comment-start comment-end nil)

	  ;; Loop over all lines to find the needed indentations.
	  (while
	      (progn
		(unless (looking-at "[ \t]*$")
		  (setq min-indent (min min-indent (current-indentation))))
		(end-of-line)

(provide 'newcomment)

;;; Change Log:
;; $Log: newcomment.el,v $
;; Revision 1.11  2000/05/19 15:37:41  monnier
;; Fix license text and author.
;; Move aliases (indent-for-comment, set-comment-column, kill-comment
;; and indent-new-comment-line) to the beginning of the file.
;; Get rid of the last few CLisms.

29066:720287a2312f

;; Author: code extracted from Emacs-20's simple.el
;; Maintainer: Stefan Monnier <[e-mail]>
;; Keywords: comment uncomment
;; Version: $Name:  $
;; Revision: $Id: newcomment.el,v 1.12 2000/05/21 00:27:31 monnier Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

		   (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.

	  (goto-char (point-min))
	  ;; Quote any nested comment marker
	  (comment-quote-nested comment-start comment-end nil)

	  ;; Loop over all lines to find the needed indentations.
	  (goto-char (point-min))
	  (while
	      (progn
		(unless (looking-at "[ \t]*$")
		  (setq min-indent (min min-indent (current-indentation))))
		(end-of-line)

(provide 'newcomment)

;;; Change Log:
;; $Log: newcomment.el,v $
;; Revision 1.12  2000/05/21 00:27:31  monnier
;; (comment-styles): New `box-multi'.
;; (comment-normalize-vars): Better default for comment-continue to
;; avoid whitespace-only continuations.
;; (comment-search-forward): Always move even in the no-syntax case.
;; (comment-padright): Only obey N if it's only obeyed for padleft.
;; (comment-make-extra-lines): Better handling of empty continuations.
;; Use `=' for the filler if comment-start has only one character.
;; (uncomment-region): Try handling the special `=' filler.
;; (comment-region): Allow LINES even if MULTI is nil.
;; (comment-box): Choose box style based on comment-style.
;;
;; Revision 1.11  2000/05/19 15:37:41  monnier
;; Fix license text and author.
;; Move aliases (indent-for-comment, set-comment-column, kill-comment
;; and indent-new-comment-line) to the beginning of the file.
;; Get rid of the last few CLisms.