/[emacs]/emacs/lisp/newcomment.el
ViewVC logotype

Diff of /emacs/lisp/newcomment.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.48 by monnier, Tue Apr 30 13:01:03 2002 UTC revision 1.49 by monnier, Tue Jun 18 17:58:18 2002 UTC
# Line 5  Line 5 
5  ;; Author: code extracted from Emacs-20's simple.el  ;; Author: code extracted from Emacs-20's simple.el
6  ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>  ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
7  ;; Keywords: comment uncomment  ;; Keywords: comment uncomment
 ;; Revision: $Id$  
8    
9  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
10    
# Line 240  This is obsolete because you might as we Line 239  This is obsolete because you might as we
239        ;;        (kill-local-variable 'comment-continue))        ;;        (kill-local-variable 'comment-continue))
240        )        )
241      ;; comment-skip regexps      ;; comment-skip regexps
242      (unless comment-start-skip      (unless (and comment-start-skip
243                     ;; In case comment-start has changed since last time.
244                     (string-match comment-start-skip comment-start))
245        (set (make-local-variable 'comment-start-skip)        (set (make-local-variable 'comment-start-skip)
246             (concat "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\)\\(\\s<+\\|"             (concat "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\)\\(\\s<+\\|"
247                     (regexp-quote (comment-string-strip comment-start t t))                     (regexp-quote (comment-string-strip comment-start t t))
248                     ;; Let's not allow any \s- but only [ \t] since \n                     ;; Let's not allow any \s- but only [ \t] since \n
249                     ;; might be both a comment-end marker and \s-.                     ;; might be both a comment-end marker and \s-.
250                     "+\\)[ \t]*")))                     "+\\)[ \t]*")))
251      (unless comment-end-skip      (unless (and comment-end-skip
252                     ;; In case comment-end has changed since last time.
253                     (string-match comment-end-skip comment-end))
254        (let ((ce (if (string= "" comment-end) "\n"        (let ((ce (if (string= "" comment-end) "\n"
255                    (comment-string-strip comment-end t t))))                    (comment-string-strip comment-end t t))))
256          (set (make-local-variable 'comment-end-skip)          (set (make-local-variable 'comment-end-skip)

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26