[Emacs-diffs] Changes to emacs/lisp/textmodes/texinfo.el

[Stefan Monnier]

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