Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8d68e9b5
Commit
8d68e9b5
authored
Aug 09, 2005
by
Richard M. Stallman
Browse files
(sql-interactive-mode-map): Use fboundp.
(sql-read-passwd): Use read-passwd.
parent
c56509c0
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
13 deletions
+6
-13
lisp/progmodes/sql.el
lisp/progmodes/sql.el
+6
-13
No files found.
lisp/progmodes/sql.el
View file @
8d68e9b5
...
...
@@ -736,10 +736,11 @@ Used by `sql-rename-buffer'.")
(
defvar
sql-interactive-mode-map
(
let
((
map
(
make-sparse-keymap
)))
(
if
(
f
unction
p
'set-keymap-parent
)
(
if
(
f
bound
p
'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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment