jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename prelude-ido-goto-symbol to prelude-goto-symbol

Browse source
This commit is contained in:
Bozhidar Batsov 2014-09-19 12:05:50 +03:00
parent adb9ad3529
commit 3017a15150
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
core/prelude-core.el
View file

@ -483,7 +483,7 @@ With a prefix argument ARG, find the `user-init-file' instead."
(interactive "P")
(sp-wrap-with-pair ,s)))
(defun prelude-ido-goto-symbol (&optional symbol-list)
(defun prelude-goto-symbol (&optional symbol-list)
"Refresh imenu and jump to a place in the buffer using Ido."
(interactive)
(cond
@ -492,9 +492,9 @@ With a prefix argument ARG, find the `user-init-file' instead."
(while (progn
(imenu--cleanup)
(setq imenu--index-alist nil)
(prelude-ido-goto-symbol (imenu--make-index-alist))
(prelude-goto-symbol (imenu--make-index-alist))
(setq selected-symbol
(ido-completing-read "Symbol? " (reverse symbol-names)))
(completing-read "Symbol? " (reverse symbol-names)))
(string= (car imenu--rescan-item) selected-symbol)))
(unless (and (boundp 'mark-active) mark-active)
(push-mark nil t nil))
@ -510,7 +510,7 @@ With a prefix argument ARG, find the `user-init-file' instead."
(let (name position)
(cond
((and (listp symbol) (imenu--subalist-p symbol))
(prelude-ido-goto-symbol symbol))
(prelude-goto-symbol symbol))
((listp symbol)
(setq name (car symbol))
(setq position (cdr symbol)))

2
core/prelude-mode.el
View file

@ -63,7 +63,7 @@
(define-key map (kbd "C-c TAB") 'prelude-indent-rigidly-and-copy-to-clipboard)
(define-key map (kbd "C-c I") 'prelude-find-user-init-file)
(define-key map (kbd "C-c S") 'prelude-find-shell-init-file)
(define-key map (kbd "C-c i") 'prelude-ido-goto-symbol)
(define-key map (kbd "C-c i") 'prelude-goto-symbol)
;; extra prefix for projectile
(define-key map (kbd "s-p") 'projectile-command-map)
;; make some use of the Super key