From 8e4b438a4b490885a4741ca99d65b5051cb03cbb Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Fri, 10 Jun 2016 14:03:10 -0700 Subject: [PATCH] remove second set of imenu index flattening functions --- dotfiles/emacs.d/README.org | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index 74e0a3b5..64caf359 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -522,22 +522,6 @@ Prefix alternatives is a macro that builds a function that selects one of a coll (error (message "Invalid expression") (insert (current-kill 0))))) - (defun flatten-imenu-index (index) - (cl-mapcan - (lambda (x) - (if (listp (cdr x)) - (cl-mapcar (lambda (item) - `(,(concat (car x) "/" (car item)) . ,(cdr item))) - (flatten-imenu-index (cdr x))) - (list x))) index)) - - (defun flatten-imenu-index-function (function) - (lambda () (flatten-imenu-index (funcall function)))) - - (defun flatten-current-imenu-index-function () - (setq imenu-create-index-function - (flatten-imenu-index-function imenu-create-index-function))) - (defun notification-center (title message) (flet ((encfn (s) (encode-coding-string s (keyboard-coding-system)))) (shell-command