Mercurial > hg > xemacs-beta
comparison lisp/efs/dired.el @ 161:28f395d8dc7a r20-3b7
Import from CVS: tag r20-3b7
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:42:26 +0200 |
| parents | 43dd3413c7c7 |
| children | 15872534500d |
comparison
equal
deleted
inserted
replaced
| 160:1c55655d6702 | 161:28f395d8dc7a |
|---|---|
| 737 (,@ body)) | 737 (,@ body)) |
| 738 ;; Use the marker to try to find the right line, then move to | 738 ;; Use the marker to try to find the right line, then move to |
| 739 ;; the proper column. | 739 ;; the proper column. |
| 740 (goto-char (, temp-bolm)) | 740 (goto-char (, temp-bolm)) |
| 741 (and (not (, temp-fnlp)) | 741 (and (not (, temp-fnlp)) |
| 742 (not (eq (following-char) 0)) (memq (following-char) '(?\n ?\r)) | 742 (memq (char-after (point)) '(?\n ?\r)) |
| 743 ;; The line containing the point got deleted. Note that this | 743 ;; The line containing the point got deleted. Note that this |
| 744 ;; logic only works if we don't delete null lines, but we never | 744 ;; logic only works if we don't delete null lines, but we never |
| 745 ;; do. | 745 ;; do. |
| 746 (forward-line 1)) ; don't move into a hidden line. | 746 (forward-line 1)) ; don't move into a hidden line. |
| 747 (skip-chars-forward "^\n\r" (+ (point) (, temp-offset-bol)))))))) | 747 (skip-chars-forward "^\n\r" (+ (point) (, temp-offset-bol)))))))) |