;; This used to test for ange-ftp or efs being present, but it should be
;; harmless (and simpler) to give it this value unconditionally.
"\\`/[^/:]+:"
- "*File names matching this regexp are treated as remote ffap.
+ "File names matching this regexp are treated as remote ffap.
If nil, ffap neither recognizes nor generates such names."
:type '(choice (const :tag "Disable" nil)
(const :tag "Standard" "\\`/[^/:]+:")
:group 'ffap)
(defcustom ffap-url-unwrap-local t
- "*If non-nil, convert `file:' URL to local file name before prompting."
+ "If non-nil, convert `file:' URL to local file name before prompting."
:type 'boolean
:group 'ffap)
(defcustom ffap-url-unwrap-remote t
- "*If non-nil, convert `ftp:' URL to remote file name before prompting.
+ "If non-nil, convert `ftp:' URL to remote file name before prompting.
This is ignored if `ffap-ftp-regexp' is nil."
:type 'boolean
:group 'ffap)
(defcustom ffap-ftp-default-user "anonymous"
- "*User name in ftp file names generated by `ffap-host-to-path'.
+ "User name in ftp file names generated by `ffap-host-to-path'.
Note this name may be omitted if it equals the default
\(either `efs-default-user' or `ange-ftp-default-user'\)."
:type 'string
;; Remote file access built into file system? HP rfa or Andrew afs:
"\\`/\\(afs\\|net\\)/."
;; afs only: (and (file-exists-p "/afs") "\\`/afs/.")
- "*Matching file names are treated as remote. Use nil to disable."
+ "Matching file names are treated as remote. Use nil to disable."
:type 'regexp
:group 'ffap)
"Regexp matching URL's. nil to disable URL features in ffap.")
(defcustom ffap-foo-at-bar-prefix "mailto"
- "*Presumed URL prefix type of strings like \"<foo.9z@bar>\".
+ "Presumed URL prefix type of strings like \"<foo.9z@bar>\".
Sensible values are nil, \"news\", or \"mailto\"."
:type '(choice (const "mailto")
(const "news")
;; enabler in your .emacs file.
(defcustom ffap-dired-wildcards "[*?][^/]*\\'"
- "*A regexp matching filename wildcard characters, or nil.
+ "A regexp matching filename wildcard characters, or nil.
If `find-file-at-point' gets a filename matching this pattern,
and `ffap-pass-wildcards-to-dired' is nil, it passes it on to
:group 'ffap)
(defcustom ffap-pass-wildcards-to-dired nil
- "*If non-nil, pass filenames matching `ffap-dired-wildcards' to dired."
+ "If non-nil, pass filenames matching `ffap-dired-wildcards' to dired."
:type 'boolean
:group 'ffap)
(defcustom ffap-newfile-prompt nil
;; Suggestion from RHOGEE, 11 Jul 1994. Disabled, I think this is
;; better handled by `find-file-not-found-hooks'.
- "*Whether `find-file-at-point' prompts about a nonexistent file."
+ "Whether `find-file-at-point' prompts about a nonexistent file."
:type 'boolean
:group 'ffap)
(defcustom ffap-require-prefix nil
;; Suggestion from RHOGEE, 20 Oct 1994.
- "*If set, reverses the prefix argument to `find-file-at-point'.
+ "If set, reverses the prefix argument to `find-file-at-point'.
This is nil so neophytes notice ffap. Experts may prefer to disable
ffap most of the time."
:type 'boolean
:group 'ffap)
(defcustom ffap-file-finder 'find-file
- "*The command called by `find-file-at-point' to find a file."
+ "The command called by `find-file-at-point' to find a file."
:type 'function
:group 'ffap)
(put 'ffap-file-finder 'risky-local-variable t)
(defcustom ffap-directory-finder 'dired
- "*The command called by `dired-at-point' to find a directory."
+ "The command called by `dired-at-point' to find a directory."
:type 'function
:group 'ffap)
(put 'ffap-directory-finder 'risky-local-variable t)
;; Remote control references:
;; http://www.ncsa.uiuc.edu/SDG/Software/XMosaic/remote-control.html
;; http://home.netscape.com/newsref/std/x-remote.html
- "*A function of one argument, called by ffap to fetch an URL.
+ "A function of one argument, called by ffap to fetch an URL.
Reasonable choices are `w3-fetch' or a `browse-url-*' function.
For a fancy alternative, get `ffap-url.el'."
:type '(choice (const w3-fetch)
;; It pays to put a big fancy regexp here, since ffap-guesser is
;; much more time-consuming than regexp searching:
"[/:.~[:alpha:]]/\\|@[[:alpha:]][-[:alnum:]]*\\."
- "*Regular expression governing movements of `ffap-next'."
+ "Regular expression governing movements of `ffap-next'."
:type 'regexp
:group 'ffap)
;; particular, if `Pinging...' is broken or takes too long on your
;; machine, try setting these all to accept or reject.
(defcustom ffap-machine-p-local 'reject ; this happens often
- "*What `ffap-machine-p' does with hostnames that have no domain.
+ "What `ffap-machine-p' does with hostnames that have no domain.
Value should be a symbol, one of `ping', `accept', and `reject'."
:type '(choice (const ping)
(const accept)
(const reject))
:group 'ffap)
(defcustom ffap-machine-p-known 'ping ; `accept' for higher speed
- "*What `ffap-machine-p' does with hostnames that have a known domain.
+ "What `ffap-machine-p' does with hostnames that have a known domain.
Value should be a symbol, one of `ping', `accept', and `reject'.
See `mail-extr.el' for the known domains."
:type '(choice (const ping)
(const reject))
:group 'ffap)
(defcustom ffap-machine-p-unknown 'reject
- "*What `ffap-machine-p' does with hostnames that have an unknown domain.
+ "What `ffap-machine-p' does with hostnames that have an unknown domain.
Value should be a symbol, one of `ping', `accept', and `reject'.
See `mail-extr.el' for the known domains."
:type '(choice (const ping)
\f
(defcustom dired-at-point-require-prefix nil
- "*If set, reverses the prefix argument to `dired-at-point'.
+ "If set, reverses the prefix argument to `dired-at-point'.
This is nil so neophytes notice ffap. Experts may prefer to disable
ffap most of the time."
:type 'boolean