[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master d60ba336af 4/4: Improve obsoletion of trimming functions in url-u
From: |
Stefan Kangas |
Subject: |
master d60ba336af 4/4: Improve obsoletion of trimming functions in url-util.el |
Date: |
Wed, 3 Aug 2022 06:08:31 -0400 (EDT) |
branch: master
commit d60ba336af9ecbad4250b64bbe289f5822c8babf
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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(-)
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index a6a4becceb..b7fdd73762 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")