Lines Matching +defs:menu +defs:bar +defs:update +defs:hook
30 ;; - a menu item MAY contain colons but not colon-space ": "
31 ;; - a menu item ending with ": " (but not ":: ") is an index entry
114 (defface info-menu-header
124 (defface info-menu-star
127 "Face for every third `*' in an Info menu."
129 (put 'info-menu-5 'face-alias 'info-menu-star)
148 (defcustom Info-fontify-maximum-menu-size 100000
149 "*Maximum size of menu to fontify if `font-lock-mode' is non-nil.
207 "*If non-nil, \\<Info-mode-map>\\[Info-scroll-up] in a menu visits subnodes.
209 If this is non-nil, and you scroll far enough in a node that its menu
211 moves to a subnode indicated by the following menu item. This means
212 that you visit a subnode before getting to the end of the menu.
215 Info reader program, which visits the first subnode from the menu only
222 "*If non-nil, hide the tag and section reference in *note and * menu items.
268 (defcustom Info-mode-hook
273 :type 'hook
276 (defcustom Info-selection-hook nil
278 :type 'hook
281 (defvar Info-edit-mode-hook nil
527 ;;;###autoload (add-hook 'same-window-regexps "\\*info\\*\\(\\|<[0-9]+>\\)")
1097 ;; Find each menu, and add an elt to NODES for it.
1113 ;; Add to the main menu a menu item for each other node.
1116 (let ((menu-items '("top"))
1121 (or (member (downcase nodename) menu-items)
1128 (push nodename menu-items)))))))
1147 ;; Merge the text from the other buffer's menu
1148 ;; into the menu in the like-named node in the main buffer.
1171 ;; Remove duplicate headings in the same menu.
1398 (if (not (eq Info-fontify-maximum-menu-size nil))
1402 (run-hooks 'Info-selection-hook)))))
1988 "Go to a node with a menu of visited nodes."
2085 menu-items)
2101 (let ((menu-node-name (substring-no-properties
2102 (Info-extract-menu-node-name))))
2103 (setq menu-items (cons menu-node-name menu-items))
2106 (cons (list menu-node-name section) sections)))))
2115 (nreverse menu-items))
2221 (setq target (Info-extract-menu-node-name t))))
2228 (defconst Info-menu-entry-name-re "\\(?:[^:]\\|:[^:,.;() \t\n]\\)*"
2231 "Regexp that matches a menu entry name upto but not including the colon.
2235 (defun Info-extract-menu-node-name (&optional multi-line index-node)
2237 (when (looking-at (concat Info-menu-entry-name-re ":\\(:\\|"
2260 ;; If the node name is the menu entry name (using `entry::').
2265 ;;(defun Info-menu-item-sequence (list)
2267 ;; (Info-menu (car list))
2270 (defvar Info-complete-menu-buffer)
2279 (defun Info-complete-menu-item (string predicate action)
2281 ;; - `Info-complete-menu-buffer' which contains the buffer in which
2282 ;; is the menu of items we're trying to complete.
2284 ;; also look for menu items in subsequent nodes as long as those
2288 ;; also look for menu items in these nodes. This feature is currently
2291 ;; Note that `Info-complete-menu-buffer' could be current already,
2294 (set-buffer Info-complete-menu-buffer)
2306 Info-menu-entry-name-re "\\):" Info-node-spec-re))
2346 (defun Info-menu (menu-item &optional fork)
2347 "Go to the node pointed to by the menu item named (or abbreviated) MENU-ITEM.
2348 The menu item should one of those listed in the current node's menu.
2349 Completion is allowed, and the default menu item is the one point is on.
2355 ;; If point is within a menu item, use that item as the default
2363 (if (not (search-forward "\n* menu:" nil t))
2364 (error "No menu in this node"))
2371 Info-menu-entry-name-re
2377 (Info-complete-menu-buffer (current-buffer)))
2382 'Info-complete-menu-item nil t)))
2392 ;; there is a problem here in that if several menu items have the same
2394 (Info-goto-node (Info-extract-menu-item menu-item) (if fork menu-item)))
2396 (defun Info-extract-menu-item (menu-item)
2397 (setq menu-item (regexp-quote menu-item))
2402 (or (search-forward "\n* menu:" nil t)
2403 (error "No menu in this node"))
2404 (or (re-search-forward (concat "\n\\* +" menu-item ":") nil t)
2405 (re-search-forward (concat "\n\\* +" menu-item) nil t)
2406 (error "No such item in menu"))
2409 (Info-extract-menu-node-name nil (Info-index-node))))))
2411 ;; If COUNT is nil, use the last item in the menu.
2412 (defun Info-extract-menu-counting (count)
2417 (or (search-forward "\n* menu:" nil t)
2418 (error "No menu in this node"))
2421 (error "Too few items in menu"))
2424 (Info-extract-menu-node-name nil (Info-index-node))))))
2426 (defun Info-nth-menu-item ()
2427 "Go to the node of the Nth menu item.
2431 (Info-extract-menu-counting
2445 ;; Go to the last node in the menu of Top.
2446 (Info-goto-node (Info-extract-menu-counting nil))
2447 ;; If the last node in the menu is not last in pointer structure,
2453 (Info-goto-node (Info-extract-menu-counting nil)))))
2462 ;; 1. next node is in a menu in this node (but not in an index)
2466 (save-excursion (search-forward "\n* menu:" nil t))
2468 (Info-goto-node (Info-extract-menu-counting 1))
2507 (Info-goto-node (Info-extract-menu-counting nil)))))
2518 (defun Info-next-menu-item ()
2519 "Go to the node of the next menu item."
2526 (search-forward "\n* menu:" nil t)
2528 (Info-extract-menu-node-name)))))
2530 (error "No more items in menu"))))
2532 (defun Info-last-menu-item ()
2533 "Go to the node of the previous menu item."
2540 (and (search-backward "\n* menu:" nil t)
2543 (error "No previous items in menu")))
2546 (Info-extract-menu-node-name)))))
2554 (cond ((Info-no-error (Info-next-menu-item)))
2557 ;; Since we have already gone thru all the items in this menu,
2560 ;; Since logically we are done with the node with that menu,
2570 (Info-last-menu-item)
2571 ;; If we go down a menu item, go to the end of the node
2574 ;; Keep going down, as long as there are nested menu nodes.
2576 (Info-last-menu-item)
2577 ;; If we go down a menu item, go to the end of the node
2587 (Info-last-menu-item)
2588 ;; If we go down a menu item, go to the end of the node
2601 Once you scroll far enough in a node that its menu appears on the screen
2609 the menu of a node, it moves to subnode indicated by the following menu
2628 ((Info-no-error (Info-goto-node (Info-extract-menu-counting 1))))
2643 If point is within the menu of a node, and `Info-scroll-prefer-subnodes'
2677 "Move cursor to the next cross-reference or menu item in the node."
2699 "Move cursor to the previous cross-reference or menu item in the node."
2730 menu whose name contains the word \"Index\", plus any immediately
2744 Info-history Info-history-list Info-fontify-maximum-menu-size
2775 Info-history Info-history-list Info-fontify-maximum-menu-size
2781 (when (and (search-forward "\n* menu:" nil t)
2784 (setq nodes (list (Info-extract-menu-node-name)))
2836 (Info-complete-menu-buffer (clone-buffer))
2842 (with-current-buffer Info-complete-menu-buffer
2844 (completing-read "Index topic: " 'Info-complete-menu-item))
2845 (kill-buffer Info-complete-menu-buffer)))))
2865 ;; Info-goto-index call, above, we do update the history
2947 Build a menu of the possible matches."
2957 (let ((Info-fontify-maximum-menu-size nil))
3095 Like \\[Info-menu], \\[Info-follow-reference], \\[Info-next], \\[Info-prev] or \\[Info-up] command, depending on where you click.
3106 if point is in a menu item description, follow that menu item.
3114 (search-backward "\n* menu:" nil t))
3121 (Info-extract-menu-item (match-string-no-properties 1)) fork)
3123 (error "Point neither on reference nor in menu item description")))
3137 ;; menu item: node name
3140 ;; menu item: node name or index entry
3144 (setq node (Info-extract-menu-node-name nil (Info-index-node)))
3170 (define-key Info-mode-map "1" 'Info-nth-menu-item)
3171 (define-key Info-mode-map "2" 'Info-nth-menu-item)
3172 (define-key Info-mode-map "3" 'Info-nth-menu-item)
3173 (define-key Info-mode-map "4" 'Info-nth-menu-item)
3174 (define-key Info-mode-map "5" 'Info-nth-menu-item)
3175 (define-key Info-mode-map "6" 'Info-nth-menu-item)
3176 (define-key Info-mode-map "7" 'Info-nth-menu-item)
3177 (define-key Info-mode-map "8" 'Info-nth-menu-item)
3178 (define-key Info-mode-map "9" 'Info-nth-menu-item)
3194 (define-key Info-mode-map "m" 'Info-menu)
3224 (easy-menu-define
3225 Info-mode-menu Info-mode-map
3257 :help "Go to menu of visited nodes"]
3274 (defvar info-tool-bar-map
3277 (tool-bar-local-item-from-menu 'Info-history-back "left-arrow" map Info-mode-map)
3278 (tool-bar-local-item-from-menu 'Info-history-forward "right-arrow" map Info-mode-map)
3279 (tool-bar-local-item-from-menu 'Info-prev "prev-node" map Info-mode-map)
3280 (tool-bar-local-item-from-menu 'Info-next "next-node" map Info-mode-map)
3281 (tool-bar-local-item-from-menu 'Info-up "up-node" map Info-mode-map)
3282 (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map)
3283 (tool-bar-local-item-from-menu 'Info-goto-node "jump-to" map Info-mode-map)
3284 (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map)
3285 (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map)
3286 (tool-bar-local-item-from-menu 'Info-exit "exit" map Info-mode-map)
3289 (defvar Info-menu-last-node nil)
3290 ;; Last node the menu was created for.
3293 (defun Info-menu-update ()
3294 "Update the Info menu for the current node."
3298 Info-menu-last-node))
3300 ;; Update menu menu.
3301 (let* ((Info-complete-menu-buffer (current-buffer))
3303 (Info-complete-menu-item "" nil t)
3312 (Info-menu ,current)
3316 (setq entries (cons ["Other..." Info-menu t] entries)))
3318 (setq entries (list ["No menu" nil nil] nil :active)))
3319 (easy-menu-change '("Info") "Menu Item" (nreverse entries)))
3320 ;; Update reference menu. Code stolen from `Info-follow-reference'.
3349 (easy-menu-change '("Info") "Reference" (nreverse entries)))
3351 (setq Info-menu-last-node (list Info-current-file Info-current-node)))
3381 (defvar tool-bar-map)
3398 This works with menu items, cross references, and
3404 \\[Info-menu] Pick menu item specified by name (or abbreviation).
3405 Picking a menu item causes another node to be selected.
3411 \\[Info-next-reference] Move cursor to next cross-reference or menu item.
3412 \\[Info-prev-reference] Move cursor to previous cross-reference or menu item.
3416 \\[Info-history] Go to menu of visited nodes.
3421 Once you scroll far enough in a node that its menu appears on the
3423 subnode. When after all menu items (or if there is no menu),
3426 already visible, try to go to the previous menu entry, or up
3441 1 .. 9 Pick first ... ninth item in node's menu.
3452 (add-hook 'activate-menubar-hook 'Info-menu-update nil t)
3471 (set (make-local-variable 'tool-bar-map) info-tool-bar-map)
3479 (add-hook 'kill-buffer-hook 'Info-kill-buffer nil t)
3480 (add-hook 'clone-buffer-hook 'Info-clone-buffer-hook nil t)
3481 (add-hook 'change-major-mode-hook 'font-lock-defontify nil t)
3482 (add-hook 'isearch-mode-hook 'Info-isearch-start nil t)
3492 (run-mode-hooks 'Info-mode-hook))
3501 (defun Info-clone-buffer-hook ()
3532 (force-mode-line-update)
3534 (run-mode-hooks 'Info-edit-mode-hook))
3558 (force-mode-line-update)
3752 Info-fontify-maximum-menu-size
3753 (< (- (point-max) (point-min)) Info-fontify-maximum-menu-size)))
3983 ;; Fontify menu items
3988 Info-fontify-maximum-menu-size
3989 (< (- (point-max) (point)) Info-fontify-maximum-menu-size))
3993 (concat "^\\* Menu:\\|\\(?:^\\* +\\(" Info-menu-entry-name-re "\\)\\(:"
4002 'font-lock-face 'info-menu-star)))
4016 ;; Display visited menu items in a different face
4073 ;; Fontify menu headers
4074 ;; Add the face `info-menu-header' to any header before a menu entry
4078 'font-lock-face 'info-menu-header)
4081 'font-lock-face 'info-menu-header)))
4123 (speedbar-add-expansion-list '("Info" Info-speedbar-menu-items
4127 (defvar Info-speedbar-menu-items
4136 "Additional menu-items to add to speedbar frame.")
4141 (add-hook 'speedbar-load-hook 'Info-install-speedbar-variables))
4284 "^No menu in this node$"
4285 "^No more items in menu$"
4289 "^No previous items in menu$"
4291 "^No such item in menu$"
4294 "^Point neither on reference nor in menu item description$"