changeset 41571:2902b21d2034

(outline-version, outline-open-topic) (outline-rebullet-heading, outline-insert-listified) (outline-latex-verbatim-quote-curr-line) (outline-latexify-one-item, outlineify-sticky): Use insert instead of insert-string.

--- a/lisp/allout.el	Mon Nov 26 16:22:21 2001 +0000
+++ b/lisp/allout.el	Mon Nov 26 16:23:06 2001 +0000
@@ -5,7 +5,7 @@
 ;; Author: Ken Manheimer <[e-mail]>
 ;; Maintainer: Ken Manheimer <[e-mail]>
 ;; Created: Dec 1991 - first release to usenet
-;; Version: $Id: allout.el,v 1.28 2001/07/02 10:45:54 eliz Exp $||
+;; Version: $Id: allout.el,v 1.29 2001/07/16 11:39:41 pj Exp $||
 ;; Keywords: outline mode wp languages
 
 ;; This file is part of GNU Emacs.
@@ -509,7 +509,7 @@
 ;;;_  : Version
 ;;;_   = outline-version
 (defvar outline-version
-  (let ((rcs-rev "$Revision: 1.28 $"))
+  (let ((rcs-rev "$Revision: 1.29 $"))
     (condition-case err
 	(save-match-data
 	  (string-match "Revision: \\([0-9]+\\.[0-9]+\\)" rcs-rev)
@@ -521,7 +521,7 @@
   "Return string describing the loaded outline version."
   (interactive "P")
   (let ((msg (concat "Allout Outline Mode v " outline-version)))
-    (if here (insert-string msg))
+    (if here (insert msg))
     (message "%s" msg)
     msg))
 ;;;_  : Topic header format
@@ -2844,10 +2844,10 @@
                               (not (bolp)))
                          (forward-char 1))))
           ))
-    (insert-string (concat (outline-make-topic-prefix opening-numbered
-                                                      t
-                                                      depth)
-                           " "))
+    (insert (concat (outline-make-topic-prefix opening-numbered
+					       t
+					       depth)
+		    " "))
 
     ;;(if doing-beginning (save-excursion (newline (if dbl-space 2 1))))
 
@@ -3063,7 +3063,7 @@
 	   (delete-region (match-beginning 0)(match-end 0))))
 
 					; Put in new prefix:
-      (outline-unprotected (insert-string new-prefix))
+      (outline-unprotected (insert new-prefix))
 
       ;; Reindent the body if elected and margin changed:
       (if (and outline-reindent-bodies
@@ -4326,13 +4326,13 @@
 		  (car listified)
 		(setq listified (cdr listified))))
 	(bullet-plus (car listified)))
-    (insert-string prefix)
-    (if bullet-plus (insert-string (concat " " bullet-plus)))
+    (insert prefix)
+    (if bullet-plus (insert (concat " " bullet-plus)))
     (while text
-      (insert-string (car text))
+      (insert (car text))
       (if (setq text (cdr text))
-	  (insert-string "\n")))
-    (insert-string "\n")))
+	  (insert "\n")))
+    (insert "\n")))
 ;;;_   > outline-copy-exposed-to-buffer (&optional arg tobuf format)
 (defun outline-copy-exposed-to-buffer (&optional arg tobuf format)
   "Duplicate exposed portions of current outline to another buffer.
@@ -4440,7 +4440,7 @@
 			      end	; bounded by end-of-line
 			      1)	; no matches, move to end & return nil
       (goto-char (match-beginning 0))
-      (insert-string "\\")
+      (insert "\\")
       (setq end (1+ end))
       (goto-char (1+ (match-end 0))))))
 ;;;_   > outline-insert-latex-header (buf)
@@ -4533,19 +4533,19 @@
 	 (curr-line)
 	 body-content bop)
 					; Do the head line:
-    (insert-string (concat "\\OneHeadLine{\\verb\1 " 
-			   (outline-latex-verb-quote bullet)
-			   "\1}{"
-			   depth
-			   "}{\\verb\1 "
-			   (if head-line
-			       (outline-latex-verb-quote head-line)
-			     "")
-			   "\1}\n"))
+    (insert (concat "\\OneHeadLine{\\verb\1 " 
+		    (outline-latex-verb-quote bullet)
+		    "\1}{"
+		    depth
+		    "}{\\verb\1 "
+		    (if head-line
+			(outline-latex-verb-quote head-line)
+		      "")
+		    "\1}\n"))
     (if (not body-lines)
 	nil
-      ;;(insert-string "\\beginlines\n")
-      (insert-string "\\begin{verbatim}\n")
+      ;;(insert "\\beginlines\n")
+      (insert "\\begin{verbatim}\n")
       (while body-lines
 	(setq curr-line (car body-lines))
 	(if (and (not body-content)
@@ -4559,18 +4559,18 @@
 	    (setq curr-line (concat (substring curr-line 0 bop)
 				    ">"
 				    (substring curr-line bop))))
-	;;(insert-string "|" (car body-lines) "|")
-	(insert-string curr-line)
+	;;(insert "|" (car body-lines) "|")
+	(insert curr-line)
 	(outline-latex-verbatim-quote-curr-line)
-	(insert-string "\n")
+	(insert "\n")
 	(setq body-lines (cdr body-lines)))
       (if body-content
 	  (setq body-content nil)
 	(forward-char -1)
-	(insert-string "\\ ")
+	(insert "\\ ")
 	(forward-char 1))
-      ;;(insert-string "\\endlines\n")
-      (insert-string "\\end{verbatim}\n")
+      ;;(insert "\\endlines\n")
+      (insert "\\end{verbatim}\n")
       )))
 ;;;_   > outline-latexify-exposed (arg &optional tobuf)
 (defun outline-latexify-exposed (arg &optional tobuf)
@@ -4631,23 +4631,23 @@
     (if (looking-at outline-regexp)
 	t
       (outline-open-topic 2)
-      (insert-string (concat "Dummy outline topic header - see"
-			     "`outline-mode' docstring: `^Hm'."))
+      (insert (concat "Dummy outline topic header - see"
+		      "`outline-mode' docstring: `^Hm'."))
       (forward-line 1)
       (goto-char (point-max))
       (open-line 1)
       (outline-open-topic 0)
-      (insert-string "Local emacs vars.\n")
+      (insert "Local emacs vars.\n")
       (outline-open-topic 1)
-      (insert-string "(`outline-layout' is for allout.el outline-mode)\n")
+      (insert "(`outline-layout' is for allout.el outline-mode)\n")
       (outline-open-topic 0)
-      (insert-string "Local variables:\n")
+      (insert "Local variables:\n")
       (outline-open-topic 0)
-      (insert-string (format "outline-layout: %s\n"
+      (insert (format "outline-layout: %s\n"
 			     (or outline-layout
 				 '(-1 : 0))))
       (outline-open-topic 0)
-      (insert-string "End:\n"))))
+      (insert "End:\n"))))
 ;;;_  > solicit-char-in-string (prompt string &optional do-defaulting)
 (defun solicit-char-in-string (prompt string &optional do-defaulting)
   "Solicit (with first arg PROMPT) choice of a character from string STRING.