2441 |
(delete-region (point) end) |
(delete-region (point) end) |
2442 |
(indent-to column 1))) |
(indent-to column 1))) |
2443 |
|
|
2444 |
(= (forward-line 1) 0)))) |
(zerop (forward-line 1))) |
2445 |
|
(bolp))) ; forward-line has funny behavior at eob. |
2446 |
|
|
2447 |
;; Make sure there are backslashes with at least one space in |
;; Make sure there are backslashes with at least one space in |
2448 |
;; front of them. |
;; front of them. |
2467 |
(insert ?\\) |
(insert ?\\) |
2468 |
(insert ?\ ?\\))) |
(insert ?\ ?\\))) |
2469 |
|
|
2470 |
(= (forward-line 1) 0))))))) |
(zerop (forward-line 1))) |
2471 |
|
(bolp)))))) ; forward-line has funny behavior at eob. |
2472 |
|
|
2473 |
(defun c-delete-backslashes-forward (to-mark point-pos) |
(defun c-delete-backslashes-forward (to-mark point-pos) |
2474 |
;; This function does not do any hidden buffer changes. |
;; This function does not do any hidden buffer changes. |
2483 |
(skip-chars-backward " \t" (if (>= (point) point-pos) |
(skip-chars-backward " \t" (if (>= (point) point-pos) |
2484 |
point-pos)) |
point-pos)) |
2485 |
(point)))) |
(point)))) |
2486 |
(= (forward-line 1) 0))))) |
(zerop (forward-line 1))) |
2487 |
|
(bolp)))) ; forward-line has funny behavior at eob. |
2488 |
|
|
2489 |
|
|
2490 |
|
|