Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 46 lines (37 sloc) 1.599 kb
cff9e2e @jwiegley Lots of reorganization
authored
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
3 (defadvice ido-visit-buffer (before switch-to-buffers-workgroup
4 (buffer method &optional record)
5 activate)
6 "If a workgroup is showing BUFFER, switch to it first"
7 (wg-aif (wg-find-buffer (if (bufferp buffer)
8 (buffer-name buffer)
9 buffer))
10 (ignore-errors
11 (wg-switch-to-workgroup it))))
12
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14
15 ;;;_ , modeline-posn
16
17 ;; (size-indication-mode)
18
19 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
20
21 (eval-when-compile
22 (require 'ace-jump-mode))
23
24 (defun quick-jump-char (&optional prefix no-ace-jump)
25 (interactive "P")
26 (let* ((query-char (event-basic-type last-command-event))
27 (regexp (regexp-quote (char-to-string query-char)))
28 (ace-jump-mode-hook
29 (list (function
30 (lambda ()
31 (define-key overriding-local-map
32 [(alt ?-)]
33 (function
34 (lambda (&optional prefix)
35 (interactive "P")
36 (ace-jump-done)
37 (quick-jump-char prefix)))))))))
38 (if (looking-at regexp)
39 (forward-char))
40 (re-search-forward regexp)
41 (backward-char)
42 (unless no-ace-jump
43 (ace-jump-do (regexp-quote (char-to-string query-char))))))
44
45 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Something went wrong with that request. Please try again.