/[emacs]/emacs/lisp/allout.el
ViewVC logotype

Diff of /emacs/lisp/allout.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by pj, Mon Jul 16 11:39:41 2001 UTC revision 1.30 by pj, Mon Nov 26 16:23:06 2001 UTC
# Line 521  behavior." Line 521  behavior."
521    "Return string describing the loaded outline version."    "Return string describing the loaded outline version."
522    (interactive "P")    (interactive "P")
523    (let ((msg (concat "Allout Outline Mode v " outline-version)))    (let ((msg (concat "Allout Outline Mode v " outline-version)))
524      (if here (insert-string msg))      (if here (insert msg))
525      (message "%s" msg)      (message "%s" msg)
526      msg))      msg))
527  ;;;_  : Topic header format  ;;;_  : Topic header format
# Line 2844  Nuances: Line 2844  Nuances:
2844                                (not (bolp)))                                (not (bolp)))
2845                           (forward-char 1))))                           (forward-char 1))))
2846            ))            ))
2847      (insert-string (concat (outline-make-topic-prefix opening-numbered      (insert (concat (outline-make-topic-prefix opening-numbered
2848                                                        t                                                 t
2849                                                        depth)                                                 depth)
2850                             " "))                      " "))
2851    
2852      ;;(if doing-beginning (save-excursion (newline (if dbl-space 2 1))))      ;;(if doing-beginning (save-excursion (newline (if dbl-space 2 1))))
2853    
# Line 3063  this function." Line 3063  this function."
3063             (delete-region (match-beginning 0)(match-end 0))))             (delete-region (match-beginning 0)(match-end 0))))
3064    
3065                                          ; Put in new prefix:                                          ; Put in new prefix:
3066        (outline-unprotected (insert-string new-prefix))        (outline-unprotected (insert new-prefix))
3067    
3068        ;; Reindent the body if elected and margin changed:        ;; Reindent the body if elected and margin changed:
3069        (if (and outline-reindent-bodies        (if (and outline-reindent-bodies
# Line 4326  If `bullet-plus' is specified, it is ins Line 4326  If `bullet-plus' is specified, it is ins
4326                    (car listified)                    (car listified)
4327                  (setq listified (cdr listified))))                  (setq listified (cdr listified))))
4328          (bullet-plus (car listified)))          (bullet-plus (car listified)))
4329      (insert-string prefix)      (insert prefix)
4330      (if bullet-plus (insert-string (concat " " bullet-plus)))      (if bullet-plus (insert (concat " " bullet-plus)))
4331      (while text      (while text
4332        (insert-string (car text))        (insert (car text))
4333        (if (setq text (cdr text))        (if (setq text (cdr text))
4334            (insert-string "\n")))            (insert "\n")))
4335      (insert-string "\n")))      (insert "\n")))
4336  ;;;_   > outline-copy-exposed-to-buffer (&optional arg tobuf format)  ;;;_   > outline-copy-exposed-to-buffer (&optional arg tobuf format)
4337  (defun outline-copy-exposed-to-buffer (&optional arg tobuf format)  (defun outline-copy-exposed-to-buffer (&optional arg tobuf format)
4338    "Duplicate exposed portions of current outline to another buffer.    "Duplicate exposed portions of current outline to another buffer.
# Line 4440  environment.  Leaves point at the end of Line 4440  environment.  Leaves point at the end of
4440                                end       ; bounded by end-of-line                                end       ; bounded by end-of-line
4441                                1)        ; no matches, move to end & return nil                                1)        ; no matches, move to end & return nil
4442        (goto-char (match-beginning 0))        (goto-char (match-beginning 0))
4443        (insert-string "\\")        (insert "\\")
4444        (setq end (1+ end))        (setq end (1+ end))
4445        (goto-char (1+ (match-end 0))))))        (goto-char (1+ (match-end 0))))))
4446  ;;;_   > outline-insert-latex-header (buf)  ;;;_   > outline-insert-latex-header (buf)
# Line 4533  BULLET string, and a list of TEXT string Line 4533  BULLET string, and a list of TEXT string
4533           (curr-line)           (curr-line)
4534           body-content bop)           body-content bop)
4535                                          ; Do the head line:                                          ; Do the head line:
4536      (insert-string (concat "\\OneHeadLine{\\verb\1 "      (insert (concat "\\OneHeadLine{\\verb\1 "
4537                             (outline-latex-verb-quote bullet)                      (outline-latex-verb-quote bullet)
4538                             "\1}{"                      "\1}{"
4539                             depth                      depth
4540                             "}{\\verb\1 "                      "}{\\verb\1 "
4541                             (if head-line                      (if head-line
4542                                 (outline-latex-verb-quote head-line)                          (outline-latex-verb-quote head-line)
4543                               "")                        "")
4544                             "\1}\n"))                      "\1}\n"))
4545      (if (not body-lines)      (if (not body-lines)
4546          nil          nil
4547        ;;(insert-string "\\beginlines\n")        ;;(insert "\\beginlines\n")
4548        (insert-string "\\begin{verbatim}\n")        (insert "\\begin{verbatim}\n")
4549        (while body-lines        (while body-lines
4550          (setq curr-line (car body-lines))          (setq curr-line (car body-lines))
4551          (if (and (not body-content)          (if (and (not body-content)
# Line 4559  BULLET string, and a list of TEXT string Line 4559  BULLET string, and a list of TEXT string
4559              (setq curr-line (concat (substring curr-line 0 bop)              (setq curr-line (concat (substring curr-line 0 bop)
4560                                      ">"                                      ">"
4561                                      (substring curr-line bop))))                                      (substring curr-line bop))))
4562          ;;(insert-string "|" (car body-lines) "|")          ;;(insert "|" (car body-lines) "|")
4563          (insert-string curr-line)          (insert curr-line)
4564          (outline-latex-verbatim-quote-curr-line)          (outline-latex-verbatim-quote-curr-line)
4565          (insert-string "\n")          (insert "\n")
4566          (setq body-lines (cdr body-lines)))          (setq body-lines (cdr body-lines)))
4567        (if body-content        (if body-content
4568            (setq body-content nil)            (setq body-content nil)
4569          (forward-char -1)          (forward-char -1)
4570          (insert-string "\\ ")          (insert "\\ ")
4571          (forward-char 1))          (forward-char 1))
4572        ;;(insert-string "\\endlines\n")        ;;(insert "\\endlines\n")
4573        (insert-string "\\end{verbatim}\n")        (insert "\\end{verbatim}\n")
4574        )))        )))
4575  ;;;_   > outline-latexify-exposed (arg &optional tobuf)  ;;;_   > outline-latexify-exposed (arg &optional tobuf)
4576  (defun outline-latexify-exposed (arg &optional tobuf)  (defun outline-latexify-exposed (arg &optional tobuf)
# Line 4631  setup for auto-startup." Line 4631  setup for auto-startup."
4631      (if (looking-at outline-regexp)      (if (looking-at outline-regexp)
4632          t          t
4633        (outline-open-topic 2)        (outline-open-topic 2)
4634        (insert-string (concat "Dummy outline topic header - see"        (insert (concat "Dummy outline topic header - see"
4635                               "`outline-mode' docstring: `^Hm'."))                        "`outline-mode' docstring: `^Hm'."))
4636        (forward-line 1)        (forward-line 1)
4637        (goto-char (point-max))        (goto-char (point-max))
4638        (open-line 1)        (open-line 1)
4639        (outline-open-topic 0)        (outline-open-topic 0)
4640        (insert-string "Local emacs vars.\n")        (insert "Local emacs vars.\n")
4641        (outline-open-topic 1)        (outline-open-topic 1)
4642        (insert-string "(`outline-layout' is for allout.el outline-mode)\n")        (insert "(`outline-layout' is for allout.el outline-mode)\n")
4643        (outline-open-topic 0)        (outline-open-topic 0)
4644        (insert-string "Local variables:\n")        (insert "Local variables:\n")
4645        (outline-open-topic 0)        (outline-open-topic 0)
4646        (insert-string (format "outline-layout: %s\n"        (insert (format "outline-layout: %s\n"
4647                               (or outline-layout                               (or outline-layout
4648                                   '(-1 : 0))))                                   '(-1 : 0))))
4649        (outline-open-topic 0)        (outline-open-topic 0)
4650        (insert-string "End:\n"))))        (insert "End:\n"))))
4651  ;;;_  > solicit-char-in-string (prompt string &optional do-defaulting)  ;;;_  > solicit-char-in-string (prompt string &optional do-defaulting)
4652  (defun solicit-char-in-string (prompt string &optional do-defaulting)  (defun solicit-char-in-string (prompt string &optional do-defaulting)
4653    "Solicit (with first arg PROMPT) choice of a character from string STRING.    "Solicit (with first arg PROMPT) choice of a character from string STRING.

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

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