Ooops,
Please ignore the previous patch file, and consider the one attached to
this file.
Vincent.
> From: vincent....@hotmail.fr
> To: auctex@gnu.org; ang...@caeruleus.net
> CC: vincent....@hotmail.fr
> Subject: Contribution to AUCTeX
> Date: Sun, 30 May 2010 07:20:58 +0200
>
> Hello,
>
> Here is a contribution to AUCTeX, this is to add the mark-environement
> to the Texinfo mode.
>
> Vincent.
>
> PS--1: I also took the opportunity of this change to optimize the
> regexp. I know that it is bad practice to make two changes in the same
> patch, but that seemed so minor to me, that I could not resist the
> temptation.
>
> PS-0: I had to make tricks with beginning-of-line, because
> Texinfo-find-env-end and Texinfo-find-env-start do not work axactly the
> same way as LaTeX-find-matching-end and LaTeX-find-matching-beginning. I
> don't know whether this is the good way, or it would have been
> preferable to align Texinfo-find-env-end and Texinfo-find-env-start on
> the LaTeX way.
>
> PS-1: I had indicated a bug with Texinfo some while ago ([Bug-AUCTeX]
> Can't TeX-font on latex2e.texi). Latest mail was on (2010-04-30). Sorry
> I cannot reproduce that me too now. I don't know what really happened
> now, when I debugged it, there was some style hook breaking
> TeX-font-list with the LaTeX one, but now it works fine. sorry for the
> disturbance I caused.
>
> PS-2: Ralf, I realize that I had never answer to your question:
>
> > By the way, which email address did you use for the assignment.
> > Hotmail or Gmail? (I've used the Gmail address for the ChangeLog
> > entry for now.)
>
> Well, frankly speaking that was so long a time ago that I don't remember
> which one I used in the assignment. I usually use the hotmail address
> for mailing lists, and the following address (mapped to the gmail
> address) for Changelogs: (format "vincentb1%cusers%csourceforge%cnet" 64
> 46 46). FYI, I read
> my gmail significantly more often than my hotmail.
>
*** tex-info.el.old Sat Jun 27 21:08:15 2009
--- c:/Programme/GNU/emacs-extension/lisp/auctex/tex-info.el Sun May 30 07:29:24 2010
***************
*** 55,61 ****
(defconst texinfo-environment-regexp
;; Overwrite version from `texinfo.el'.
(concat "^...@\\("
! (mapconcat 'car Texinfo-environment-list "\\|")
"\\|end\\)\\>")
"Regexp for environment-like Texinfo list commands.
Subexpression 1 is what goes into the corresponding `...@end' statement.")
--- 55,61 ----
(defconst texinfo-environment-regexp
;; Overwrite version from `texinfo.el'.
(concat "^...@\\("
! (regexp-opt (mapcar 'car Texinfo-environment-list))
"\\|end\\)\\>")
"Regexp for environment-like Texinfo list commands.
Subexpression 1 is what goes into the corresponding `...@end' statement.")
***************
*** 152,157 ****
--- 152,185 ----
(goto-char (match-beginning 0))
(error "Can't locate start of current environment")))))
+
+
+ (defun Texinfo-mark-environment (&optional count)
+ "Set mark to end of current environment and point to the matching begin.
+ If prefix argument COUNT is given, mark the respective number of
+ enclosing environments. The command will not work properly if
+ there are unbalanced begin-end pairs in comments and verbatim
+ environments."
+ (interactive "p")
+ (setq count (if count (abs count) 1))
+ (let ((cur (point)) beg end)
+ ;; Only change point and mark after beginning and end were found.
+ ;; Point should not end up in the middle of nowhere if the search fails.
+ (save-excursion
+ (dotimes (c count)
+ (Texinfo-find-env-end)
+ (beginning-of-line 2))
+ (setq end (line-beginning-position))
+ (goto-char cur)
+ (dotimes (c count)
+ (Texinfo-find-env-start)
+ (unless (= (1+ c) count)
+ (beginning-of-line 0)))
+ (setq beg (point)))
+ (set-mark end)
+ (goto-char beg)
+ (TeX-activate-region)))
+
(defun Texinfo-insert-node ()
"Insert a Texinfo node in the current buffer.
That means, insert the string `...@node' and prompt for current,
***************
*** 223,228 ****
--- 251,257 ----
;; Simulating LaTeX-mode
(define-key map "\C-c\C-e" 'Texinfo-environment)
+ (define-key map "\C-c." 'Texinfo-mark-environment)
(define-key map "\C-c\n" 'texinfo-inse...@item)
(or (key-binding "\e\r")
(define-key map "\e\r" 'texinfo-inse...@item)) ;*** Alias
_______________________________________________
auctex mailing list
auctex@gnu.org
http://lists.gnu.org/mailman/listinfo/auctex
