Mercurial > emacs
annotate src/s/gnu-kfreebsd.h @ 106239:0ac473df1bd1
Provide additional default values (file name at point or at the
current Dired line) via M-n for file reading minibuffers. (Bug#5010)
* minibuffer.el (read-file-name-defaults): New function.
(read-file-name): Reset `minibuffer-default' to nil when
it duplicates initial input `insdef'.
Bind `minibuffer-default-add-function' to lambda that
calls `read-file-name-defaults' in `minibuffer-selected-window'.
(minibuffer-insert-file-name-at-point): New command.
* files.el (file-name-at-point-functions): New defcustom.
(find-file-default): Remove defvar.
(find-file-read-args): Don't use `find-file-default'.
Move `minibuffer-with-setup-hook' that sets `minibuffer-default'
to `read-file-name'.
(find-file-literally): Use `read-file-name' with
`confirm-nonexistent-file-or-buffer'.
* ffap.el (ffap-guess-file-name-at-point): New autoloaded function.
* dired.el (dired-read-dir-and-switches):
Move `minibuffer-with-setup-hook' that sets `minibuffer-default'
to `read-file-name'.
(dired-file-name-at-point): New function.
(dired-mode): Add hook `dired-file-name-at-point' to
`file-name-at-point-functions'.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Wed, 25 Nov 2009 17:11:29 +0000 |
parents | 0e7b65656292 |
children | ef719132ddfa |
rev | line source |
---|---|
79494
0e7b65656292
Petr Salinger <Petr.Salinger at seznam.cz>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1 #include "gnu-linux.h" |
0e7b65656292
Petr Salinger <Petr.Salinger at seznam.cz>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2 |
0e7b65656292
Petr Salinger <Petr.Salinger at seznam.cz>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
3 /* SYSTEM_TYPE should indicate the kind of system you are using. |
0e7b65656292
Petr Salinger <Petr.Salinger at seznam.cz>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
4 It sets the Lisp variable system-type. */ |
0e7b65656292
Petr Salinger <Petr.Salinger at seznam.cz>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
5 #undef SYSTEM_TYPE |
0e7b65656292
Petr Salinger <Petr.Salinger at seznam.cz>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
6 #define SYSTEM_TYPE "gnu/kfreebsd" /* All the best software is free */ |
0e7b65656292
Petr Salinger <Petr.Salinger at seznam.cz>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
7 |
0e7b65656292
Petr Salinger <Petr.Salinger at seznam.cz>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
8 #define NO_TERMIO /* use only <termios.h> */ |
0e7b65656292
Petr Salinger <Petr.Salinger at seznam.cz>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
9 |
0e7b65656292
Petr Salinger <Petr.Salinger at seznam.cz>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
10 /* arch-tag: 8d098200-2586-469e-99ab-6d092c035e03 |
0e7b65656292
Petr Salinger <Petr.Salinger at seznam.cz>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
11 (do not change this comment) */ |