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:
parent
fe0d134f48
commit
c68d2581d5
3 changed files with 3 additions and 9 deletions
|
@ -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)
|
||||
|
||||
|
|
|
@ -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))
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue