Mercurial > emacs
comparison lisp/progmodes/ps-mode.el @ 90228:fa0da9b57058
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-82
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 542-553)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 116-121)
- Merge from emacs--cvs-trunk--0
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 19 Sep 2005 10:20:33 +0000 |
| parents | edf295560b5a 6dbba0bd58df |
| children | 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 90227:10fe5fadaf89 | 90228:fa0da9b57058 |
|---|---|
| 628 (if (looking-at "[ \t]+") | 628 (if (looking-at "[ \t]+") |
| 629 (goto-char (match-end 0))) | 629 (goto-char (match-end 0))) |
| 630 (current-column)) | 630 (current-column)) |
| 631 (error | 631 (error |
| 632 (ding) | 632 (ding) |
| 633 (message (error-message-string err)) | 633 (message "%s" (error-message-string err)) |
| 634 0)) | 634 0)) |
| 635 (let (target) | 635 (let (target) |
| 636 (if (not (re-search-backward "[^ \t\n\r\f][ \t\n\r\f]*\\=" nil t)) | 636 (if (not (re-search-backward "[^ \t\n\r\f][ \t\n\r\f]*\\=" nil t)) |
| 637 0 | 637 0 |
| 638 (goto-char (match-beginning 0)) | 638 (goto-char (match-beginning 0)) |