[Emacs-diffs] master e0d0ad2 1/5: Remove compatibility code for 20-year old function renaming

[Glenn Morris]

branch: master
commit e0d0ad2acce8a153f10ecbb84c51c6e0981e3c0c
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    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.
---
 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 40c40ee..02a8ec8 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