From 0b03a950a0486d1b93600eba3d5b3c83de297d11 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 3 Nov 2010 00:57:43 -0700 Subject: [PATCH] idlwave trivia. * lisp/progmodes/idlwave.el (idlwave-pset): Only used on XEmacs. (props): Remove unnecessary declaration. --- lisp/ChangeLog | 3 +++ lisp/progmodes/idlwave.el | 9 ++++----- 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 + * 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