projects
/
elisp
/
lsdb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cabd781
)
(lsdb-mode-delete-record): Fix the last change.
author
tsuchiya
<tsuchiya>
Wed, 2 Oct 2002 03:31:57 +0000
(
03:31
+0000)
committer
tsuchiya
<tsuchiya>
Wed, 2 Oct 2002 03:31:57 +0000
(
03:31
+0000)
lsdb.el
patch
|
blob
|
history
diff --git
a/lsdb.el
b/lsdb.el
index
3f454d4
..
303fdda
100644
(file)
--- a/
lsdb.el
+++ b/
lsdb.el
@@
-1109,7
+1109,7
@@
Modify whole identification by side effect."
(when (and entry
(or (not lsdb-verbose)
(y-or-n-p
(when (and entry
(or (not lsdb-verbose)
(y-or-n-p
- (format "Do you really want to delete entry `%s' of `%s'?"
+ (format "Do you really want to delete entry `%s' of `%s'? "
entry-name (car record)))))
(lsdb-delete-entry record entry)
(lsdb-mode-delete-entry-1 entry))))
entry-name (car record)))))
(lsdb-delete-entry record entry)
(lsdb-mode-delete-entry-1 entry))))
@@
-1122,7
+1122,7
@@
Modify whole identification by side effect."
(error "%s" "There is nothing to follow here"))
(when (or (not lsdb-verbose)
(yes-or-no-p
(error "%s" "There is nothing to follow here"))
(when (or (not lsdb-verbose)
(yes-or-no-p
- (format "Do you really want to delete entire record of %s? "
+ (format "Do you really want to delete entire record of `%s'? "
(car record))))
(lsdb-delete-record record)
(save-restriction
(car record))))
(lsdb-delete-record record)
(save-restriction