mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

Improve obsoletion of trimming functions in url-util.el

Browse Source 
* 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'.
This commit is contained in:
Stefan Kangas 2022-08-03 11:52:57 +02:00
parent 165675797e
commit d60ba336af
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/url/url-util.el
View File

@ -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")