diff options
| author | Richard M. Stallman | 1993-12-23 04:46:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-12-23 04:46:18 +0000 |
| commit | 7620dcc5bbcebe2bee80b9cab70777266c09d831 (patch) | |
| tree | 2824b223aeef6f3c30f50f13a9b7096eff2d14a8 /lisp | |
| parent | 9f370a90b55ba33eb074b873534c4e4015b3ad34 (diff) | |
| download | emacs-7620dcc5bbcebe2bee80b9cab70777266c09d831.tar.gz emacs-7620dcc5bbcebe2bee80b9cab70777266c09d831.zip | |
(c-delete-backslash): Do nothing if empty line.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/c-mode.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/progmodes/c-mode.el b/lisp/progmodes/c-mode.el index 429d0bf2292..ebab0c77130 100644 --- a/lisp/progmodes/c-mode.el +++ b/lisp/progmodes/c-mode.el | |||
| @@ -1314,10 +1314,12 @@ definition and conveniently use this command." | |||
| 1314 | 1314 | ||
| 1315 | (defun c-delete-backslash () | 1315 | (defun c-delete-backslash () |
| 1316 | (end-of-line) | 1316 | (end-of-line) |
| 1317 | (forward-char -1) | 1317 | (or (bolp) |
| 1318 | (if (looking-at "\\\\") | 1318 | (progn |
| 1319 | (delete-region (1+ (point)) | 1319 | (forward-char -1) |
| 1320 | (progn (skip-chars-backward " \t") (point))))) | 1320 | (if (looking-at "\\\\") |
| 1321 | (delete-region (1+ (point)) | ||
| 1322 | (progn (skip-chars-backward " \t") (point))))))) | ||
| 1321 | 1323 | ||
| 1322 | (defun c-up-conditional (count) | 1324 | (defun c-up-conditional (count) |
| 1323 | "Move back to the containing preprocessor conditional, leaving mark behind. | 1325 | "Move back to the containing preprocessor conditional, leaving mark behind. |