# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 999280312 0
# Node ID 2428aa3cec417e602b77a5b20c8362999d1e0c58
# Parent  c545df001cd23f5ccd9681c666ebd130eb5b97c1
Don't call x-popup-menu if display-popup-menus-p returns nil.

diff -r c545df001cd2 -r 2428aa3cec41 lisp/hi-lock.el
--- a/lisp/hi-lock.el	Fri Aug 31 17:02:20 2001 +0000
+++ b/lisp/hi-lock.el	Fri Aug 31 17:51:52 2001 +0000
@@ -392,7 +392,7 @@
 \\<minibuffer-local-must-match-map>Use \\[minibuffer-complete] to complete a partially typed regexp.
 \(See info node `Minibuffer History'.\)"
   (interactive
-   (if (vectorp (this-command-keys))
+   (if (and (display-popup-menus-p) (vectorp (this-command-keys)))
        (catch 'snafu
 	 (or
 	  (x-popup-menu