[Emacs-diffs] trunk r116589: * lisp/progmodes/sql.el (sql-interactive-mode): Avoid setting global value

[Glenn Morris]

------------------------------------------------------------
revno: 116589
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16814
author: Emilio C. Lopes <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2014-02-27 20:55:12 -0500
message:
  * lisp/progmodes/sql.el (sql-interactive-mode): Avoid setting global value
  of comint-input-ring-separator.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/sql.el          sql.el-20091113204419-o5vbwnq5f7feedwu-1303

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-27 15:41:13 +0000
+++ b/lisp/ChangeLog    2014-02-28 01:55:12 +0000
@@ -1,3 +1,8 @@
+2014-02-28  Emilio C. Lopes  <address@hidden>
+
+       * progmodes/sql.el (sql-interactive-mode):
+       Avoid setting global comint-input-ring-separator.  (Bug#16814)
+
 2014-02-27  Michael Albinus  <address@hidden>
 
        * net/dbus.el (dbus--init-bus): Declare function.

=== modified file 'lisp/progmodes/sql.el'
--- a/lisp/progmodes/sql.el     2014-02-15 22:50:45 +0000
+++ b/lisp/progmodes/sql.el     2014-02-28 01:55:12 +0000
@@ -3928,8 +3928,8 @@
   ;; People wanting a different history file for each
   ;; buffer/process/client/whatever can change separator and file-name
   ;; on the sql-interactive-mode-hook.
-  (setq comint-input-ring-separator sql-input-ring-separator
-       comint-input-ring-file-name sql-input-ring-file-name)
+  (setq-local comint-input-ring-separator sql-input-ring-separator)
+  (setq comint-input-ring-file-name sql-input-ring-file-name)
   ;; Calling the hook before calling comint-read-input-ring allows users
   ;; to set comint-input-ring-file-name in sql-interactive-mode-hook.
   (comint-read-input-ring t))