summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVedang Manerikar <ved.manerikar@gmail.com>2022-10-07 19:42:04 +0530
committerVedang Manerikar <ved.manerikar@gmail.com>2022-10-10 15:39:23 +0530
commit5563ac911466ee8948b76241d22c5c0e384b9ab4 (patch)
treebf7c682be9d03b7d2fce232fa900156f9f90187c
parent365d2d8e8ed45c4358ff767a40fdc184746e043b (diff)
Remove bugfix for imenu in Emacs 24.3 and below
This is no longer necessary, since we are dropping support for Emacs 24.3 Relates to: #26
-rw-r--r--lisp/pdf-outline.el17
1 files changed, 0 insertions, 17 deletions
diff --git a/lisp/pdf-outline.el b/lisp/pdf-outline.el
index a9212b7..fc75b02 100644
--- a/lisp/pdf-outline.el
+++ b/lisp/pdf-outline.el
@@ -572,23 +572,6 @@ not call `imenu-sort-function'."
(cons title
(nconc (nreverse keep-at-top) menulist))))
-;; bugfix for imenu in Emacs 24.3 and below.
-(when (condition-case nil
- (progn (imenu--truncate-items '(("" 0))) nil)
- (error t))
- (eval-after-load "imenu"
- '(defun imenu--truncate-items (menulist)
- "Truncate all strings in MENULIST to `imenu-max-item-length'."
- (mapc (lambda (item)
- ;; Truncate if necessary.
- (when (and (numberp imenu-max-item-length)
- (> (length (car item)) imenu-max-item-length))
- (setcar item (substring (car item) 0 imenu-max-item-length)))
- (when (imenu--subalist-p item)
- (imenu--truncate-items (cdr item))))
- menulist))))
-
-
(provide 'pdf-outline)