# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1055035024 0
# Node ID 6dd58876664c7fa62aebf2033dbdb7856f92797c
# Parent  6445bf9b37f801d954c1d9a172e4f14a13970425
(texinfo-enable-quote-macros): Fix thinko.
(texinfo-insert-@table): Remove unused arg.
(texinfo-show-structure): Remove unused var `source-buffer'.

diff -r 6445bf9b37f8 -r 6dd58876664c lisp/textmodes/texinfo.el
--- a/lisp/textmodes/texinfo.el	Sun Jun 08 00:54:06 2003 +0000
+++ b/lisp/textmodes/texinfo.el	Sun Jun 08 01:17:04 2003 +0000
@@ -1,7 +1,7 @@
 ;;; texinfo.el --- major mode for editing Texinfo files
 
-;; Copyright (C) 1985, '88, '89, '90, '91, '01,
-;;                '92, '93, '96, '97, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1985,88,89,90,91,92,93,96,97,2000,01,03
+;;           Free Software Foundation, Inc.
 
 ;; Author: Robert J. Chassell
 ;; Date:   [See date below for texinfo-version]
@@ -666,7 +666,7 @@
     (and (re-search-backward (concat "@\\(end\\s +\\)?" env) bound t)
 	 (not (match-end 1)))))
 
-(defvar texinfo-enable-quote-macros '("@\\(code\\|samp\\|kbd\\)\\>"))
+(defvar texinfo-enable-quote-macros "@\\(code\\|samp\\|kbd\\)\\>")
 (defvar texinfo-enable-quote-envs '("example\\>" "lisp\\>"))
 (defun texinfo-insert-quote (&optional arg)
   "Insert the appropriate quote mark for TeXinfo.
@@ -842,9 +842,9 @@
   (interactive "P")
   (texinfo-insert-@-with-arg "strong" arg))
 
-(defun texinfo-insert-@table (&optional arg)
+(defun texinfo-insert-@table ()
   "Insert the string `@table' in a Texinfo buffer."
-  (interactive "P")
+  (interactive)
   (insert "@table "))
 
 (defun texinfo-insert-@var (&optional arg)
@@ -881,8 +881,7 @@
 
   (interactive "P")
   ;; First, remember current location
-  (let ((source-buffer (current-buffer))
-        current-location)
+  (let (current-location)
     (save-excursion
       (end-of-line)            ; so as to find section on current line
       (if (re-search-backward
@@ -893,7 +892,7 @@
                 (progn
                   (beginning-of-line)
                   (buffer-substring (point) (progn (end-of-line) (point)))))
-        ;; else point is located before before any section command
+        ;; else point is located before any section command.
         (setq current-location "tex")))
     ;; Second, create and format an *Occur* buffer
     (save-excursion