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
b25dc41f
Commit
b25dc41f
authored
Sep 09, 2005
by
Richard M. Stallman
Browse files
(woman-file-name): Provide a default, not initial input.
parent
f57b45cf
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
7 deletions
+10
-7
lisp/woman.el
lisp/woman.el
+10
-7
No files found.
lisp/woman.el
View file @
b25dc41f
...
...
@@ -3,7 +3,7 @@
;; Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
;; Author: Francis J. Wright <F.J.Wright@qmul.ac.uk>
;; Maintainer: F
rancis J. Wright <F.J.Wright@qmul.ac.uk>
;; Maintainer: F
SF
;; Keywords: help, unix
;; Adapted-By: Eli Zaretskii <eliz@gnu.org>
;; Version: see `woman-version'
...
...
@@ -1221,7 +1221,8 @@ Optional argument RE-CACHE, if non-nil, forces the cache to be re-read."
;; completions, but to return only a case-sensitive match. This
;; does not seem to work properly by default, so I re-do the
;; completion if necessary.
(
let
(
files
)
(
let
(
files
(
default
(
current-word
)))
(
or
(
stringp
topic
)
(
and
(
eq
t
(
if
(
boundp
'woman-topic-at-point
)
...
...
@@ -1233,13 +1234,15 @@ Optional argument RE-CACHE, if non-nil, forces the cache to be re-read."
(
assoc
topic
woman-topic-all-completions
))
(
setq
topic
(
completing-read
"Manual entry: "
(
if
default
(
format
"Manual entry (default `%s'): "
default
)
"Manual entry: "
)
woman-topic-all-completions
nil
1
;; Initial input suggestion (was nil), with
;; cursor at left ready to kill suggestion!:
nil
'woman-topic-history
;; Default topic.
(
and
woman-topic-at-point
(
cons
(
or
(
current-word
)
""
)
0
))
; nearest word
'woman-topic-history
)))
default
))))
;; Note that completing-read always returns a string.
(
if
(
=
(
length
topic
)
0
)
nil
; no topic, so no file!
...
...
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