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
e373f201
Commit
e373f201
authored
Jul 17, 1992
by
Jim Blandy
Browse files
*** empty log message ***
parent
c0acc3e1
Changes
3
Show whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
23 additions
and
8 deletions
+23
-8
lisp/files.el
lisp/files.el
+11
-7
lisp/progmodes/etags.el
lisp/progmodes/etags.el
+1
-1
src/xfns.c
src/xfns.c
+11
-0
No files found.
lisp/files.el
View file @
e373f201
...
...
@@ -327,10 +327,18 @@ otherwise a string <2> or <3> or ... is appended to get an unused name."
Choose the buffer's name using generate-new-buffer-name."
(
get-buffer-create
(
generate-new-buffer-name
name
)))
(
defconst
automount-dir-prefix
"^/tmp_mnt/"
"Regexp to match the automounter prefix in a directory name."
)
(
defun
abbreviate-file-name
(
filename
)
"Return a version of FILENAME shortened using directory-abbrev-alist.
This also substitutes \"~\" for the user's home directory.
See \\[describe-variable] directory-abbrev-alist RET for more information."
;; Get rid of the prefixes added by the automounter.
(
if
(
and
(
string-match
automount-dir-prefix
filename
)
(
file-exists-p
(
file-name-directory
(
substring
filename
(
1-
(
match-end
0
))))))
(
setq
filename
(
substring
filename
(
1-
(
match-end
0
)))))
(
let
((
tail
directory-abbrev-alist
))
(
while
tail
(
if
(
string-match
(
car
(
car
tail
))
filename
)
...
...
@@ -347,13 +355,9 @@ See \\[describe-variable] directory-abbrev-alist RET for more information."
If a buffer exists visiting FILENAME, return that one, but
verify that the file has not changed since visited or saved.
The buffer is not selected, just returned to the caller."
(
setq
filename
(
expand-file-name
filename
))
;; Get rid of the prefixes added by the automounter.
(
if
(
and
(
string-match
"^/tmp_mnt/"
filename
)
(
file-exists-p
(
file-name-directory
(
substring
filename
(
1-
(
match-end
0
))))))
(
setq
filename
(
substring
filename
(
1-
(
match-end
0
)))))
(
setq
filename
(
abbreviate-file-name
filename
))
(
setq
filename
(
abbreviate-file-name
(
expand-file-name
filename
)))
(
if
(
file-directory-p
filename
)
(
if
find-file-run-dired
(
dired-noselect
filename
)
...
...
lisp/progmodes/etags.el
View file @
e373f201
...
...
@@ -164,7 +164,7 @@ file the tag was in."
default-directory
)
t
)
current-prefix-arg
))
(
setq
file
(
expand-file-name
file
))
(
setq
file
(
abbreviate-file-name
(
expand-file-name
file
))
)
(
if
(
file-directory-p
file
)
(
setq
file
(
expand-file-name
"TAGS"
file
)))
(
if
local
...
...
src/xfns.c
View file @
e373f201
...
...
@@ -1671,6 +1671,17 @@ x_window (f)
class_hints.res_class = EMACS_CLASS;
XSetClassHint (x_current_display, f->display.x->window_desc, &class_hints);
/* x_set_name normally ignores requests to set the name if the
requested name is the same as the current name. This is the one
place where that assumption isn't correct; f->name is set, but
the X server hasn't been told. */
{
Lisp_Object name = f->name;
f->name = Qnil;
x_set_name (f, name, Qnil);
}
XDefineCursor (XDISPLAY f->display.x->window_desc,
f->display.x->text_cursor);
UNBLOCK_INPUT;
...
...
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