diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-10-08 21:04:04 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-10-08 22:50:46 +0200 |
| commit | bf5b95d9327cfc564bfe6ff8f884b3d8e0b798ea (patch) | |
| tree | a798f631c61e1f57d9185f870831e7b44fc4e2d4 /lisp/progmodes/sql.el | |
| parent | e73c9ac4ed4ce0a4b423dae6acbfb384c1afbce0 (diff) | |
| download | emacs-bf5b95d9327cfc564bfe6ff8f884b3d8e0b798ea.tar.gz emacs-bf5b95d9327cfc564bfe6ff8f884b3d8e0b798ea.tar.bz2 emacs-bf5b95d9327cfc564bfe6ff8f884b3d8e0b798ea.zip | |
Remove XEmacs compat code from sql.el
* lisp/progmodes/sql.el (sql-interactive-mode-map, sql-mode)
(sql-interactive-mode): Remove XEmacs compat code. (Bug#51096)
Diffstat (limited to 'lisp/progmodes/sql.el')
| -rw-r--r-- | lisp/progmodes/sql.el | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index d0e0a1154e5..f55115e9027 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el @@ -1352,8 +1352,6 @@ specified, it's `sql-product' or `sql-connection' must match." (defvar sql-interactive-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map comint-mode-map) - (if (fboundp 'set-keymap-name) - (set-keymap-name map 'sql-interactive-mode-map)); XEmacs (define-key map (kbd "C-j") 'sql-accumulate-and-indent) (define-key map (kbd "C-c C-w") 'sql-copy-column) (define-key map (kbd "O") 'sql-magic-go) @@ -4160,10 +4158,6 @@ must tell Emacs. Here's how to do that in your init file: (modify-syntax-entry ?\\\\ \"\\\\\" sql-mode-syntax-table)))" :abbrev-table sql-mode-abbrev-table - (when (and (featurep 'xemacs) - sql-mode-menu) - (easy-menu-add sql-mode-menu)) - ;; (smie-setup sql-smie-grammar #'sql-smie-rules) (setq-local comment-start "--") ;; Make each buffer in sql-mode remember the "current" SQLi buffer. @@ -4286,9 +4280,6 @@ you entered, right above the output it created. (setq mode-name (concat "SQLi[" (or (sql-get-product-feature sql-product :name) (symbol-name sql-product)) "]")) - (when (and (featurep 'xemacs) - sql-interactive-mode-menu) - (easy-menu-add sql-interactive-mode-menu)) ;; Note that making KEYWORDS-ONLY nil will cause havoc if you try ;; SELECT 'x' FROM DUAL with SQL*Plus, because the title of the column |