diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2008-07-24 09:51:53 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2008-07-24 09:51:53 +0000 |
commit | 76d6b0b2b1f039549d308a0d2c478a6b05869af9 (patch) | |
tree | 78cc7e13bf290a17e7006a6d4616a8a08e36ce8f /lib/bufhist.el | |
parent | 8f8e9388b582ad6d3ee6e1eea842a8d443d4ce89 (diff) |
Merge changes from Version4Branch.
Diffstat (limited to 'lib/bufhist.el')
-rw-r--r-- | lib/bufhist.el | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/lib/bufhist.el b/lib/bufhist.el index 4917819f..c6e70c9d 100644 --- a/lib/bufhist.el +++ b/lib/bufhist.el @@ -73,18 +73,14 @@ indicator 'help-echo desc 'keymap (eval-when-compile - (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)))) + (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: |