From 5aa9b34534bbc817301dbf6f69e79ea59f9dfc2d Mon Sep 17 00:00:00 2001 From: Tim Blechmann Date: Mon, 18 Jul 2011 20:18:29 +0200 Subject: [PATCH] scel: work around some warnings and avoid some deprecated functions Signed-off-by: Tim Blechmann --- el/sclang-interp.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/el/sclang-interp.el b/el/sclang-interp.el index 600bb77..6ca8b46 100644 --- a/el/sclang-interp.el +++ b/el/sclang-interp.el @@ -16,10 +16,10 @@ ;; USA (eval-when-compile - (require 'cl)) - -(eval-and-compile - (require 'sclang-util)) + (require 'cl) + (require 'sclang-util) + (require 'compile) + ) ;; ===================================================================== ;; post buffer access @@ -318,7 +318,7 @@ If EOB-P is non-nil, positions cursor at end of buffer." (set-process-sentinel proc 'sclang-process-sentinel) (set-process-filter proc 'sclang-process-filter) (set-process-coding-system proc 'mule-utf-8 'mule-utf-8) - (process-kill-without-query proc) + (set-process-query-on-exit-flag proc nil) proc))) (defun sclang-kill () @@ -412,7 +412,7 @@ Change this if \"cat\" has a non-standard name or location." ;; this is important. use a unibyte stream without eol ;; conversion for communication. (set-process-coding-system proc 'no-conversion 'no-conversion) - (process-kill-without-query proc))) + (set-process-query-on-exit-flag proc nil))) (unless (get-process sclang-command-process) (message "SCLang: Couldn't start command process")))) @@ -530,7 +530,7 @@ if PRINT-P is non-nil. Return STRING if successful, otherwise nil." (sclang-eval-string string (not silent-p))) (and sclang-eval-line-forward (/= (line-end-position) (point-max)) - (next-line 1)) + (forward-line 1)) string)) (defun sclang-eval-region (&optional silent-p)