aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
authorChong Yidong2010-08-22 16:02:16 -0400
committerChong Yidong2010-08-22 16:02:16 -0400
commitb0126eac41487b9bca5af5cbb2212ff5b2c58b80 (patch)
tree680ba932d259776ebfdb6d424fa8f668e1001f7c /lisp/progmodes
parentb613941ba003bbf5024415ac4f8c2a0e12434751 (diff)
parentbc7d7ea63ba9d98b3ecc3b6decf4392a651dcbfb (diff)
downloademacs-b0126eac41487b9bca5af5cbb2212ff5b2c58b80.tar.gz
emacs-b0126eac41487b9bca5af5cbb2212ff5b2c58b80.zip
Merge changes from emacs-23 branch.
Diffstat (limited to 'lisp/progmodes')
-rw-r--r--lisp/progmodes/flymake.el3
-rw-r--r--lisp/progmodes/make-mode.el8
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.