tm 7.67.

[elisp/tm.git] / tl-str.el

diff --git a/tl-str.el b/tl-str.el
index 5d38226..e4f60b3 100644 (file)
--- a/tl-str.el
+++ b/tl-str.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: tl-str.el,v 3.0 1994/10/17 07:16:25 morioka Exp $
+;;; $Id: tl-str.el,v 3.2 1994/12/19 10:03:57 morioka Exp $
 ;;;
 
 (provide 'tl-str)
@@ -58,6 +58,7 @@
 
 ;;; @@ message editing utilities
 ;;;
+(defvar cited-prefix-regexp "^[^ \t>]*[>|]+[ \t#]*")
 
 (defun fill-cited-region (beg end)
   (interactive "*r")
@@ -71,8 +72,9 @@
       (narrow-to-region beg end)
       (goto-char (point-min))
       (let* ((fill-prefix
-             (and (re-search-forward "^[^ \t>]*[>|]+[ \t#]*" nil t)
-                  (re-search-forward "^[^ \t>]*[>|]+[ \t#]*" nil t)
+             (and (re-search-forward cited-prefix-regexp nil t)
+                  (or (re-search-forward cited-prefix-regexp nil t)
+                      t)
                   (buffer-substring (match-beginning 0)
                                     (match-end 0)
                                     )))
@@ -102,18 +104,16 @@
 ;;; @@ jinn compatible functions
 ;;;
 
-(defun symbol-concat (a b)
-  (intern (concat
-          (cond ((symbolp a)
-                 (symbol-name a)
-                 )
-                ((stringp a) a)
-                )
-          (cond ((symbolp b)
-                 (symbol-name b)
-                 )
-                ((stringp b) b)
-                ))))
+(defun symbol-concat (&rest args)
+  (intern (apply (function concat)
+                (mapcar (function
+                         (lambda (s)
+                           (cond ((symbolp s) (symbol-name s))
+                                 ((stringp s) s)
+                                 )
+                           ))
+                        args)))
+  )
 
 (defun top-string-match (pat str)
   (if (string-match