From c2e4ae504c7c9baece21044c228643d55f8f6127 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 29 Feb 2000 12:54:35 +0000 Subject: [PATCH] (gnus-tilde-cut-form, gnus-tilde-max-form): Move to gnus-ems.el. --- lisp/gnus-xmas.el | 28 ---------------------------- 1 file changed, 28 deletions(-) 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. -- 1.7.10.4