# HG changeset patch
# User Micha¸«³l Cadilhac <michael.cadilhac@lrde.org>
# Date 1188156871 0
# Node ID 2a4d4f565ad8b17c8f7d04b50ce9a69e41c5fd03
# Parent  85c3b71c088abe949132e162ad391b9fd96209ee
(hi-lock-unface-buffer): Show a x-menu only if the mouse was used.

diff -r 85c3b71c088a -r 2a4d4f565ad8 lisp/hi-lock.el
--- a/lisp/hi-lock.el	Sun Aug 26 19:20:20 2007 +0000
+++ b/lisp/hi-lock.el	Sun Aug 26 19:34:31 2007 +0000
@@ -462,7 +462,7 @@
 \\<minibuffer-local-must-match-map>Use \\[minibuffer-complete] to complete a partially typed regexp.
 \(See info node `Minibuffer History'.\)"
   (interactive
-   (if (and (display-popup-menus-p) (vectorp (this-command-keys)))
+   (if (and (display-popup-menus-p) (not last-nonmenu-event))
        (catch 'snafu
 	 (or
 	  (x-popup-menu