comparison lisp/newcomment.el @ 30090:6ea3040d5833

(uncomment-region): Be more careful when skipping backwards over `=' not to bump into BOBP.

30089:f7f64f1ccc38

;; 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.16 2000/06/04 22:02:11 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

	      (delete-char (- numarg)))

	    ;; Remove the end-comment (and leading padding and such).
	    (goto-char (point-max)) (comment-enter-backward)
	    ;; Check for special `=' used sometimes in comment-box.
	    (when (and (= (- (point-max) (point)) 1) (> (point) 7)
		       (save-excursion (backward-char 7)
				       (looking-at "=\\{7\\}")))
	      (skip-chars-backward "="))
	    (unless (looking-at "\\(\n\\|\\s-\\)*\\'")
	      (when (and (bolp) (not (bobp))) (backward-char))
	      (if (null arg) (delete-region (point) (point-max))
		(skip-syntax-forward " ")
		(delete-char numarg)))

(provide 'newcomment)

;;; Change Log:
;; $Log: newcomment.el,v $
;; Revision 1.16  2000/06/04 22:02:11  monnier
;; (comment-indent): Ignore comment-indent-hook.
;;
;; Revision 1.15  2000/05/25 19:05:46  monnier
;; Add abundant autoload cookies.

30090:6ea3040d5833

;; 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.17 2000/06/20 09:40:36 fx 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

	      (delete-char (- numarg)))

	    ;; Remove the end-comment (and leading padding and such).
	    (goto-char (point-max)) (comment-enter-backward)
	    ;; Check for special `=' used sometimes in comment-box.
	    (when (= (- (point-max) (point)) 1)
	      (let ((pos (point)))
		;; skip `=' but only if there are at least 7.
		(when (> (skip-chars-backward "=") -7) (goto-char pos))))
	    (unless (looking-at "\\(\n\\|\\s-\\)*\\'")
	      (when (and (bolp) (not (bobp))) (backward-char))
	      (if (null arg) (delete-region (point) (point-max))
		(skip-syntax-forward " ")
		(delete-char numarg)))

(provide 'newcomment)

;;; Change Log:
;; $Log: newcomment.el,v $
;; Revision 1.17  2000/06/20 09:40:36  fx
;; (comment) <defgroup>: Add :version.
;; (comment-multi-line): Doc fix.
;;
;; Revision 1.16  2000/06/04 22:02:11  monnier
;; (comment-indent): Ignore comment-indent-hook.
;;
;; Revision 1.15  2000/05/25 19:05:46  monnier
;; Add abundant autoload cookies.