diff options
| author | Chong Yidong | 2010-08-22 16:02:16 -0400 |
|---|---|---|
| committer | Chong Yidong | 2010-08-22 16:02:16 -0400 |
| commit | b0126eac41487b9bca5af5cbb2212ff5b2c58b80 (patch) | |
| tree | 680ba932d259776ebfdb6d424fa8f668e1001f7c /lisp/progmodes | |
| parent | b613941ba003bbf5024415ac4f8c2a0e12434751 (diff) | |
| parent | bc7d7ea63ba9d98b3ecc3b6decf4392a651dcbfb (diff) | |
| download | emacs-b0126eac41487b9bca5af5cbb2212ff5b2c58b80.tar.gz emacs-b0126eac41487b9bca5af5cbb2212ff5b2c58b80.zip | |
Merge changes from emacs-23 branch.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/flymake.el | 3 | ||||
| -rw-r--r-- | lisp/progmodes/make-mode.el | 8 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index 2a198215536..712af6fd288 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el | |||
| @@ -1152,7 +1152,8 @@ For the format of LINE-ERR-INFO, see `flymake-ler-make-ler'." | |||
| 1152 | (when dir | 1152 | (when dir |
| 1153 | (let ((default-directory dir)) | 1153 | (let ((default-directory dir)) |
| 1154 | (flymake-log 3 "starting process on dir %s" default-directory))) | 1154 | (flymake-log 3 "starting process on dir %s" default-directory))) |
| 1155 | (setq process (apply 'start-process "flymake-proc" (current-buffer) cmd args)) | 1155 | (setq process (apply 'start-file-process |
| 1156 | "flymake-proc" (current-buffer) cmd args)) | ||
| 1156 | (set-process-sentinel process 'flymake-process-sentinel) | 1157 | (set-process-sentinel process 'flymake-process-sentinel) |
| 1157 | (set-process-filter process 'flymake-process-filter) | 1158 | (set-process-filter process 'flymake-process-filter) |
| 1158 | (push process flymake-processes) | 1159 | (push process flymake-processes) |
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el index 15664c8e56d..362a1db6c10 100644 --- a/lisp/progmodes/make-mode.el +++ b/lisp/progmodes/make-mode.el | |||
| @@ -1300,7 +1300,9 @@ definition and conveniently use this command." | |||
| 1300 | (save-restriction | 1300 | (save-restriction |
| 1301 | (narrow-to-region beginning end) | 1301 | (narrow-to-region beginning end) |
| 1302 | (makefile-backslash-region (point-min) (point-max) t) | 1302 | (makefile-backslash-region (point-min) (point-max) t) |
| 1303 | (let ((fill-paragraph-function nil)) | 1303 | (let ((fill-paragraph-function nil) |
| 1304 | ;; Adjust fill-column to allow space for the backslash. | ||
| 1305 | (fill-column (- fill-column 1))) | ||
| 1304 | (fill-paragraph nil)) | 1306 | (fill-paragraph nil)) |
| 1305 | (makefile-backslash-region (point-min) (point-max) nil) | 1307 | (makefile-backslash-region (point-min) (point-max) nil) |
| 1306 | (goto-char (point-max)) | 1308 | (goto-char (point-max)) |
| @@ -1314,7 +1316,9 @@ definition and conveniently use this command." | |||
| 1314 | ;; resulting region. | 1316 | ;; resulting region. |
| 1315 | (save-restriction | 1317 | (save-restriction |
| 1316 | (narrow-to-region (point) (line-beginning-position 2)) | 1318 | (narrow-to-region (point) (line-beginning-position 2)) |
| 1317 | (let ((fill-paragraph-function nil)) | 1319 | (let ((fill-paragraph-function nil) |
| 1320 | ;; Adjust fill-column to allow space for the backslash. | ||
| 1321 | (fill-column (- fill-column 1))) | ||
| 1318 | (fill-paragraph nil)) | 1322 | (fill-paragraph nil)) |
| 1319 | (makefile-backslash-region (point-min) (point-max) nil)) | 1323 | (makefile-backslash-region (point-min) (point-max) nil)) |
| 1320 | ;; Return non-nil to indicate it's been filled. | 1324 | ;; Return non-nil to indicate it's been filled. |