From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 15 Nov 2000 13:57:50 +0000 (+0000)
Subject: (texinfo-insert-@uref): Renamed from
X-Git-Tag: emacs-pretest-21.0.90~57
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4fb0a34c57f249ade1e8be09c1c9cd54523846b6;p=emacs.git

(texinfo-insert-@uref): Renamed from
texinfo-insert-@url.
(texinfo-insert-@url): A defalias for texinfo-insert-@uref.
(texinfo-mode-map): Bind "C-c C-c u" to texinfo-insert-@uref.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c9cd1f99c48..4ad68f46476 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2000-11-15  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* textmodes/texinfo.el (texinfo-insert-@uref): Renamed from
+	texinfo-insert-@url.
+	(texinfo-insert-@url): A defalias for texinfo-insert-@uref.
+	(texinfo-mode-map): Bind "C-c C-c u" to texinfo-insert-@uref.
+
 2000-11-14  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* emacs-lisp/checkdoc.el (checkdoc-minor-mode) <defvar>: Remove.
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index d578362f517..7f5ff90484b 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -398,10 +398,9 @@ chapter."
   (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-cu"    'texinfo-insert-@uref)
   (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)
@@ -822,12 +821,13 @@ 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)
+(defun texinfo-insert-@uref (&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-insert-@-with-arg "uref" arg))
+(defalias 'texinfo-insert-@url 'texinfo-insert-@uref)
 
 ;;; Texinfo file structure