[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/texinfo.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/texinfo.el |
Date: |
Sat, 07 Jun 2003 21:17:04 -0400 |
Index: emacs/lisp/textmodes/texinfo.el
diff -c emacs/lisp/textmodes/texinfo.el:1.94
emacs/lisp/textmodes/texinfo.el:1.95
*** emacs/lisp/textmodes/texinfo.el:1.94 Fri Mar 14 17:29:13 2003
--- emacs/lisp/textmodes/texinfo.el Sat Jun 7 21:17:04 2003
***************
*** 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.
;; Author: Robert J. Chassell
;; Date: [See date below for texinfo-version]
--- 1,7 ----
;;; texinfo.el --- major mode for editing Texinfo files
! ;; 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,672 ****
(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-envs '("example\\>" "lisp\\>"))
(defun texinfo-insert-quote (&optional arg)
"Insert the appropriate quote mark for TeXinfo.
--- 666,672 ----
(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-envs '("example\\>" "lisp\\>"))
(defun texinfo-insert-quote (&optional arg)
"Insert the appropriate quote mark for TeXinfo.
***************
*** 842,850 ****
(interactive "P")
(address@hidden "strong" arg))
! (defun address@hidden (&optional arg)
"Insert the string address@hidden' in a Texinfo buffer."
! (interactive "P")
(insert "@table "))
(defun address@hidden (&optional arg)
--- 842,850 ----
(interactive "P")
(address@hidden "strong" arg))
! (defun address@hidden ()
"Insert the string address@hidden' in a Texinfo buffer."
! (interactive)
(insert "@table "))
(defun address@hidden (&optional arg)
***************
*** 881,888 ****
(interactive "P")
;; First, remember current location
! (let ((source-buffer (current-buffer))
! current-location)
(save-excursion
(end-of-line) ; so as to find section on current line
(if (re-search-backward
--- 881,887 ----
(interactive "P")
;; First, remember current location
! (let (current-location)
(save-excursion
(end-of-line) ; so as to find section on current line
(if (re-search-backward
***************
*** 893,899 ****
(progn
(beginning-of-line)
(buffer-substring (point) (progn (end-of-line) (point)))))
! ;; else point is located before before any section command
(setq current-location "tex")))
;; Second, create and format an *Occur* buffer
(save-excursion
--- 892,898 ----
(progn
(beginning-of-line)
(buffer-substring (point) (progn (end-of-line) (point)))))
! ;; else point is located before any section command.
(setq current-location "tex")))
;; Second, create and format an *Occur* buffer
(save-excursion
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/texinfo.el,
Stefan Monnier <=