From d2d1f39536e32dc6789ee2d26aeda05a405d47d3 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 17 Apr 2018 23:26:11 +0200 Subject: [PATCH] Revert hunk mistakenly applied in last patch --- lisp/progmodes/sql.el | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index ebbef8d89ee..f907a01d8cf 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el @@ -4031,16 +4031,15 @@ Writes the input history to a history file using This function is a sentinel watching the SQL interpreter process. Sentinels will always get the two parameters PROCESS and EVENT." - (when (buffer-live-p (process-buffer process)) - (with-current-buffer (process-buffer process) - (let - ((comint-input-ring-separator sql-input-ring-separator) - (comint-input-ring-file-name sql-input-ring-file-name)) - (comint-write-input-ring)) - - (if (not buffer-read-only) - (insert (format "\nProcess %s %s\n" process event)) - (message "Process %s %s" process event))))) + (with-current-buffer (process-buffer process) + (let + ((comint-input-ring-separator sql-input-ring-separator) + (comint-input-ring-file-name sql-input-ring-file-name)) + (comint-write-input-ring)) + + (if (not buffer-read-only) + (insert (format "\nProcess %s %s\n" process event)) + (message "Process %s %s" process event)))) -- 2.11.4.GIT