Delete some Emacs 19/21 compat code

* lisp/erc/erc-goodies.el (erc-occur):
* lisp/net/newst-plainview.el (newsticker--buffer-redraw): Delete
Emacs 21 compat code.
* lisp/progmodes/sql.el (sql-accumulate-and-indent): Delete Emacs
19 compat code.
This commit is contained in:
Stefan Kangas 2023-08-20 14:29:27 +02:00
parent fe0d134f48
commit c68d2581d5
3 changed files with 3 additions and 9 deletions

View file

@ -800,9 +800,7 @@ servers. If called from a program, PROC specifies the server process."
(list (read-string "Search for: ")
(if current-prefix-arg
nil erc-server-process)))
(if (fboundp 'multi-occur)
(multi-occur (erc-buffer-list nil proc) string)
(error "`multi-occur' is not defined as a function")))
(multi-occur (erc-buffer-list nil proc) string))
(provide 'erc-goodies)

View file

@ -1175,9 +1175,7 @@ The mode-line is changed accordingly."
(defun newsticker--buffer-redraw ()
"Redraw the newsticker window."
(if (fboundp 'force-window-update)
(force-window-update (current-buffer))
(redraw-frame))
(force-window-update (current-buffer))
(run-hooks 'newsticker-buffer-change-hook)
(sit-for 0))

View file

@ -3096,9 +3096,7 @@ displayed."
(defun sql-accumulate-and-indent ()
"Continue SQL statement on the next line."
(interactive)
(if (fboundp 'comint-accumulate)
(comint-accumulate)
(newline))
(comint-accumulate)
(indent-according-to-mode))
(defun sql-help-list-products (indent freep)