How about this little patch against bookmark.el in the edit-utils
package?
diff -u c:\XEmacs\xemacs-packages\lisp\edit-utils\bookmark.el.orig c:\XEmacs\xemacs-packages\lisp\edit-utils\bookmark.el
--- c:\XEmacs\xemacs-packages\lisp\edit-utils\bookmark.el.orig Mon Jan 17 14:49:58 2000
+++ c:\XEmacs\xemacs-packages\lisp\edit-utils\bookmark.el Mon Jan 17 14:49:58 2000
@@ -503,9 +503,8 @@
bookmark-alist
nil
0
- nil
- 'bookmark-history
- default)))
+ default
+ 'bookmark-history)))
(if (string-equal "" str)
(list default)
(list str))))
Please advise,
Adrian
After upgrading to
edit-utils 1.43 1.43 Miscellaneous editor extensions, you probably
need this.
I get this *Backtrace* when I try to
C-x r b (bookmark-jump)
in XEmacs-21.1.8:
Signaling: (wrong-number-of-arguments (lambda (prompt table &optional predicate require-match initial-contents history) "Read a string in the minibuffer, with completion.
Args: PROMPT, TABLE, PREDICATE, REQUIRE-MATCH, INITIAL-CONTENTS, HISTORY.
PROMPT is a string to prompt with; normally it ends in a colon and a space.
TABLE is an alist whose elements' cars are strings, or an obarray.
PREDICATE limits completion to a subset of TABLE.
See `try-completion' for more details on completion, TABLE, and PREDICATE.
If REQUIRE-MATCH is non-nil, the user is not allowed to exit unless
the input is (or completes to) an element of TABLE or is null.
If it is also not t, Return does not exit if it does non-null completion.
If INITIAL-CONTENTS is non-nil, insert it in the minibuffer initially.
If it is (STRING . POSITION), the initial input
is STRING, but point is placed POSITION characters into the string.
HISTORY, if non-nil, specifies a history list
and optionally the initial position in the list.
It can be a symbol, which is the history list variable to use,
or it can be a cons cell (HISTVAR . HISTPOS).
In that case, HISTVAR is the history list variable to use,
and HISTPOS is the initial position (the position in the list
which INITIAL-CONTENTS corresponds to).
If HISTORY is `t', no history will be recorded.
Positions are counted starting from 1 at the beginning of the list.
Completion ignores case if the ambient value of
`completion-ignore-case' is non-nil." (let ((minibuffer-completion-table table) (minibuffer-completion-predicate predicate) (minibuffer-completion-confirm (if (eq require-match (quote t)) nil t)) (last-exact-completion nil)) (read-from-minibuffer prompt initial-contents (if (not require-match) minibuffer-local-completion-map minibuffer-local-must-match-map) nil history))) 7)
completing-read("Jump to bookmark: " (("\"\"" (... ... ... ...)) ("21.1" (... ... ... ...)) ("21.2" (... ... ... ...)) ("where was i?" (... ... ... ...)) ("xemacs" (... ... ... ...))) nil 0 nil bookmark-history nil)
bookmark-completing-read("Jump to bookmark" nil)
call-interactively(bookmark-jump)
Best regards,
Adrian
--
Adrian Aichner <adrian(a)xemacs.org>