From 6a3c8d9bd0db3a4db6a01a0f587f309da568a943 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Tue, 15 Jan 2008 13:07:11 +0000 Subject: Many compatibility updates, bug fixes, rearrangements for compilation. --- lib/bufhist.el | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) (limited to 'lib/bufhist.el') diff --git a/lib/bufhist.el b/lib/bufhist.el index aa58a37d..4917819f 100644 --- a/lib/bufhist.el +++ b/lib/bufhist.el @@ -73,14 +73,18 @@ indicator 'help-echo desc 'keymap (eval-when-compile - (let ((map (make-sparse-keymap))) - ;; FIXME: clicking can go wrong here because the - ;; current buffer can be something else which has no hist! - (define-key map [mode-line mouse-1] 'bufhist-prev) - (define-key map [mode-line mouse-3] 'bufhist-next) -; (define-key map [mode-line control mouse-1] 'bufhist-first) -; (define-key map [mode-line control mouse-3] 'bufhist-last) - map)) + (cond + ((featurep 'xemacs) + nil) + (t + (let ((map (make-sparse-keymap))) + ;; FIXME: clicking can go wrong here because the + ;; current buffer can be something else which has no hist! + (define-key map [mode-line mouse-1] 'bufhist-prev) + (define-key map [mode-line mouse-3] 'bufhist-next) + ;; (define-key map [mode-line control mouse-1] 'bufhist-first) + ;; (define-key map [mode-line control mouse-3] 'bufhist-last) + map)))) 'mouse-face 'mode-line-highlight)))) ;simple: -- cgit v1.2.3