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

[Stefan Monnier]

Index: emacs/lisp/newcomment.el
diff -c emacs/lisp/newcomment.el:1.48 emacs/lisp/newcomment.el:1.49
*** emacs/lisp/newcomment.el:1.48       Tue Apr 30 09:01:03 2002
--- emacs/lisp/newcomment.el    Tue Jun 18 13:58:18 2002
***************
*** 5,11 ****
  ;; Author: code extracted from Emacs-20's simple.el
  ;; Maintainer: Stefan Monnier <address@hidden>
  ;; Keywords: comment uncomment
- ;; Revision: $Id: newcomment.el,v 1.48 2002/04/30 13:01:03 monnier Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 5,10 ----
***************
*** 240,253 ****
        ;;      (kill-local-variable 'comment-continue))
        )
      ;; comment-skip regexps
!     (unless comment-start-skip
        (set (make-local-variable 'comment-start-skip)
           (concat "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\)\\(\\s<+\\|"
                   (regexp-quote (comment-string-strip comment-start t t))
                   ;; Let's not allow any \s- but only [ \t] since \n
                   ;; might be both a comment-end marker and \s-.
                   "+\\)[ \t]*")))
!     (unless comment-end-skip
        (let ((ce (if (string= "" comment-end) "\n"
                  (comment-string-strip comment-end t t))))
        (set (make-local-variable 'comment-end-skip)
--- 239,256 ----
        ;;      (kill-local-variable 'comment-continue))
        )
      ;; comment-skip regexps
!     (unless (and comment-start-skip
!                ;; In case comment-start has changed since last time.
!                (string-match comment-start-skip comment-start))
        (set (make-local-variable 'comment-start-skip)
           (concat "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\)\\(\\s<+\\|"
                   (regexp-quote (comment-string-strip comment-start t t))
                   ;; Let's not allow any \s- but only [ \t] since \n
                   ;; might be both a comment-end marker and \s-.
                   "+\\)[ \t]*")))
!     (unless (and comment-end-skip
!                ;; In case comment-end has changed since last time.
!                (string-match comment-end-skip comment-end))
        (let ((ce (if (string= "" comment-end) "\n"
                  (comment-string-strip comment-end t t))))
        (set (make-local-variable 'comment-end-skip)