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") (interactive "P")
(sp-wrap-with-pair ,s))) (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." "Refresh imenu and jump to a place in the buffer using Ido."
(interactive) (interactive)
(cond (cond
@ -492,9 +492,9 @@ With a prefix argument ARG, find the `user-init-file' instead."
(while (progn (while (progn
(imenu--cleanup) (imenu--cleanup)
(setq imenu--index-alist nil) (setq imenu--index-alist nil)
(prelude-ido-goto-symbol (imenu--make-index-alist)) (prelude-goto-symbol (imenu--make-index-alist))
(setq selected-symbol (setq selected-symbol
(ido-completing-read "Symbol? " (reverse symbol-names))) (completing-read "Symbol? " (reverse symbol-names)))
(string= (car imenu--rescan-item) selected-symbol))) (string= (car imenu--rescan-item) selected-symbol)))
(unless (and (boundp 'mark-active) mark-active) (unless (and (boundp 'mark-active) mark-active)
(push-mark nil t nil)) (push-mark nil t nil))
@ -510,7 +510,7 @@ With a prefix argument ARG, find the `user-init-file' instead."
(let (name position) (let (name position)
(cond (cond
((and (listp symbol) (imenu--subalist-p symbol)) ((and (listp symbol) (imenu--subalist-p symbol))
(prelude-ido-goto-symbol symbol)) (prelude-goto-symbol symbol))
((listp symbol) ((listp symbol)
(setq name (car symbol)) (setq name (car symbol))
(setq position (cdr 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 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 I") 'prelude-find-user-init-file)
(define-key map (kbd "C-c S") 'prelude-find-shell-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 ;; extra prefix for projectile
(define-key map (kbd "s-p") 'projectile-command-map) (define-key map (kbd "s-p") 'projectile-command-map)
;; make some use of the Super key ;; make some use of the Super key