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
a617e913
Commit
a617e913
authored
Apr 22, 1994
by
Karl Heuer
Browse files
Pass operation to Ffind_file_name_handler.
parent
68395b70
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
7 additions
and
10 deletions
+7
-10
lisp/diff.el
lisp/diff.el
+1
-1
src/buffer.c
src/buffer.c
+1
-1
src/dired.c
src/dired.c
+4
-7
src/lread.c
src/lread.c
+1
-1
No files found.
lisp/diff.el
View file @
a617e913
...
...
@@ -254,7 +254,7 @@ The backup file is the first file given to `diff'."
(
defun
diff-latest-backup-file
(
fn
)
; actually belongs into files.el
"Return the latest existing backup of FILE, or nil."
(
let
((
handler
(
find-file-name-handler
fn
)))
(
let
((
handler
(
find-file-name-handler
fn
'diff-latest-backup-file
)))
(
if
handler
(
funcall
handler
'diff-latest-backup-file
fn
)
;; First try simple backup, then the highest numbered of the
...
...
src/buffer.c
View file @
a617e913
...
...
@@ -196,7 +196,7 @@ If there is no such live buffer, return nil.")
/* If the file name has special constructs in it,
call the corresponding file handler. */
handler
=
Ffind_file_name_handler
(
filename
);
handler
=
Ffind_file_name_handler
(
filename
,
Qget_file_buffer
);
if
(
!
NILP
(
handler
))
return
call2
(
handler
,
Qget_file_buffer
,
filename
);
...
...
src/dired.c
View file @
a617e913
...
...
@@ -94,12 +94,9 @@ extern struct re_pattern_buffer searchbuf;
extern
int
completion_ignore_case
;
extern
Lisp_Object
Vcompletion_regexp_list
;
extern
Lisp_Object
Ffind_file_name_handler
();
Lisp_Object
Vcompletion_ignored_extensions
;
Lisp_Object
Qcompletion_ignore_case
;
Lisp_Object
Qdirectory_files
;
Lisp_Object
Qfile_name_completion
;
Lisp_Object
Qfile_name_all_completions
;
...
...
@@ -122,7 +119,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
/* If the file name has special constructs in it,
call the corresponding file handler. */
handler
=
Ffind_file_name_handler
(
dirname
);
handler
=
Ffind_file_name_handler
(
dirname
,
Qdirectory_files
);
if
(
!
NILP
(
handler
))
{
Lisp_Object
args
[
6
];
...
...
@@ -246,7 +243,7 @@ Returns nil if DIR contains no name starting with FILE.")
/* If the file name has special constructs in it,
call the corresponding file handler. */
handler
=
Ffind_file_name_handler
(
dirname
);
handler
=
Ffind_file_name_handler
(
dirname
,
Qfile_name_completion
);
if
(
!
NILP
(
handler
))
return
call3
(
handler
,
Qfile_name_completion
,
file
,
dirname
);
...
...
@@ -264,7 +261,7 @@ These are all file names in directory DIR which begin with FILE.")
/* If the file name has special constructs in it,
call the corresponding file handler. */
handler
=
Ffind_file_name_handler
(
dirname
);
handler
=
Ffind_file_name_handler
(
dirname
,
Qfile_name_all_completions
);
if
(
!
NILP
(
handler
))
return
call3
(
handler
,
Qfile_name_all_completions
,
file
,
dirname
);
...
...
@@ -594,7 +591,7 @@ If file does not exist, returns nil.")
/* If the file name has special constructs in it,
call the corresponding file handler. */
handler
=
Ffind_file_name_handler
(
filename
);
handler
=
Ffind_file_name_handler
(
filename
,
Qfile_attributes
);
if
(
!
NILP
(
handler
))
return
call2
(
handler
,
Qfile_attributes
,
filename
);
...
...
src/lread.c
View file @
a617e913
...
...
@@ -350,7 +350,7 @@ Return t if file exists.")
str
=
Fsubstitute_in_file_name
(
str
);
/* If file name is magic, call the handler. */
handler
=
Ffind_file_name_handler
(
str
);
handler
=
Ffind_file_name_handler
(
str
,
Qload
);
if
(
!
NILP
(
handler
))
return
call5
(
handler
,
Qload
,
str
,
noerror
,
nomessage
,
nosuffix
);
...
...
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