remove second set of imenu index flattening functions

This commit is contained in:
Ivan Malison 2016-06-10 14:03:10 -07:00
parent a5a4c80667
commit 8e4b438a4b

View File

@ -522,22 +522,6 @@ Prefix alternatives is a macro that builds a function that selects one of a coll
(error (message "Invalid expression") (error (message "Invalid expression")
(insert (current-kill 0))))) (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) (defun notification-center (title message)
(flet ((encfn (s) (encode-coding-string s (keyboard-coding-system)))) (flet ((encfn (s) (encode-coding-string s (keyboard-coding-system))))
(shell-command (shell-command