diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-05-20 21:11:48 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-05-25 09:42:52 +0200 |
commit | 7749ec6aaa678caa126b5027c93bee1736924939 (patch) | |
tree | a866abb3a4075ecd03121ee420d411ac6ed1d4a7 /lisp/url | |
parent | 9394027fd64b26f9a7b9db5128180638d98af13a (diff) | |
download | emacs-7749ec6aaa678caa126b5027c93bee1736924939.tar.gz |
Remove some ancient Emacs compat code
* lisp/url/url-util.el (url-percentage): Remove Emacs 19 compat
code.
* lisp/erc/erc-backend.el (erc-server-coding-system):
* lisp/gnus/mm-util.el (mm-iso-8859-x-to-15-table): Remove Emacs
19 compat code; coding-system-p is fboundp.
* lisp/progmodes/cfengine.el (cfengine-fill-paragraph): Remove Emacs
21 compat code.
Diffstat (limited to 'lisp/url')
-rw-r--r-- | lisp/url/url-util.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el index b8b7980e40b..fc84d451760 100644 --- a/lisp/url/url-util.el +++ b/lisp/url/url-util.el @@ -1,7 +1,6 @@ ;;; url-util.el --- Miscellaneous helper routines for URL library -*- lexical-binding: t -*- -;; Copyright (C) 1996-1999, 2001, 2004-2022 Free Software Foundation, -;; Inc. +;; Copyright (C) 1996-2022 Free Software Foundation, Inc. ;; Author: Bill Perry <wmperry@gnu.org> ;; Maintainer: emacs-devel@gnu.org @@ -217,9 +216,7 @@ Will not do anything if `url-show-status' is nil." ;;;###autoload (defun url-percentage (x y) - (if (fboundp 'float) - (round (* 100 (/ x (float y)))) - (/ (* x 100) y))) + (round (* 100 (/ x (float y))))) ;;;###autoload (defalias 'url-basepath 'url-file-directory) |