/[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.49 by monnier, Tue Jun 18 17:58:18 2002 UTC revision 1.50 by monnier, Mon Aug 12 22:53:39 2002 UTC
# Line 865  The strings used as comment starts are b Line 865  The strings used as comment starts are b
865                      (>= (point) beg))                      (>= (point) beg))
866               (progn (goto-char end) (end-of-line) (skip-syntax-backward " ")               (progn (goto-char end) (end-of-line) (skip-syntax-backward " ")
867                      (<= (point) end))                      (<= (point) end))
868               (or (not (string= "" comment-end)) block)               (or block (not (string= "" comment-end)))
869               (progn (goto-char beg) (search-forward "\n" end t)))))               (or block (progn (goto-char beg) (search-forward "\n" end t))))))
870    
871      ;; don't add end-markers just because the user asked for `block'      ;; don't add end-markers just because the user asked for `block'
872      (unless (or lines (string= "" comment-end)) (setq block nil))      (unless (or lines (string= "" comment-end)) (setq block nil))

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

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