[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/texinfo.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/texinfo.el [lexbind] |
Date: |
Tue, 14 Oct 2003 19:30:38 -0400 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/texinfo.el [lexbind],
Miles Bader <=