view release on metacpan or  search on metacpan

lisp/pde-patch.el  view on Meta::CPAN

             (cperl-tags-treeify to 1)
             (setcar (nthcdr 2 cperl-hierarchy)
                     (cperl-menu-to-keymap (cons '("+++UPDATE+++" . -999) (cdr to))))
             (message "Updating list of classes: done, requesting display...")
             ;;(cperl-imenu-addback (nth 2 cperl-hierarchy))
             ))
       (or (nth 2 cperl-hierarchy)
           (error "No items found"))
       (setq update
;;;	(imenu-choose-buffer-index "Packages: " (nth 2 cperl-hierarchy))
             (if (if (fboundp 'display-popup-menus-p)
                     (let ((f 'display-popup-menus-p))
                       (funcall f))
                   window-system)
                 (x-popup-menu t (nth 2 cperl-hierarchy))
               (require 'tmm)
               (tmm-prompt (nth 2 cperl-hierarchy))))
       (if (and update (listp update))
           (progn (while (cdr update) (setq update (cdr update)))
                  (setq update (car update)))) ; Get the last from the list
       (if (vectorp update)
           (progn
             (find-file (elt update 0))
             (cperl-etags-goto-tag-location (elt update 1))))
       (if (eq update -999) (cperl-tags-hier-init t)))