From: yamaoka <yamaoka>
Date: Tue, 29 Feb 2000 12:54:35 +0000 (+0000)
Subject: (gnus-tilde-cut-form, gnus-tilde-max-form): Move to gnus-ems.el.
X-Git-Tag: t-gnus-6_14_1-09~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c2e4ae504c7c9baece21044c228643d55f8f6127;p=elisp%2Fgnus.git-

(gnus-tilde-cut-form, gnus-tilde-max-form): Move to gnus-ems.el.
---

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 191b38c..334a586 100644
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -572,34 +572,6 @@ the resulting string may be narrower than END-COLUMN.
 	       (concat (make-string
 			(max 0 (- ,pad (string-width val))) ?\ )
 		       val))))))
-
-    (defun gnus-tilde-max-form (el max-width)
-      "Return a form that limits EL to MAX-WIDTH."
-      (let ((max (abs max-width)))
-	(if (symbolp el)
-	    (if (< max-width 0)
-		`(let ((width (string-width ,el)))
-		   (gnus-truncate-string ,el width (- width ,max)))
-	      `(gnus-truncate-string ,el ,max))
-	  (if (< max-width 0)
-	      `(let* ((val (eval ,el))
-		      (width (string-width val)))
-		 (gnus-truncate-string val width (- width ,max)))
-	    `(let ((val (eval ,el)))
-	       (gnus-truncate-string val ,max))))))
-
-    (defun gnus-tilde-cut-form (el cut-width)
-      "Return a form that cuts CUT-WIDTH off of EL."
-      (let ((cut (abs cut-width)))
-	(if (symbolp el)
-	    (if (< cut-width 0)
-		`(gnus-truncate-string ,el (- (string-width ,el) ,cut))
-	      `(gnus-truncate-string ,el (string-width ,el) ,cut))
-	  (if (< cut-width 0)
-	      `(let ((val (eval ,el)))
-		 (gnus-truncate-string val (- (string-width val) ,cut)))
-	    `(let ((val (eval ,el)))
-	       (gnus-truncate-string val (string-width val) ,cut))))))
     ))
 
 ;;; XEmacs logo and toolbar.