Mercurial > emacs
changeset 111337:4fc3989048ca
idlwave trivia.
* lisp/progmodes/idlwave.el (idlwave-pset): Only used on XEmacs.
(props): Remove unnecessary declaration.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 03 Nov 2010 00:57:43 -0700 |
| parents | 414281a5ab3c |
| children | f36bcc8c2a23 |
| files | lisp/ChangeLog lisp/progmodes/idlwave.el |
| diffstat | 2 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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