From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 6 Jan 2003 01:17:19 +0000 (+0000)
Subject: (split-line): Clean up implementation.
X-Git-Tag: ttn-vms-21-2-B4~11818
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d77bbdc98d25c66a078e21d9bf785b59e9eabc2b;p=emacs.git

(split-line): Clean up implementation.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index d6583c8f963..f93b819e351 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -181,7 +181,6 @@ With arg N, insert N newlines."
     (goto-char loc)
     (end-of-line)))
 
-
 (defun split-line (&optional arg)
   "Split current line, moving portion beyond point vertically down.
 If the current line starts with `fill-prefix', insert it on the new
@@ -190,17 +189,19 @@ line as well.  With prefix arg, don't insert fill-prefix on new line.
 When called from Lisp code, the arg may be a prefix string to copy."
   (interactive "*P")
   (skip-chars-forward " \t")
-  (let ((col (current-column))
-	(pos (point))
-	(beg (line-beginning-position))
-	(prefix (cond ((stringp arg) arg)
-		      (arg nil)
-		      (t fill-prefix))))
+  (let* ((col (current-column))
+	 (pos (point))
+	 ;; What prefix should we check for (nil means don't).
+	 (prefix (cond ((stringp arg) arg)
+		       (arg nil)
+		       (t fill-prefix)))
+	 ;; Does this line start with it?
+	 (have-prfx (and prefix
+			 (save-excursion
+			   (beginning-of-line)
+			   (looking-at (regexp-quote prefix))))))
     (newline 1)
-    (if (and (stringp prefix)
-	     (string-equal prefix
-			   (buffer-substring beg (+ beg (length prefix)))))
-	(insert-and-inherit prefix))
+    (if have-prfx (insert-and-inherit prefix))
     (indent-to col 0)
     (goto-char pos)))