1 files changed, 0 insertions, 12 deletions

@@ -45,18 +45,6 @@ Stolen from s.el."
         (setq num (1- num)))
       (apply 'concat ss))))
 
-(if (fboundp 's-truncate)
-    (defalias 'truncate-string 's-truncate)
-  (defun truncate-string (len s &optional ellipsis)
-    "If STR is longer than LEN, cut it down and add ELLIPSIS to the end.
-When not specified, ELLIPSIS defaults to '...'."
-    (declare (pure t) (side-effect-free t))
-    (unless ellipsis
-      (setq ellipsis "..."))
-    (if (> (length s) len)
-        (format "%s%s" (substring s 0 (- len (length ellipsis))) ellipsis)
-      s)))
-
 
 ;;; IRC stuff