From d60ba336af9ecbad4250b64bbe289f5822c8babf Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 3 Aug 2022 11:52:57 +0200 Subject: Improve obsoletion of trimming functions in url-util.el * lisp/url/url-util.el (url-eat-trailing-space): Redefine as obsolete function alias for 'string-trim-right'. (url-strip-leading-spaces): Redefine as obsolete function alias for 'string-trim-left'. --- lisp/url/url-util.el | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) (limited to 'lisp/url/url-util.el') diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el index a6a4beccebb..b7fdd73762a 100644 --- a/lisp/url/url-util.el +++ b/lisp/url/url-util.el @@ -180,17 +180,12 @@ Will not do anything if `url-show-status' is nil." (format-time-string "%a, %d %b %Y %T GMT" specified-time t))) ;;;###autoload -(defun url-eat-trailing-space (x) - "Remove spaces/tabs at the end of a string." - (declare (obsolete string-trim "29.1")) - (string-trim x "")) +(define-obsolete-function-alias 'url-eat-trailing-space + #'string-trim-right "29.1") ;;;###autoload -(defun url-strip-leading-spaces (x) - "Remove spaces at the front of a string." - (declare (obsolete string-trim "29.1")) - (string-trim x nil "")) - +(define-obsolete-function-alias 'url-strip-leading-spaces + #'string-trim-left "29.1") (define-obsolete-function-alias 'url-pretty-length 'file-size-human-readable "24.4") -- cgit v1.2.3