From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Thu, 1 Nov 2018 23:50:17 +0000 (-0700)
Subject: Obsolete gnus-correct-length in favor of string-width
X-Git-Tag: emacs-27.0.90~4231
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea35756ac635dc5e9251552646c0bc0642d7e822;p=emacs.git

Obsolete gnus-correct-length in favor of string-width

* lisp/gnus/gnus-spec.el: Define an obsolete alias.
---

diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el
index 379a7f2b5c3..4b5f15fbc6d 100644
--- a/lisp/gnus/gnus-spec.el
+++ b/lisp/gnus/gnus-spec.el
@@ -271,9 +271,7 @@ Return a list of updated types."
 	       (insert " ")))
 	 (insert-char ?  (max (- ,column (current-column)) 0))))))
 
-(defun gnus-correct-length (string)
-  "Return the correct width of STRING."
-  (apply #'+ (mapcar #'char-width string)))
+(define-obsolete-function-alias 'gnus-correct-length 'string-width "27.1")
 
 (defun gnus-correct-substring (string start &optional end)
   (let ((wstart 0)