Mercurial > emacs
comparison lisp/allout.el @ 111537:b8d806986840
Restore clobbered allout.el changes.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 13 Nov 2010 17:55:37 -0800 |
parents | c7ebfc6cd27a |
children | 4a4fd0374f40 |
comparison
equal
deleted
inserted
replaced
111536:198ba336245c | 111537:b8d806986840 |
---|---|
1 ;;; allout.el --- extensive outline mode for use alone and with other modes | 1 ;;; allout.el --- extensive outline mode for use alone and with other modes |
2 | 2 |
3 ;; Copyright (C) 1992, 1993, 1994, 2001, 2002, 2003, 2004, 2005, | 3 ;; Copyright (C) 1992, 1993, 1994, 2001, 2002, 2003, 2004, 2005, |
4 ;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc. | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
5 | 5 |
6 ;; Author: Ken Manheimer <ken dot manheimer at gmail dot com> | 6 ;; Author: Ken Manheimer <ken dot manheimer at gmail dot com> |
7 ;; Maintainer: Ken Manheimer <ken dot manheimer at gmail dot com> | 7 ;; Maintainer: Ken Manheimer <ken dot manheimer at gmail dot com> |
8 ;; Created: Dec 1991 -- first release to usenet | 8 ;; Created: Dec 1991 -- first release to usenet |
9 ;; Version: 2.2.1 | 9 ;; Version: 2.2.1 |
5830 across LaTeX processing, within the context of a `verbatim' | 5830 across LaTeX processing, within the context of a `verbatim' |
5831 environment. Leaves point at the end of the line." | 5831 environment. Leaves point at the end of the line." |
5832 (let ((inhibit-field-text-motion t)) | 5832 (let ((inhibit-field-text-motion t)) |
5833 (beginning-of-line) | 5833 (beginning-of-line) |
5834 (let ((beg (point)) | 5834 (let ((beg (point)) |
5835 (end (progn (end-of-line)(point)))) | 5835 (end (point-at-eol))) |
5836 (goto-char beg) | |
5837 (save-match-data | 5836 (save-match-data |
5838 (while (re-search-forward "\\\\" | 5837 (while (re-search-forward "\\\\" |
5839 ;;"\\\\\\|\\{\\|\\}\\|\\_\\|\\$\\|\\\"\\|\\&\\|\\^\\|\\-\\|\\*\\|#" | 5838 ;;"\\\\\\|\\{\\|\\}\\|\\_\\|\\$\\|\\\"\\|\\&\\|\\^\\|\\-\\|\\*\\|#" |
5840 end ; bounded by end-of-line | 5839 end ; bounded by end-of-line |
5841 1) ; no matches, move to end & return nil | 5840 1) ; no matches, move to end & return nil |