Mercurial > emacs
comparison lisp/simple.el @ 34619:237139766bdc
(delete-trailing-whitespace): Remove extraneous let.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 15 Dec 2000 16:24:13 +0000 |
| parents | f6aeb731a068 |
| children | 48e5a31a2ff0 |
comparison
equal
deleted
inserted
replaced
| 34618:81ecf6fce11a | 34619:237139766bdc |
|---|---|
| 230 All whitespace after the last non-whitespace character in a line is deleted. | 230 All whitespace after the last non-whitespace character in a line is deleted. |
| 231 This respects narrowing, created by \\[narrow-to-region] and friends." | 231 This respects narrowing, created by \\[narrow-to-region] and friends." |
| 232 (interactive "*") | 232 (interactive "*") |
| 233 (save-match-data | 233 (save-match-data |
| 234 (save-excursion | 234 (save-excursion |
| 235 (let (eol bol) | |
| 236 (goto-char (point-min)) | 235 (goto-char (point-min)) |
| 237 (while (re-search-forward "\\s-$" nil t) | 236 (while (re-search-forward "\\s-$" nil t) |
| 238 (skip-syntax-backward "-" (save-excursion (forward-line 0) (point))) | 237 (skip-syntax-backward "-" (save-excursion (forward-line 0) (point))) |
| 239 (delete-region (point) (match-end 0))))))) | 238 (delete-region (point) (match-end 0)))))) |
| 240 | 239 |
| 241 (defun newline-and-indent () | 240 (defun newline-and-indent () |
| 242 "Insert a newline, then indent according to major mode. | 241 "Insert a newline, then indent according to major mode. |
| 243 Indentation is done using the value of `indent-line-function'. | 242 Indentation is done using the value of `indent-line-function'. |
| 244 In programming language modes, this is the same as TAB. | 243 In programming language modes, this is the same as TAB. |