diff options
author | Alan Pearce | 2015-08-13 22:40:08 +0200 |
---|---|---|
committer | Alan Pearce | 2015-08-13 22:40:08 +0200 |
commit | 08f6ecdbeda886afef83cb87ddd3f447a0359927 (patch) | |
tree | a95b76c7cc69f21f251151c0bb5da3915768669d /tag-emacs | |
parent | 29c18056ff285ac44850cf7bbfc56c7572e37d3d (diff) | |
download | dotfiles-08f6ecdbeda886afef83cb87ddd3f447a0359927.tar.lz dotfiles-08f6ecdbeda886afef83cb87ddd3f447a0359927.tar.zst dotfiles-08f6ecdbeda886afef83cb87ddd3f447a0359927.zip |
Emacs: Remove old imenu-init jump functions
Diffstat (limited to 'tag-emacs')
-rw-r--r-- | tag-emacs/emacs.d/init.org | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org index 4fe6165..cd3ec4d 100644 --- a/tag-emacs/emacs.d/init.org +++ b/tag-emacs/emacs.d/init.org @@ -1119,36 +1119,6 @@ Option/alt, then Control. ("M-!" . shell-execute))) #+END_SRC -Some stuff for getting around my =init.el=. Now that I’m using -=org-mode=, I’ll probably need to write something else, or fiddle with -org’s navigation commands. - -#+BEGIN_SRC emacs-lisp -(defun imenu-elisp-sections () - (setq imenu-prev-index-position-function nil) - (add-to-list 'imenu-generic-expression '("Sections" "^;;;; \\(.+\\)$" 1) t) - (add-to-list 'imenu-generic-expression '("Packages" "^(req-package\\s-+\\(\\(\\sw\\|\\s_\\)+\\)$" 1) t)) - -(defun init-narrow-to-section () - (interactive) - (save-excursion - (beginning-of-line) - (unless (looking-at "^;;;;") - (re-search-backward "^;;;;" nil t)) - (push-mark) - (forward-line) - (re-search-forward "^;;;;" nil t) - (forward-line -1) - (narrow-to-region (region-beginning) (region-end)))) - -(defun init-imenu (p) - (interactive "P") - (find-file-existing *init-file*) - (widen) - (helm-imenu) - (if p (init-narrow-to-section))) - -(add-hook 'emacs-lisp-mode-hook 'imenu-elisp-sections) #+END_SRC * Minibuffer |