From feb4cf58257faa390cc65d9510371e7a2ecec59a Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Sun, 3 Jul 2011 14:30:28 -0700 Subject: [PATCH] * mh-utils.el: * mh-mime.el: Shush XEmacs compiler in mh-do-in-xemacs block. --- lisp/mh-e/mh-mime.el | 2 +- lisp/mh-e/mh-utils.el | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el index 48c6a3793ef..1cdafffa45c 100644 --- a/lisp/mh-e/mh-mime.el +++ b/lisp/mh-e/mh-mime.el @@ -835,7 +835,7 @@ being used to highlight the signature in a MIME part." ;;; Button Display ;; Shush compiler. -(when (featurep 'xemacs) +(mh-do-in-xemacs (defvar dots) (defvar type) (defvar ov)) diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el index 4394e1b1b22..a77633cd4bd 100644 --- a/lisp/mh-e/mh-utils.el +++ b/lisp/mh-e/mh-utils.el @@ -732,8 +732,9 @@ See Info node `(elisp) Programmed Completion' for details." (t (file-directory-p path)))))))) ;; Shush compiler. -(defvar completion-root-regexp) ; XEmacs -(defvar minibuffer-completing-file-name) ; XEmacs +(mh-do-in-xemacs + (defvar completion-root-regexp) + (defvar minibuffer-completing-file-name)) (defun mh-folder-completing-read (prompt default allow-root-folder-flag) "Read folder name with PROMPT and default result DEFAULT. -- 2.39.5