diff options
author | Richard M. Stallman <[email protected]> | 2005-08-09 11:42:54 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2005-08-09 11:42:54 +0000 |
commit | 8d68e9b54192a5276c4de27fd18fb750be6955f4 (patch) | |
tree | 99e7058ab145479f55d46d194eb4fd14db06aaec /lisp/progmodes | |
parent | c56509c06c0b9e6a1a4b19c69e1ac8fab88c2367 (diff) |
(sql-interactive-mode-map): Use fboundp.
(sql-read-passwd): Use read-passwd.
Diffstat (limited to 'lisp/progmodes')
-rw-r--r-- | lisp/progmodes/sql.el | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index 129137c32f..7e259dfb6e 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el @@ -736,10 +736,11 @@ Used by `sql-rename-buffer'.") (defvar sql-interactive-mode-map (let ((map (make-sparse-keymap))) - (if (functionp 'set-keymap-parent) + (if (fboundp 'set-keymap-parent) (set-keymap-parent map comint-mode-map); Emacs - (set-keymap-parents map (list comint-mode-map))); XEmacs - (if (functionp 'set-keymap-name) + (if (fboundp 'set-keymap-parents) + (set-keymap-parents map (list comint-mode-map)))); XEmacs + (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) @@ -1901,16 +1902,8 @@ appended to the SQLi buffer without disturbing your SQL buffer." (describe-function 'sql-help)) (defun sql-read-passwd (prompt &optional default) - "Read a password using PROMPT. -Optional DEFAULT is password to start with. This function calls -`read-passwd' if it is available. If not, function -`ange-ftp-read-passwd' is called. This should always be available, -even in old versions of Emacs." - (if (fboundp 'read-passwd) - (read-passwd prompt nil default) - (unless (fboundp 'ange-ftp-read-passwd) - (autoload 'ange-ftp-read-passwd "ange-ftp")) - (ange-ftp-read-passwd prompt default))) + "Read a password using PROMPT. Optional DEFAULT is password to start with." + (read-passwd prompt nil default)) (defun sql-get-login (&rest what) "Get username, password and database from the user. |