diff options
Diffstat (limited to 'x11-wm/sawfish2/files/patch-lisp::sawfish::wm::state::gnome.jl')
| -rw-r--r-- | x11-wm/sawfish2/files/patch-lisp::sawfish::wm::state::gnome.jl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/x11-wm/sawfish2/files/patch-lisp::sawfish::wm::state::gnome.jl b/x11-wm/sawfish2/files/patch-lisp::sawfish::wm::state::gnome.jl new file mode 100644 index 000000000000..12613735f003 --- /dev/null +++ b/x11-wm/sawfish2/files/patch-lisp::sawfish::wm::state::gnome.jl @@ -0,0 +1,21 @@ + +$FreeBSD$ + +--- lisp/sawfish/wm/state/gnome.jl.orig Fri May 4 10:41:32 2001 ++++ lisp/sawfish/wm/state/gnome.jl Tue Aug 28 19:42:30 2001 +@@ -1,5 +1,5 @@ + ;; gnome.jl -- minimal GNOME compliance +-;; $Id: gnome.jl,v 1.72 2001/05/04 07:41:32 jsh Exp $ ++;; $Id: gnome.jl,v 1.73 2001/07/24 04:37:14 jsh Exp $ + + ;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk> + +@@ -321,7 +321,7 @@ + (let ((event (event-name (current-event)))) + ;; only proxy Click1 or Off events, and only if we don't have + ;; a binding for an event that may follow in the same grab +- (cond ((and (string-match "^(.*)-Click1$" event) ++ (cond ((and (string-match "^(.*)-Click\\d?$" event) + (let ((mirror (lookup-event + (expand-last-match "\\1-Off")))) + (not (or (search-keymap mirror global-keymap) |