summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2010-11-03 00:57:43 -0700
committerGlenn Morris <rgm@gnu.org>2010-11-03 00:57:43 -0700
commit0b03a950a0486d1b93600eba3d5b3c83de297d11 (patch)
tree4e241b0e4fbf05b0790c34f8d182432cc2742166 /lisp
parente337e22c2400355ea9a22a8114df9c5c2b849d78 (diff)
downloademacs-0b03a950a0486d1b93600eba3d5b3c83de297d11.tar.gz
idlwave trivia.
* lisp/progmodes/idlwave.el (idlwave-pset): Only used on XEmacs. (props): Remove unnecessary declaration.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/progmodes/idlwave.el9
2 files changed, 7 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 52af63f7b20..044ff60a4a6 100644
--- 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 dc85d094810..138357e2dfc 100644
--- 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