Update copyright year to 2015

[gnu-emacs] / lisp / progmodes / idlw-shell.el

diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index 0abd4daf61b9279b526c0bfa506bfbc8f451f422..40c40eef3020a1b26a1ff1336b914af4e5bf2128 100644 (file)
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -1,12 +1,11 @@
 ;; idlw-shell.el --- run IDL as an inferior process of Emacs.
 
-;; Copyright (C) 1999-2012  Free Software Foundation, Inc.
+;; Copyright (C) 1999-2015 Free Software Foundation, Inc.
 
 ;; Authors: J.D. Smith <jdsmith@as.arizona.edu>
 ;;          Carsten Dominik <dominik@astro.uva.nl>
 ;;          Chris Chase <chase@att.com>
 ;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu>
-;; Version: 6.1.22
 ;; Keywords: processes
 ;; Package: idlwave
 
@@ -41,7 +40,7 @@
 ;;
 ;; New versions of IDLWAVE, documentation, and more information
 ;; available from:
-;;                 http://idlwave.org
+;;                 http://github.com/jdtsmith/idlwave
 ;;
 ;; INSTALLATION:
 ;; =============
@@ -59,7 +58,7 @@
 ;;   The newest version of this file can be found on the maintainers
 ;;   web site.
 ;;
-;;     http://idlwave.org
+;;     http://github.com/jdtsmith/idlwave
 ;;
 ;; DOCUMENTATION
 ;; =============
@@ -591,27 +590,28 @@ TYPE is either 'pro' or 'rinfo', and `idlwave-shell-temp-pro-file' or
 
 (defun idlwave-shell-make-temp-file (prefix)
   "Create a temporary file."
-  ; Hard coded make-temp-file for Emacs<21
-  (if (fboundp 'make-temp-file)
+  (if (featurep 'emacs)
       (make-temp-file prefix)
-    (let (file
-         (temp-file-dir (if (boundp 'temporary-file-directory)
-                            temporary-file-directory
-                          "/tmp")))
-      (while (condition-case ()
-                (progn
-                  (setq file
-                        (make-temp-name
-                         (expand-file-name prefix temp-file-dir)))
-                   (if (featurep 'xemacs)
-                      (write-region "" nil file nil 'silent nil)
-                    (write-region "" nil file nil 'silent nil 'excl))
-                  nil)
-              (file-already-exists t))
-       ;; the file was somehow created by someone else between
-       ;; `make-temp-name' and `write-region', let's try again.
-       nil)
-      file)))
+    (if (fboundp 'make-temp-file)
+       (make-temp-file prefix)
+      (let (file
+           (temp-file-dir (if (boundp 'temporary-file-directory)
+                              temporary-file-directory
+                            "/tmp")))
+       (while (condition-case ()
+                  (progn
+                    (setq file
+                          (make-temp-name
+                           (expand-file-name prefix temp-file-dir)))
+                    (if (featurep 'xemacs)
+                        (write-region "" nil file nil 'silent nil)
+                      (write-region "" nil file nil 'silent nil 'excl))
+                    nil)
+                (file-already-exists t))
+         ;; the file was somehow created by someone else between
+         ;; `make-temp-name' and `write-region', let's try again.
+         nil)
+       file))))
 
 
 (defvar idlwave-shell-dirstack-query "cd,current=___cur & print,___cur"
@@ -923,7 +923,7 @@ IDL has currently stepped.")
    Info documentation for this package is available.  Use \\[idlwave-info]
    to display (complain to your sysadmin if that does not work).
    For PostScript and HTML versions of the documentation, check IDLWAVE's
-   homepage at URL `http://idlwave.org'.
+   homepage at URL `http://github.com/jdtsmith/idlwave'.
    IDLWAVE has customize support - see the group `idlwave'.
 
 8. Keybindings
@@ -1447,10 +1447,10 @@ Otherwise just move the line.  Move down unless UP is non-nil."
 
 ;; Newer versions of comint.el changed the name of comint-filter to
 ;; comint-output-filter.
-(defun idlwave-shell-comint-filter (process string) nil)
-(if (fboundp 'comint-output-filter)
-    (fset 'idlwave-shell-comint-filter (symbol-function 'comint-output-filter))
-  (fset 'idlwave-shell-comint-filter (symbol-function 'comint-filter)))
+(defalias 'idlwave-shell-comint-filter
+  (if (fboundp 'comint-output-filter)
+      #'comint-output-filter
+    #'comint-filter))
 
 (defun idlwave-shell-is-running ()
   "Return t if the shell process is running."