1 |
;;; tcl.el --- Tcl code editing commands for Emacs |
;;; tcl.el --- Tcl code editing commands for Emacs |
2 |
|
|
3 |
;; Copyright (C) 1994, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1994,1998,1999,2000,2001,2002 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Maintainer: FSF |
;; Maintainer: Tom Tromey <tromey@redhat.com> |
6 |
;; Author: Tom Tromey <tromey@busco.lanl.gov> |
;; Author: Tom Tromey <tromey@redhat.com> |
7 |
;; Chris Lindblad <cjl@lcs.mit.edu> |
;; Chris Lindblad <cjl@lcs.mit.edu> |
8 |
;; Keywords: languages tcl modes |
;; Keywords: languages tcl modes |
9 |
;; Version: $Revision$ |
;; Version: $Revision$ |
1542 |
p-start p-end) |
p-start p-end) |
1543 |
;; Search backwards. |
;; Search backwards. |
1544 |
(save-excursion |
(save-excursion |
1545 |
(while (looking-at "^[ \t]*#") |
(while (and (looking-at "^[ \t]*#[ \t]*[^ \t\n]") |
1546 |
|
(not (bobp))) |
1547 |
(forward-line -1)) |
(forward-line -1)) |
|
(forward-line) |
|
1548 |
(setq p-start (point))) |
(setq p-start (point))) |
1549 |
|
|
1550 |
;; Search forwards. |
;; Search forwards. |
1551 |
(save-excursion |
(save-excursion |
1552 |
(while (looking-at "^[ \t]*#") |
(while (looking-at "^[ \t]*#[ \t]*[^ \t\n]") |
1553 |
(forward-line)) |
(forward-line)) |
1554 |
(setq p-end (point))) |
(setq p-end (point))) |
1555 |
|
|