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