From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 17 Apr 2000 15:23:08 +0000 (+0000)
Subject: (texinfo-insert-@email)
X-Git-Tag: emacs-pretest-21.0.90~4222
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/af9eaa5eb3608a1aed46cfd345434967b0210952

(texinfo-insert-@email)
(texinfo-insert-@emph, texinfo-insert-@quotation)
(texinfo-insert-@strong, texinfo-insert-@url): New functions.
(texinfo-mode-map): Add key bindings for them.
---

diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index bf1a523ec0..ce751e965e 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -387,12 +387,18 @@ chapter."
   ;; bindings for inserting strings
   (define-key texinfo-mode-map "\C-c\C-o"     'texinfo-insert-block)
   (define-key texinfo-mode-map "\C-c\C-c\C-d" 'texinfo-start-menu-description)
+  (define-key texinfo-mode-map "\C-c\C-c\C-s" 'texinfo-insert-@strong)
+  (define-key texinfo-mode-map "\C-c\C-c\C-e" 'texinfo-insert-@emph)
 
   (define-key texinfo-mode-map "\C-c\C-cv"    'texinfo-insert-@var)
+  (define-key texinfo-mode-map "\C-c\C-cu"    'texinfo-insert-@url)
   (define-key texinfo-mode-map "\C-c\C-ct"    'texinfo-insert-@table)
   (define-key texinfo-mode-map "\C-c\C-cs"    'texinfo-insert-@samp)
+  ;; (define-key texinfo-mode-map "\C-c\C-cr"    'texinfo-insert-@uref)
+  (define-key texinfo-mode-map "\C-c\C-cq"    'texinfo-insert-@quotation)
   (define-key texinfo-mode-map "\C-c\C-co"    'texinfo-insert-@noindent)
   (define-key texinfo-mode-map "\C-c\C-cn"    'texinfo-insert-@node)
+  (define-key texinfo-mode-map "\C-c\C-cm"    'texinfo-insert-@email)
   (define-key texinfo-mode-map "\C-c\C-ck"    'texinfo-insert-@kbd)
   (define-key texinfo-mode-map "\C-c\C-ci"    'texinfo-insert-@item)
   (define-key texinfo-mode-map "\C-c\C-cf"    'texinfo-insert-@file)
@@ -661,6 +667,20 @@ The default is not to surround any existing words with the braces."
   (interactive "P")
   (texinfo-insert-@-with-arg "dfn" arg))
 
+(defun texinfo-insert-@email (&optional arg)
+  "Insert a `@email{...}' command in a Texinfo buffer.
+A numeric argument says how many words the braces should surround.
+The default is not to surround any existing words with the braces."
+  (interactive "P")
+  (texinfo-insert-@-with-arg "email" arg))
+
+(defun texinfo-insert-@emph (&optional arg)
+  "Insert a `@emph{...}' command in a Texinfo buffer.
+A numeric argument says how many words the braces should surround.
+The default is not to surround any existing words with the braces."
+  (interactive "P")
+  (texinfo-insert-@-with-arg "emph" arg))
+
 (defun texinfo-insert-@example ()
   "Insert the string `@example' in a Texinfo buffer."
   (interactive)
@@ -700,6 +720,11 @@ the order of arguments to @node."
   (interactive)
   (insert "@noindent\n"))
 
+(defun texinfo-insert-@quotation ()
+  "Insert the string `@quotation' in a Texinfo buffer."
+  (interactive)
+  (insert "@quotation\n"))
+
 (defun texinfo-insert-@samp (&optional arg)
   "Insert a `@samp{...}' command in a Texinfo buffer.
 A numeric argument says how many words the braces should surround.
@@ -707,6 +732,13 @@ The default is not to surround any existing words with the braces."
   (interactive "P")
   (texinfo-insert-@-with-arg "samp" arg))
 
+(defun texinfo-insert-@strong (&optional arg)
+  "Insert a `@strong{...}' command in a Texinfo buffer.
+A numeric argument says how many words the braces should surround.
+The default is not to surround any existing words with the braces."
+  (interactive "P")
+  (texinfo-insert-@-with-arg "strong" arg))
+
 (defun texinfo-insert-@table (&optional arg)
   "Insert the string `@table' in a Texinfo buffer."
   (interactive "P")
@@ -718,6 +750,13 @@ A numeric argument says how many words the braces should surround.
 The default is not to surround any existing words with the braces."
   (interactive "P")
   (texinfo-insert-@-with-arg "var" arg))
+
+(defun texinfo-insert-@url (&optional arg)
+  "Insert a `@url{}' command in a Texinfo buffer.
+A numeric argument says how many words the braces should surround.
+The default is not to surround any existing words with the braces."
+  (interactive "P")
+  (texinfo-insert-@-with-arg "url" arg))
 
 ;;; Texinfo file structure