comparison lisp/newcomment.el @ 39078:8aea6fefc072

*** empty log message ***

39077:b0080041c3c5

;; Copyright (C) 1999, 2000  Free Software Foundation Inc.

;; Author: code extracted from Emacs-20's simple.el
;; Maintainer: Stefan Monnier <[e-mail]>
;; Keywords: comment uncomment
;; Revision: $Id: newcomment.el,v 1.31 2001/03/02 20:31:40 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

      ;; An existing comment?
      (if begpos (setq cpos (point-marker))
	  ;; If none, insert one.
	  (save-excursion
	    ;; Some comment-indent-function insist on not moving comments that
	    ;; are in column 0, so we insert a space to avoid this special case
	    (insert " ")
	    (setq begpos (point))
	    (insert starter)
	    (setq cpos (point-marker))
	    (insert ender)))
      (goto-char begpos)

39078:8aea6fefc072

;; Copyright (C) 1999, 2000  Free Software Foundation Inc.

;; Author: code extracted from Emacs-20's simple.el
;; Maintainer: Stefan Monnier <[e-mail]>
;; Keywords: comment uncomment
;; Revision: $Id: newcomment.el,v 1.32 2001/08/21 18:30:59 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

      ;; An existing comment?
      (if begpos (setq cpos (point-marker))
	  ;; If none, insert one.
	  (save-excursion
	    ;; Some comment-indent-function insist on not moving comments that
	    ;; are in column 0, so we insert a space to avoid this special
	    ;; case.  The check for (zerop comment-column) is used for cases
	    ;; where we're called from comment-indent-new-line.
	    (unless (zerop comment-column) (insert " "))
	    (setq begpos (point))
	    (insert starter)
	    (setq cpos (point-marker))
	    (insert ender)))
      (goto-char begpos)