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
07703430
Commit
07703430
authored
Jun 03, 2003
by
Richard M. Stallman
Browse files
(after-find-file): Simplify msg if nonexistent directory.
(make-directory): Doc fix.
parent
b0021416
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
4 deletions
+3
-4
lisp/files.el
lisp/files.el
+3
-4
No files found.
lisp/files.el
View file @
07703430
...
...
@@ -1524,9 +1524,7 @@ unless NOMODES is non-nil."
(
setq
buffer-read-only
nil
))
(
t
(
setq
buffer-read-only
nil
)
(
if
(
file-exists-p
(
file-name-directory
(
directory-file-name
(
file-name-directory
buffer-file-name
))))
"Use M-x make-directory RET RET to create the directory"
"Use C-u M-x make-directory RET RET to create directory and its parents"
)))))
"Use M-x make-directory RET RET to create the directory and its parents"
))))
(
when
msg
(
message
"%s"
msg
)
(
or
not-serious
(
sit-for
1
nil
t
))))
...
...
@@ -3401,7 +3399,8 @@ is the current default directory for file names.
That is useful when you have visited a file in a nonexistent directory.
Noninteractively, the second (optional) argument PARENTS says whether
to create parent directories if they don't exist."
to create parent directories if they don't exist. Interactively,
this happens by default."
(
interactive
(
list
(
read-file-name
"Make directory: "
default-directory
default-directory
nil
nil
)
...
...
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