diff options
| author | Eric Abrahamsen | 2018-11-01 16:50:17 -0700 |
|---|---|---|
| committer | Eric Abrahamsen | 2018-11-02 10:10:05 -0700 |
| commit | ea35756ac635dc5e9251552646c0bc0642d7e822 (patch) | |
| tree | c35ecf152f370db560b1d39bd28739f8b00773ae | |
| parent | dc7b10e9c452f56a79eb83cd5347e7436fa77e1f (diff) | |
| download | emacs-ea35756ac635dc5e9251552646c0bc0642d7e822.tar.gz emacs-ea35756ac635dc5e9251552646c0bc0642d7e822.zip | |
Obsolete gnus-correct-length in favor of string-width
* lisp/gnus/gnus-spec.el: Define an obsolete alias.
| -rw-r--r-- | lisp/gnus/gnus-spec.el | 4 |
1 files changed, 1 insertions, 3 deletions
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." | |||
| 271 | (insert " "))) | 271 | (insert " "))) |
| 272 | (insert-char ? (max (- ,column (current-column)) 0)))))) | 272 | (insert-char ? (max (- ,column (current-column)) 0)))))) |
| 273 | 273 | ||
| 274 | (defun gnus-correct-length (string) | 274 | (define-obsolete-function-alias 'gnus-correct-length 'string-width "27.1") |
| 275 | "Return the correct width of STRING." | ||
| 276 | (apply #'+ (mapcar #'char-width string))) | ||
| 277 | 275 | ||
| 278 | (defun gnus-correct-substring (string start &optional end) | 276 | (defun gnus-correct-substring (string start &optional end) |
| 279 | (let ((wstart 0) | 277 | (let ((wstart 0) |