[Emacs-diffs] /srv/bzr/emacs/trunk r102238: idlwave trivia.

[Glenn Morris]

------------------------------------------------------------
revno: 102238
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2010-11-03 00:57:43 -0700
message:
  idlwave trivia.
  * lisp/progmodes/idlwave.el (idlwave-pset): Only used on XEmacs.
  (props): Remove unnecessary declaration.
modified:
  lisp/ChangeLog
  lisp/progmodes/idlwave.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-03 07:42:27 +0000
+++ b/lisp/ChangeLog    2010-11-03 07:57:43 +0000
@@ -1,5 +1,8 @@
 2010-11-03  Glenn Morris  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/progmodes/idlwave.el'
--- a/lisp/progmodes/idlwave.el 2010-08-29 16:17:13 +0000
+++ b/lisp/progmodes/idlwave.el 2010-11-03 07:57:43 +0000
@@ -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