idlwave trivia.

* lisp/progmodes/idlwave.el (idlwave-pset): Only used on XEmacs.
(props): Remove unnecessary declaration.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 52af63f7b20bbb16071f9df8598c49c3db68014c..044ff60a4a6293191c6a5b6b65c759e8e6fe32fc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-11-03  Glenn Morris  <rgm@gnu.org>
 
+       * progmodes/idlwave.el (idlwave-pset): Only used on XEmacs.
+       (props): Remove unnecessary declaration.
+
        * textmodes/ispell.el (ispell-init-process): On Emacs, always use
        set-process-query-on-exit-flag.
 

diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index dc85d094810a6a45c6675eac2e4c71fb0f42a155..138357e2dfce367021d806a76a2131e6d40dcde1 100644 (file)
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -6911,9 +6911,10 @@ accumulate information on matching completions."
 ;;----------------------------------------------------------------------
 ;;----------------------------------------------------------------------
 ;;----------------------------------------------------------------------
-(defvar rtn)
-(defun idlwave-pset (item)
-  (set 'rtn item))
+(when (featurep 'xemacs)
+  (defvar rtn)
+  (defun idlwave-pset (item)
+    (set 'rtn item)))
 
 (defun idlwave-popup-select (ev list title &optional sort)
   "Select an item in LIST with a popup menu.
@@ -7683,7 +7684,6 @@ property indicating the link is added."
          (t nil))))
 
 (defvar link) ;dynamic variables set by help callback
-(defvar props)
 (defun idlwave-complete-sysvar-help (mode word)
   (let ((word (or (nth 1 idlwave-completion-help-info) word))
        (entry (assoc word idlwave-system-variables-alist)))
@@ -9364,5 +9364,4 @@ This function was written since `list-abbrevs' looks terrible for IDLWAVE mode."
 
 (provide 'idlwave)
 
-;; arch-tag: f77f3b0c-c37c-424f-a328-0886fd42b6fb
 ;;; idlwave.el ends here