/[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.63 by monnier, Tue May 6 14:55:56 2003 UTC revision 1.64 by monnier, Fri May 9 20:09:04 2003 UTC
# Line 481  If CONTINUE is non-nil, use the `comment Line 481  If CONTINUE is non-nil, use the `comment
481              ;; Some comment-indent-function insist on not moving comments that              ;; Some comment-indent-function insist on not moving comments that
482              ;; are in column 0, so we first go to the likely target column.              ;; are in column 0, so we first go to the likely target column.
483              (indent-to comment-column)              (indent-to comment-column)
             (setq begpos (point))  
484              ;; Ensure there's a space before the comment for things              ;; Ensure there's a space before the comment for things
485              ;; like sh where it matters (as well as being neater).              ;; like sh where it matters (as well as being neater).
486              (unless (eq ?\  (char-syntax (char-before)))              (unless (memq (char-before) '(nil ?\n ?\t ?\ ))
487                (insert ?\ ))                (insert ?\ ))
488                (setq begpos (point))
489              (insert starter)              (insert starter)
490              (setq cpos (point-marker))              (setq cpos (point-marker))
491              (insert ender)))              (insert ender)))

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

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