# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1288771063 25200
# Node ID 4fc3989048ca58c76b894ad123f699c6d2c9eab3
# Parent  414281a5ab3cfe56e69afb7d29b14ec30cb9aea4
idlwave trivia.
* lisp/progmodes/idlwave.el (idlwave-pset): Only used on XEmacs.
(props): Remove unnecessary declaration.

diff -r 414281a5ab3c -r 4fc3989048ca lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Nov 03 00:42:27 2010 -0700
+++ b/lisp/ChangeLog	Wed Nov 03 00:57:43 2010 -0700
@@ -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 -r 414281a5ab3c -r 4fc3989048ca lisp/progmodes/idlwave.el
--- a/lisp/progmodes/idlwave.el	Wed Nov 03 00:42:27 2010 -0700
+++ b/lisp/progmodes/idlwave.el	Wed Nov 03 00:57:43 2010 -0700
@@ -6911,9 +6911,10 @@
 ;;----------------------------------------------------------------------
 ;;----------------------------------------------------------------------
 ;;----------------------------------------------------------------------
-(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 @@
 	  (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 @@
 
 (provide 'idlwave)
 
-;; arch-tag: f77f3b0c-c37c-424f-a328-0886fd42b6fb
 ;;; idlwave.el ends here