From ffa5b3a3ffa76eb03c82472b5ed435504ae6f045 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 8 Jun 2003 01:17:04 +0000 Subject: [PATCH] (texinfo-enable-quote-macros): Fix thinko. (texinfo-insert-@table): Remove unused arg. (texinfo-show-structure): Remove unused var `source-buffer'. --- lisp/textmodes/texinfo.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index 3b9b9c7b1e3..f6ae5563c17 100644 --- a/lisp/textmodes/texinfo.el +++ b/lisp/textmodes/texinfo.el @@ -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 @@ Puts point on a blank line between them." (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 @@ 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) +(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 @@ to jump to the corresponding spot in the Texinfo source file." (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 @@ to jump to the corresponding spot in the Texinfo source file." (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 -- 2.39.2