scel: work around some warnings and avoid some deprecated functions

Signed-off-by: Tim Blechmann <tim@klingt.org>
This commit is contained in:
Tim Blechmann 2011-07-18 20:18:29 +02:00
parent 1d117b4997
commit 5aa9b34534

View file

@ -16,10 +16,10 @@
;; USA ;; USA
(eval-when-compile (eval-when-compile
(require 'cl)) (require 'cl)
(require 'sclang-util)
(eval-and-compile (require 'compile)
(require 'sclang-util)) )
;; ===================================================================== ;; =====================================================================
;; post buffer access ;; 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-sentinel proc 'sclang-process-sentinel)
(set-process-filter proc 'sclang-process-filter) (set-process-filter proc 'sclang-process-filter)
(set-process-coding-system proc 'mule-utf-8 'mule-utf-8) (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))) proc)))
(defun sclang-kill () (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 ;; this is important. use a unibyte stream without eol
;; conversion for communication. ;; conversion for communication.
(set-process-coding-system proc 'no-conversion 'no-conversion) (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) (unless (get-process sclang-command-process)
(message "SCLang: Couldn't start 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))) (sclang-eval-string string (not silent-p)))
(and sclang-eval-line-forward (and sclang-eval-line-forward
(/= (line-end-position) (point-max)) (/= (line-end-position) (point-max))
(next-line 1)) (forward-line 1))
string)) string))
(defun sclang-eval-region (&optional silent-p) (defun sclang-eval-region (&optional silent-p)