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
29165787
Commit
29165787
authored
Oct 21, 1992
by
Richard M. Stallman
Browse files
Doc fixes.
parent
804172fa
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
lisp/files.el
lisp/files.el
+3
-3
No files found.
lisp/files.el
View file @
29165787
...
@@ -402,16 +402,16 @@ otherwise a string <2> or <3> or ... is appended to get an unused name."
...
@@ -402,16 +402,16 @@ otherwise a string <2> or <3> or ... is appended to get an unused name."
(
defun
generate-new-buffer
(
name
)
(
defun
generate-new-buffer
(
name
)
"Create and return a buffer with a name based on NAME.
"Create and return a buffer with a name based on NAME.
Choose the buffer's name using generate-new-buffer-name."
Choose the buffer's name using
`
generate-new-buffer-name
'
."
(
get-buffer-create
(
generate-new-buffer-name
name
)))
(
get-buffer-create
(
generate-new-buffer-name
name
)))
(
defconst
automount-dir-prefix
"^/tmp_mnt/"
(
defconst
automount-dir-prefix
"^/tmp_mnt/"
"Regexp to match the automounter prefix in a directory name."
)
"Regexp to match the automounter prefix in a directory name."
)
(
defun
abbreviate-file-name
(
filename
)
(
defun
abbreviate-file-name
(
filename
)
"Return a version of FILENAME shortened using directory-abbrev-alist.
"Return a version of FILENAME shortened using
`
directory-abbrev-alist
'
.
This also substitutes \"~\" for the user's home directory.
This also substitutes \"~\" for the user's home directory.
Se
e \\[describe-variable] directory-abbrev-alist RET for more information."
Typ
e \\[describe-variable] directory-abbrev-alist RET for more information."
;; Get rid of the prefixes added by the automounter.
;; Get rid of the prefixes added by the automounter.
(
if
(
and
(
string-match
automount-dir-prefix
filename
)
(
if
(
and
(
string-match
automount-dir-prefix
filename
)
(
file-exists-p
(
file-name-directory
(
file-exists-p
(
file-name-directory
...
...
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