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

[Miles Bader]

Index: emacs/lisp/textmodes/texinfo.el
diff -c emacs/lisp/textmodes/texinfo.el:1.90.2.1 
emacs/lisp/textmodes/texinfo.el:1.90.2.2
*** emacs/lisp/textmodes/texinfo.el:1.90.2.1    Fri Apr  4 01:20:40 2003
--- emacs/lisp/textmodes/texinfo.el     Tue Oct 14 19:30:22 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]
***************
*** 28,34 ****
  ;;; Todo:
  
  ;; - facemenu support.
! ;; - command completion. 
  
  ;;; Commentary:
  
--- 28,34 ----
  ;;; Todo:
  
  ;; - facemenu support.
! ;; - command completion.
  
  ;;; Commentary:
  
***************
*** 276,281 ****
--- 276,282 ----
      ("unnumberedsubsubsec" 5)
      ("appendix" 2)
      ("appendixsec" 3)
+     ("appendixsection" 3)
      ("appendixsubsec" 4)
      ("appendixsubsubsec" 5)
      ("majorheading" 2)
***************
*** 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.
--- 667,673 ----
      (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)
--- 843,851 ----
    (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
--- 882,888 ----
  
    (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
--- 893,899 ----
                  (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
***************
*** 1039,1042 ****
--- 1039,1043 ----
  
  (provide 'texinfo)
  
+ ;;; arch-tag: 005d7c38-43b9-4b7d-aa1d-aea69bae73e1
  ;;; texinfo.el ends here