diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-06-08 01:17:04 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-06-08 01:17:04 +0000 |
| commit | ffa5b3a3ffa76eb03c82472b5ed435504ae6f045 (patch) | |
| tree | 0a579252dcc78db7d4e51776133b6d7b3c89d6ea /lisp/textmodes/texinfo.el | |
| parent | b532266db674fb9840a139386b1e2cdc410438be (diff) | |
| download | emacs-ffa5b3a3ffa76eb03c82472b5ed435504ae6f045.tar.gz | |
(texinfo-enable-quote-macros): Fix thinko.
(texinfo-insert-@table): Remove unused arg.
(texinfo-show-structure): Remove unused var `source-buffer'.
Diffstat (limited to 'lisp/textmodes/texinfo.el')
| -rw-r--r-- | lisp/textmodes/texinfo.el | 15 |
1 files 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 |