Changeset 4161 for trunk/lisp/newcomment.el

Timestamp:

2006年09月09日 16時30分10秒 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/newcomment.el (modified) (6 diffs)

trunk/lisp/newcomment.el

@@ -300 +300 @@
-      ;; Hasn't been necessary yet.
-      ;; (unless (string-match comment-start-skip comment-continue)
- 
+
-      )
-    ;; comment-skip regexps
@@ -603 +603 @@
-        ;; after other nonwhite text on the line.
-        (save-excursion
- 
+
-          (unless (bolp)
-            (setq indent (max indent (1+ (current-column))))))
@@ -770 +770 @@
-        (save-restriction
-          (narrow-to-region spt ept)
-
+
-          ;; Remove the comment-start.
-          (goto-char ipt)
@@ -799 +799 @@
-              ;; a comment-start any more, just remove it.
-              (delete-region (point-min) (point))))
-
+
-          ;; Remove the end-comment (and leading padding and such).
-          (goto-char (point-max)) (comment-enter-backward)
@@ -1063 +1063 @@
-       (nth 3 style))))))
-
+;;;###autoload
-(defun comment-box (beg end &optional arg)
-  "Comment out the BEG .. END region, putting it inside a box.
@@ -1068 +1069 @@
-end- comment markers additionally to what `comment-add' already specifies."
-  (interactive "*r\np")
+  (comment-normalize-vars)
-  (let ((comment-style (if (cadr (assoc comment-style comment-styles))
-                           'box-multi 'box)))