mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 10:44:12 -08:00
Code Issues Projects Releases Wiki Activity

(texinfo-enable-quote-macros): Fix thinko.

Browse source 
(texinfo-insert-@table): Remove unused arg.
(texinfo-show-structure): Remove unused var `source-buffer'.
This commit is contained in:
Stefan Monnier 2003-06-08 01:17:04 +00:00
parent b532266db6
commit ffa5b3a3ff
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/textmodes/texinfo.el
View file

@ -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