X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tl-str.el;h=e4f60b37aac2c9a13d578f827366f93c71b7b119;hb=8e18eb1fd95180a6ea115a00ce2f045815809b49;hp=5d3822697de3c306984b6f342ee8df61793e9a15;hpb=463ad51a3180796619ebc6fa69128afd2686429b;p=elisp%2Ftm.git

diff --git a/tl-str.el b/tl-str.el
index 5d38226..e4f60b3 100644
--- 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