Lines Matching +defs:end +defs:kbd +defs:macro
328 ("^@end ignore\\(\n\\)" (1 "> b")))
340 "macro" "menu" "multitable" "quotation" "smalldisplay"
346 (concat "^@" (regexp-opt (cons "end" texinfo-environments) t) "\\>")
348 Subexpression 1 is what goes into the corresponding `@end' statement.")
367 ("@\\(kbd\\|key\\|url\\|uref\\){\\([^}]+\\)" 2 font-lock-string-face)
378 ("@\\(end\\|itemx?\\) +\\(.+\\)" 2 font-lock-keyword-face keep)
380 ;; 1 (texinfo-clone-environment (match-beginning 1) (match-end 1)) keep)
385 (defun texinfo-clone-environment (start end)
390 (when (looking-at "end\\Sw+\\(\\sw+\\)")
391 (setq endp t start (match-beginning 1) end (match-end 1)))
396 (texinfo-next-unmatched-end))
399 (concat (regexp-quote (buffer-substring start end)) "\\>"))
400 (text-clone-create start end 'spread "\\w*")))))))
478 (define-key texinfo-mode-map "\C-c\C-ck" 'texinfo-insert-@kbd)
482 (define-key texinfo-mode-map "\C-c\C-ce" 'texinfo-insert-@end)
601 (make-local-variable 'sentence-end-base)
602 (setq sentence-end-base
603 "\\(@\\(end\\)?dots{}\\|[.?!]\\)[]\"'$B!I$,1r}(B)}]*")
636 (make-local-variable 'tex-end-of-header)
637 (setq tex-end-of-header "%\\*\\*end")
659 "Create a matching pair @<cmd> .. @end <cmd> at point.
665 \n "@" str \n _ \n "@end " str \n)
667 (defun texinfo-inside-macro-p (macro &optional bound)
668 "Non-nil if inside a macro matching the regexp MACRO."
678 (looking-at macro))
686 (and (re-search-backward (concat "@\\(end\\s +\\)?" env) bound t)
687 (not (match-end 1)))))
689 (defvar texinfo-enable-quote-macros "@\\(code\\|samp\\|kbd\\)\\>")
707 (texinfo-inside-macro-p texinfo-enable-quote-macros top)
718 ;; The following texinfo-insert-@end command not only inserts a SPC
719 ;; after the @end, but tries to find out what belongs there. It is
724 (looking-at "@end"))
727 (defun texinfo-next-unmatched-end ()
731 (not (looking-at "@end"))))
732 (texinfo-next-unmatched-end)))
734 (defun texinfo-insert-@end ()
735 "Insert the matching `@end' for the last Texinfo command that needs one."
742 (insert "@end ")
832 (defun texinfo-insert-@kbd (&optional arg)
833 "Insert a `@kbd{...}' command in a Texinfo buffer.
837 (texinfo-insert-@-with-arg "kbd" arg))
915 (end-of-line) ; so as to find section on current line
923 (buffer-substring (point) (progn (end-of-line) (point)))))
982 (defun texinfo-tex-region (beg end)
990 between the strings defined by `tex-start-of-header' and `tex-end-of-header'
998 (tex-region beg end)))