Mercurial > hg > xemacs-beta

comparison lisp/info.el @ 263:727739f917cb r20-5b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b30
author cvs
date Mon, 13 Aug 2007 10:24:41 +0200
parents f220cc83d72e
children b2472a1930f2
comparison
equal deleted inserted replaced
262:9d8607af9e13 263:727739f917cb
2658 (setq menu (nconc 2658 (setq menu (nconc
2659 (if (setq in (Info-indicated-node event)) 2659 (if (setq in (Info-indicated-node event))
2660 (list (vector (one-space (cadr in)) in t) 2660 (list (vector (one-space (cadr in)) in t)
2661 "--:shadowEtchedIn")) 2661 "--:shadowEtchedIn"))
2662 (list 2662 (list
2663 ["Goto Info Top-level" Info-directory t] 2663 ["Goto Info Top-level" Info-directory]
2664 (vector "Next Node" 'Info-next next-p) 2664 (vector "Next Node" 'Info-next :active next-p)
2665 (vector "Previous Node" 'Info-prev prev-p) 2665 (vector "Previous Node" 'Info-prev :active prev-p)
2666 (vector "Parent Node (Up)" 'Info-up up-p) 2666 (vector "Parent Node (Up)" 'Info-up :active up-p)
2667 ["Goto Node..." Info-goto-node t] 2667 ["Goto Node..." Info-goto-node]
2668 ["Goto Last Visited Node " Info-last t]))) 2668 ["Goto Last Visited Node " Info-last])))
2669 ;; Find the xrefs and make a list 2669 ;; Find the xrefs and make a list
2670 (while (re-search-forward xref-regexp nil t) 2670 (while (re-search-forward xref-regexp nil t)
2671 (setq xrefs (cons (one-space (buffer-substring (match-beginning 1) 2671 (setq xrefs (cons (one-space (buffer-substring (match-beginning 1)
2672 (match-end 1))) 2672 (match-end 1)))
2673 xrefs)))) 2673 xrefs))))
2688 "--:singleLine") 2688 "--:singleLine")
2689 (mapcar #'(lambda (xref) 2689 (mapcar #'(lambda (xref)
2690 (if (eq xref 'more) 2690 (if (eq xref 'more)
2691 "...more..." 2691 "...more..."
2692 (vector xref 2692 (vector xref
2693 (list 'Info-follow-reference xref) 2693 (list 'Info-follow-reference xref))))
2694 t)))
2695 xrefs))) 2694 xrefs)))
2696 (if subnodes 2695 (if subnodes
2697 (nconc menu (list "--:shadowDoubleEtchedIn" 2696 (nconc menu (list "--:shadowDoubleEtchedIn"
2698 " Sub-Nodes" 2697 " Sub-Nodes"
2699 "--:singleLine") 2698 "--:singleLine")
2700 (mapcar #'(lambda (node) 2699 (mapcar #'(lambda (node)
2701 (if (eq node 'more) 2700 (if (eq node 'more)
2702 "...more..." 2701 "...more..."
2703 (vector node (list 'Info-menu node) 2702 (vector node (list 'Info-menu node))))
2704 t)))
2705 subnodes))) 2703 subnodes)))
2706 menu)) 2704 menu))
2707 2705
2708 (defun Info-menu-filter (menu) 2706 (defun Info-menu-filter (menu)
2709 "This is the menu filter for the \"Info\" submenu." 2707 "This is the menu filter for the \"Info\" submenu."