branch: externals/idlwave
commit 8a9197e18d2ff1fb91322c83f11a9b4d8f715cbc
Author: JD Smith <jdtsm...@gmail.com>
Commit: JD Smith <jdtsm...@gmail.com>

    Remove defcustom kludge from Emacs 19.
    From upstream Emacs.
---
 idlw-shell.el | 12 ------------
 idlwave.el    |  9 ---------
 2 files changed, 21 deletions(-)

diff --git a/idlw-shell.el b/idlw-shell.el
index df9c27a73b..b816c1945d 100644
--- a/idlw-shell.el
+++ b/idlw-shell.el
@@ -96,18 +96,6 @@
 (eval-when-compile (require 'cl))
 
 (defvar idlwave-shell-have-new-custom nil)
-(eval-and-compile
-  ;; Kludge to allow `defcustom' for Emacs 19.
-  (condition-case () (require 'custom) (error nil))
-  (if (and (featurep 'custom)
-          (fboundp 'custom-declare-variable)
-          (fboundp 'defface))     
-      ;; We've got what we needed
-      (setq idlwave-shell-have-new-custom t)
-    ;; We have the old or no custom-library, hack around it!
-    (defmacro defgroup (&rest args) nil)
-    (defmacro defcustom (var value doc &rest args) 
-      `(defvar ,var ,value ,doc))))
 
 ;;; Customizations: idlwave-shell group
 
diff --git a/idlwave.el b/idlwave.el
index 375023fc64..c4388c2c5d 100644
--- a/idlwave.el
+++ b/idlwave.el
@@ -170,15 +170,6 @@
        (require 'timer)
       (error nil)))
 
-(eval-and-compile
-  ;; Kludge to allow `defcustom' for Emacs 19.
-  (condition-case () (require 'custom) (error nil))
-  (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
-      nil ;; We've got what we needed
-    ;; We have the old or no custom-library, hack around it!
-    (defmacro defgroup (&rest args) nil)
-    (defmacro defcustom (var value doc &rest args) 
-      `(defvar ,var ,value ,doc))))
 (declare-function idlwave-shell-get-path-info "idlw-shell")
 (declare-function idlwave-shell-temp-file "idlw-shell")
 (declare-function idlwave-shell-is-running "idlw-shell")

Reply via email to