>From 93e9566ee7335a148e34ecade9b716a636b5e70b Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Thu, 1 Nov 2018 16:50:17 -0700 Subject: [PATCH] Obsolete gnus-correct-length in favor of string-width * lisp/gnus/gnus-spec.el: Define an obsolete alias. --- lisp/gnus/gnus-spec.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el index 379a7f2b5c..4b5f15fbc6 100644 --- a/lisp/gnus/gnus-spec.el +++ b/lisp/gnus/gnus-spec.el @@ -271,9 +271,7 @@ gnus-spec-tab (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) -- 2.19.1