From a28873ce734b3618b0e8f6892e65db24d2f18da8 Mon Sep 17 00:00:00 2001 From: Steve Purcell Date: Sun, 24 Apr 2016 13:44:37 +0200 Subject: [PATCH] Allow _ characters in SQL prompts * lisp/progmodes/sql.el (sql-product-alist): Allow _ characters in SQL prompts (bug#22596). Fixes issue 22596, whereby "_" is now not considered a word constituent character in sql-interactive-mode, so prompts like "foo_dev# " are not correctly detected. Rather than piggy-back on the symbol table, we explicitly match against alphanumeric chars or "_". --- lisp/progmodes/sql.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index fd59f4687c6..be7c4ddccf2 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el @@ -462,9 +462,9 @@ file. Since that is a plaintext file, this could be dangerous." :list-all ("\\d+" . "\\dS+") :list-table ("\\d+ %s" . "\\dS+ %s") :completion-object sql-postgres-completion-object - :prompt-regexp "^\\w*=[#>] " + :prompt-regexp "^[[:alnum:]_]*=[#>] " :prompt-length 5 - :prompt-cont-regexp "^\\w*[-(][#>] " + :prompt-cont-regexp "^[[:alnum:]_]*[-(][#>] " :input-filter sql-remove-tabs-filter :terminator ("\\(^\\s-*\\\\g$\\|;\\)" . "\\g")) @@ -514,9 +514,9 @@ file. Since that is a plaintext file, this could be dangerous." :sqli-comint-func sql-comint-vertica :list-all ("\\d" . "\\dS") :list-table "\\d %s" - :prompt-regexp "^\\w*=[#>] " + :prompt-regexp "^[[:alnum:]_]*=[#>] " :prompt-length 5 - :prompt-cont-regexp "^\\w*[-(][#>] ") + :prompt-cont-regexp "^[[:alnum:]_]*[-(][#>] ") ) "An alist of product specific configuration settings. -- 2.39.2