# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 974922450 0
# Node ID 67e0378863cfebc24b9cb8953dbfd32d20abbd5e
# Parent  00803fb0f58e5f1ef82866e27fc6b2eb272db6c3
(comment-line-break-function): Use the new name
indent-new-comment-line -> comment-indent-new-line.
(clone-indirect-buffer): Don't ignore NORECORD.
(next-completion): Properly handle the case where items are adjacent.

diff -r 00803fb0f58e -r 67e0378863cf lisp/simple.el
--- a/lisp/simple.el	Wed Nov 22 19:44:43 2000 +0000
+++ b/lisp/simple.el	Wed Nov 22 19:47:30 2000 +0000
@@ -2777,7 +2777,7 @@
 		 regexp)
   :group 'fill)
 
-(defvar comment-line-break-function 'indent-new-comment-line
+(defvar comment-line-break-function 'comment-indent-new-line
   "*Mode-specific function which line breaks and continues a comment.
 
 This function is only called during auto-filling of a comment section.
@@ -3527,27 +3527,29 @@
   "Move to the next item in the completion list.
 With prefix argument N, move N items (negative N means move backward)."
   (interactive "p")
-  (while (and (> n 0) (not (eobp)))
-    (let ((prop (get-text-property (point) 'mouse-face))
-	  (end (point-max)))
+  (let ((beg (point-min)) (end (point-max)))
+    (while (and (> n 0) (not (eobp)))
       ;; If in a completion, move to the end of it.
-      (if prop
-	  (goto-char (next-single-property-change (point) 'mouse-face nil end)))
+      (when (get-text-property (point) 'mouse-face)
+	(goto-char (next-single-property-change (point) 'mouse-face nil end)))
       ;; Move to start of next one.
-      (goto-char (next-single-property-change (point) 'mouse-face nil end)))
-    (setq n (1- n)))
-  (while (and (< n 0) (not (bobp)))
-    (let ((prop (get-text-property (1- (point)) 'mouse-face))
-	  (end (point-min)))
-      ;; If in a completion, move to the start of it.
-      (if prop
+      (unless (get-text-property (point) 'mouse-face)
+	(goto-char (next-single-property-change (point) 'mouse-face nil end)))
+      (setq n (1- n)))
+    (while (and (< n 0) (not (bobp)))
+      (let ((prop (get-text-property (1- (point)) 'mouse-face)))
+	;; If in a completion, move to the start of it.
+	(when (and prop (eq prop (get-text-property (point) 'mouse-face)))
 	  (goto-char (previous-single-property-change
-		      (point) 'mouse-face nil end)))
-      ;; Move to end of the previous completion.
-      (goto-char (previous-single-property-change (point) 'mouse-face nil end))
-      ;; Move to the start of that one.
-      (goto-char (previous-single-property-change (point) 'mouse-face nil end)))
-    (setq n (1+ n))))
+		      (point) 'mouse-face nil beg)))
+	;; Move to end of the previous completion.
+	(unless (or (bobp) (get-text-property (1- (point)) 'mouse-face))
+	  (goto-char (previous-single-property-change
+		      (point) 'mouse-face nil beg)))
+	;; Move to the start of that one.
+	(goto-char (previous-single-property-change
+		    (point) 'mouse-face nil beg))
+	(setq n (1+ n))))))
 
 (defun choose-completion ()
   "Choose the completion that point is in or next to."
@@ -3926,7 +3928,7 @@
   (let* ((name (generate-new-buffer-name newname))
 	 (buffer (make-indirect-buffer (current-buffer) name t)))
     (when display-flag
-      (pop-to-buffer buffer))
+      (pop-to-buffer buffer norecord))
     buffer))