diff options
| author | Glenn Morris <rgm@gnu.org> | 2015-04-30 20:00:23 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2015-04-30 20:00:23 -0400 |
| commit | e0d0ad2acce8a153f10ecbb84c51c6e0981e3c0c (patch) | |
| tree | 9132aadef63d74f2d6057fd6cce88ef75745ce21 /lisp/progmodes/idlw-shell.el | |
| parent | 4d2ffa0eedd9c7ec0b4f94b545368efd4cc51ae1 (diff) | |
| download | emacs-e0d0ad2acce8a153f10ecbb84c51c6e0981e3c0c.tar.gz emacs-e0d0ad2acce8a153f10ecbb84c51c6e0981e3c0c.tar.bz2 emacs-e0d0ad2acce8a153f10ecbb84c51c6e0981e3c0c.zip | |
Remove compatibility code for 20-year old function renaming
* lisp/progmodes/idlw-shell.el (idlwave-shell-comint-filter):
Make it an obsolete alias.
(idlwave-shell-filter): Change all uses to comint-output-filter.
Diffstat (limited to 'lisp/progmodes/idlw-shell.el')
| -rw-r--r-- | lisp/progmodes/idlw-shell.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index 40c40eef302..02a8ec8a560 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el @@ -1445,12 +1445,8 @@ Otherwise just move the line. Move down unless UP is non-nil." (interactive "p") (idlwave-shell-move-or-history nil arg)) -;; Newer versions of comint.el changed the name of comint-filter to -;; comint-output-filter. -(defalias 'idlwave-shell-comint-filter - (if (fboundp 'comint-output-filter) - #'comint-output-filter - #'comint-filter)) +(define-obsolete-function-alias 'idlwave-shell-comint-filter + 'comint-output-filter "25.1") (defun idlwave-shell-is-running () "Return t if the shell process is running." @@ -1496,7 +1492,7 @@ and then calls `idlwave-shell-send-command' for any pending commands." (get-buffer-create idlwave-shell-hidden-output-buffer)) (goto-char (point-max)) (insert string)) - (idlwave-shell-comint-filter proc string)) + (comint-output-filter proc string)) ;; Watch for magic - need to accumulate the current line ;; since it may not be sent all at once. (if (string-match "\n" string) @@ -1552,7 +1548,7 @@ and then calls `idlwave-shell-send-command' for any pending commands." (if idlwave-shell-hide-output (if (and idlwave-shell-show-if-error (eq idlwave-shell-current-state 'error)) - (idlwave-shell-comint-filter proc full-output) + (comint-output-filter proc full-output) ;; If it's only *mostly* hidden, filter % lines, ;; and show anything that remains (if (eq idlwave-shell-hide-output 'mostly) @@ -1560,7 +1556,7 @@ and then calls `idlwave-shell-send-command' for any pending commands." (idlwave-shell-filter-hidden-output full-output))) (if filtered - (idlwave-shell-comint-filter + (comint-output-filter proc filtered)))))) ;; Call the post-command hook |