Mercurial > emacs
annotate src/fileio.c @ 87818:825df6a7a5b2
*** empty log message ***
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 18 Jan 2008 05:37:32 +0000 |
parents | 91da483b3fa5 |
children | c70e45a7acfd |
rev | line source |
---|---|
230 | 1 /* File IO for GNU Emacs. |
64770
a0d1312ede66
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64535
diff
changeset
|
2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996, |
a0d1312ede66
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64535
diff
changeset
|
3 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
79759 | 4 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
230 | 5 |
6 This file is part of GNU Emacs. | |
7 | |
8 GNU Emacs is free software; you can redistribute it and/or modify | |
9 it under the terms of the GNU General Public License as published by | |
78260
922696f363b0
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
76664
diff
changeset
|
10 the Free Software Foundation; either version 3, or (at your option) |
230 | 11 any later version. |
12 | |
13 GNU Emacs is distributed in the hope that it will be useful, | |
14 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 GNU General Public License for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
19 along with GNU Emacs; see the file COPYING. If not, write to | |
64084 | 20 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
21 Boston, MA 02110-1301, USA. */ | |
230 | 22 |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
4483
diff
changeset
|
23 #include <config.h> |
87302
591bf917aa89
(Finsert_file_contents): Fix overflow check to not
Andreas Schwab <schwab@suse.de>
parents:
85506
diff
changeset
|
24 #include <limits.h> |
230 | 25 |
48652
682129896be4
(fcntl.h): Test only HAVE_FCNTL_H.
Richard M. Stallman <rms@gnu.org>
parents:
48562
diff
changeset
|
26 #ifdef HAVE_FCNTL_H |
16534
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
27 #include <fcntl.h> |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
28 #endif |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
29 |
18270
fd2ccbdc5660
(Fdo_auto_save): Use stdio to write the save-list file.
Richard M. Stallman <rms@gnu.org>
parents:
18210
diff
changeset
|
30 #include <stdio.h> |
230 | 31 #include <sys/types.h> |
32 #include <sys/stat.h> | |
372 | 33 |
6862
653504b6b5dd
[HAVE_UNISTD_H]: Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents:
6678
diff
changeset
|
34 #ifdef HAVE_UNISTD_H |
653504b6b5dd
[HAVE_UNISTD_H]: Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents:
6678
diff
changeset
|
35 #include <unistd.h> |
653504b6b5dd
[HAVE_UNISTD_H]: Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents:
6678
diff
changeset
|
36 #endif |
653504b6b5dd
[HAVE_UNISTD_H]: Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents:
6678
diff
changeset
|
37 |
4879
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
38 #if !defined (S_ISLNK) && defined (S_IFLNK) |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
39 # define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK) |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
40 #endif |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
41 |
16534
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
42 #if !defined (S_ISFIFO) && defined (S_IFIFO) |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
43 # define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO) |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
44 #endif |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
45 |
4879
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
46 #if !defined (S_ISREG) && defined (S_IFREG) |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
47 # define S_ISREG(m) (((m) & S_IFMT) == S_IFREG) |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
48 #endif |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
49 |
61700
8a54ce1fae6a
Remove reference to defunct vms-pwd.h.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
61151
diff
changeset
|
50 #ifdef HAVE_PWD_H |
230 | 51 #include <pwd.h> |
372 | 52 #endif |
53 | |
230 | 54 #include <ctype.h> |
372 | 55 |
56 #ifdef VMS | |
5877 | 57 #include "vmsdir.h" |
372 | 58 #include <perror.h> |
59 #include <stddef.h> | |
60 #include <string.h> | |
61 #endif | |
62 | |
230 | 63 #include <errno.h> |
64 | |
372 | 65 #ifndef vax11c |
31095
e19d38e14720
[USE_CRT_DLL]: Remove unnecessary extern, which screws
Andrew Innes <andrewi@gnu.org>
parents:
30927
diff
changeset
|
66 #ifndef USE_CRT_DLL |
230 | 67 extern int errno; |
68 #endif | |
31095
e19d38e14720
[USE_CRT_DLL]: Remove unnecessary extern, which screws
Andrew Innes <andrewi@gnu.org>
parents:
30927
diff
changeset
|
69 #endif |
230 | 70 |
71 #include "lisp.h" | |
1299
b8337cdf2e8b
* fileio.c (Finsert_file_contents): Call offset_intervals() if
Joseph Arceneaux <jla@gnu.org>
parents:
1240
diff
changeset
|
72 #include "intervals.h" |
230 | 73 #include "buffer.h" |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
74 #include "charset.h" |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
75 #include "coding.h" |
230 | 76 #include "window.h" |
71818
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
77 #include "blockinput.h" |
83100
4970ad4995f5
Eliminated updating_frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
54895
diff
changeset
|
78 #include "frame.h" |
4970ad4995f5
Eliminated updating_frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
54895
diff
changeset
|
79 #include "dispextern.h" |
230 | 80 |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
81 #ifdef WINDOWSNT |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
82 #define NOMINMAX 1 |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
83 #include <windows.h> |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
84 #include <stdlib.h> |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
85 #include <fcntl.h> |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
86 #endif /* not WINDOWSNT */ |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
87 |
21787
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
88 #ifdef MSDOS |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
89 #include "msdos.h" |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
90 #include <sys/param.h> |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
91 #if __DJGPP__ >= 2 |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
92 #include <fcntl.h> |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
93 #include <string.h> |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
94 #endif |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
95 #endif |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
96 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
97 #ifdef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
98 #define CORRECT_DIR_SEPS(s) \ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
99 do { if ('/' == DIRECTORY_SEP) dostounix_filename (s); \ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
100 else unixtodos_filename (s); \ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
101 } while (0) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
102 /* On Windows, drive letters must be alphabetic - on DOS, the Netware |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
103 redirector allows the six letters between 'Z' and 'a' as well. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
104 #ifdef MSDOS |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
105 #define IS_DRIVE(x) ((x) >= 'A' && (x) <= 'z') |
15617
69c516d109e7
(DRIVE_LETTER) [WINDOWSNT]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15587
diff
changeset
|
106 #endif |
69c516d109e7
(DRIVE_LETTER) [WINDOWSNT]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15587
diff
changeset
|
107 #ifdef WINDOWSNT |
69c516d109e7
(DRIVE_LETTER) [WINDOWSNT]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15587
diff
changeset
|
108 #define IS_DRIVE(x) isalpha (x) |
69c516d109e7
(DRIVE_LETTER) [WINDOWSNT]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15587
diff
changeset
|
109 #endif |
15587
515819688789
(DRIVE_LETTER) [MSDOS]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15533
diff
changeset
|
110 /* Need to lower-case the drive letter, or else expanded |
515819688789
(DRIVE_LETTER) [MSDOS]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15533
diff
changeset
|
111 filenames will sometimes compare inequal, because |
515819688789
(DRIVE_LETTER) [MSDOS]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15533
diff
changeset
|
112 `expand-file-name' doesn't always down-case the drive letter. */ |
515819688789
(DRIVE_LETTER) [MSDOS]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15533
diff
changeset
|
113 #define DRIVE_LETTER(x) (tolower (x)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
114 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
115 |
230 | 116 #ifdef VMS |
117 #include <file.h> | |
118 #include <rmsdef.h> | |
119 #include <fab.h> | |
120 #include <nam.h> | |
121 #endif | |
122 | |
564 | 123 #include "systime.h" |
230 | 124 |
125 #ifdef HPUX | |
126 #include <netio.h> | |
350 | 127 #ifndef HPUX8 |
3410
47b51faf6c4e
[HPUX9]: Don't include errnet.h.
Richard M. Stallman <rms@gnu.org>
parents:
3032
diff
changeset
|
128 #ifndef HPUX9 |
230 | 129 #include <errnet.h> |
130 #endif | |
350 | 131 #endif |
3410
47b51faf6c4e
[HPUX9]: Don't include errnet.h.
Richard M. Stallman <rms@gnu.org>
parents:
3032
diff
changeset
|
132 #endif |
230 | 133 |
25006
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
134 #include "commands.h" |
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
135 extern int use_dialog_box; |
53189
2c1d6f1a791e
Add variable use-file-dialog to control use of file dialogs.
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
136 extern int use_file_dialog; |
25006
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
137 |
230 | 138 #ifndef O_WRONLY |
139 #define O_WRONLY 1 | |
140 #endif | |
141 | |
8597 | 142 #ifndef O_RDONLY |
143 #define O_RDONLY 0 | |
144 #endif | |
145 | |
24367
f9d5fff966f0
(lstat) [!S_ISLNK]: Use stat instead of lstat.
Eli Zaretskii <eliz@gnu.org>
parents:
24313
diff
changeset
|
146 #ifndef S_ISLNK |
f9d5fff966f0
(lstat) [!S_ISLNK]: Use stat instead of lstat.
Eli Zaretskii <eliz@gnu.org>
parents:
24313
diff
changeset
|
147 # define lstat stat |
f9d5fff966f0
(lstat) [!S_ISLNK]: Use stat instead of lstat.
Eli Zaretskii <eliz@gnu.org>
parents:
24313
diff
changeset
|
148 #endif |
f9d5fff966f0
(lstat) [!S_ISLNK]: Use stat instead of lstat.
Eli Zaretskii <eliz@gnu.org>
parents:
24313
diff
changeset
|
149 |
60354
b9a43f92b898
(FILE_SYSTEM_CASE): Define macro if not already defined.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
59671
diff
changeset
|
150 #ifndef FILE_SYSTEM_CASE |
b9a43f92b898
(FILE_SYSTEM_CASE): Define macro if not already defined.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
59671
diff
changeset
|
151 #define FILE_SYSTEM_CASE(filename) (filename) |
b9a43f92b898
(FILE_SYSTEM_CASE): Define macro if not already defined.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
59671
diff
changeset
|
152 #endif |
b9a43f92b898
(FILE_SYSTEM_CASE): Define macro if not already defined.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
59671
diff
changeset
|
153 |
230 | 154 /* Nonzero during writing of auto-save files */ |
155 int auto_saving; | |
156 | |
157 /* Set by auto_save_1 to mode of original file so Fwrite_region will create | |
158 a new file with the same mode as the original */ | |
159 int auto_save_mode_bits; | |
160 | |
51357
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
161 /* The symbol bound to coding-system-for-read when |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
162 insert-file-contents is called for recovering a file. This is not |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
163 an actual coding system name, but just an indicator to tell |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
164 insert-file-contents to use `emacs-mule' with a special flag for |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
165 auto saving and recovering a file. */ |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
166 Lisp_Object Qauto_save_coding; |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
167 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
168 /* Coding system for file names, or nil if none. */ |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
169 Lisp_Object Vfile_name_coding_system; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
170 |
21048
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
171 /* Coding system for file names used only when |
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
172 Vfile_name_coding_system is nil. */ |
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
173 Lisp_Object Vdefault_file_name_coding_system; |
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
174 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
175 /* Alist of elements (REGEXP . HANDLER) for file names |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
176 whose I/O is done with a special handler. */ |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
177 Lisp_Object Vfile_name_handler_alist; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
178 |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
179 /* Property name of a file name handler, |
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
180 which gives a list of operations it handles.. */ |
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
181 Lisp_Object Qoperations; |
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
182 |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
183 /* Lisp functions for translating file formats */ |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
184 Lisp_Object Qformat_decode, Qformat_annotate_function; |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
185 |
19448
950a178e8783
(Vauto_file_coding_system_function): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19437
diff
changeset
|
186 /* Function to be called to decide a coding system of a reading file. */ |
19641
d7f2d75a09d3
(Vset_auto_coding_function): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
19572
diff
changeset
|
187 Lisp_Object Vset_auto_coding_function; |
19448
950a178e8783
(Vauto_file_coding_system_function): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19437
diff
changeset
|
188 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
189 /* Functions to be called to process text properties in inserted file. */ |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
190 Lisp_Object Vafter_insert_file_functions; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
191 |
50546
4a06e3332577
(Vafter_insert_file_adjust_coding_function): Delete
Kenichi Handa <handa@m17n.org>
parents:
50530
diff
changeset
|
192 /* Lisp function for setting buffer-file-coding-system and the |
50530
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
193 multibyteness of the current buffer after inserting a file. */ |
50546
4a06e3332577
(Vafter_insert_file_adjust_coding_function): Delete
Kenichi Handa <handa@m17n.org>
parents:
50530
diff
changeset
|
194 Lisp_Object Qafter_insert_file_set_coding; |
50530
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
195 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
196 /* Functions to be called to create text property annotations for file. */ |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
197 Lisp_Object Vwrite_region_annotate_functions; |
50829
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
198 Lisp_Object Qwrite_region_annotate_functions; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
199 |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
200 /* During build_annotations, each time an annotation function is called, |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
201 this holds the annotations made by the previous functions. */ |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
202 Lisp_Object Vwrite_region_annotations_so_far; |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
203 |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
204 /* File name in which we write a list of all our auto save files. */ |
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
205 Lisp_Object Vauto_save_list_file_name; |
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
206 |
45544
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
207 /* Function to call to read a file name. */ |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
208 Lisp_Object Vread_file_name_function; |
45544
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
209 |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
210 /* Current predicate used by read_file_name_internal. */ |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
211 Lisp_Object Vread_file_name_predicate; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
212 |
56340
56b3ebd82889
(read_file_name_completion_ignore_case): New variable.
John Paul Wallington <jpw@pobox.com>
parents:
55741
diff
changeset
|
213 /* Nonzero means completion ignores case when reading file name. */ |
56b3ebd82889
(read_file_name_completion_ignore_case): New variable.
John Paul Wallington <jpw@pobox.com>
parents:
55741
diff
changeset
|
214 int read_file_name_completion_ignore_case; |
56b3ebd82889
(read_file_name_completion_ignore_case): New variable.
John Paul Wallington <jpw@pobox.com>
parents:
55741
diff
changeset
|
215 |
230 | 216 /* Nonzero means, when reading a filename in the minibuffer, |
217 start out by inserting the default directory into the minibuffer. */ | |
218 int insert_default_directory; | |
219 | |
220 /* On VMS, nonzero means write new files with record format stmlf. | |
221 Zero means use var format. */ | |
222 int vms_stmlf_recfm; | |
223 | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
224 /* On NT, specifies the directory separator character, used (eg.) when |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
225 expanding file names. This can be bound to / or \. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
226 Lisp_Object Vdirectory_sep_char; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
227 |
65513
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
228 #ifdef HAVE_FSYNC |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
229 /* Nonzero means skip the call to fsync in Fwrite-region. */ |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
230 int write_region_inhibit_fsync; |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
231 #endif |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
232 |
16317
763b3b143ed6
(Vuser_login_name): Declared extern.
Richard M. Stallman <rms@gnu.org>
parents:
16226
diff
changeset
|
233 extern Lisp_Object Vuser_login_name; |
763b3b143ed6
(Vuser_login_name): Declared extern.
Richard M. Stallman <rms@gnu.org>
parents:
16226
diff
changeset
|
234 |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
235 #ifdef WINDOWSNT |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
236 extern Lisp_Object Vw32_get_true_file_attributes; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
237 #endif |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
238 |
16317
763b3b143ed6
(Vuser_login_name): Declared extern.
Richard M. Stallman <rms@gnu.org>
parents:
16226
diff
changeset
|
239 extern int minibuf_level; |
763b3b143ed6
(Vuser_login_name): Declared extern.
Richard M. Stallman <rms@gnu.org>
parents:
16226
diff
changeset
|
240 |
18861
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
241 extern int minibuffer_auto_raise; |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
242 |
59050
1ee6d4f5d727
(Fread_file_name): Delete duplicates in
Richard M. Stallman <rms@gnu.org>
parents:
58014
diff
changeset
|
243 extern int history_delete_duplicates; |
1ee6d4f5d727
(Fread_file_name): Delete duplicates in
Richard M. Stallman <rms@gnu.org>
parents:
58014
diff
changeset
|
244 |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
245 /* These variables describe handlers that have "already" had a chance |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
246 to handle the current operation. |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
247 |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
248 Vinhibit_file_name_handlers is a list of file name handlers. |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
249 Vinhibit_file_name_operation is the operation being handled. |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
250 If we try to handle that operation, we ignore those handlers. */ |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
251 |
6678
e29adbacde1d
(Fdo_auto_save): Don't turn off auto save mode.
Richard M. Stallman <rms@gnu.org>
parents:
6498
diff
changeset
|
252 static Lisp_Object Vinhibit_file_name_handlers; |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
253 static Lisp_Object Vinhibit_file_name_operation; |
6678
e29adbacde1d
(Fdo_auto_save): Don't turn off auto save mode.
Richard M. Stallman <rms@gnu.org>
parents:
6498
diff
changeset
|
254 |
17271
e34a30952e14
(Fcopy_file): Use Qfile_date_error if can't set file date.
Richard M. Stallman <rms@gnu.org>
parents:
17114
diff
changeset
|
255 Lisp_Object Qfile_error, Qfile_already_exists, Qfile_date_error; |
25595 | 256 Lisp_Object Qexcl; |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
257 Lisp_Object Qfile_name_history; |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
258 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
259 Lisp_Object Qcar_less_than_car; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
260 |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
261 static int a_write P_ ((int, Lisp_Object, int, int, |
20560
c9095cd30412
(a_write): Fix prototype.
Richard M. Stallman <rms@gnu.org>
parents:
20533
diff
changeset
|
262 Lisp_Object *, struct coding_system *)); |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
263 static int e_write P_ ((int, Lisp_Object, int, int, struct coding_system *)); |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
264 |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
265 |
20370
7e443cd9a63a
(report_file_error): Declare it as void.
Kenichi Handa <handa@m17n.org>
parents:
20313
diff
changeset
|
266 void |
230 | 267 report_file_error (string, data) |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
268 const char *string; |
230 | 269 Lisp_Object data; |
270 { | |
271 Lisp_Object errstring; | |
25595 | 272 int errorno = errno; |
230 | 273 |
26526
b7438760079b
* callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents:
26088
diff
changeset
|
274 synchronize_system_messages_locale (); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
275 errstring = code_convert_string_norecord (build_string (strerror (errorno)), |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
276 Vlocale_coding_system, 0); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
277 |
230 | 278 while (1) |
25595 | 279 switch (errorno) |
280 { | |
281 case EEXIST: | |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
282 xsignal (Qfile_already_exists, Fcons (errstring, data)); |
25595 | 283 break; |
284 default: | |
285 /* System error messages are capitalized. Downcase the initial | |
286 unless it is followed by a slash. */ | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
287 if (SREF (errstring, 1) != '/') |
46424
9aa6b2db42da
* fileio.c (Fmake_symbolic_link, Fexpand_file_name): Use SSET.
Ken Raeburn <raeburn@raeburn.org>
parents:
46370
diff
changeset
|
288 SSET (errstring, 0, DOWNCASE (SREF (errstring, 0))); |
25595 | 289 |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
290 xsignal (Qfile_error, |
25595 | 291 Fcons (build_string (string), Fcons (errstring, data))); |
292 } | |
230 | 293 } |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
294 |
20313
36bbb5e0a687
(close_file_unwind): Fix return type and return nil.
Andreas Schwab <schwab@suse.de>
parents:
20224
diff
changeset
|
295 Lisp_Object |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
296 close_file_unwind (fd) |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
297 Lisp_Object fd; |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
298 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
299 emacs_close (XFASTINT (fd)); |
20313
36bbb5e0a687
(close_file_unwind): Fix return type and return nil.
Andreas Schwab <schwab@suse.de>
parents:
20224
diff
changeset
|
300 return Qnil; |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
301 } |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
302 |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
303 /* Restore point, having saved it as a marker. */ |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
304 |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
305 static Lisp_Object |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
306 restore_point_unwind (location) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
307 Lisp_Object location; |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
308 { |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
309 Fgoto_char (location); |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
310 Fset_marker (location, Qnil, Qnil); |
20313
36bbb5e0a687
(close_file_unwind): Fix return type and return nil.
Andreas Schwab <schwab@suse.de>
parents:
20224
diff
changeset
|
311 return Qnil; |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
312 } |
230 | 313 |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
314 Lisp_Object Qexpand_file_name; |
10719
40ae63b409f4
(Fexpand_file_name): Look for a handler for defalt.
Richard M. Stallman <rms@gnu.org>
parents:
10499
diff
changeset
|
315 Lisp_Object Qsubstitute_in_file_name; |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
316 Lisp_Object Qdirectory_file_name; |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
317 Lisp_Object Qfile_name_directory; |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
318 Lisp_Object Qfile_name_nondirectory; |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
319 Lisp_Object Qunhandled_file_name_directory; |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
320 Lisp_Object Qfile_name_as_directory; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
321 Lisp_Object Qcopy_file; |
8227
0e6b7eeedc3b
(Fmake_directory_internal): Use Qmake_directory_internal.
Richard M. Stallman <rms@gnu.org>
parents:
8185
diff
changeset
|
322 Lisp_Object Qmake_directory_internal; |
28697
7d587a158d1f
(Fdo_auto_save): Create directories for auto-save
Gerd Moellmann <gerd@gnu.org>
parents:
28673
diff
changeset
|
323 Lisp_Object Qmake_directory; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
324 Lisp_Object Qdelete_directory; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
325 Lisp_Object Qdelete_file; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
326 Lisp_Object Qrename_file; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
327 Lisp_Object Qadd_name_to_file; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
328 Lisp_Object Qmake_symbolic_link; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
329 Lisp_Object Qfile_exists_p; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
330 Lisp_Object Qfile_executable_p; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
331 Lisp_Object Qfile_readable_p; |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
332 Lisp_Object Qfile_writable_p; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
333 Lisp_Object Qfile_symlink_p; |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
334 Lisp_Object Qaccess_file; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
335 Lisp_Object Qfile_directory_p; |
11599
51bc10be0dc7
(Ffile_regular_p): Use Qfile_regular_p.
Richard M. Stallman <rms@gnu.org>
parents:
11426
diff
changeset
|
336 Lisp_Object Qfile_regular_p; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
337 Lisp_Object Qfile_accessible_directory_p; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
338 Lisp_Object Qfile_modes; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
339 Lisp_Object Qset_file_modes; |
55194
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
340 Lisp_Object Qset_file_times; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
341 Lisp_Object Qfile_newer_than_file_p; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
342 Lisp_Object Qinsert_file_contents; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
343 Lisp_Object Qwrite_region; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
344 Lisp_Object Qverify_visited_file_modtime; |
3560
95021dcb923b
(syms_of_fileio): Set up Qset_visited_file_modtime.
Richard M. Stallman <rms@gnu.org>
parents:
3415
diff
changeset
|
345 Lisp_Object Qset_visited_file_modtime; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
346 |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
347 DEFUN ("find-file-name-handler", Ffind_file_name_handler, Sfind_file_name_handler, 2, 2, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
348 doc: /* Return FILENAME's handler function for OPERATION, if it has one. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
349 Otherwise, return nil. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
350 A file name is handled if one of the regular expressions in |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
351 `file-name-handler-alist' matches it. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
352 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
353 If OPERATION equals `inhibit-file-name-operation', then we ignore |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
354 any handlers that are members of `inhibit-file-name-handlers', |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
355 but we still do run any other handlers. This lets handlers |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
356 use the standard functions without calling themselves recursively. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
357 (filename, operation) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
358 Lisp_Object filename, operation; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
359 { |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
360 /* This function must not munge the match data. */ |
41655
fccc74affd73
(Ffind_file_name_handler): Avoid initializer for `result'.
Richard M. Stallman <rms@gnu.org>
parents:
41595
diff
changeset
|
361 Lisp_Object chain, inhibited_handlers, result; |
41595
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
362 int pos = -1; |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
363 |
41655
fccc74affd73
(Ffind_file_name_handler): Avoid initializer for `result'.
Richard M. Stallman <rms@gnu.org>
parents:
41595
diff
changeset
|
364 result = Qnil; |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
365 CHECK_STRING (filename); |
2895
1ed91566882a
* fileio.c (Ffind_file_name_handler): Check that FILENAME is a
Jim Blandy <jimb@redhat.com>
parents:
2741
diff
changeset
|
366 |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
367 if (EQ (operation, Vinhibit_file_name_operation)) |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
368 inhibited_handlers = Vinhibit_file_name_handlers; |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
369 else |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
370 inhibited_handlers = Qnil; |
6678
e29adbacde1d
(Fdo_auto_save): Don't turn off auto save mode.
Richard M. Stallman <rms@gnu.org>
parents:
6498
diff
changeset
|
371 |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
372 for (chain = Vfile_name_handler_alist; CONSP (chain); |
25662
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
373 chain = XCDR (chain)) |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
374 { |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
375 Lisp_Object elt; |
25662
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
376 elt = XCAR (chain); |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
377 if (CONSP (elt)) |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
378 { |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
379 Lisp_Object string = XCAR (elt); |
41595
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
380 int match_pos; |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
381 Lisp_Object handler = XCDR (elt); |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
382 Lisp_Object operations = Qnil; |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
383 |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
384 if (SYMBOLP (handler)) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
385 operations = Fget (handler, Qoperations); |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
386 |
41595
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
387 if (STRINGP (string) |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
388 && (match_pos = fast_string_match (string, filename)) > pos |
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
389 && (NILP (operations) || ! NILP (Fmemq (operation, operations)))) |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
390 { |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
391 Lisp_Object tem; |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
392 |
25662
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
393 handler = XCDR (elt); |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
394 tem = Fmemq (handler, inhibited_handlers); |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
395 if (NILP (tem)) |
41595
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
396 { |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
397 result = handler; |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
398 pos = match_pos; |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
399 } |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
400 } |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
401 } |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
402 |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
403 QUIT; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
404 } |
41595
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
405 return result; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
406 } |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
407 |
230 | 408 DEFUN ("file-name-directory", Ffile_name_directory, Sfile_name_directory, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
409 1, 1, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
410 doc: /* Return the directory component in file name FILENAME. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
411 Return nil if FILENAME does not include a directory. |
79685
7a1e83fce56f
(Ffile_name_directory, Fexpand_file_name): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
79110
diff
changeset
|
412 Otherwise return a directory name. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
413 Given a Unix syntax file name, returns a string ending in slash; |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
414 on VMS, perhaps instead a string ending in `:', `]' or `>'. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
415 (filename) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
416 Lisp_Object filename; |
230 | 417 { |
46948
f2225c68b0a8
(Ffile_name_directory) [DOS_NT]: Don't declare `beg'
Eli Zaretskii <eliz@gnu.org>
parents:
46566
diff
changeset
|
418 #ifndef DOS_NT |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
419 register const unsigned char *beg; |
46948
f2225c68b0a8
(Ffile_name_directory) [DOS_NT]: Don't declare `beg'
Eli Zaretskii <eliz@gnu.org>
parents:
46566
diff
changeset
|
420 #else |
f2225c68b0a8
(Ffile_name_directory) [DOS_NT]: Don't declare `beg'
Eli Zaretskii <eliz@gnu.org>
parents:
46566
diff
changeset
|
421 register unsigned char *beg; |
f2225c68b0a8
(Ffile_name_directory) [DOS_NT]: Don't declare `beg'
Eli Zaretskii <eliz@gnu.org>
parents:
46566
diff
changeset
|
422 #endif |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
423 register const unsigned char *p; |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
424 Lisp_Object handler; |
230 | 425 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
426 CHECK_STRING (filename); |
230 | 427 |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
428 /* If the file name has special constructs in it, |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
429 call the corresponding file handler. */ |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
430 handler = Ffind_file_name_handler (filename, Qfile_name_directory); |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
431 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
432 return call2 (handler, Qfile_name_directory, filename); |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
433 |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
434 filename = FILE_SYSTEM_CASE (filename); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
435 beg = SDATA (filename); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
436 #ifdef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
437 beg = strcpy (alloca (strlen (beg) + 1), beg); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
438 #endif |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
439 p = beg + SBYTES (filename); |
230 | 440 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
441 while (p != beg && !IS_DIRECTORY_SEP (p[-1]) |
230 | 442 #ifdef VMS |
443 && p[-1] != ':' && p[-1] != ']' && p[-1] != '>' | |
444 #endif /* VMS */ | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
445 #ifdef DOS_NT |
22172
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
446 /* only recognise drive specifier at the beginning */ |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
447 && !(p[-1] == ':' |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
448 /* handle the "/:d:foo" and "/:foo" cases correctly */ |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
449 && ((p == beg + 2 && !IS_DIRECTORY_SEP (*beg)) |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
450 || (p == beg + 4 && IS_DIRECTORY_SEP (*beg)))) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
451 #endif |
230 | 452 ) p--; |
453 | |
454 if (p == beg) | |
455 return Qnil; | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
456 #ifdef DOS_NT |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
457 /* Expansion of "c:" to drive and default directory. */ |
22172
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
458 if (p[-1] == ':') |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
459 { |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
460 /* MAXPATHLEN+1 is guaranteed to be enough space for getdefdir. */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
461 unsigned char *res = alloca (MAXPATHLEN + 1); |
22172
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
462 unsigned char *r = res; |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
463 |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
464 if (p == beg + 4 && IS_DIRECTORY_SEP (*beg) && beg[1] == ':') |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
465 { |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
466 strncpy (res, beg, 2); |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
467 beg += 2; |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
468 r += 2; |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
469 } |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
470 |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
471 if (getdefdir (toupper (*beg) - 'A' + 1, r)) |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
472 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
473 if (!IS_DIRECTORY_SEP (res[strlen (res) - 1])) |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
474 strcat (res, "/"); |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
475 beg = res; |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
476 p = beg + strlen (beg); |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
477 } |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
478 } |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
479 CORRECT_DIR_SEPS (beg); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
480 #endif /* DOS_NT */ |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
481 |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
482 return make_specified_string (beg, -1, p - beg, STRING_MULTIBYTE (filename)); |
230 | 483 } |
484 | |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
485 DEFUN ("file-name-nondirectory", Ffile_name_nondirectory, |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
486 Sfile_name_nondirectory, 1, 1, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
487 doc: /* Return file name FILENAME sans its directory. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
488 For example, in a Unix-syntax file name, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
489 this is everything after the last slash, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
490 or the entire name if it contains no slash. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
491 (filename) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
492 Lisp_Object filename; |
230 | 493 { |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
494 register const unsigned char *beg, *p, *end; |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
495 Lisp_Object handler; |
230 | 496 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
497 CHECK_STRING (filename); |
230 | 498 |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
499 /* If the file name has special constructs in it, |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
500 call the corresponding file handler. */ |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
501 handler = Ffind_file_name_handler (filename, Qfile_name_nondirectory); |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
502 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
503 return call2 (handler, Qfile_name_nondirectory, filename); |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
504 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
505 beg = SDATA (filename); |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
506 end = p = beg + SBYTES (filename); |
230 | 507 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
508 while (p != beg && !IS_DIRECTORY_SEP (p[-1]) |
230 | 509 #ifdef VMS |
510 && p[-1] != ':' && p[-1] != ']' && p[-1] != '>' | |
511 #endif /* VMS */ | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
512 #ifdef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
513 /* only recognise drive specifier at beginning */ |
22172
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
514 && !(p[-1] == ':' |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
515 /* handle the "/:d:foo" case correctly */ |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
516 && (p == beg + 2 || (p == beg + 4 && IS_DIRECTORY_SEP (*beg)))) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
517 #endif |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
518 ) |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
519 p--; |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
520 |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
521 return make_specified_string (p, -1, end - p, STRING_MULTIBYTE (filename)); |
230 | 522 } |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
523 |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
524 DEFUN ("unhandled-file-name-directory", Funhandled_file_name_directory, |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
525 Sunhandled_file_name_directory, 1, 1, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
526 doc: /* Return a directly usable directory name somehow associated with FILENAME. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
527 A `directly usable' directory name is one that may be used without the |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
528 intervention of any file handler. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
529 If FILENAME is a directly usable file itself, return |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
530 \(file-name-directory FILENAME). |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
531 The `call-process' and `start-process' functions use this function to |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
532 get a current directory to run processes in. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
533 (filename) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
534 Lisp_Object filename; |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
535 { |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
536 Lisp_Object handler; |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
537 |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
538 /* If the file name has special constructs in it, |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
539 call the corresponding file handler. */ |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
540 handler = Ffind_file_name_handler (filename, Qunhandled_file_name_directory); |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
541 if (!NILP (handler)) |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
542 return call2 (handler, Qunhandled_file_name_directory, filename); |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
543 |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
544 return Ffile_name_directory (filename); |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
545 } |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
546 |
230 | 547 |
548 char * | |
549 file_name_as_directory (out, in) | |
550 char *out, *in; | |
551 { | |
552 int size = strlen (in) - 1; | |
553 | |
20790
7fd6ce99f389
(file_name_as_directory): For an empty name, return "/".
Richard M. Stallman <rms@gnu.org>
parents:
20748
diff
changeset
|
554 strcpy (out, in); |
7fd6ce99f389
(file_name_as_directory): For an empty name, return "/".
Richard M. Stallman <rms@gnu.org>
parents:
20748
diff
changeset
|
555 |
20651
0de9f45a1db6
(Finsert_file_contents): When not decoding,
Richard M. Stallman <rms@gnu.org>
parents:
20621
diff
changeset
|
556 if (size < 0) |
20790
7fd6ce99f389
(file_name_as_directory): For an empty name, return "/".
Richard M. Stallman <rms@gnu.org>
parents:
20748
diff
changeset
|
557 { |
21543
55865851fd69
(file_name_as_directory): For empty arg, return `./'.
Karl Heuer <kwzh@gnu.org>
parents:
21522
diff
changeset
|
558 out[0] = '.'; |
55865851fd69
(file_name_as_directory): For empty arg, return `./'.
Karl Heuer <kwzh@gnu.org>
parents:
21522
diff
changeset
|
559 out[1] = '/'; |
55865851fd69
(file_name_as_directory): For empty arg, return `./'.
Karl Heuer <kwzh@gnu.org>
parents:
21522
diff
changeset
|
560 out[2] = 0; |
20790
7fd6ce99f389
(file_name_as_directory): For an empty name, return "/".
Richard M. Stallman <rms@gnu.org>
parents:
20748
diff
changeset
|
561 return out; |
7fd6ce99f389
(file_name_as_directory): For an empty name, return "/".
Richard M. Stallman <rms@gnu.org>
parents:
20748
diff
changeset
|
562 } |
230 | 563 |
564 #ifdef VMS | |
565 /* Is it already a directory string? */ | |
566 if (in[size] == ':' || in[size] == ']' || in[size] == '>') | |
567 return out; | |
568 /* Is it a VMS directory file name? If so, hack VMS syntax. */ | |
569 else if (! index (in, '/') | |
570 && ((size > 3 && ! strcmp (&in[size - 3], ".DIR")) | |
571 || (size > 3 && ! strcmp (&in[size - 3], ".dir")) | |
572 || (size > 5 && (! strncmp (&in[size - 5], ".DIR", 4) | |
573 || ! strncmp (&in[size - 5], ".dir", 4)) | |
574 && (in[size - 1] == '.' || in[size - 1] == ';') | |
575 && in[size] == '1'))) | |
576 { | |
577 register char *p, *dot; | |
578 char brack; | |
579 | |
580 /* x.dir -> [.x] | |
581 dir:x.dir --> dir:[x] | |
582 dir:[x]y.dir --> dir:[x.y] */ | |
583 p = in + size; | |
584 while (p != in && *p != ':' && *p != '>' && *p != ']') p--; | |
585 if (p != in) | |
586 { | |
587 strncpy (out, in, p - in); | |
588 out[p - in] = '\0'; | |
589 if (*p == ':') | |
590 { | |
591 brack = ']'; | |
592 strcat (out, ":["); | |
593 } | |
594 else | |
595 { | |
596 brack = *p; | |
597 strcat (out, "."); | |
598 } | |
599 p++; | |
600 } | |
601 else | |
602 { | |
603 brack = ']'; | |
604 strcpy (out, "[."); | |
605 } | |
372 | 606 dot = index (p, '.'); |
607 if (dot) | |
230 | 608 { |
609 /* blindly remove any extension */ | |
610 size = strlen (out) + (dot - p); | |
611 strncat (out, p, dot - p); | |
612 } | |
613 else | |
614 { | |
615 strcat (out, p); | |
616 size = strlen (out); | |
617 } | |
618 out[size++] = brack; | |
619 out[size] = '\0'; | |
620 } | |
621 #else /* not VMS */ | |
622 /* For Unix syntax, Append a slash if necessary */ | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
623 if (!IS_DIRECTORY_SEP (out[size])) |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
624 { |
46566
2f6929599b1a
(file_name_as_directory): Use literal '/' instead of DIRECTORY_SEP.
Juanma Barranquero <lekktu@gmail.com>
parents:
46561
diff
changeset
|
625 /* Cannot use DIRECTORY_SEP, which could have any value */ |
2f6929599b1a
(file_name_as_directory): Use literal '/' instead of DIRECTORY_SEP.
Juanma Barranquero <lekktu@gmail.com>
parents:
46561
diff
changeset
|
626 out[size + 1] = '/'; |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
627 out[size + 2] = '\0'; |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
628 } |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
629 #ifdef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
630 CORRECT_DIR_SEPS (out); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
631 #endif |
230 | 632 #endif /* not VMS */ |
633 return out; | |
634 } | |
635 | |
636 DEFUN ("file-name-as-directory", Ffile_name_as_directory, | |
637 Sfile_name_as_directory, 1, 1, 0, | |
46561
7ede6e7f8c24
(Ffile_name_as_directory): Fix argument name in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
46539
diff
changeset
|
638 doc: /* Return a string representing the file name FILE interpreted as a directory. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
639 This operation exists because a directory is also a file, but its name as |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
640 a directory is different from its name as a file. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
641 The result can be used as the value of `default-directory' |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
642 or passed as second argument to `expand-file-name'. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
643 For a Unix-syntax file name, just appends a slash. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
644 On VMS, converts \"[X]FOO.DIR\" to \"[X.FOO]\", etc. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
645 (file) |
230 | 646 Lisp_Object file; |
647 { | |
648 char *buf; | |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
649 Lisp_Object handler; |
230 | 650 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
651 CHECK_STRING (file); |
485 | 652 if (NILP (file)) |
230 | 653 return Qnil; |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
654 |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
655 /* If the file name has special constructs in it, |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
656 call the corresponding file handler. */ |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
657 handler = Ffind_file_name_handler (file, Qfile_name_as_directory); |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
658 if (!NILP (handler)) |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
659 return call2 (handler, Qfile_name_as_directory, file); |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
660 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
661 buf = (char *) alloca (SBYTES (file) + 10); |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
662 file_name_as_directory (buf, SDATA (file)); |
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
663 return make_specified_string (buf, -1, strlen (buf), |
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
664 STRING_MULTIBYTE (file)); |
230 | 665 } |
666 | |
667 /* | |
668 * Convert from directory name to filename. | |
669 * On VMS: | |
670 * xyzzy:[mukesh.emacs] => xyzzy:[mukesh]emacs.dir.1 | |
671 * xyzzy:[mukesh] => xyzzy:[000000]mukesh.dir.1 | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
672 * On UNIX, it's simple: just make sure there isn't a terminating / |
230 | 673 |
674 * Value is nonzero if the string output is different from the input. | |
675 */ | |
676 | |
21514 | 677 int |
230 | 678 directory_file_name (src, dst) |
679 char *src, *dst; | |
680 { | |
681 long slen; | |
682 #ifdef VMS | |
683 long rlen; | |
684 char * ptr, * rptr; | |
685 char bracket; | |
686 struct FAB fab = cc$rms_fab; | |
687 struct NAM nam = cc$rms_nam; | |
688 char esa[NAM$C_MAXRSS]; | |
689 #endif /* VMS */ | |
690 | |
691 slen = strlen (src); | |
692 #ifdef VMS | |
693 if (! index (src, '/') | |
694 && (src[slen - 1] == ']' | |
695 || src[slen - 1] == ':' | |
696 || src[slen - 1] == '>')) | |
697 { | |
698 /* VMS style - convert [x.y.z] to [x.y]z, [x] to [000000]x */ | |
699 fab.fab$l_fna = src; | |
700 fab.fab$b_fns = slen; | |
701 fab.fab$l_nam = &nam; | |
702 fab.fab$l_fop = FAB$M_NAM; | |
703 | |
704 nam.nam$l_esa = esa; | |
705 nam.nam$b_ess = sizeof esa; | |
706 nam.nam$b_nop |= NAM$M_SYNCHK; | |
707 | |
708 /* We call SYS$PARSE to handle such things as [--] for us. */ | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
709 if (SYS$PARSE (&fab, 0, 0) == RMS$_NORMAL) |
230 | 710 { |
711 slen = nam.nam$b_esl; | |
712 if (esa[slen - 1] == ';' && esa[slen - 2] == '.') | |
713 slen -= 2; | |
714 esa[slen] = '\0'; | |
715 src = esa; | |
716 } | |
717 if (src[slen - 1] != ']' && src[slen - 1] != '>') | |
718 { | |
719 /* what about when we have logical_name:???? */ | |
720 if (src[slen - 1] == ':') | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
721 { /* Xlate logical name and see what we get */ |
230 | 722 ptr = strcpy (dst, src); /* upper case for getenv */ |
723 while (*ptr) | |
724 { | |
725 if ('a' <= *ptr && *ptr <= 'z') | |
726 *ptr -= 040; | |
727 ptr++; | |
728 } | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
729 dst[slen - 1] = 0; /* remove colon */ |
230 | 730 if (!(src = egetenv (dst))) |
731 return 0; | |
732 /* should we jump to the beginning of this procedure? | |
733 Good points: allows us to use logical names that xlate | |
734 to Unix names, | |
735 Bad points: can be a problem if we just translated to a device | |
736 name... | |
737 For now, I'll punt and always expect VMS names, and hope for | |
738 the best! */ | |
739 slen = strlen (src); | |
740 if (src[slen - 1] != ']' && src[slen - 1] != '>') | |
741 { /* no recursion here! */ | |
742 strcpy (dst, src); | |
743 return 0; | |
744 } | |
745 } | |
746 else | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
747 { /* not a directory spec */ |
230 | 748 strcpy (dst, src); |
749 return 0; | |
750 } | |
751 } | |
752 bracket = src[slen - 1]; | |
753 | |
754 /* If bracket is ']' or '>', bracket - 2 is the corresponding | |
755 opening bracket. */ | |
372 | 756 ptr = index (src, bracket - 2); |
757 if (ptr == 0) | |
230 | 758 { /* no opening bracket */ |
759 strcpy (dst, src); | |
760 return 0; | |
761 } | |
762 if (!(rptr = rindex (src, '.'))) | |
763 rptr = ptr; | |
764 slen = rptr - src; | |
765 strncpy (dst, src, slen); | |
766 dst[slen] = '\0'; | |
767 if (*rptr == '.') | |
768 { | |
769 dst[slen++] = bracket; | |
770 dst[slen] = '\0'; | |
771 } | |
772 else | |
773 { | |
774 /* If we have the top-level of a rooted directory (i.e. xx:[000000]), | |
775 then translate the device and recurse. */ | |
776 if (dst[slen - 1] == ':' | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
777 && dst[slen - 2] != ':' /* skip decnet nodes */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
778 && strcmp (src + slen, "[000000]") == 0) |
230 | 779 { |
780 dst[slen - 1] = '\0'; | |
781 if ((ptr = egetenv (dst)) | |
782 && (rlen = strlen (ptr) - 1) > 0 | |
783 && (ptr[rlen] == ']' || ptr[rlen] == '>') | |
784 && ptr[rlen - 1] == '.') | |
785 { | |
1358
aa32c275cbf9
(directory_file_name): Don't clobber the envvar
Richard M. Stallman <rms@gnu.org>
parents:
1299
diff
changeset
|
786 char * buf = (char *) alloca (strlen (ptr) + 1); |
aa32c275cbf9
(directory_file_name): Don't clobber the envvar
Richard M. Stallman <rms@gnu.org>
parents:
1299
diff
changeset
|
787 strcpy (buf, ptr); |
aa32c275cbf9
(directory_file_name): Don't clobber the envvar
Richard M. Stallman <rms@gnu.org>
parents:
1299
diff
changeset
|
788 buf[rlen - 1] = ']'; |
aa32c275cbf9
(directory_file_name): Don't clobber the envvar
Richard M. Stallman <rms@gnu.org>
parents:
1299
diff
changeset
|
789 buf[rlen] = '\0'; |
aa32c275cbf9
(directory_file_name): Don't clobber the envvar
Richard M. Stallman <rms@gnu.org>
parents:
1299
diff
changeset
|
790 return directory_file_name (buf, dst); |
230 | 791 } |
792 else | |
793 dst[slen - 1] = ':'; | |
794 } | |
795 strcat (dst, "[000000]"); | |
796 slen += 8; | |
797 } | |
798 rptr++; | |
799 rlen = strlen (rptr) - 1; | |
800 strncat (dst, rptr, rlen); | |
801 dst[slen + rlen] = '\0'; | |
802 strcat (dst, ".DIR.1"); | |
803 return 1; | |
804 } | |
805 #endif /* VMS */ | |
806 /* Process as Unix format: just remove any final slash. | |
807 But leave "/" unchanged; do not change it to "". */ | |
808 strcpy (dst, src); | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
809 if (slen > 1 |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
810 && IS_DIRECTORY_SEP (dst[slen - 1]) |
12369
54271828fd4e
(directory_file_name): Don't get confused by // at end on Unix-like systems.
Richard M. Stallman <rms@gnu.org>
parents:
11878
diff
changeset
|
811 #ifdef DOS_NT |
54271828fd4e
(directory_file_name): Don't get confused by // at end on Unix-like systems.
Richard M. Stallman <rms@gnu.org>
parents:
11878
diff
changeset
|
812 && !IS_ANY_SEP (dst[slen - 2]) |
54271828fd4e
(directory_file_name): Don't get confused by // at end on Unix-like systems.
Richard M. Stallman <rms@gnu.org>
parents:
11878
diff
changeset
|
813 #endif |
54271828fd4e
(directory_file_name): Don't get confused by // at end on Unix-like systems.
Richard M. Stallman <rms@gnu.org>
parents:
11878
diff
changeset
|
814 ) |
230 | 815 dst[slen - 1] = 0; |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
816 #ifdef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
817 CORRECT_DIR_SEPS (dst); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
818 #endif |
230 | 819 return 1; |
820 } | |
821 | |
822 DEFUN ("directory-file-name", Fdirectory_file_name, Sdirectory_file_name, | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
823 1, 1, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
824 doc: /* Returns the file name of the directory named DIRECTORY. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
825 This is the name of the file that holds the data for the directory DIRECTORY. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
826 This operation exists because a directory is also a file, but its name as |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
827 a directory is different from its name as a file. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
828 In Unix-syntax, this function just removes the final slash. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
829 On VMS, given a VMS-syntax directory name such as \"[X.Y]\", |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
830 it returns a file name such as \"[X]Y.DIR.1\". */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
831 (directory) |
230 | 832 Lisp_Object directory; |
833 { | |
834 char *buf; | |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
835 Lisp_Object handler; |
230 | 836 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
837 CHECK_STRING (directory); |
230 | 838 |
485 | 839 if (NILP (directory)) |
230 | 840 return Qnil; |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
841 |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
842 /* If the file name has special constructs in it, |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
843 call the corresponding file handler. */ |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
844 handler = Ffind_file_name_handler (directory, Qdirectory_file_name); |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
845 if (!NILP (handler)) |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
846 return call2 (handler, Qdirectory_file_name, directory); |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
847 |
230 | 848 #ifdef VMS |
849 /* 20 extra chars is insufficient for VMS, since we might perform a | |
850 logical name translation. an equivalence string can be up to 255 | |
851 chars long, so grab that much extra space... - sss */ | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
852 buf = (char *) alloca (SBYTES (directory) + 20 + 255); |
230 | 853 #else |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
854 buf = (char *) alloca (SBYTES (directory) + 20); |
230 | 855 #endif |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
856 directory_file_name (SDATA (directory), buf); |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
857 return make_specified_string (buf, -1, strlen (buf), |
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
858 STRING_MULTIBYTE (directory)); |
230 | 859 } |
860 | |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
861 static char make_temp_name_tbl[64] = |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
862 { |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
863 'A','B','C','D','E','F','G','H', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
864 'I','J','K','L','M','N','O','P', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
865 'Q','R','S','T','U','V','W','X', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
866 'Y','Z','a','b','c','d','e','f', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
867 'g','h','i','j','k','l','m','n', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
868 'o','p','q','r','s','t','u','v', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
869 'w','x','y','z','0','1','2','3', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
870 '4','5','6','7','8','9','-','_' |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
871 }; |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
872 |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
873 static unsigned make_temp_name_count, make_temp_name_count_initialized_p; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
874 |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
875 /* Value is a temporary file name starting with PREFIX, a string. |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
876 |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
877 The Emacs process number forms part of the result, so there is |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
878 no danger of generating a name being used by another process. |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
879 In addition, this function makes an attempt to choose a name |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
880 which has no existing file. To make this work, PREFIX should be |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
881 an absolute file name. |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
882 |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
883 BASE64_P non-zero means add the pid as 3 characters in base64 |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
884 encoding. In this case, 6 characters will be added to PREFIX to |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
885 form the file name. Otherwise, if Emacs is running on a system |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
886 with long file names, add the pid as a decimal number. |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
887 |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
888 This function signals an error if no unique file name could be |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
889 generated. */ |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
890 |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
891 Lisp_Object |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
892 make_temp_name (prefix, base64_p) |
230 | 893 Lisp_Object prefix; |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
894 int base64_p; |
230 | 895 { |
896 Lisp_Object val; | |
56615
c0f488e9cb26
(make_temp_name): Handle multibyte prefixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56525
diff
changeset
|
897 int len, clen; |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
898 int pid; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
899 unsigned char *p, *data; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
900 char pidbuf[20]; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
901 int pidlen; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
902 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
903 CHECK_STRING (prefix); |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
904 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
905 /* VAL is created by adding 6 characters to PREFIX. The first |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
906 three are the PID of this process, in base 64, and the second |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
907 three are incremented if the file already exists. This ensures |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
908 262144 unique file names per PID per PREFIX. */ |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
909 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
910 pid = (int) getpid (); |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
911 |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
912 if (base64_p) |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
913 { |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
914 pidbuf[0] = make_temp_name_tbl[pid & 63], pid >>= 6; |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
915 pidbuf[1] = make_temp_name_tbl[pid & 63], pid >>= 6; |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
916 pidbuf[2] = make_temp_name_tbl[pid & 63], pid >>= 6; |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
917 pidlen = 3; |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
918 } |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
919 else |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
920 { |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
921 #ifdef HAVE_LONG_FILE_NAMES |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
922 sprintf (pidbuf, "%d", pid); |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
923 pidlen = strlen (pidbuf); |
14519
7efdb933356e
(Fmake_temp_name) [MS-DOS]: Allow upto 8 characters in
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
924 #else |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
925 pidbuf[0] = make_temp_name_tbl[pid & 63], pid >>= 6; |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
926 pidbuf[1] = make_temp_name_tbl[pid & 63], pid >>= 6; |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
927 pidbuf[2] = make_temp_name_tbl[pid & 63], pid >>= 6; |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
928 pidlen = 3; |
14519
7efdb933356e
(Fmake_temp_name) [MS-DOS]: Allow upto 8 characters in
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
929 #endif |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
930 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
931 |
56615
c0f488e9cb26
(make_temp_name): Handle multibyte prefixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56525
diff
changeset
|
932 len = SBYTES (prefix); clen = SCHARS (prefix); |
c0f488e9cb26
(make_temp_name): Handle multibyte prefixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56525
diff
changeset
|
933 val = make_uninit_multibyte_string (clen + 3 + pidlen, len + 3 + pidlen); |
c0f488e9cb26
(make_temp_name): Handle multibyte prefixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56525
diff
changeset
|
934 if (!STRING_MULTIBYTE (prefix)) |
c0f488e9cb26
(make_temp_name): Handle multibyte prefixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56525
diff
changeset
|
935 STRING_SET_UNIBYTE (val); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
936 data = SDATA (val); |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
937 bcopy(SDATA (prefix), data, len); |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
938 p = data + len; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
939 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
940 bcopy (pidbuf, p, pidlen); |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
941 p += pidlen; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
942 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
943 /* Here we try to minimize useless stat'ing when this function is |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
944 invoked many times successively with the same PREFIX. We achieve |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
945 this by initializing count to a random value, and incrementing it |
21917 | 946 afterwards. |
947 | |
948 We don't want make-temp-name to be called while dumping, | |
949 because then make_temp_name_count_initialized_p would get set | |
950 and then make_temp_name_count would not be set when Emacs starts. */ | |
951 | |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
952 if (!make_temp_name_count_initialized_p) |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
953 { |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
954 make_temp_name_count = (unsigned) time (NULL); |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
955 make_temp_name_count_initialized_p = 1; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
956 } |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
957 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
958 while (1) |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
959 { |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
960 struct stat ignored; |
21900
fd8b439fd6c9
(Fmake_temp_name): Improve randomness of generated file names.
Richard M. Stallman <rms@gnu.org>
parents:
21787
diff
changeset
|
961 unsigned num = make_temp_name_count; |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
962 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
963 p[0] = make_temp_name_tbl[num & 63], num >>= 6; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
964 p[1] = make_temp_name_tbl[num & 63], num >>= 6; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
965 p[2] = make_temp_name_tbl[num & 63], num >>= 6; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
966 |
21900
fd8b439fd6c9
(Fmake_temp_name): Improve randomness of generated file names.
Richard M. Stallman <rms@gnu.org>
parents:
21787
diff
changeset
|
967 /* Poor man's congruential RN generator. Replace with |
fd8b439fd6c9
(Fmake_temp_name): Improve randomness of generated file names.
Richard M. Stallman <rms@gnu.org>
parents:
21787
diff
changeset
|
968 ++make_temp_name_count for debugging. */ |
fd8b439fd6c9
(Fmake_temp_name): Improve randomness of generated file names.
Richard M. Stallman <rms@gnu.org>
parents:
21787
diff
changeset
|
969 make_temp_name_count += 25229; |
fd8b439fd6c9
(Fmake_temp_name): Improve randomness of generated file names.
Richard M. Stallman <rms@gnu.org>
parents:
21787
diff
changeset
|
970 make_temp_name_count %= 225307; |
fd8b439fd6c9
(Fmake_temp_name): Improve randomness of generated file names.
Richard M. Stallman <rms@gnu.org>
parents:
21787
diff
changeset
|
971 |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
972 if (stat (data, &ignored) < 0) |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
973 { |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
974 /* We want to return only if errno is ENOENT. */ |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
975 if (errno == ENOENT) |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
976 return val; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
977 else |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
978 /* The error here is dubious, but there is little else we |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
979 can do. The alternatives are to return nil, which is |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
980 as bad as (and in many cases worse than) throwing the |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
981 error, or to ignore the error, which will likely result |
21900
fd8b439fd6c9
(Fmake_temp_name): Improve randomness of generated file names.
Richard M. Stallman <rms@gnu.org>
parents:
21787
diff
changeset
|
982 in looping through 225307 stat's, which is not only |
fd8b439fd6c9
(Fmake_temp_name): Improve randomness of generated file names.
Richard M. Stallman <rms@gnu.org>
parents:
21787
diff
changeset
|
983 dog-slow, but also useless since it will fallback to |
fd8b439fd6c9
(Fmake_temp_name): Improve randomness of generated file names.
Richard M. Stallman <rms@gnu.org>
parents:
21787
diff
changeset
|
984 the errow below, anyway. */ |
29813
ffa0e91cd494
(make_temp_name): Don't use `%s' in string passed to
Gerd Moellmann <gerd@gnu.org>
parents:
29540
diff
changeset
|
985 report_file_error ("Cannot create temporary name for prefix", |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
986 Fcons (prefix, Qnil)); |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
987 /* not reached */ |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
988 } |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
989 } |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
990 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
991 error ("Cannot create temporary name for prefix `%s'", |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
992 SDATA (prefix)); |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
993 return Qnil; |
230 | 994 } |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
995 |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
996 |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
997 DEFUN ("make-temp-name", Fmake_temp_name, Smake_temp_name, 1, 1, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
998 doc: /* Generate temporary file name (string) starting with PREFIX (a string). |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
999 The Emacs process number forms part of the result, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1000 so there is no danger of generating a name being used by another process. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1001 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1002 In addition, this function makes an attempt to choose a name |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1003 which has no existing file. To make this work, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1004 PREFIX should be an absolute file name. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1005 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1006 There is a race condition between calling `make-temp-name' and creating the |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1007 file which opens all kinds of security holes. For that reason, you should |
43680
d12db931f164
(Fmake_temp_name): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
43564
diff
changeset
|
1008 probably use `make-temp-file' instead, except in three circumstances: |
d12db931f164
(Fmake_temp_name): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
43564
diff
changeset
|
1009 |
d12db931f164
(Fmake_temp_name): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
43564
diff
changeset
|
1010 * If you are creating the file in the user's home directory. |
d12db931f164
(Fmake_temp_name): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
43564
diff
changeset
|
1011 * If you are creating a directory rather than an ordinary file. |
d12db931f164
(Fmake_temp_name): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
43564
diff
changeset
|
1012 * If you are taking special precautions as `make-temp-file' does. */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1013 (prefix) |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
1014 Lisp_Object prefix; |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
1015 { |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
1016 return make_temp_name (prefix, 0); |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
1017 } |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
1018 |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
1019 |
230 | 1020 |
1021 DEFUN ("expand-file-name", Fexpand_file_name, Sexpand_file_name, 1, 2, 0, | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1022 doc: /* Convert filename NAME to absolute, and canonicalize it. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1023 Second arg DEFAULT-DIRECTORY is directory to start with if NAME is relative |
79685
7a1e83fce56f
(Ffile_name_directory, Fexpand_file_name): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
79110
diff
changeset
|
1024 \(does not start with slash or tilde); if DEFAULT-DIRECTORY is nil or missing, |
62188
a89a98d0bb8c
(Fexpand_file_name, Frename_file, Fadd_name_to_file, Fmake_symbolic_link,
Juanma Barranquero <lekktu@gmail.com>
parents:
61942
diff
changeset
|
1025 the current buffer's value of `default-directory' is used. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1026 File name components that are `.' are removed, and |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1027 so are file name components followed by `..', along with the `..' itself; |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1028 note that these simplifications are done without checking the resulting |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1029 file names in the file system. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1030 An initial `~/' expands to your home directory. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1031 An initial `~USER/' expands to USER's home directory. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1032 See also the function `substitute-in-file-name'. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
1033 (name, default_directory) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1034 Lisp_Object name, default_directory; |
230 | 1035 { |
1036 unsigned char *nm; | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1037 |
230 | 1038 register unsigned char *newdir, *p, *o; |
1039 int tlen; | |
1040 unsigned char *target; | |
1041 struct passwd *pw; | |
1042 #ifdef VMS | |
1043 unsigned char * colon = 0; | |
1044 unsigned char * close = 0; | |
1045 unsigned char * slash = 0; | |
1046 unsigned char * brack = 0; | |
1047 int lbrack = 0, rbrack = 0; | |
1048 int dots = 0; | |
1049 #endif /* VMS */ | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1050 #ifdef DOS_NT |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1051 int drive = 0; |
15109
b801c02f3e92
(Fexpand_file_name) [DOS_NT]: Keep dir sep following ~
Richard M. Stallman <rms@gnu.org>
parents:
15097
diff
changeset
|
1052 int collapse_newdir = 1; |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1053 int is_escaped = 0; |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1054 #endif /* DOS_NT */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1055 int length; |
50340
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1056 Lisp_Object handler, result; |
65504
85da96d43f19
(Fexpand_file_name): Check multibyteness of
Kenichi Handa <handa@m17n.org>
parents:
65466
diff
changeset
|
1057 int multibyte; |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1058 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
1059 CHECK_STRING (name); |
230 | 1060 |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
1061 /* If the file name has special constructs in it, |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
1062 call the corresponding file handler. */ |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
1063 handler = Ffind_file_name_handler (name, Qexpand_file_name); |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
1064 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1065 return call3 (handler, Qexpand_file_name, name, default_directory); |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1066 |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1067 /* Use the buffer's default-directory if DEFAULT_DIRECTORY is omitted. */ |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1068 if (NILP (default_directory)) |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1069 default_directory = current_buffer->directory; |
19754
380cbf03df01
(Fexpand_file_name): If default dir isn't string, use `/'.
Richard M. Stallman <rms@gnu.org>
parents:
19695
diff
changeset
|
1070 if (! STRINGP (default_directory)) |
42191
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1071 { |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1072 #ifdef DOS_NT |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1073 /* "/" is not considered a root directory on DOS_NT, so using "/" |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1074 here causes an infinite recursion in, e.g., the following: |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1075 |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1076 (let (default-directory) |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1077 (expand-file-name "a")) |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1078 |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1079 To avoid this, we set default_directory to the root of the |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1080 current drive. */ |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1081 extern char *emacs_root_dir (void); |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1082 |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1083 default_directory = build_string (emacs_root_dir ()); |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1084 #else |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1085 default_directory = build_string ("/"); |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1086 #endif |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
1087 } |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1088 |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1089 if (!NILP (default_directory)) |
10719
40ae63b409f4
(Fexpand_file_name): Look for a handler for defalt.
Richard M. Stallman <rms@gnu.org>
parents:
10499
diff
changeset
|
1090 { |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1091 handler = Ffind_file_name_handler (default_directory, Qexpand_file_name); |
10719
40ae63b409f4
(Fexpand_file_name): Look for a handler for defalt.
Richard M. Stallman <rms@gnu.org>
parents:
10499
diff
changeset
|
1092 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1093 return call3 (handler, Qexpand_file_name, name, default_directory); |
10719
40ae63b409f4
(Fexpand_file_name): Look for a handler for defalt.
Richard M. Stallman <rms@gnu.org>
parents:
10499
diff
changeset
|
1094 } |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
1095 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1096 o = SDATA (default_directory); |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1097 |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1098 /* Make sure DEFAULT_DIRECTORY is properly expanded. |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1099 It would be better to do this down below where we actually use |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1100 default_directory. Unfortunately, calling Fexpand_file_name recursively |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1101 could invoke GC, and the strings might be relocated. This would |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1102 be annoying because we have pointers into strings lying around |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1103 that would need adjusting, and people would add new pointers to |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1104 the code and forget to adjust them, resulting in intermittent bugs. |
2407
1c590cd84ab3
(Fexpand_file_name): Default DEFALT at beginning,
Richard M. Stallman <rms@gnu.org>
parents:
2280
diff
changeset
|
1105 Putting this call here avoids all that crud. |
1c590cd84ab3
(Fexpand_file_name): Default DEFALT at beginning,
Richard M. Stallman <rms@gnu.org>
parents:
2280
diff
changeset
|
1106 |
1c590cd84ab3
(Fexpand_file_name): Default DEFALT at beginning,
Richard M. Stallman <rms@gnu.org>
parents:
2280
diff
changeset
|
1107 The EQ test avoids infinite recursion. */ |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1108 if (! NILP (default_directory) && !EQ (default_directory, name) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1109 /* Save time in some common cases - as long as default_directory |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1110 is not relative, it can be canonicalized with name below (if it |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1111 is needed at all) without requiring it to be expanded now. */ |
14697
5a7714d4748e
(Fexpand_file_name): Fix confusion in detecting
Richard M. Stallman <rms@gnu.org>
parents:
14616
diff
changeset
|
1112 #ifdef DOS_NT |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1113 /* Detect MSDOS file names with drive specifiers. */ |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1114 && ! (IS_DRIVE (o[0]) && IS_DEVICE_SEP (o[1]) && IS_DIRECTORY_SEP (o[2])) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1115 #ifdef WINDOWSNT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1116 /* Detect Windows file names in UNC format. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1117 && ! (IS_DIRECTORY_SEP (o[0]) && IS_DIRECTORY_SEP (o[1])) |
14697
5a7714d4748e
(Fexpand_file_name): Fix confusion in detecting
Richard M. Stallman <rms@gnu.org>
parents:
14616
diff
changeset
|
1118 #endif |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1119 #else /* not DOS_NT */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1120 /* Detect Unix absolute file names (/... alone is not absolute on |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1121 DOS or Windows). */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1122 && ! (IS_DIRECTORY_SEP (o[0])) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1123 #endif /* not DOS_NT */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1124 ) |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1125 { |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1126 struct gcpro gcpro1; |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1127 |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1128 GCPRO1 (name); |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1129 default_directory = Fexpand_file_name (default_directory, Qnil); |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1130 UNGCPRO; |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1131 } |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1132 |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
1133 name = FILE_SYSTEM_CASE (name); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1134 nm = SDATA (name); |
65504
85da96d43f19
(Fexpand_file_name): Check multibyteness of
Kenichi Handa <handa@m17n.org>
parents:
65466
diff
changeset
|
1135 multibyte = STRING_MULTIBYTE (name); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1136 |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1137 #ifdef DOS_NT |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1138 /* We will force directory separators to be either all \ or /, so make |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1139 a local copy to modify, even if there ends up being no change. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1140 nm = strcpy (alloca (strlen (nm) + 1), nm); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1141 |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1142 /* Note if special escape prefix is present, but remove for now. */ |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1143 if (nm[0] == '/' && nm[1] == ':') |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1144 { |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1145 is_escaped = 1; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1146 nm += 2; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1147 } |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1148 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1149 /* Find and remove drive specifier if present; this makes nm absolute |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1150 even if the rest of the name appears to be relative. Only look for |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1151 drive specifier at the beginning. */ |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1152 if (IS_DRIVE (nm[0]) && IS_DEVICE_SEP (nm[1])) |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1153 { |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1154 drive = nm[0]; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1155 nm += 2; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1156 } |
19695
d28bbba0fcd0
(Fexpand_file_name) [WINDOWSNT]: When stripping
Geoff Voelker <voelker@cs.washington.edu>
parents:
19664
diff
changeset
|
1157 |
d28bbba0fcd0
(Fexpand_file_name) [WINDOWSNT]: When stripping
Geoff Voelker <voelker@cs.washington.edu>
parents:
19664
diff
changeset
|
1158 #ifdef WINDOWSNT |
d28bbba0fcd0
(Fexpand_file_name) [WINDOWSNT]: When stripping
Geoff Voelker <voelker@cs.washington.edu>
parents:
19664
diff
changeset
|
1159 /* If we see "c://somedir", we want to strip the first slash after the |
d28bbba0fcd0
(Fexpand_file_name) [WINDOWSNT]: When stripping
Geoff Voelker <voelker@cs.washington.edu>
parents:
19664
diff
changeset
|
1160 colon when stripping the drive letter. Otherwise, this expands to |
d28bbba0fcd0
(Fexpand_file_name) [WINDOWSNT]: When stripping
Geoff Voelker <voelker@cs.washington.edu>
parents:
19664
diff
changeset
|
1161 "//somedir". */ |
d28bbba0fcd0
(Fexpand_file_name) [WINDOWSNT]: When stripping
Geoff Voelker <voelker@cs.washington.edu>
parents:
19664
diff
changeset
|
1162 if (drive && IS_DIRECTORY_SEP (nm[0]) && IS_DIRECTORY_SEP (nm[1])) |
d28bbba0fcd0
(Fexpand_file_name) [WINDOWSNT]: When stripping
Geoff Voelker <voelker@cs.washington.edu>
parents:
19664
diff
changeset
|
1163 nm++; |
d28bbba0fcd0
(Fexpand_file_name) [WINDOWSNT]: When stripping
Geoff Voelker <voelker@cs.washington.edu>
parents:
19664
diff
changeset
|
1164 #endif /* WINDOWSNT */ |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1165 #endif /* DOS_NT */ |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
1166 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1167 #ifdef WINDOWSNT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1168 /* Discard any previous drive specifier if nm is now in UNC format. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1169 if (IS_DIRECTORY_SEP (nm[0]) && IS_DIRECTORY_SEP (nm[1])) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1170 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1171 drive = 0; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1172 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1173 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1174 |
36482
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
1175 /* If nm is absolute, look for `/./' or `/../' or `//''sequences; if |
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
1176 none are found, we can probably return right away. We will avoid |
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
1177 allocating a new string if name is already fully expanded. */ |
230 | 1178 if ( |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1179 IS_DIRECTORY_SEP (nm[0]) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1180 #ifdef MSDOS |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1181 && drive && !is_escaped |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1182 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1183 #ifdef WINDOWSNT |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1184 && (drive || IS_DIRECTORY_SEP (nm[1])) && !is_escaped |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1185 #endif |
230 | 1186 #ifdef VMS |
1187 || index (nm, ':') | |
1188 #endif /* VMS */ | |
1189 ) | |
1190 { | |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1191 /* If it turns out that the filename we want to return is just a |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1192 suffix of FILENAME, we don't need to go through and edit |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1193 things; we just need to construct a new string using data |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1194 starting at the middle of FILENAME. If we set lose to a |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1195 non-zero value, that means we've discovered that we can't do |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1196 that cool trick. */ |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1197 int lose = 0; |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
1198 |
230 | 1199 p = nm; |
1200 while (*p) | |
1201 { | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1202 /* Since we know the name is absolute, we can assume that each |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1203 element starts with a "/". */ |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1204 |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1205 /* "." and ".." are hairy. */ |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1206 if (IS_DIRECTORY_SEP (p[0]) |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1207 && p[1] == '.' |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1208 && (IS_DIRECTORY_SEP (p[2]) |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1209 || p[2] == 0 |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1210 || (p[2] == '.' && (IS_DIRECTORY_SEP (p[3]) |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1211 || p[3] == 0)))) |
230 | 1212 lose = 1; |
36482
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
1213 /* We want to replace multiple `/' in a row with a single |
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
1214 slash. */ |
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
1215 else if (p > nm |
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
1216 && IS_DIRECTORY_SEP (p[0]) |
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
1217 && IS_DIRECTORY_SEP (p[1])) |
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
1218 lose = 1; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
1219 |
230 | 1220 #ifdef VMS |
1221 if (p[0] == '\\') | |
1222 lose = 1; | |
1223 if (p[0] == '/') { | |
1224 /* if dev:[dir]/, move nm to / */ | |
1225 if (!slash && p > nm && (brack || colon)) { | |
1226 nm = (brack ? brack + 1 : colon + 1); | |
1227 lbrack = rbrack = 0; | |
1228 brack = 0; | |
1229 colon = 0; | |
1230 } | |
1231 slash = p; | |
1232 } | |
1233 if (p[0] == '-') | |
60387
891064d819d7
(Fexpand_file_name) [VMS]:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60380
diff
changeset
|
1234 #ifdef NO_HYPHENS_IN_FILENAMES |
230 | 1235 if (lbrack == rbrack) |
1236 { | |
60387
891064d819d7
(Fexpand_file_name) [VMS]:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60380
diff
changeset
|
1237 /* Avoid clobbering negative version numbers. */ |
891064d819d7
(Fexpand_file_name) [VMS]:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60380
diff
changeset
|
1238 if (dots < 2) |
230 | 1239 p[0] = '_'; |
1240 } | |
1241 else | |
60387
891064d819d7
(Fexpand_file_name) [VMS]:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60380
diff
changeset
|
1242 #endif /* NO_HYPHENS_IN_FILENAMES */ |
74108
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1243 if (lbrack > rbrack |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1244 && ((p[-1] == '.' || p[-1] == '[' || p[-1] == '<') |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1245 && (p[1] == '.' || p[1] == ']' || p[1] == '>'))) |
230 | 1246 lose = 1; |
60387
891064d819d7
(Fexpand_file_name) [VMS]:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60380
diff
changeset
|
1247 #ifdef NO_HYPHENS_IN_FILENAMES |
230 | 1248 else |
1249 p[0] = '_'; | |
60387
891064d819d7
(Fexpand_file_name) [VMS]:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60380
diff
changeset
|
1250 #endif /* NO_HYPHENS_IN_FILENAMES */ |
230 | 1251 /* count open brackets, reset close bracket pointer */ |
1252 if (p[0] == '[' || p[0] == '<') | |
1253 lbrack++, brack = 0; | |
1254 /* count close brackets, set close bracket pointer */ | |
1255 if (p[0] == ']' || p[0] == '>') | |
1256 rbrack++, brack = p; | |
1257 /* detect ][ or >< */ | |
1258 if ((p[0] == ']' || p[0] == '>') && (p[1] == '[' || p[1] == '<')) | |
1259 lose = 1; | |
1260 if ((p[0] == ':' || p[0] == ']' || p[0] == '>') && p[1] == '~') | |
1261 nm = p + 1, lose = 1; | |
1262 if (p[0] == ':' && (colon || slash)) | |
1263 /* if dev1:[dir]dev2:, move nm to dev2: */ | |
1264 if (brack) | |
1265 { | |
1266 nm = brack + 1; | |
1267 brack = 0; | |
1268 } | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1269 /* if /name/dev:, move nm to dev: */ |
230 | 1270 else if (slash) |
1271 nm = slash + 1; | |
1272 /* if node::dev:, move colon following dev */ | |
1273 else if (colon && colon[-1] == ':') | |
1274 colon = p; | |
1275 /* if dev1:dev2:, move nm to dev2: */ | |
1276 else if (colon && colon[-1] != ':') | |
1277 { | |
1278 nm = colon + 1; | |
1279 colon = 0; | |
1280 } | |
1281 if (p[0] == ':' && !colon) | |
1282 { | |
1283 if (p[1] == ':') | |
1284 p++; | |
1285 colon = p; | |
1286 } | |
1287 if (lbrack == rbrack) | |
1288 if (p[0] == ';') | |
1289 dots = 2; | |
1290 else if (p[0] == '.') | |
1291 dots++; | |
1292 #endif /* VMS */ | |
1293 p++; | |
1294 } | |
1295 if (!lose) | |
1296 { | |
1297 #ifdef VMS | |
1298 if (index (nm, '/')) | |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
1299 { |
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
1300 nm = sys_translate_unix (nm); |
65504
85da96d43f19
(Fexpand_file_name): Check multibyteness of
Kenichi Handa <handa@m17n.org>
parents:
65466
diff
changeset
|
1301 return make_specified_string (nm, -1, strlen (nm), multibyte); |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
1302 } |
230 | 1303 #endif /* VMS */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1304 #ifdef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1305 /* Make sure directories are all separated with / or \ as |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1306 desired, but avoid allocation of a new string when not |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1307 required. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1308 CORRECT_DIR_SEPS (nm); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1309 #ifdef WINDOWSNT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1310 if (IS_DIRECTORY_SEP (nm[1])) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1311 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1312 if (strcmp (nm, SDATA (name)) != 0) |
65504
85da96d43f19
(Fexpand_file_name): Check multibyteness of
Kenichi Handa <handa@m17n.org>
parents:
65466
diff
changeset
|
1313 name = make_specified_string (nm, -1, strlen (nm), multibyte); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1314 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1315 else |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1316 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1317 /* drive must be set, so this is okay */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1318 if (strcmp (nm - 2, SDATA (name)) != 0) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1319 { |
50213
f72d2bd8118d
(Fexpand_file_name): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
50212
diff
changeset
|
1320 char temp[] = " :"; |
f72d2bd8118d
(Fexpand_file_name): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
50212
diff
changeset
|
1321 |
65504
85da96d43f19
(Fexpand_file_name): Check multibyteness of
Kenichi Handa <handa@m17n.org>
parents:
65466
diff
changeset
|
1322 name = make_specified_string (nm, -1, p - nm, multibyte); |
50213
f72d2bd8118d
(Fexpand_file_name): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
50212
diff
changeset
|
1323 temp[0] = DRIVE_LETTER (drive); |
f72d2bd8118d
(Fexpand_file_name): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
50212
diff
changeset
|
1324 name = concat2 (build_string (temp), name); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1325 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1326 return name; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1327 #else /* not DOS_NT */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1328 if (nm == SDATA (name)) |
230 | 1329 return name; |
65504
85da96d43f19
(Fexpand_file_name): Check multibyteness of
Kenichi Handa <handa@m17n.org>
parents:
65466
diff
changeset
|
1330 return make_specified_string (nm, -1, strlen (nm), multibyte); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1331 #endif /* not DOS_NT */ |
230 | 1332 } |
1333 } | |
1334 | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1335 /* At this point, nm might or might not be an absolute file name. We |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1336 need to expand ~ or ~user if present, otherwise prefix nm with |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1337 default_directory if nm is not absolute, and finally collapse /./ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1338 and /foo/../ sequences. |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1339 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1340 We set newdir to be the appropriate prefix if one is needed: |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1341 - the relevant user directory if nm starts with ~ or ~user |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1342 - the specified drive's working dir (DOS/NT only) if nm does not |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1343 start with / |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1344 - the value of default_directory. |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1345 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1346 Note that these prefixes are not guaranteed to be absolute (except |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1347 for the working dir of a drive). Therefore, to ensure we always |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1348 return an absolute name, if the final prefix is not absolute we |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1349 append it to the current working directory. */ |
230 | 1350 |
1351 newdir = 0; | |
1352 | |
1353 if (nm[0] == '~') /* prefix ~ */ | |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1354 { |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1355 if (IS_DIRECTORY_SEP (nm[1]) |
230 | 1356 #ifdef VMS |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1357 || nm[1] == ':' |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1358 #endif /* VMS */ |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1359 || nm[1] == 0) /* ~ by itself */ |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1360 { |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1361 if (!(newdir = (unsigned char *) egetenv ("HOME"))) |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1362 newdir = (unsigned char *) ""; |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1363 nm++; |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1364 #ifdef DOS_NT |
15109
b801c02f3e92
(Fexpand_file_name) [DOS_NT]: Keep dir sep following ~
Richard M. Stallman <rms@gnu.org>
parents:
15097
diff
changeset
|
1365 collapse_newdir = 0; |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
1366 #endif |
230 | 1367 #ifdef VMS |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1368 nm++; /* Don't leave the slash in nm. */ |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1369 #endif /* VMS */ |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1370 } |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1371 else /* ~user/filename */ |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1372 { |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1373 for (p = nm; *p && (!IS_DIRECTORY_SEP (*p) |
230 | 1374 #ifdef VMS |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1375 && *p != ':' |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1376 #endif /* VMS */ |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1377 ); p++); |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1378 o = (unsigned char *) alloca (p - nm + 1); |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1379 bcopy ((char *) nm, o, p - nm); |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1380 o [p - nm] = 0; |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1381 |
71818
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
1382 BLOCK_INPUT; |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1383 pw = (struct passwd *) getpwnam (o + 1); |
71818
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
1384 UNBLOCK_INPUT; |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1385 if (pw) |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1386 { |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1387 newdir = (unsigned char *) pw -> pw_dir; |
230 | 1388 #ifdef VMS |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1389 nm = p + 1; /* skip the terminator */ |
230 | 1390 #else |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1391 nm = p; |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1392 #ifdef DOS_NT |
15109
b801c02f3e92
(Fexpand_file_name) [DOS_NT]: Keep dir sep following ~
Richard M. Stallman <rms@gnu.org>
parents:
15097
diff
changeset
|
1393 collapse_newdir = 0; |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1394 #endif |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1395 #endif /* VMS */ |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1396 } |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1397 |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1398 /* If we don't find a user of that name, leave the name |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1399 unchanged; don't move nm forward to p. */ |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1400 } |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1401 } |
230 | 1402 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1403 #ifdef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1404 /* On DOS and Windows, nm is absolute if a drive name was specified; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1405 use the drive's current directory as the prefix if needed. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1406 if (!newdir && drive) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1407 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1408 /* Get default directory if needed to make nm absolute. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1409 if (!IS_DIRECTORY_SEP (nm[0])) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1410 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1411 newdir = alloca (MAXPATHLEN + 1); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1412 if (!getdefdir (toupper (drive) - 'A' + 1, newdir)) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1413 newdir = NULL; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1414 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1415 if (!newdir) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1416 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1417 /* Either nm starts with /, or drive isn't mounted. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1418 newdir = alloca (4); |
15324
6fd4e01fd332
(DRIVE_LETTER): [DOS_NT] New macro.
Richard M. Stallman <rms@gnu.org>
parents:
15313
diff
changeset
|
1419 newdir[0] = DRIVE_LETTER (drive); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1420 newdir[1] = ':'; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1421 newdir[2] = '/'; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1422 newdir[3] = 0; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1423 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1424 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1425 #endif /* DOS_NT */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1426 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1427 /* Finally, if no prefix has been specified and nm is not absolute, |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1428 then it must be expanded relative to default_directory. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1429 |
15124
b2c682fcd3ef
(Fexpand_file_name) [DOS_NT]: Correct the `if' clause
Richard M. Stallman <rms@gnu.org>
parents:
15109
diff
changeset
|
1430 if (1 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1431 #ifndef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1432 /* /... alone is not absolute on DOS and Windows. */ |
15124
b2c682fcd3ef
(Fexpand_file_name) [DOS_NT]: Correct the `if' clause
Richard M. Stallman <rms@gnu.org>
parents:
15109
diff
changeset
|
1433 && !IS_DIRECTORY_SEP (nm[0]) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1434 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1435 #ifdef WINDOWSNT |
15124
b2c682fcd3ef
(Fexpand_file_name) [DOS_NT]: Correct the `if' clause
Richard M. Stallman <rms@gnu.org>
parents:
15109
diff
changeset
|
1436 && !(IS_DIRECTORY_SEP (nm[0]) && IS_DIRECTORY_SEP (nm[1])) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1437 #endif |
230 | 1438 #ifdef VMS |
1439 && !index (nm, ':') | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1440 #endif |
230 | 1441 && !newdir) |
1442 { | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1443 newdir = SDATA (default_directory); |
65504
85da96d43f19
(Fexpand_file_name): Check multibyteness of
Kenichi Handa <handa@m17n.org>
parents:
65466
diff
changeset
|
1444 multibyte |= STRING_MULTIBYTE (default_directory); |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1445 #ifdef DOS_NT |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1446 /* Note if special escape prefix is present, but remove for now. */ |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1447 if (newdir[0] == '/' && newdir[1] == ':') |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1448 { |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1449 is_escaped = 1; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1450 newdir += 2; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1451 } |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1452 #endif |
230 | 1453 } |
1454 | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1455 #ifdef DOS_NT |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1456 if (newdir) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1457 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1458 /* First ensure newdir is an absolute name. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1459 if ( |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1460 /* Detect MSDOS file names with drive specifiers. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1461 ! (IS_DRIVE (newdir[0]) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1462 && IS_DEVICE_SEP (newdir[1]) && IS_DIRECTORY_SEP (newdir[2])) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1463 #ifdef WINDOWSNT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1464 /* Detect Windows file names in UNC format. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1465 && ! (IS_DIRECTORY_SEP (newdir[0]) && IS_DIRECTORY_SEP (newdir[1])) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1466 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1467 ) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1468 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1469 /* Effectively, let newdir be (expand-file-name newdir cwd). |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1470 Because of the admonition against calling expand-file-name |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1471 when we have pointers into lisp strings, we accomplish this |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1472 indirectly by prepending newdir to nm if necessary, and using |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1473 cwd (or the wd of newdir's drive) as the new newdir. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1474 |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1475 if (IS_DRIVE (newdir[0]) && IS_DEVICE_SEP (newdir[1])) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1476 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1477 drive = newdir[0]; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1478 newdir += 2; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1479 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1480 if (!IS_DIRECTORY_SEP (nm[0])) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1481 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1482 char * tmp = alloca (strlen (newdir) + strlen (nm) + 2); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1483 file_name_as_directory (tmp, newdir); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1484 strcat (tmp, nm); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1485 nm = tmp; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1486 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1487 newdir = alloca (MAXPATHLEN + 1); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1488 if (drive) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1489 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1490 if (!getdefdir (toupper (drive) - 'A' + 1, newdir)) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1491 newdir = "/"; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1492 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1493 else |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1494 getwd (newdir); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1495 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1496 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1497 /* Strip off drive name from prefix, if present. */ |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1498 if (IS_DRIVE (newdir[0]) && IS_DEVICE_SEP (newdir[1])) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1499 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1500 drive = newdir[0]; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1501 newdir += 2; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1502 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1503 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1504 /* Keep only a prefix from newdir if nm starts with slash |
19754
380cbf03df01
(Fexpand_file_name): If default dir isn't string, use `/'.
Richard M. Stallman <rms@gnu.org>
parents:
19695
diff
changeset
|
1505 (//server/share for UNC, nothing otherwise). */ |
15109
b801c02f3e92
(Fexpand_file_name) [DOS_NT]: Keep dir sep following ~
Richard M. Stallman <rms@gnu.org>
parents:
15097
diff
changeset
|
1506 if (IS_DIRECTORY_SEP (nm[0]) && collapse_newdir) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1507 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1508 #ifdef WINDOWSNT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1509 if (IS_DIRECTORY_SEP (newdir[0]) && IS_DIRECTORY_SEP (newdir[1])) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1510 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1511 newdir = strcpy (alloca (strlen (newdir) + 1), newdir); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1512 p = newdir + 2; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1513 while (*p && !IS_DIRECTORY_SEP (*p)) p++; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1514 p++; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1515 while (*p && !IS_DIRECTORY_SEP (*p)) p++; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1516 *p = 0; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1517 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1518 else |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1519 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1520 newdir = ""; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1521 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1522 } |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1523 #endif /* DOS_NT */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1524 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1525 if (newdir) |
372 | 1526 { |
15313
0fad77a676b7
(Fexpand_file_name) [WINDOWSNT]: Don't strip trailing /
Richard M. Stallman <rms@gnu.org>
parents:
15124
diff
changeset
|
1527 /* Get rid of any slash at the end of newdir, unless newdir is |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1528 just / or // (an incomplete UNC name). */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1529 length = strlen (newdir); |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1530 if (length > 1 && IS_DIRECTORY_SEP (newdir[length - 1]) |
15313
0fad77a676b7
(Fexpand_file_name) [WINDOWSNT]: Don't strip trailing /
Richard M. Stallman <rms@gnu.org>
parents:
15124
diff
changeset
|
1531 #ifdef WINDOWSNT |
0fad77a676b7
(Fexpand_file_name) [WINDOWSNT]: Don't strip trailing /
Richard M. Stallman <rms@gnu.org>
parents:
15124
diff
changeset
|
1532 && !(length == 2 && IS_DIRECTORY_SEP (newdir[0])) |
0fad77a676b7
(Fexpand_file_name) [WINDOWSNT]: Don't strip trailing /
Richard M. Stallman <rms@gnu.org>
parents:
15124
diff
changeset
|
1533 #endif |
0fad77a676b7
(Fexpand_file_name) [WINDOWSNT]: Don't strip trailing /
Richard M. Stallman <rms@gnu.org>
parents:
15124
diff
changeset
|
1534 ) |
372 | 1535 { |
1536 unsigned char *temp = (unsigned char *) alloca (length); | |
1537 bcopy (newdir, temp, length - 1); | |
1538 temp[length - 1] = 0; | |
1539 newdir = temp; | |
1540 } | |
1541 tlen = length + 1; | |
1542 } | |
1543 else | |
1544 tlen = 0; | |
230 | 1545 |
372 | 1546 /* Now concatenate the directory and name to new space in the stack frame */ |
1547 tlen += strlen (nm) + 1; | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1548 #ifdef DOS_NT |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1549 /* Reserve space for drive specifier and escape prefix, since either |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1550 or both may need to be inserted. (The Microsoft x86 compiler |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1551 produces incorrect code if the following two lines are combined.) */ |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1552 target = (unsigned char *) alloca (tlen + 4); |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1553 target += 4; |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1554 #else /* not DOS_NT */ |
230 | 1555 target = (unsigned char *) alloca (tlen); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1556 #endif /* not DOS_NT */ |
230 | 1557 *target = 0; |
1558 | |
1559 if (newdir) | |
1560 { | |
1561 #ifndef VMS | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1562 if (nm[0] == 0 || IS_DIRECTORY_SEP (nm[0])) |
22106
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1563 { |
22113
be43fb8acb62
(Fexpand_file_name): Change conditional
Richard M. Stallman <rms@gnu.org>
parents:
22106
diff
changeset
|
1564 #ifdef DOS_NT |
22106
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1565 /* If newdir is effectively "C:/", then the drive letter will have |
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1566 been stripped and newdir will be "/". Concatenating with an |
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1567 absolute directory in nm produces "//", which will then be |
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1568 incorrectly treated as a network share. Ignore newdir in |
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1569 this case (keeping the drive letter). */ |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
1570 if (!(drive && nm[0] && IS_DIRECTORY_SEP (newdir[0]) |
22106
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1571 && newdir[1] == '\0')) |
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1572 #endif |
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1573 strcpy (target, newdir); |
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1574 } |
230 | 1575 else |
1576 #endif | |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1577 file_name_as_directory (target, newdir); |
230 | 1578 } |
1579 | |
1580 strcat (target, nm); | |
1581 #ifdef VMS | |
1582 if (index (target, '/')) | |
1583 strcpy (target, sys_translate_unix (target)); | |
1584 #endif /* VMS */ | |
1585 | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1586 /* ASSERT (IS_DIRECTORY_SEP (target[0])) if not VMS */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1587 |
36482
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
1588 /* Now canonicalize by removing `//', `/.' and `/foo/..' if they |
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
1589 appear. */ |
230 | 1590 |
1591 p = target; | |
1592 o = target; | |
1593 | |
1594 while (*p) | |
1595 { | |
1596 #ifdef VMS | |
1597 if (*p != ']' && *p != '>' && *p != '-') | |
1598 { | |
1599 if (*p == '\\') | |
1600 p++; | |
1601 *o++ = *p++; | |
1602 } | |
1603 else if ((p[0] == ']' || p[0] == '>') && p[0] == p[1] + 2) | |
1604 /* brackets are offset from each other by 2 */ | |
1605 { | |
1606 p += 2; | |
1607 if (*p != '.' && *p != '-' && o[-1] != '.') | |
1608 /* convert [foo][bar] to [bar] */ | |
1609 while (o[-1] != '[' && o[-1] != '<') | |
1610 o--; | |
1611 else if (*p == '-' && *o != '.') | |
1612 *--p = '.'; | |
1613 } | |
74108
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1614 else if (p[0] == '-' && o[-1] == '.' |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1615 && (p[1] == '.' || p[1] == ']' || p[1] == '>')) |
230 | 1616 /* flush .foo.- ; leave - if stopped by '[' or '<' */ |
1617 { | |
1618 do | |
1619 o--; | |
1620 while (o[-1] != '.' && o[-1] != '[' && o[-1] != '<'); | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1621 if (p[1] == '.') /* foo.-.bar ==> bar. */ |
230 | 1622 p += 2; |
1623 else if (o[-1] == '.') /* '.foo.-]' ==> ']' */ | |
1624 p++, o--; | |
1625 /* else [foo.-] ==> [-] */ | |
1626 } | |
1627 else | |
1628 { | |
60387
891064d819d7
(Fexpand_file_name) [VMS]:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60380
diff
changeset
|
1629 #ifdef NO_HYPHENS_IN_FILENAMES |
74108
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1630 if (*p == '-' |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1631 && o[-1] != '[' && o[-1] != '<' && o[-1] != '.' |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1632 && p[1] != ']' && p[1] != '>' && p[1] != '.') |
230 | 1633 *p = '_'; |
60387
891064d819d7
(Fexpand_file_name) [VMS]:
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
60380
diff
changeset
|
1634 #endif /* NO_HYPHENS_IN_FILENAMES */ |
230 | 1635 *o++ = *p++; |
1636 } | |
1637 #else /* not VMS */ | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1638 if (!IS_DIRECTORY_SEP (*p)) |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1639 { |
230 | 1640 *o++ = *p++; |
1641 } | |
68118
8b817a6ceff5
(Fexpand_file_name): Remove redundant tests. Fix elimination of // so that
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67495
diff
changeset
|
1642 else if (p[1] == '.' |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1643 && (IS_DIRECTORY_SEP (p[2]) |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1644 || p[2] == 0)) |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1645 { |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1646 /* If "/." is the entire filename, keep the "/". Otherwise, |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1647 just delete the whole "/.". */ |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1648 if (o == target && p[2] == '\0') |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1649 *o++ = *p; |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1650 p += 2; |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1651 } |
68118
8b817a6ceff5
(Fexpand_file_name): Remove redundant tests. Fix elimination of // so that
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67495
diff
changeset
|
1652 else if (p[1] == '.' && p[2] == '.' |
62589
12b3cd6b8467
(Fexpand_file_name) [DOS_NT]: Don't try to support "superroot"
Eli Zaretskii <eliz@gnu.org>
parents:
62299
diff
changeset
|
1653 /* `/../' is the "superroot" on certain file systems. |
12b3cd6b8467
(Fexpand_file_name) [DOS_NT]: Don't try to support "superroot"
Eli Zaretskii <eliz@gnu.org>
parents:
62299
diff
changeset
|
1654 Turned off on DOS_NT systems because they have no |
12b3cd6b8467
(Fexpand_file_name) [DOS_NT]: Don't try to support "superroot"
Eli Zaretskii <eliz@gnu.org>
parents:
62299
diff
changeset
|
1655 "superroot" and because this causes us to produce |
12b3cd6b8467
(Fexpand_file_name) [DOS_NT]: Don't try to support "superroot"
Eli Zaretskii <eliz@gnu.org>
parents:
62299
diff
changeset
|
1656 file names like "d:/../foo" which fail file-related |
12b3cd6b8467
(Fexpand_file_name) [DOS_NT]: Don't try to support "superroot"
Eli Zaretskii <eliz@gnu.org>
parents:
62299
diff
changeset
|
1657 functions of the underlying OS. (To reproduce, try a |
12b3cd6b8467
(Fexpand_file_name) [DOS_NT]: Don't try to support "superroot"
Eli Zaretskii <eliz@gnu.org>
parents:
62299
diff
changeset
|
1658 long series of "../../" in default_directory, longer |
12b3cd6b8467
(Fexpand_file_name) [DOS_NT]: Don't try to support "superroot"
Eli Zaretskii <eliz@gnu.org>
parents:
62299
diff
changeset
|
1659 than the number of levels from the root.) */ |
12b3cd6b8467
(Fexpand_file_name) [DOS_NT]: Don't try to support "superroot"
Eli Zaretskii <eliz@gnu.org>
parents:
62299
diff
changeset
|
1660 #ifndef DOS_NT |
230 | 1661 && o != target |
62589
12b3cd6b8467
(Fexpand_file_name) [DOS_NT]: Don't try to support "superroot"
Eli Zaretskii <eliz@gnu.org>
parents:
62299
diff
changeset
|
1662 #endif |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1663 && (IS_DIRECTORY_SEP (p[3]) || p[3] == 0)) |
230 | 1664 { |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1665 while (o != target && (--o) && !IS_DIRECTORY_SEP (*o)) |
230 | 1666 ; |
17503
ba848dceb1c9
(Fexpand_file_name): Fix expansion of "/foo/../".
Richard M. Stallman <rms@gnu.org>
parents:
17396
diff
changeset
|
1667 /* Keep initial / only if this is the whole name. */ |
ba848dceb1c9
(Fexpand_file_name): Fix expansion of "/foo/../".
Richard M. Stallman <rms@gnu.org>
parents:
17396
diff
changeset
|
1668 if (o == target && IS_ANY_SEP (*o) && p[3] == 0) |
15427
97557b39e3b7
(Fexpand_file_name): When simplifying /foo/.., keep the initial slash.
Richard M. Stallman <rms@gnu.org>
parents:
15343
diff
changeset
|
1669 ++o; |
230 | 1670 p += 3; |
1671 } | |
68118
8b817a6ceff5
(Fexpand_file_name): Remove redundant tests. Fix elimination of // so that
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67495
diff
changeset
|
1672 else if (p > target && IS_DIRECTORY_SEP (p[1])) |
8b817a6ceff5
(Fexpand_file_name): Remove redundant tests. Fix elimination of // so that
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67495
diff
changeset
|
1673 /* Collapse multiple `/' in a row. */ |
8b817a6ceff5
(Fexpand_file_name): Remove redundant tests. Fix elimination of // so that
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67495
diff
changeset
|
1674 p++; |
230 | 1675 else |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1676 { |
230 | 1677 *o++ = *p++; |
1678 } | |
1679 #endif /* not VMS */ | |
1680 } | |
1681 | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1682 #ifdef DOS_NT |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1683 /* At last, set drive name. */ |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1684 #ifdef WINDOWSNT |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1685 /* Except for network file name. */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1686 if (!(IS_DIRECTORY_SEP (target[0]) && IS_DIRECTORY_SEP (target[1]))) |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1687 #endif /* WINDOWSNT */ |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
1688 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1689 if (!drive) abort (); |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
1690 target -= 2; |
15324
6fd4e01fd332
(DRIVE_LETTER): [DOS_NT] New macro.
Richard M. Stallman <rms@gnu.org>
parents:
15313
diff
changeset
|
1691 target[0] = DRIVE_LETTER (drive); |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
1692 target[1] = ':'; |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
1693 } |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1694 /* Reinsert the escape prefix if required. */ |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1695 if (is_escaped) |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1696 { |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1697 target -= 2; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1698 target[0] = '/'; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1699 target[1] = ':'; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1700 } |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1701 CORRECT_DIR_SEPS (target); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1702 #endif /* DOS_NT */ |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
1703 |
65504
85da96d43f19
(Fexpand_file_name): Check multibyteness of
Kenichi Handa <handa@m17n.org>
parents:
65466
diff
changeset
|
1704 result = make_specified_string (target, -1, o - target, multibyte); |
50340
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1705 |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1706 /* Again look to see if the file name has special constructs in it |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1707 and perhaps call the corresponding file handler. This is needed |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1708 for filenames such as "/foo/../user@host:/bar/../baz". Expanding |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1709 the ".." component gives us "/user@host:/bar/../baz" which needs |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1710 to be expanded again. */ |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1711 handler = Ffind_file_name_handler (result, Qexpand_file_name); |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1712 if (!NILP (handler)) |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1713 return call3 (handler, Qexpand_file_name, result, default_directory); |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1714 |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1715 return result; |
230 | 1716 } |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1717 |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1718 #if 0 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1719 /* PLEASE DO NOT DELETE THIS COMMENTED-OUT VERSION! |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1720 This is the old version of expand-file-name, before it was thoroughly |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1721 rewritten for Emacs 10.31. We leave this version here commented-out, |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1722 because the code is very complex and likely to have subtle bugs. If |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1723 bugs _are_ found, it might be of interest to look at the old code and |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1724 see what did it do in the relevant situation. |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1725 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1726 Don't remove this code: it's true that it will be accessible via CVS, |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1727 but a few years from deletion, people will forget it is there. */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1728 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1729 /* Changed this DEFUN to a DEAFUN, so as not to confuse `make-docfile'. */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1730 DEAFUN ("expand-file-name", Fexpand_file_name, Sexpand_file_name, 1, 2, 0, |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1731 "Convert FILENAME to absolute, and canonicalize it.\n\ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1732 Second arg DEFAULT is directory to start with if FILENAME is relative\n\ |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1733 \(does not start with slash); if DEFAULT is nil or missing,\n\ |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1734 the current buffer's value of default-directory is used.\n\ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1735 Filenames containing `.' or `..' as components are simplified;\n\ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1736 initial `~/' expands to your home directory.\n\ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1737 See also the function `substitute-in-file-name'.") |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1738 (name, defalt) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1739 Lisp_Object name, defalt; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1740 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1741 unsigned char *nm; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1742 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1743 register unsigned char *newdir, *p, *o; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1744 int tlen; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1745 unsigned char *target; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1746 struct passwd *pw; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1747 int lose; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1748 #ifdef VMS |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1749 unsigned char * colon = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1750 unsigned char * close = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1751 unsigned char * slash = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1752 unsigned char * brack = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1753 int lbrack = 0, rbrack = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1754 int dots = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1755 #endif /* VMS */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1756 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
1757 CHECK_STRING (name); |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1758 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1759 #ifdef VMS |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1760 /* Filenames on VMS are always upper case. */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1761 name = Fupcase (name); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1762 #endif |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1763 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1764 nm = SDATA (name); |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1765 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1766 /* If nm is absolute, flush ...// and detect /./ and /../. |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1767 If no /./ or /../ we can return right away. */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1768 if ( |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1769 nm[0] == '/' |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1770 #ifdef VMS |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1771 || index (nm, ':') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1772 #endif /* VMS */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1773 ) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1774 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1775 p = nm; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1776 lose = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1777 while (*p) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1778 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1779 if (p[0] == '/' && p[1] == '/' |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1780 ) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1781 nm = p + 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1782 if (p[0] == '/' && p[1] == '~') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1783 nm = p + 1, lose = 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1784 if (p[0] == '/' && p[1] == '.' |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1785 && (p[2] == '/' || p[2] == 0 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1786 || (p[2] == '.' && (p[3] == '/' || p[3] == 0)))) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1787 lose = 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1788 #ifdef VMS |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1789 if (p[0] == '\\') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1790 lose = 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1791 if (p[0] == '/') { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1792 /* if dev:[dir]/, move nm to / */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1793 if (!slash && p > nm && (brack || colon)) { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1794 nm = (brack ? brack + 1 : colon + 1); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1795 lbrack = rbrack = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1796 brack = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1797 colon = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1798 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1799 slash = p; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1800 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1801 if (p[0] == '-') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1802 #ifndef VMS4_4 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1803 /* VMS pre V4.4,convert '-'s in filenames. */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1804 if (lbrack == rbrack) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1805 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1806 if (dots < 2) /* this is to allow negative version numbers */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1807 p[0] = '_'; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1808 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1809 else |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1810 #endif /* VMS4_4 */ |
74108
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1811 if (lbrack > rbrack |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1812 && ((p[-1] == '.' || p[-1] == '[' || p[-1] == '<') |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1813 && (p[1] == '.' || p[1] == ']' || p[1] == '>'))) |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1814 lose = 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1815 #ifndef VMS4_4 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1816 else |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1817 p[0] = '_'; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1818 #endif /* VMS4_4 */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1819 /* count open brackets, reset close bracket pointer */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1820 if (p[0] == '[' || p[0] == '<') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1821 lbrack++, brack = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1822 /* count close brackets, set close bracket pointer */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1823 if (p[0] == ']' || p[0] == '>') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1824 rbrack++, brack = p; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1825 /* detect ][ or >< */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1826 if ((p[0] == ']' || p[0] == '>') && (p[1] == '[' || p[1] == '<')) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1827 lose = 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1828 if ((p[0] == ':' || p[0] == ']' || p[0] == '>') && p[1] == '~') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1829 nm = p + 1, lose = 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1830 if (p[0] == ':' && (colon || slash)) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1831 /* if dev1:[dir]dev2:, move nm to dev2: */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1832 if (brack) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1833 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1834 nm = brack + 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1835 brack = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1836 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1837 /* If /name/dev:, move nm to dev: */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1838 else if (slash) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1839 nm = slash + 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1840 /* If node::dev:, move colon following dev */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1841 else if (colon && colon[-1] == ':') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1842 colon = p; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1843 /* If dev1:dev2:, move nm to dev2: */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1844 else if (colon && colon[-1] != ':') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1845 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1846 nm = colon + 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1847 colon = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1848 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1849 if (p[0] == ':' && !colon) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1850 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1851 if (p[1] == ':') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1852 p++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1853 colon = p; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1854 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1855 if (lbrack == rbrack) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1856 if (p[0] == ';') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1857 dots = 2; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1858 else if (p[0] == '.') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1859 dots++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1860 #endif /* VMS */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1861 p++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1862 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1863 if (!lose) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1864 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1865 #ifdef VMS |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1866 if (index (nm, '/')) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1867 return build_string (sys_translate_unix (nm)); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1868 #endif /* VMS */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1869 if (nm == SDATA (name)) |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1870 return name; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1871 return build_string (nm); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1872 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1873 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1874 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1875 /* Now determine directory to start with and put it in NEWDIR */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1876 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1877 newdir = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1878 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1879 if (nm[0] == '~') /* prefix ~ */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1880 if (nm[1] == '/' |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1881 #ifdef VMS |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1882 || nm[1] == ':' |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1883 #endif /* VMS */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1884 || nm[1] == 0)/* ~/filename */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1885 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1886 if (!(newdir = (unsigned char *) egetenv ("HOME"))) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1887 newdir = (unsigned char *) ""; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1888 nm++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1889 #ifdef VMS |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1890 nm++; /* Don't leave the slash in nm. */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1891 #endif /* VMS */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1892 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1893 else /* ~user/filename */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1894 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1895 /* Get past ~ to user */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1896 unsigned char *user = nm + 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1897 /* Find end of name. */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1898 unsigned char *ptr = (unsigned char *) index (user, '/'); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1899 int len = ptr ? ptr - user : strlen (user); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1900 #ifdef VMS |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1901 unsigned char *ptr1 = index (user, ':'); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1902 if (ptr1 != 0 && ptr1 - user < len) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1903 len = ptr1 - user; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1904 #endif /* VMS */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1905 /* Copy the user name into temp storage. */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1906 o = (unsigned char *) alloca (len + 1); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1907 bcopy ((char *) user, o, len); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1908 o[len] = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1909 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1910 /* Look up the user name. */ |
71818
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
1911 BLOCK_INPUT; |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1912 pw = (struct passwd *) getpwnam (o + 1); |
71818
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
1913 UNBLOCK_INPUT; |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1914 if (!pw) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1915 error ("\"%s\" isn't a registered user", o + 1); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1916 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1917 newdir = (unsigned char *) pw->pw_dir; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1918 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1919 /* Discard the user name from NM. */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1920 nm += len; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1921 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1922 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1923 if (nm[0] != '/' |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1924 #ifdef VMS |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1925 && !index (nm, ':') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1926 #endif /* not VMS */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1927 && !newdir) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1928 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1929 if (NILP (defalt)) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1930 defalt = current_buffer->directory; |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
1931 CHECK_STRING (defalt); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1932 newdir = SDATA (defalt); |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1933 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1934 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1935 /* Now concatenate the directory and name to new space in the stack frame */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1936 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1937 tlen = (newdir ? strlen (newdir) + 1 : 0) + strlen (nm) + 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1938 target = (unsigned char *) alloca (tlen); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1939 *target = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1940 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1941 if (newdir) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1942 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1943 #ifndef VMS |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1944 if (nm[0] == 0 || nm[0] == '/') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1945 strcpy (target, newdir); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1946 else |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1947 #endif |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1948 file_name_as_directory (target, newdir); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1949 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1950 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1951 strcat (target, nm); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1952 #ifdef VMS |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1953 if (index (target, '/')) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1954 strcpy (target, sys_translate_unix (target)); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1955 #endif /* VMS */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1956 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1957 /* Now canonicalize by removing /. and /foo/.. if they appear */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1958 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1959 p = target; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1960 o = target; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1961 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1962 while (*p) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1963 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1964 #ifdef VMS |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1965 if (*p != ']' && *p != '>' && *p != '-') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1966 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1967 if (*p == '\\') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1968 p++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1969 *o++ = *p++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1970 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1971 else if ((p[0] == ']' || p[0] == '>') && p[0] == p[1] + 2) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1972 /* brackets are offset from each other by 2 */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1973 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1974 p += 2; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1975 if (*p != '.' && *p != '-' && o[-1] != '.') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1976 /* convert [foo][bar] to [bar] */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1977 while (o[-1] != '[' && o[-1] != '<') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1978 o--; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1979 else if (*p == '-' && *o != '.') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1980 *--p = '.'; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1981 } |
74108
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1982 else if (p[0] == '-' && o[-1] == '.' |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1983 && (p[1] == '.' || p[1] == ']' || p[1] == '>')) |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1984 /* flush .foo.- ; leave - if stopped by '[' or '<' */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1985 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1986 do |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1987 o--; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1988 while (o[-1] != '.' && o[-1] != '[' && o[-1] != '<'); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1989 if (p[1] == '.') /* foo.-.bar ==> bar. */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1990 p += 2; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1991 else if (o[-1] == '.') /* '.foo.-]' ==> ']' */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1992 p++, o--; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1993 /* else [foo.-] ==> [-] */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1994 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1995 else |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1996 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1997 #ifndef VMS4_4 |
74108
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1998 if (*p == '-' |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1999 && o[-1] != '[' && o[-1] != '<' && o[-1] != '.' |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
2000 && p[1] != ']' && p[1] != '>' && p[1] != '.') |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2001 *p = '_'; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2002 #endif /* VMS4_4 */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2003 *o++ = *p++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2004 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2005 #else /* not VMS */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2006 if (*p != '/') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2007 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2008 *o++ = *p++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2009 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2010 else if (!strncmp (p, "//", 2) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2011 ) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2012 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2013 o = target; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2014 p++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2015 } |
74108
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
2016 else if (p[0] == '/' && p[1] == '.' |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
2017 && (p[2] == '/' || p[2] == 0)) |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2018 p += 2; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2019 else if (!strncmp (p, "/..", 3) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2020 /* `/../' is the "superroot" on certain file systems. */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2021 && o != target |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2022 && (p[3] == '/' || p[3] == 0)) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2023 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2024 while (o != target && *--o != '/') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2025 ; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2026 if (o == target && *o == '/') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2027 ++o; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2028 p += 3; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2029 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2030 else |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2031 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2032 *o++ = *p++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2033 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2034 #endif /* not VMS */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2035 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2036 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2037 return make_string (target, o - target); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2038 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
2039 #endif |
230 | 2040 |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2041 /* If /~ or // appears, discard everything through first slash. */ |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2042 static int |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2043 file_name_absolute_p (filename) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2044 const unsigned char *filename; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2045 { |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2046 return |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2047 (IS_DIRECTORY_SEP (*filename) || *filename == '~' |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2048 #ifdef VMS |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2049 /* ??? This criterion is probably wrong for '<'. */ |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2050 || index (filename, ':') || index (filename, '<') |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2051 || (*filename == '[' && (filename[1] != '-' |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2052 || (filename[2] != '.' && filename[2] != ']')) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2053 && filename[1] != '.') |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2054 #endif /* VMS */ |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2055 #ifdef DOS_NT |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2056 || (IS_DRIVE (*filename) && IS_DEVICE_SEP (filename[1]) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2057 && IS_DIRECTORY_SEP (filename[2])) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2058 #endif |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2059 ); |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2060 } |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2061 |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2062 static unsigned char * |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2063 search_embedded_absfilename (nm, endp) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2064 unsigned char *nm, *endp; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2065 { |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2066 unsigned char *p, *s; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2067 |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2068 for (p = nm + 1; p < endp; p++) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2069 { |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2070 if ((0 |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2071 #ifdef VMS |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2072 || p[-1] == ':' || p[-1] == ']' || p[-1] == '>' |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2073 #endif /* VMS */ |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2074 || IS_DIRECTORY_SEP (p[-1])) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2075 && file_name_absolute_p (p) |
87730 | 2076 #if defined (WINDOWSNT) || defined(CYGWIN) |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2077 /* // at start of file name is meaningful in Apollo, |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2078 WindowsNT and Cygwin systems. */ |
61151
be58652085b8
(search_embedded_absfilename): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61060
diff
changeset
|
2079 && !(IS_DIRECTORY_SEP (p[0]) && p - 1 == nm) |
87730 | 2080 #endif /* not (WINDOWSNT || CYGWIN) */ |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2081 ) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2082 { |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2083 for (s = p; *s && (!IS_DIRECTORY_SEP (*s) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2084 #ifdef VMS |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2085 && *s != ':' |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2086 #endif /* VMS */ |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2087 ); s++); |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2088 if (p[0] == '~' && s > p + 1) /* we've got "/~something/" */ |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2089 { |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2090 unsigned char *o = alloca (s - p + 1); |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2091 struct passwd *pw; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2092 bcopy (p, o, s - p); |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2093 o [s - p] = 0; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2094 |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2095 /* If we have ~user and `user' exists, discard |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2096 everything up to ~. But if `user' does not exist, leave |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2097 ~user alone, it might be a literal file name. */ |
71818
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
2098 BLOCK_INPUT; |
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
2099 pw = getpwnam (o + 1); |
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
2100 UNBLOCK_INPUT; |
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
2101 if (pw) |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2102 return p; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2103 } |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2104 else |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2105 return p; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2106 } |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2107 } |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2108 return NULL; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2109 } |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2110 |
230 | 2111 DEFUN ("substitute-in-file-name", Fsubstitute_in_file_name, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2112 Ssubstitute_in_file_name, 1, 1, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2113 doc: /* Substitute environment variables referred to in FILENAME. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2114 `$FOO' where FOO is an environment variable name means to substitute |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2115 the value of that variable. The variable name should be terminated |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2116 with a character not a letter, digit or underscore; otherwise, enclose |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2117 the entire variable name in braces. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2118 If `/~' appears, all of FILENAME through that `/' is discarded. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2119 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2120 On VMS, `$' substitution is not done; this function does little and only |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2121 duplicates what `expand-file-name' does. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2122 (filename) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2123 Lisp_Object filename; |
230 | 2124 { |
2125 unsigned char *nm; | |
2126 | |
2127 register unsigned char *s, *p, *o, *x, *endp; | |
31829
43566b0aec59
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31775
diff
changeset
|
2128 unsigned char *target = NULL; |
230 | 2129 int total = 0; |
2130 int substituted = 0; | |
2131 unsigned char *xnm; | |
9955
dfb5d7e86733
(Fread_file_name_internal): Protect orig_string.
Richard M. Stallman <rms@gnu.org>
parents:
9921
diff
changeset
|
2132 Lisp_Object handler; |
230 | 2133 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2134 CHECK_STRING (filename); |
230 | 2135 |
9955
dfb5d7e86733
(Fread_file_name_internal): Protect orig_string.
Richard M. Stallman <rms@gnu.org>
parents:
9921
diff
changeset
|
2136 /* If the file name has special constructs in it, |
dfb5d7e86733
(Fread_file_name_internal): Protect orig_string.
Richard M. Stallman <rms@gnu.org>
parents:
9921
diff
changeset
|
2137 call the corresponding file handler. */ |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2138 handler = Ffind_file_name_handler (filename, Qsubstitute_in_file_name); |
9955
dfb5d7e86733
(Fread_file_name_internal): Protect orig_string.
Richard M. Stallman <rms@gnu.org>
parents:
9921
diff
changeset
|
2139 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2140 return call2 (handler, Qsubstitute_in_file_name, filename); |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2141 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2142 nm = SDATA (filename); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2143 #ifdef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2144 nm = strcpy (alloca (strlen (nm) + 1), nm); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2145 CORRECT_DIR_SEPS (nm); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2146 substituted = (strcmp (nm, SDATA (filename)) != 0); |
8185
b5cc015a3698
(Ffile_name_directory, Ffile_name_nondirectory,
Richard M. Stallman <rms@gnu.org>
parents:
8079
diff
changeset
|
2147 #endif |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2148 endp = nm + SBYTES (filename); |
230 | 2149 |
19754
380cbf03df01
(Fexpand_file_name): If default dir isn't string, use `/'.
Richard M. Stallman <rms@gnu.org>
parents:
19695
diff
changeset
|
2150 /* If /~ or // appears, discard everything through first slash. */ |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2151 p = search_embedded_absfilename (nm, endp); |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2152 if (p) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2153 /* Start over with the new string, so we check the file-name-handler |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2154 again. Important with filenames like "/home/foo//:/hello///there" |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2155 which whould substitute to "/:/hello///there" rather than "/there". */ |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2156 return Fsubstitute_in_file_name |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2157 (make_specified_string (p, -1, endp - p, |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2158 STRING_MULTIBYTE (filename))); |
230 | 2159 |
2160 #ifdef VMS | |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2161 return filename; |
230 | 2162 #else |
2163 | |
2164 /* See if any variables are substituted into the string | |
2165 and find the total length of their values in `total' */ | |
2166 | |
2167 for (p = nm; p != endp;) | |
2168 if (*p != '$') | |
2169 p++; | |
2170 else | |
2171 { | |
2172 p++; | |
2173 if (p == endp) | |
2174 goto badsubst; | |
2175 else if (*p == '$') | |
2176 { | |
2177 /* "$$" means a single "$" */ | |
2178 p++; | |
2179 total -= 1; | |
2180 substituted = 1; | |
2181 continue; | |
2182 } | |
2183 else if (*p == '{') | |
2184 { | |
2185 o = ++p; | |
2186 while (p != endp && *p != '}') p++; | |
2187 if (*p != '}') goto missingclose; | |
2188 s = p; | |
2189 } | |
2190 else | |
2191 { | |
2192 o = p; | |
2193 while (p != endp && (isalnum (*p) || *p == '_')) p++; | |
2194 s = p; | |
2195 } | |
2196 | |
2197 /* Copy out the variable name */ | |
2198 target = (unsigned char *) alloca (s - o + 1); | |
2199 strncpy (target, o, s - o); | |
2200 target[s - o] = 0; | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2201 #ifdef DOS_NT |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
2202 strupr (target); /* $home == $HOME etc. */ |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2203 #endif /* DOS_NT */ |
230 | 2204 |
2205 /* Get variable value */ | |
2206 o = (unsigned char *) egetenv (target); | |
41595
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
2207 if (o) |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
2208 { |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
2209 total += strlen (o); |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
2210 substituted = 1; |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
2211 } |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
2212 else if (*p == '}') |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
2213 goto badvar; |
230 | 2214 } |
2215 | |
2216 if (!substituted) | |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2217 return filename; |
230 | 2218 |
2219 /* If substitution required, recopy the string and do it */ | |
2220 /* Make space in stack frame for the new copy */ | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2221 xnm = (unsigned char *) alloca (SBYTES (filename) + total + 1); |
230 | 2222 x = xnm; |
2223 | |
2224 /* Copy the rest of the name through, replacing $ constructs with values */ | |
2225 for (p = nm; *p;) | |
2226 if (*p != '$') | |
2227 *x++ = *p++; | |
2228 else | |
2229 { | |
2230 p++; | |
2231 if (p == endp) | |
2232 goto badsubst; | |
2233 else if (*p == '$') | |
2234 { | |
2235 *x++ = *p++; | |
2236 continue; | |
2237 } | |
2238 else if (*p == '{') | |
2239 { | |
2240 o = ++p; | |
2241 while (p != endp && *p != '}') p++; | |
2242 if (*p != '}') goto missingclose; | |
2243 s = p++; | |
2244 } | |
2245 else | |
2246 { | |
2247 o = p; | |
2248 while (p != endp && (isalnum (*p) || *p == '_')) p++; | |
2249 s = p; | |
2250 } | |
2251 | |
2252 /* Copy out the variable name */ | |
2253 target = (unsigned char *) alloca (s - o + 1); | |
2254 strncpy (target, o, s - o); | |
2255 target[s - o] = 0; | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2256 #ifdef DOS_NT |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
2257 strupr (target); /* $home == $HOME etc. */ |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2258 #endif /* DOS_NT */ |
230 | 2259 |
2260 /* Get variable value */ | |
2261 o = (unsigned char *) egetenv (target); | |
2262 if (!o) | |
41595
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
2263 { |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
2264 *x++ = '$'; |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
2265 strcpy (x, target); x+= strlen (target); |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
2266 } |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
2267 else if (STRING_MULTIBYTE (filename)) |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
2268 { |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
2269 /* If the original string is multibyte, |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
2270 convert what we substitute into multibyte. */ |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
2271 while (*o) |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
2272 { |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
2273 int c = unibyte_char_to_multibyte (*o++); |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
2274 x += CHAR_STRING (c, x); |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
2275 } |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
2276 } |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
2277 else |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
2278 { |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
2279 strcpy (x, o); |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
2280 x += strlen (o); |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
2281 } |
230 | 2282 } |
2283 | |
2284 *x = 0; | |
2285 | |
19754
380cbf03df01
(Fexpand_file_name): If default dir isn't string, use `/'.
Richard M. Stallman <rms@gnu.org>
parents:
19695
diff
changeset
|
2286 /* If /~ or // appears, discard everything through first slash. */ |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2287 while ((p = search_embedded_absfilename (xnm, x))) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2288 /* This time we do not start over because we've already expanded envvars |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2289 and replaced $$ with $. Maybe we should start over as well, but we'd |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2290 need to quote some $ to $$ first. */ |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2291 xnm = p; |
230 | 2292 |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
2293 return make_specified_string (xnm, -1, x - xnm, STRING_MULTIBYTE (filename)); |
230 | 2294 |
2295 badsubst: | |
2296 error ("Bad format environment-variable substitution"); | |
2297 missingclose: | |
2298 error ("Missing \"}\" in environment-variable substitution"); | |
2299 badvar: | |
2300 error ("Substituting nonexistent environment variable \"%s\"", target); | |
2301 | |
2302 /* NOTREACHED */ | |
2303 #endif /* not VMS */ | |
31829
43566b0aec59
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31775
diff
changeset
|
2304 return Qnil; |
230 | 2305 } |
2306 | |
853 | 2307 /* A slightly faster and more convenient way to get |
4451
73b91cd2c55e
(expand_and_dir_to_file): Remove final / by copying abspath.
Richard M. Stallman <rms@gnu.org>
parents:
4395
diff
changeset
|
2308 (directory-file-name (expand-file-name FOO)). */ |
853 | 2309 |
230 | 2310 Lisp_Object |
2311 expand_and_dir_to_file (filename, defdir) | |
2312 Lisp_Object filename, defdir; | |
2313 { | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2314 register Lisp_Object absname; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2315 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2316 absname = Fexpand_file_name (filename, defdir); |
230 | 2317 #ifdef VMS |
2318 { | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2319 register int c = SREF (absname, SBYTES (absname) - 1); |
230 | 2320 if (c == ':' || c == ']' || c == '>') |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2321 absname = Fdirectory_file_name (absname); |
230 | 2322 } |
2323 #else | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2324 /* Remove final slash, if any (unless this is the root dir). |
230 | 2325 stat behaves differently depending! */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2326 if (SCHARS (absname) > 1 |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2327 && IS_DIRECTORY_SEP (SREF (absname, SBYTES (absname) - 1)) |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2328 && !IS_DEVICE_SEP (SREF (absname, SBYTES (absname)-2))) |
4483
6894dd27c9ec
(expand_and_dir_to_file): Use Fdirectory_file_name.
Richard M. Stallman <rms@gnu.org>
parents:
4451
diff
changeset
|
2329 /* We cannot take shortcuts; they might be wrong for magic file names. */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2330 absname = Fdirectory_file_name (absname); |
230 | 2331 #endif |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2332 return absname; |
230 | 2333 } |
2334 | |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2335 /* Signal an error if the file ABSNAME already exists. |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2336 If INTERACTIVE is nonzero, ask the user whether to proceed, |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2337 and bypass the error if the user says to go ahead. |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2338 QUERYSTRING is a name for the action that is being considered |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2339 to alter the file. |
21020
f7ace8487b28
(auto_save_1): Pass new arg to Fwrite_region.
Richard M. Stallman <rms@gnu.org>
parents:
20944
diff
changeset
|
2340 |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2341 *STATPTR is used to store the stat information if the file exists. |
21020
f7ace8487b28
(auto_save_1): Pass new arg to Fwrite_region.
Richard M. Stallman <rms@gnu.org>
parents:
20944
diff
changeset
|
2342 If the file does not exist, STATPTR->st_mode is set to 0. |
21304
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2343 If STATPTR is null, we don't store into it. |
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2344 |
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2345 If QUICK is nonzero, we ask for y or n, not yes or no. */ |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2346 |
8846
6bf0ce964319
(barf_or_query_if_file_exists): Fix declaration.
Karl Heuer <kwzh@gnu.org>
parents:
8808
diff
changeset
|
2347 void |
21304
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2348 barf_or_query_if_file_exists (absname, querystring, interactive, statptr, quick) |
230 | 2349 Lisp_Object absname; |
2350 unsigned char *querystring; | |
2351 int interactive; | |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2352 struct stat *statptr; |
21304
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2353 int quick; |
230 | 2354 { |
21949
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
2355 register Lisp_Object tem, encoded_filename; |
8597 | 2356 struct stat statbuf; |
230 | 2357 struct gcpro gcpro1; |
2358 | |
21949
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
2359 encoded_filename = ENCODE_FILE (absname); |
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
2360 |
8597 | 2361 /* stat is a good way to tell whether the file exists, |
2362 regardless of what access permissions it has. */ | |
55364
1d5e786cd260
* fileio.c (barf_or_query_if_file_exists): Use lstat.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55194
diff
changeset
|
2363 if (lstat (SDATA (encoded_filename), &statbuf) >= 0) |
230 | 2364 { |
2365 if (! interactive) | |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2366 xsignal2 (Qfile_already_exists, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2367 build_string ("File already exists"), absname); |
230 | 2368 GCPRO1 (absname); |
49445
643eb4ccb3a3
(barf_or_query_if_file_exists): Call format2 instead of format1.
Richard M. Stallman <rms@gnu.org>
parents:
49322
diff
changeset
|
2369 tem = format2 ("File %s already exists; %s anyway? ", |
643eb4ccb3a3
(barf_or_query_if_file_exists): Call format2 instead of format1.
Richard M. Stallman <rms@gnu.org>
parents:
49322
diff
changeset
|
2370 absname, build_string (querystring)); |
21304
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2371 if (quick) |
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2372 tem = Fy_or_n_p (tem); |
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2373 else |
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2374 tem = do_yes_or_no_p (tem); |
230 | 2375 UNGCPRO; |
485 | 2376 if (NILP (tem)) |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2377 xsignal2 (Qfile_already_exists, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2378 build_string ("File already exists"), absname); |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2379 if (statptr) |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2380 *statptr = statbuf; |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2381 } |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2382 else |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2383 { |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2384 if (statptr) |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2385 statptr->st_mode = 0; |
230 | 2386 } |
2387 return; | |
2388 } | |
2389 | |
70960
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2390 DEFUN ("copy-file", Fcopy_file, Scopy_file, 2, 5, |
60682
3f5458d947ec
(Fcopy_file, Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60574
diff
changeset
|
2391 "fCopy file: \nGCopy %s to file: \np\nP", |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2392 doc: /* Copy FILE to NEWNAME. Both args must be strings. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2393 If NEWNAME names a directory, copy FILE there. |
70960
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2394 |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2395 This function always sets the file modes of the output file to match |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2396 the input file. |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2397 |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2398 The optional third argument OK-IF-ALREADY-EXISTS specifies what to do |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2399 if file NEWNAME already exists. If OK-IF-ALREADY-EXISTS is nil, we |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2400 signal a `file-already-exists' error without overwriting. If |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2401 OK-IF-ALREADY-EXISTS is a number, we request confirmation from the user |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2402 about overwriting; this is what happens in interactive use with M-x. |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2403 Any other value for OK-IF-ALREADY-EXISTS means to overwrite the |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2404 existing file. |
61756
f53a54e241e5
(Fcopy_file): New arg MUSTBENEW.
Richard M. Stallman <rms@gnu.org>
parents:
61700
diff
changeset
|
2405 |
59671 | 2406 Fourth arg KEEP-TIME non-nil means give the output file the same |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2407 last-modified time as the old one. (This works on only some systems.) |
61789 | 2408 |
2409 A prefix arg makes KEEP-TIME non-nil. | |
2410 | |
63773
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2411 If PRESERVE-UID-GID is non-nil, we try to transfer the |
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2412 uid and gid of FILE to NEWNAME. */) |
70960
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2413 (file, newname, ok_if_already_exists, keep_time, preserve_uid_gid) |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2414 Lisp_Object file, newname, ok_if_already_exists, keep_time; |
63773
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2415 Lisp_Object preserve_uid_gid; |
230 | 2416 { |
2417 int ifd, ofd, n; | |
2418 char buf[16 * 1024]; | |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2419 struct stat st, out_st; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2420 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2421 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
2422 int count = SPECPDL_INDEX (); |
4879
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2423 int input_file_statable_p; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2424 Lisp_Object encoded_file, encoded_newname; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2425 |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2426 encoded_file = encoded_newname = Qnil; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2427 GCPRO4 (file, newname, encoded_file, encoded_newname); |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2428 CHECK_STRING (file); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2429 CHECK_STRING (newname); |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2430 |
39603
5d5957da979a
(Fcopy_file): If NEWNAME is a directory copy FILE there.
Gerd Moellmann <gerd@gnu.org>
parents:
39457
diff
changeset
|
2431 if (!NILP (Ffile_directory_p (newname))) |
53780
6c059bf40adc
(Fcopy_file): If NEWNAME is a directory, expand the
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53764
diff
changeset
|
2432 newname = Fexpand_file_name (Ffile_name_nondirectory (file), newname); |
39603
5d5957da979a
(Fcopy_file): If NEWNAME is a directory copy FILE there.
Gerd Moellmann <gerd@gnu.org>
parents:
39457
diff
changeset
|
2433 else |
5d5957da979a
(Fcopy_file): If NEWNAME is a directory copy FILE there.
Gerd Moellmann <gerd@gnu.org>
parents:
39457
diff
changeset
|
2434 newname = Fexpand_file_name (newname, Qnil); |
5d5957da979a
(Fcopy_file): If NEWNAME is a directory copy FILE there.
Gerd Moellmann <gerd@gnu.org>
parents:
39457
diff
changeset
|
2435 |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2436 file = Fexpand_file_name (file, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2437 |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
2438 /* If the input file name has special constructs in it, |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2439 call the corresponding file handler. */ |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2440 handler = Ffind_file_name_handler (file, Qcopy_file); |
3705
309c27256ceb
(Fcopy_file): Pass all the args to the handler.
Richard M. Stallman <rms@gnu.org>
parents:
3598
diff
changeset
|
2441 /* Likewise for output file name. */ |
309c27256ceb
(Fcopy_file): Pass all the args to the handler.
Richard M. Stallman <rms@gnu.org>
parents:
3598
diff
changeset
|
2442 if (NILP (handler)) |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
2443 handler = Ffind_file_name_handler (newname, Qcopy_file); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2444 if (!NILP (handler)) |
85506
b31c7731df51
* fileio.c (Fcopy_file): Call file name handler with preserve_uid_gid.
Michael Albinus <michael.albinus@gmx.de>
parents:
85335
diff
changeset
|
2445 RETURN_UNGCPRO (call6 (handler, Qcopy_file, file, newname, |
b31c7731df51
* fileio.c (Fcopy_file): Call file name handler with preserve_uid_gid.
Michael Albinus <michael.albinus@gmx.de>
parents:
85335
diff
changeset
|
2446 ok_if_already_exists, keep_time, preserve_uid_gid)); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2447 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2448 encoded_file = ENCODE_FILE (file); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2449 encoded_newname = ENCODE_FILE (newname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2450 |
485 | 2451 if (NILP (ok_if_already_exists) |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
2452 || INTEGERP (ok_if_already_exists)) |
76664
0e62a7c60f43
(Fcopy_file): Call barf_or_query_if_file_exists with
Kenichi Handa <handa@m17n.org>
parents:
76622
diff
changeset
|
2453 barf_or_query_if_file_exists (newname, "copy to it", |
21304
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2454 INTEGERP (ok_if_already_exists), &out_st, 0); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2455 else if (stat (SDATA (encoded_newname), &out_st) < 0) |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2456 out_st.st_mode = 0; |
230 | 2457 |
37292
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
2458 #ifdef WINDOWSNT |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2459 if (!CopyFile (SDATA (encoded_file), |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2460 SDATA (encoded_newname), |
37292
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
2461 FALSE)) |
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
2462 report_file_error ("Copying file", Fcons (file, Fcons (newname, Qnil))); |
49557
8fbfb61ab3f4
(Fcopy_file) [WINDOWSNT]: Reverse logic for setting
Jason Rumney <jasonr@gnu.org>
parents:
49549
diff
changeset
|
2463 /* CopyFile retains the timestamp by default. */ |
8fbfb61ab3f4
(Fcopy_file) [WINDOWSNT]: Reverse logic for setting
Jason Rumney <jasonr@gnu.org>
parents:
49549
diff
changeset
|
2464 else if (NILP (keep_time)) |
37292
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
2465 { |
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
2466 EMACS_TIME now; |
43792
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2467 DWORD attributes; |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2468 char * filename; |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2469 |
37292
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
2470 EMACS_GET_TIME (now); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2471 filename = SDATA (encoded_newname); |
43792
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2472 |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2473 /* Ensure file is writable while its modified time is set. */ |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2474 attributes = GetFileAttributes (filename); |
43799
b1abfedc2e1d
(Fcopy_file): Fix last change.
Jason Rumney <jasonr@gnu.org>
parents:
43792
diff
changeset
|
2475 SetFileAttributes (filename, attributes & ~FILE_ATTRIBUTE_READONLY); |
43792
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2476 if (set_file_times (filename, now, now)) |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2477 { |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2478 /* Restore original attributes. */ |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2479 SetFileAttributes (filename, attributes); |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2480 xsignal2 (Qfile_date_error, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2481 build_string ("Cannot set file date"), newname); |
43792
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2482 } |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2483 /* Restore original attributes. */ |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
2484 SetFileAttributes (filename, attributes); |
37292
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
2485 } |
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
2486 #else /* not WINDOWSNT */ |
48725
279d729bd941
(Fcopy_file): Set immediate_quit around emacs_open call.
Richard M. Stallman <rms@gnu.org>
parents:
48652
diff
changeset
|
2487 immediate_quit = 1; |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2488 ifd = emacs_open (SDATA (encoded_file), O_RDONLY, 0); |
48725
279d729bd941
(Fcopy_file): Set immediate_quit around emacs_open call.
Richard M. Stallman <rms@gnu.org>
parents:
48652
diff
changeset
|
2489 immediate_quit = 0; |
279d729bd941
(Fcopy_file): Set immediate_quit around emacs_open call.
Richard M. Stallman <rms@gnu.org>
parents:
48652
diff
changeset
|
2490 |
230 | 2491 if (ifd < 0) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2492 report_file_error ("Opening input file", Fcons (file, Qnil)); |
230 | 2493 |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2494 record_unwind_protect (close_file_unwind, make_number (ifd)); |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2495 |
4879
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2496 /* We can only copy regular files and symbolic links. Other files are not |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2497 copyable by us. */ |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2498 input_file_statable_p = (fstat (ifd, &st) >= 0); |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2499 |
63907
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2500 #if !defined (MSDOS) || __DJGPP__ > 1 |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2501 if (out_st.st_mode != 0 |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2502 && st.st_dev == out_st.st_dev && st.st_ino == out_st.st_ino) |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2503 { |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2504 errno = 0; |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2505 report_file_error ("Input and output files are the same", |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2506 Fcons (file, Fcons (newname, Qnil))); |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2507 } |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2508 #endif |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2509 |
4879
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2510 #if defined (S_ISREG) && defined (S_ISLNK) |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2511 if (input_file_statable_p) |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2512 { |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2513 if (!(S_ISREG (st.st_mode)) && !(S_ISLNK (st.st_mode))) |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2514 { |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2515 #if defined (EISDIR) |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2516 /* Get a better looking error message. */ |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2517 errno = EISDIR; |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2518 #endif /* EISDIR */ |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2519 report_file_error ("Non-regular file", Fcons (file, Qnil)); |
4879
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2520 } |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2521 } |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2522 #endif /* S_ISREG && S_ISLNK */ |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2523 |
230 | 2524 #ifdef VMS |
2525 /* Create the copy file with the same record format as the input file */ | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2526 ofd = sys_creat (SDATA (encoded_newname), 0666, ifd); |
230 | 2527 #else |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
2528 #ifdef MSDOS |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
2529 /* System's default file type was set to binary by _fmode in emacs.c. */ |
61756
f53a54e241e5
(Fcopy_file): New arg MUSTBENEW.
Richard M. Stallman <rms@gnu.org>
parents:
61700
diff
changeset
|
2530 ofd = emacs_open (SDATA (encoded_newname), |
61789 | 2531 O_WRONLY | O_TRUNC | O_CREAT |
70960
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2532 | (NILP (ok_if_already_exists) ? O_EXCL : 0), |
61756
f53a54e241e5
(Fcopy_file): New arg MUSTBENEW.
Richard M. Stallman <rms@gnu.org>
parents:
61700
diff
changeset
|
2533 S_IREAD | S_IWRITE); |
f53a54e241e5
(Fcopy_file): New arg MUSTBENEW.
Richard M. Stallman <rms@gnu.org>
parents:
61700
diff
changeset
|
2534 #else /* not MSDOS */ |
f53a54e241e5
(Fcopy_file): New arg MUSTBENEW.
Richard M. Stallman <rms@gnu.org>
parents:
61700
diff
changeset
|
2535 ofd = emacs_open (SDATA (encoded_newname), |
f53a54e241e5
(Fcopy_file): New arg MUSTBENEW.
Richard M. Stallman <rms@gnu.org>
parents:
61700
diff
changeset
|
2536 O_WRONLY | O_TRUNC | O_CREAT |
70960
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2537 | (NILP (ok_if_already_exists) ? O_EXCL : 0), |
61756
f53a54e241e5
(Fcopy_file): New arg MUSTBENEW.
Richard M. Stallman <rms@gnu.org>
parents:
61700
diff
changeset
|
2538 0666); |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
2539 #endif /* not MSDOS */ |
230 | 2540 #endif /* VMS */ |
2541 if (ofd < 0) | |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2542 report_file_error ("Opening output file", Fcons (newname, Qnil)); |
230 | 2543 |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2544 record_unwind_protect (close_file_unwind, make_number (ofd)); |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2545 |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2546 immediate_quit = 1; |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2547 QUIT; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
2548 while ((n = emacs_read (ifd, buf, sizeof buf)) > 0) |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
2549 if (emacs_write (ofd, buf, n) != n) |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
2550 report_file_error ("I/O error", Fcons (newname, Qnil)); |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2551 immediate_quit = 0; |
230 | 2552 |
63907
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2553 #ifndef MSDOS |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2554 /* Preserve the original file modes, and if requested, also its |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2555 owner and group. */ |
63773
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2556 if (input_file_statable_p) |
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2557 { |
63907
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2558 if (! NILP (preserve_uid_gid)) |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2559 fchown (ofd, st.st_uid, st.st_gid); |
63773
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2560 fchmod (ofd, st.st_mode & 07777); |
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2561 } |
63907
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2562 #endif /* not MSDOS */ |
63773
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2563 |
7493
f4fb8b913c5d
(Fcopy_file): Close output before setting its times.
Richard M. Stallman <rms@gnu.org>
parents:
7445
diff
changeset
|
2564 /* Closing the output clobbers the file times on some systems. */ |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
2565 if (emacs_close (ofd) < 0) |
7493
f4fb8b913c5d
(Fcopy_file): Close output before setting its times.
Richard M. Stallman <rms@gnu.org>
parents:
7445
diff
changeset
|
2566 report_file_error ("I/O error", Fcons (newname, Qnil)); |
f4fb8b913c5d
(Fcopy_file): Close output before setting its times.
Richard M. Stallman <rms@gnu.org>
parents:
7445
diff
changeset
|
2567 |
4879
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2568 if (input_file_statable_p) |
230 | 2569 { |
34633
3a16306fdadf
(Fcopy_file): Rename the last argument to keep_time, to
Eli Zaretskii <eliz@gnu.org>
parents:
34176
diff
changeset
|
2570 if (!NILP (keep_time)) |
230 | 2571 { |
564 | 2572 EMACS_TIME atime, mtime; |
2573 EMACS_SET_SECS_USECS (atime, st.st_atime, 0); | |
2574 EMACS_SET_SECS_USECS (mtime, st.st_mtime, 0); | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2575 if (set_file_times (SDATA (encoded_newname), |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2576 atime, mtime)) |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2577 xsignal2 (Qfile_date_error, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2578 build_string ("Cannot set file date"), newname); |
230 | 2579 } |
2580 } | |
2581 | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
2582 emacs_close (ifd); |
63907
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2583 |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2584 #if defined (__DJGPP__) && __DJGPP__ > 1 |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2585 if (input_file_statable_p) |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2586 { |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2587 /* In DJGPP v2.0 and later, fstat usually returns true file mode bits, |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2588 and if it can't, it tells so. Otherwise, under MSDOS we usually |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2589 get only the READ bit, which will make the copied file read-only, |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2590 so it's better not to chmod at all. */ |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2591 if ((_djstat_flags & _STFAIL_WRITEBIT) == 0) |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2592 chmod (SDATA (encoded_newname), st.st_mode & 07777); |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2593 } |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2594 #endif /* DJGPP version 2 or newer */ |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2595 #endif /* not WINDOWSNT */ |
7493
f4fb8b913c5d
(Fcopy_file): Close output before setting its times.
Richard M. Stallman <rms@gnu.org>
parents:
7445
diff
changeset
|
2596 |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2597 /* Discard the unwind protects. */ |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2598 specpdl_ptr = specpdl + count; |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2599 |
230 | 2600 UNGCPRO; |
2601 return Qnil; | |
2602 } | |
10084
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2603 |
1533
b86ef0432100
(Fmake_directory_internal): Renamed from Fmake_directory.
Richard M. Stallman <rms@gnu.org>
parents:
1377
diff
changeset
|
2604 DEFUN ("make-directory-internal", Fmake_directory_internal, |
1536
0877009e6324
* fileio.c (Fmake_directory_internal): Remove extra paren before the
Jim Blandy <jimb@redhat.com>
parents:
1533
diff
changeset
|
2605 Smake_directory_internal, 1, 1, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2606 doc: /* Create a new directory named DIRECTORY. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2607 (directory) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2608 Lisp_Object directory; |
230 | 2609 { |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
2610 const unsigned char *dir; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2611 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2612 Lisp_Object encoded_dir; |
230 | 2613 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2614 CHECK_STRING (directory); |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2615 directory = Fexpand_file_name (directory, Qnil); |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2616 |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2617 handler = Ffind_file_name_handler (directory, Qmake_directory_internal); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2618 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2619 return call2 (handler, Qmake_directory_internal, directory); |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2620 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2621 encoded_dir = ENCODE_FILE (directory); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2622 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2623 dir = SDATA (encoded_dir); |
230 | 2624 |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2625 #ifdef WINDOWSNT |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2626 if (mkdir (dir) != 0) |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2627 #else |
230 | 2628 if (mkdir (dir, 0777) != 0) |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2629 #endif |
72530
dc615ff0529f
(Fmake_directory_internal, Fdelete_directory)
Kim F. Storm <storm@cua.dk>
parents:
72405
diff
changeset
|
2630 report_file_error ("Creating directory", list1 (directory)); |
230 | 2631 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2632 return Qnil; |
230 | 2633 } |
2634 | |
686
bd3068742807
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
648
diff
changeset
|
2635 DEFUN ("delete-directory", Fdelete_directory, Sdelete_directory, 1, 1, "FDelete directory: ", |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2636 doc: /* Delete the directory named DIRECTORY. Does not follow symlinks. */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2637 (directory) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2638 Lisp_Object directory; |
230 | 2639 { |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
2640 const unsigned char *dir; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2641 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2642 Lisp_Object encoded_dir; |
230 | 2643 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2644 CHECK_STRING (directory); |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2645 directory = Fdirectory_file_name (Fexpand_file_name (directory, Qnil)); |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2646 |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2647 handler = Ffind_file_name_handler (directory, Qdelete_directory); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2648 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2649 return call2 (handler, Qdelete_directory, directory); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2650 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2651 encoded_dir = ENCODE_FILE (directory); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2652 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2653 dir = SDATA (encoded_dir); |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2654 |
230 | 2655 if (rmdir (dir) != 0) |
72530
dc615ff0529f
(Fmake_directory_internal, Fdelete_directory)
Kim F. Storm <storm@cua.dk>
parents:
72405
diff
changeset
|
2656 report_file_error ("Removing directory", list1 (directory)); |
230 | 2657 |
2658 return Qnil; | |
2659 } | |
2660 | |
2661 DEFUN ("delete-file", Fdelete_file, Sdelete_file, 1, 1, "fDelete file: ", | |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2662 doc: /* Delete file named FILENAME. If it is a symlink, remove the symlink. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2663 If file has multiple names, it continues to exist with the other names. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2664 (filename) |
230 | 2665 Lisp_Object filename; |
2666 { | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2667 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2668 Lisp_Object encoded_file; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2669 struct gcpro gcpro1; |
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2670 |
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2671 GCPRO1 (filename); |
51022
66b3b1b70da3
(Fdelete_file): Handle symlinks pointing to directories.
Richard M. Stallman <rms@gnu.org>
parents:
50886
diff
changeset
|
2672 if (!NILP (Ffile_directory_p (filename)) |
66b3b1b70da3
(Fdelete_file): Handle symlinks pointing to directories.
Richard M. Stallman <rms@gnu.org>
parents:
50886
diff
changeset
|
2673 && NILP (Ffile_symlink_p (filename))) |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2674 xsignal2 (Qfile_error, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2675 build_string ("Removing old name: is a directory"), |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2676 filename); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2677 UNGCPRO; |
230 | 2678 filename = Fexpand_file_name (filename, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2679 |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
2680 handler = Ffind_file_name_handler (filename, Qdelete_file); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2681 if (!NILP (handler)) |
9170
1d95c81487a3
(Fdelete_file): Undo Sep 16 change.
Karl Heuer <kwzh@gnu.org>
parents:
9131
diff
changeset
|
2682 return call2 (handler, Qdelete_file, filename); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2683 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2684 encoded_file = ENCODE_FILE (filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2685 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2686 if (0 > unlink (SDATA (encoded_file))) |
72530
dc615ff0529f
(Fmake_directory_internal, Fdelete_directory)
Kim F. Storm <storm@cua.dk>
parents:
72405
diff
changeset
|
2687 report_file_error ("Removing old name", list1 (filename)); |
9170
1d95c81487a3
(Fdelete_file): Undo Sep 16 change.
Karl Heuer <kwzh@gnu.org>
parents:
9131
diff
changeset
|
2688 return Qnil; |
230 | 2689 } |
2690 | |
10084
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2691 static Lisp_Object |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2692 internal_delete_file_1 (ignore) |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2693 Lisp_Object ignore; |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2694 { |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2695 return Qt; |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2696 } |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2697 |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2698 /* Delete file FILENAME, returning 1 if successful and 0 if failed. */ |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2699 |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2700 int |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2701 internal_delete_file (filename) |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2702 Lisp_Object filename; |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2703 { |
67337
2fdf240a514d
(internal_delete_file, Fread_file_name_internal): Avoid dangerous side effects in NILP argument.
Ken Raeburn <raeburn@raeburn.org>
parents:
66795
diff
changeset
|
2704 Lisp_Object tem; |
2fdf240a514d
(internal_delete_file, Fread_file_name_internal): Avoid dangerous side effects in NILP argument.
Ken Raeburn <raeburn@raeburn.org>
parents:
66795
diff
changeset
|
2705 tem = internal_condition_case_1 (Fdelete_file, filename, |
2fdf240a514d
(internal_delete_file, Fread_file_name_internal): Avoid dangerous side effects in NILP argument.
Ken Raeburn <raeburn@raeburn.org>
parents:
66795
diff
changeset
|
2706 Qt, internal_delete_file_1); |
2fdf240a514d
(internal_delete_file, Fread_file_name_internal): Avoid dangerous side effects in NILP argument.
Ken Raeburn <raeburn@raeburn.org>
parents:
66795
diff
changeset
|
2707 return NILP (tem); |
10084
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2708 } |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2709 |
230 | 2710 DEFUN ("rename-file", Frename_file, Srename_file, 2, 3, |
60682
3f5458d947ec
(Fcopy_file, Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60574
diff
changeset
|
2711 "fRename file: \nGRename %s to file: \np", |
62188
a89a98d0bb8c
(Fexpand_file_name, Frename_file, Fadd_name_to_file, Fmake_symbolic_link,
Juanma Barranquero <lekktu@gmail.com>
parents:
61942
diff
changeset
|
2712 doc: /* Rename FILE as NEWNAME. Both args must be strings. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2713 If file has names other than FILE, it continues to have those names. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2714 Signals a `file-already-exists' error if a file NEWNAME already exists |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2715 unless optional third argument OK-IF-ALREADY-EXISTS is non-nil. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2716 A number as third arg means request confirmation if NEWNAME already exists. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2717 This is what happens in interactive use with M-x. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2718 (file, newname, ok_if_already_exists) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2719 Lisp_Object file, newname, ok_if_already_exists; |
230 | 2720 { |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2721 Lisp_Object handler; |
55364
1d5e786cd260
* fileio.c (barf_or_query_if_file_exists): Use lstat.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55194
diff
changeset
|
2722 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5; |
1d5e786cd260
* fileio.c (barf_or_query_if_file_exists): Use lstat.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55194
diff
changeset
|
2723 Lisp_Object encoded_file, encoded_newname, symlink_target; |
1d5e786cd260
* fileio.c (barf_or_query_if_file_exists): Use lstat.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55194
diff
changeset
|
2724 |
1d5e786cd260
* fileio.c (barf_or_query_if_file_exists): Use lstat.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55194
diff
changeset
|
2725 symlink_target = encoded_file = encoded_newname = Qnil; |
1d5e786cd260
* fileio.c (barf_or_query_if_file_exists): Use lstat.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55194
diff
changeset
|
2726 GCPRO5 (file, newname, encoded_file, encoded_newname, symlink_target); |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2727 CHECK_STRING (file); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2728 CHECK_STRING (newname); |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2729 file = Fexpand_file_name (file, Qnil); |
60572
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2730 |
71426
2414d21c77fa
(Frename_file) [DOS_NT]: Don't try to move directory to itself on DOS_NT
Eli Zaretskii <eliz@gnu.org>
parents:
70960
diff
changeset
|
2731 if ((!NILP (Ffile_directory_p (newname))) |
2414d21c77fa
(Frename_file) [DOS_NT]: Don't try to move directory to itself on DOS_NT
Eli Zaretskii <eliz@gnu.org>
parents:
70960
diff
changeset
|
2732 #ifdef DOS_NT |
2414d21c77fa
(Frename_file) [DOS_NT]: Don't try to move directory to itself on DOS_NT
Eli Zaretskii <eliz@gnu.org>
parents:
70960
diff
changeset
|
2733 /* If the file names are identical but for the case, |
2414d21c77fa
(Frename_file) [DOS_NT]: Don't try to move directory to itself on DOS_NT
Eli Zaretskii <eliz@gnu.org>
parents:
70960
diff
changeset
|
2734 don't attempt to move directory to itself. */ |
2414d21c77fa
(Frename_file) [DOS_NT]: Don't try to move directory to itself on DOS_NT
Eli Zaretskii <eliz@gnu.org>
parents:
70960
diff
changeset
|
2735 && (NILP (Fstring_equal (Fdowncase (file), Fdowncase (newname)))) |
2414d21c77fa
(Frename_file) [DOS_NT]: Don't try to move directory to itself on DOS_NT
Eli Zaretskii <eliz@gnu.org>
parents:
70960
diff
changeset
|
2736 #endif |
2414d21c77fa
(Frename_file) [DOS_NT]: Don't try to move directory to itself on DOS_NT
Eli Zaretskii <eliz@gnu.org>
parents:
70960
diff
changeset
|
2737 ) |
60572
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2738 newname = Fexpand_file_name (Ffile_name_nondirectory (file), newname); |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2739 else |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2740 newname = Fexpand_file_name (newname, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2741 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2742 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2743 call the corresponding file handler. */ |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2744 handler = Ffind_file_name_handler (file, Qrename_file); |
3705
309c27256ceb
(Fcopy_file): Pass all the args to the handler.
Richard M. Stallman <rms@gnu.org>
parents:
3598
diff
changeset
|
2745 if (NILP (handler)) |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
2746 handler = Ffind_file_name_handler (newname, Qrename_file); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2747 if (!NILP (handler)) |
6370
51a014b7c656
(Frename_file, Fcopy_file, Fadd_name_to_file, Fmake_symbolic_link): Fix typo
Karl Heuer <kwzh@gnu.org>
parents:
6367
diff
changeset
|
2748 RETURN_UNGCPRO (call4 (handler, Qrename_file, |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2749 file, newname, ok_if_already_exists)); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2750 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2751 encoded_file = ENCODE_FILE (file); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2752 encoded_newname = ENCODE_FILE (newname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2753 |
30376
a931186f35fa
(syms_of_coding): Doc fix for inhibit-iso-escape-detection.
Eli Zaretskii <eliz@gnu.org>
parents:
29813
diff
changeset
|
2754 #ifdef DOS_NT |
a931186f35fa
(syms_of_coding): Doc fix for inhibit-iso-escape-detection.
Eli Zaretskii <eliz@gnu.org>
parents:
29813
diff
changeset
|
2755 /* If the file names are identical but for the case, don't ask for |
a931186f35fa
(syms_of_coding): Doc fix for inhibit-iso-escape-detection.
Eli Zaretskii <eliz@gnu.org>
parents:
29813
diff
changeset
|
2756 confirmation: they simply want to change the letter-case of the |
a931186f35fa
(syms_of_coding): Doc fix for inhibit-iso-escape-detection.
Eli Zaretskii <eliz@gnu.org>
parents:
29813
diff
changeset
|
2757 file name. */ |
a931186f35fa
(syms_of_coding): Doc fix for inhibit-iso-escape-detection.
Eli Zaretskii <eliz@gnu.org>
parents:
29813
diff
changeset
|
2758 if (NILP (Fstring_equal (Fdowncase (file), Fdowncase (newname)))) |
a931186f35fa
(syms_of_coding): Doc fix for inhibit-iso-escape-detection.
Eli Zaretskii <eliz@gnu.org>
parents:
29813
diff
changeset
|
2759 #endif |
485 | 2760 if (NILP (ok_if_already_exists) |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
2761 || INTEGERP (ok_if_already_exists)) |
76664
0e62a7c60f43
(Fcopy_file): Call barf_or_query_if_file_exists with
Kenichi Handa <handa@m17n.org>
parents:
76622
diff
changeset
|
2762 barf_or_query_if_file_exists (newname, "rename to it", |
21304
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2763 INTEGERP (ok_if_already_exists), 0, 0); |
230 | 2764 #ifndef BSD4_1 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2765 if (0 > rename (SDATA (encoded_file), SDATA (encoded_newname))) |
230 | 2766 #else |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2767 if (0 > link (SDATA (encoded_file), SDATA (encoded_newname)) |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2768 || 0 > unlink (SDATA (encoded_file))) |
230 | 2769 #endif |
2770 { | |
2771 if (errno == EXDEV) | |
2772 { | |
55368
3d05bc7b23b9
fileio.c (Frename_file): Put symlink handling inside #ifdef S_IFLNK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55364
diff
changeset
|
2773 #ifdef S_IFLNK |
55364
1d5e786cd260
* fileio.c (barf_or_query_if_file_exists): Use lstat.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55194
diff
changeset
|
2774 symlink_target = Ffile_symlink_p (file); |
55368
3d05bc7b23b9
fileio.c (Frename_file): Put symlink handling inside #ifdef S_IFLNK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55364
diff
changeset
|
2775 if (! NILP (symlink_target)) |
3d05bc7b23b9
fileio.c (Frename_file): Put symlink handling inside #ifdef S_IFLNK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55364
diff
changeset
|
2776 Fmake_symbolic_link (symlink_target, newname, |
55488
626bc3834cd3
(Frename_file): Remove extra argument in call to
Andreas Schwab <schwab@suse.de>
parents:
55368
diff
changeset
|
2777 NILP (ok_if_already_exists) ? Qnil : Qt); |
55368
3d05bc7b23b9
fileio.c (Frename_file): Put symlink handling inside #ifdef S_IFLNK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55364
diff
changeset
|
2778 else |
3d05bc7b23b9
fileio.c (Frename_file): Put symlink handling inside #ifdef S_IFLNK.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55364
diff
changeset
|
2779 #endif |
63773
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2780 Fcopy_file (file, newname, |
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2781 /* We have already prompted if it was an integer, |
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2782 so don't have copy-file prompt again. */ |
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2783 NILP (ok_if_already_exists) ? Qnil : Qt, |
70960
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
2784 Qt, Qt); |
63719
c3da886cec72
(Frename_file): Preserve owner and group, if possible.
Richard M. Stallman <rms@gnu.org>
parents:
62937
diff
changeset
|
2785 |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2786 Fdelete_file (file); |
230 | 2787 } |
2788 else | |
72530
dc615ff0529f
(Fmake_directory_internal, Fdelete_directory)
Kim F. Storm <storm@cua.dk>
parents:
72405
diff
changeset
|
2789 report_file_error ("Renaming", list2 (file, newname)); |
230 | 2790 } |
2791 UNGCPRO; | |
2792 return Qnil; | |
2793 } | |
2794 | |
2795 DEFUN ("add-name-to-file", Fadd_name_to_file, Sadd_name_to_file, 2, 3, | |
60682
3f5458d947ec
(Fcopy_file, Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60574
diff
changeset
|
2796 "fAdd name to file: \nGName to add to %s: \np", |
62188
a89a98d0bb8c
(Fexpand_file_name, Frename_file, Fadd_name_to_file, Fmake_symbolic_link,
Juanma Barranquero <lekktu@gmail.com>
parents:
61942
diff
changeset
|
2797 doc: /* Give FILE additional name NEWNAME. Both args must be strings. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2798 Signals a `file-already-exists' error if a file NEWNAME already exists |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2799 unless optional third argument OK-IF-ALREADY-EXISTS is non-nil. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2800 A number as third arg means request confirmation if NEWNAME already exists. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2801 This is what happens in interactive use with M-x. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2802 (file, newname, ok_if_already_exists) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2803 Lisp_Object file, newname, ok_if_already_exists; |
230 | 2804 { |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2805 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2806 Lisp_Object encoded_file, encoded_newname; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2807 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2808 |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2809 GCPRO4 (file, newname, encoded_file, encoded_newname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2810 encoded_file = encoded_newname = Qnil; |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2811 CHECK_STRING (file); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2812 CHECK_STRING (newname); |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2813 file = Fexpand_file_name (file, Qnil); |
60572
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2814 |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2815 if (!NILP (Ffile_directory_p (newname))) |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2816 newname = Fexpand_file_name (Ffile_name_nondirectory (file), newname); |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2817 else |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2818 newname = Fexpand_file_name (newname, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2819 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2820 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2821 call the corresponding file handler. */ |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2822 handler = Ffind_file_name_handler (file, Qadd_name_to_file); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2823 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2824 RETURN_UNGCPRO (call4 (handler, Qadd_name_to_file, file, |
6370
51a014b7c656
(Frename_file, Fcopy_file, Fadd_name_to_file, Fmake_symbolic_link): Fix typo
Karl Heuer <kwzh@gnu.org>
parents:
6367
diff
changeset
|
2825 newname, ok_if_already_exists)); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2826 |
12985
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2827 /* If the new name has special constructs in it, |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2828 call the corresponding file handler. */ |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2829 handler = Ffind_file_name_handler (newname, Qadd_name_to_file); |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2830 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2831 RETURN_UNGCPRO (call4 (handler, Qadd_name_to_file, file, |
12985
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2832 newname, ok_if_already_exists)); |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2833 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2834 encoded_file = ENCODE_FILE (file); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2835 encoded_newname = ENCODE_FILE (newname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2836 |
485 | 2837 if (NILP (ok_if_already_exists) |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
2838 || INTEGERP (ok_if_already_exists)) |
76664
0e62a7c60f43
(Fcopy_file): Call barf_or_query_if_file_exists with
Kenichi Handa <handa@m17n.org>
parents:
76622
diff
changeset
|
2839 barf_or_query_if_file_exists (newname, "make it a new name", |
21304
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2840 INTEGERP (ok_if_already_exists), 0, 0); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2841 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2842 unlink (SDATA (newname)); |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2843 if (0 > link (SDATA (encoded_file), SDATA (encoded_newname))) |
72530
dc615ff0529f
(Fmake_directory_internal, Fdelete_directory)
Kim F. Storm <storm@cua.dk>
parents:
72405
diff
changeset
|
2844 report_file_error ("Adding new name", list2 (file, newname)); |
230 | 2845 |
2846 UNGCPRO; | |
2847 return Qnil; | |
2848 } | |
2849 | |
2850 #ifdef S_IFLNK | |
2851 DEFUN ("make-symbolic-link", Fmake_symbolic_link, Smake_symbolic_link, 2, 3, | |
60682
3f5458d947ec
(Fcopy_file, Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60574
diff
changeset
|
2852 "FMake symbolic link to file: \nGMake symbolic link to file %s: \np", |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
2853 doc: /* Make a symbolic link to FILENAME, named LINKNAME. |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
2854 Both args must be strings. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2855 Signals a `file-already-exists' error if a file LINKNAME already exists |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2856 unless optional third argument OK-IF-ALREADY-EXISTS is non-nil. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2857 A number as third arg means request confirmation if LINKNAME already exists. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2858 This happens for interactive use with M-x. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2859 (filename, linkname, ok_if_already_exists) |
732 | 2860 Lisp_Object filename, linkname, ok_if_already_exists; |
230 | 2861 { |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2862 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2863 Lisp_Object encoded_filename, encoded_linkname; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2864 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2865 |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2866 GCPRO4 (filename, linkname, encoded_filename, encoded_linkname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2867 encoded_filename = encoded_linkname = Qnil; |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2868 CHECK_STRING (filename); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2869 CHECK_STRING (linkname); |
5245
4a9b93b0eac3
(Fmake_symbolic_link): Do expand FILENAME if starts with ~.
Richard M. Stallman <rms@gnu.org>
parents:
5129
diff
changeset
|
2870 /* If the link target has a ~, we must expand it to get |
4a9b93b0eac3
(Fmake_symbolic_link): Do expand FILENAME if starts with ~.
Richard M. Stallman <rms@gnu.org>
parents:
5129
diff
changeset
|
2871 a truly valid file name. Otherwise, do not expand; |
4a9b93b0eac3
(Fmake_symbolic_link): Do expand FILENAME if starts with ~.
Richard M. Stallman <rms@gnu.org>
parents:
5129
diff
changeset
|
2872 we want to permit links to relative file names. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2873 if (SREF (filename, 0) == '~') |
5245
4a9b93b0eac3
(Fmake_symbolic_link): Do expand FILENAME if starts with ~.
Richard M. Stallman <rms@gnu.org>
parents:
5129
diff
changeset
|
2874 filename = Fexpand_file_name (filename, Qnil); |
60572
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2875 |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2876 if (!NILP (Ffile_directory_p (linkname))) |
60574
f5607c3ce8fd
(Fmake_symbolic_link): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60572
diff
changeset
|
2877 linkname = Fexpand_file_name (Ffile_name_nondirectory (filename), linkname); |
60572
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2878 else |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2879 linkname = Fexpand_file_name (linkname, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2880 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2881 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2882 call the corresponding file handler. */ |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
2883 handler = Ffind_file_name_handler (filename, Qmake_symbolic_link); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2884 if (!NILP (handler)) |
6370
51a014b7c656
(Frename_file, Fcopy_file, Fadd_name_to_file, Fmake_symbolic_link): Fix typo
Karl Heuer <kwzh@gnu.org>
parents:
6367
diff
changeset
|
2885 RETURN_UNGCPRO (call4 (handler, Qmake_symbolic_link, filename, |
51a014b7c656
(Frename_file, Fcopy_file, Fadd_name_to_file, Fmake_symbolic_link): Fix typo
Karl Heuer <kwzh@gnu.org>
parents:
6367
diff
changeset
|
2886 linkname, ok_if_already_exists)); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2887 |
12985
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2888 /* If the new link name has special constructs in it, |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2889 call the corresponding file handler. */ |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2890 handler = Ffind_file_name_handler (linkname, Qmake_symbolic_link); |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2891 if (!NILP (handler)) |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2892 RETURN_UNGCPRO (call4 (handler, Qmake_symbolic_link, filename, |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2893 linkname, ok_if_already_exists)); |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2894 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2895 encoded_filename = ENCODE_FILE (filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2896 encoded_linkname = ENCODE_FILE (linkname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2897 |
485 | 2898 if (NILP (ok_if_already_exists) |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
2899 || INTEGERP (ok_if_already_exists)) |
76664
0e62a7c60f43
(Fcopy_file): Call barf_or_query_if_file_exists with
Kenichi Handa <handa@m17n.org>
parents:
76622
diff
changeset
|
2900 barf_or_query_if_file_exists (linkname, "make it a link", |
21304
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
2901 INTEGERP (ok_if_already_exists), 0, 0); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2902 if (0 > symlink (SDATA (encoded_filename), |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2903 SDATA (encoded_linkname))) |
230 | 2904 { |
2905 /* If we didn't complain already, silently delete existing file. */ | |
2906 if (errno == EEXIST) | |
2907 { | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2908 unlink (SDATA (encoded_linkname)); |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2909 if (0 <= symlink (SDATA (encoded_filename), |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2910 SDATA (encoded_linkname))) |
8602
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
2911 { |
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
2912 UNGCPRO; |
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
2913 return Qnil; |
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
2914 } |
230 | 2915 } |
2916 | |
72530
dc615ff0529f
(Fmake_directory_internal, Fdelete_directory)
Kim F. Storm <storm@cua.dk>
parents:
72405
diff
changeset
|
2917 report_file_error ("Making symbolic link", list2 (filename, linkname)); |
230 | 2918 } |
2919 UNGCPRO; | |
2920 return Qnil; | |
2921 } | |
2922 #endif /* S_IFLNK */ | |
2923 | |
2924 #ifdef VMS | |
2925 | |
2926 DEFUN ("define-logical-name", Fdefine_logical_name, Sdefine_logical_name, | |
2927 2, 2, "sDefine logical name: \nsDefine logical name %s as: ", | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2928 doc: /* Define the job-wide logical name NAME to have the value STRING. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2929 If STRING is nil or a null string, the logical name NAME is deleted. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2930 (name, string) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2931 Lisp_Object name; |
230 | 2932 Lisp_Object string; |
2933 { | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2934 CHECK_STRING (name); |
485 | 2935 if (NILP (string)) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2936 delete_logical_name (SDATA (name)); |
230 | 2937 else |
2938 { | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2939 CHECK_STRING (string); |
230 | 2940 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2941 if (SCHARS (string) == 0) |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2942 delete_logical_name (SDATA (name)); |
230 | 2943 else |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2944 define_logical_name (SDATA (name), SDATA (string)); |
230 | 2945 } |
2946 | |
2947 return string; | |
2948 } | |
2949 #endif /* VMS */ | |
2950 | |
2951 #ifdef HPUX_NET | |
2952 | |
2953 DEFUN ("sysnetunam", Fsysnetunam, Ssysnetunam, 2, 2, 0, | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2954 doc: /* Open a network connection to PATH using LOGIN as the login string. */) |
230 | 2955 (path, login) |
2956 Lisp_Object path, login; | |
2957 { | |
2958 int netresult; | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2959 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2960 CHECK_STRING (path); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2961 CHECK_STRING (login); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2962 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2963 netresult = netunam (SDATA (path), SDATA (login)); |
230 | 2964 |
2965 if (netresult == -1) | |
2966 return Qnil; | |
2967 else | |
2968 return Qt; | |
2969 } | |
2970 #endif /* HPUX_NET */ | |
2971 | |
2972 DEFUN ("file-name-absolute-p", Ffile_name_absolute_p, Sfile_name_absolute_p, | |
2973 1, 1, 0, | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2974 doc: /* Return t if file FILENAME specifies an absolute file name. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
2975 On Unix, this is a name starting with a `/' or a `~'. */) |
230 | 2976 (filename) |
2977 Lisp_Object filename; | |
2978 { | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2979 CHECK_STRING (filename); |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2980 return file_name_absolute_p (SDATA (filename)) ? Qt : Qnil; |
230 | 2981 } |
9078
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2982 |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2983 /* Return nonzero if file FILENAME exists and can be executed. */ |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2984 |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2985 static int |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2986 check_executable (filename) |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2987 char *filename; |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2988 { |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2989 #ifdef DOS_NT |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2990 int len = strlen (filename); |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2991 char *suffix; |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2992 struct stat st; |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2993 if (stat (filename, &st) < 0) |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2994 return 0; |
15625
537b4cdf9eff
(Fcopy_file): Use st_ino under DJGPP v2 and later to
Karl Heuer <kwzh@gnu.org>
parents:
15617
diff
changeset
|
2995 #if defined (WINDOWSNT) || (defined (MSDOS) && __DJGPP__ > 1) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2996 return ((st.st_mode & S_IEXEC) != 0); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2997 #else |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2998 return (S_ISREG (st.st_mode) |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2999 && len >= 5 |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
3000 && (stricmp ((suffix = filename + len-4), ".com") == 0 |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
3001 || stricmp (suffix, ".exe") == 0 |
13541
2178c4d6a427
(check_executable) [DOS_NT]: Treat all dirs as executable.
Richard M. Stallman <rms@gnu.org>
parents:
13451
diff
changeset
|
3002 || stricmp (suffix, ".bat") == 0) |
2178c4d6a427
(check_executable) [DOS_NT]: Treat all dirs as executable.
Richard M. Stallman <rms@gnu.org>
parents:
13451
diff
changeset
|
3003 || (st.st_mode & S_IFMT) == S_IFDIR); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3004 #endif /* not WINDOWSNT */ |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
3005 #else /* not DOS_NT */ |
15533
a749d414efbb
(check_executable): Use euidaccess, not eaccess.
Richard M. Stallman <rms@gnu.org>
parents:
15427
diff
changeset
|
3006 #ifdef HAVE_EUIDACCESS |
a749d414efbb
(check_executable): Use euidaccess, not eaccess.
Richard M. Stallman <rms@gnu.org>
parents:
15427
diff
changeset
|
3007 return (euidaccess (filename, 1) >= 0); |
9078
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3008 #else |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3009 /* Access isn't quite right because it uses the real uid |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3010 and we really want to test with the effective uid. |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3011 But Unix doesn't give us a right way to do it. */ |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3012 return (access (filename, 1) >= 0); |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3013 #endif |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
3014 #endif /* not DOS_NT */ |
9078
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3015 } |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3016 |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3017 /* Return nonzero if file FILENAME exists and can be written. */ |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3018 |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3019 static int |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3020 check_writable (filename) |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3021 char *filename; |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3022 { |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
3023 #ifdef MSDOS |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
3024 struct stat st; |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
3025 if (stat (filename, &st) < 0) |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
3026 return 0; |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
3027 return (st.st_mode & S_IWRITE || (st.st_mode & S_IFMT) == S_IFDIR); |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
3028 #else /* not MSDOS */ |
15738
4ccf88623c95
(check_writable): Use euidaccess, not eaccess.
Karl Heuer <kwzh@gnu.org>
parents:
15625
diff
changeset
|
3029 #ifdef HAVE_EUIDACCESS |
4ccf88623c95
(check_writable): Use euidaccess, not eaccess.
Karl Heuer <kwzh@gnu.org>
parents:
15625
diff
changeset
|
3030 return (euidaccess (filename, 2) >= 0); |
9078
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3031 #else |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3032 /* Access isn't quite right because it uses the real uid |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3033 and we really want to test with the effective uid. |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3034 But Unix doesn't give us a right way to do it. |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3035 Opening with O_WRONLY could work for an ordinary file, |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3036 but would lose for directories. */ |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3037 return (access (filename, 2) >= 0); |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3038 #endif |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
3039 #endif /* not MSDOS */ |
9078
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
3040 } |
230 | 3041 |
3042 DEFUN ("file-exists-p", Ffile_exists_p, Sfile_exists_p, 1, 1, 0, | |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3043 doc: /* Return t if file FILENAME exists (whether or not you can read it.) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3044 See also `file-readable-p' and `file-attributes'. |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3045 This returns nil for a symlink to a nonexistent file. |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3046 Use `file-symlink-p' to test for such links. */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3047 (filename) |
230 | 3048 Lisp_Object filename; |
3049 { | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3050 Lisp_Object absname; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3051 Lisp_Object handler; |
8597 | 3052 struct stat statbuf; |
230 | 3053 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3054 CHECK_STRING (filename); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3055 absname = Fexpand_file_name (filename, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3056 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3057 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3058 call the corresponding file handler. */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3059 handler = Ffind_file_name_handler (absname, Qfile_exists_p); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3060 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3061 return call2 (handler, Qfile_exists_p, absname); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3062 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3063 absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3064 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3065 return (stat (SDATA (absname), &statbuf) >= 0) ? Qt : Qnil; |
230 | 3066 } |
3067 | |
3068 DEFUN ("file-executable-p", Ffile_executable_p, Sfile_executable_p, 1, 1, 0, | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3069 doc: /* Return t if FILENAME can be executed by you. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3070 For a directory, this means you can access files in that directory. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3071 (filename) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3072 Lisp_Object filename; |
230 | 3073 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3074 Lisp_Object absname; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3075 Lisp_Object handler; |
230 | 3076 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3077 CHECK_STRING (filename); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3078 absname = Fexpand_file_name (filename, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3079 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3080 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3081 call the corresponding file handler. */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3082 handler = Ffind_file_name_handler (absname, Qfile_executable_p); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3083 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3084 return call2 (handler, Qfile_executable_p, absname); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3085 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3086 absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3087 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3088 return (check_executable (SDATA (absname)) ? Qt : Qnil); |
230 | 3089 } |
3090 | |
3091 DEFUN ("file-readable-p", Ffile_readable_p, Sfile_readable_p, 1, 1, 0, | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3092 doc: /* Return t if file FILENAME exists and you can read it. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3093 See also `file-exists-p' and `file-attributes'. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3094 (filename) |
230 | 3095 Lisp_Object filename; |
3096 { | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3097 Lisp_Object absname; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3098 Lisp_Object handler; |
8597 | 3099 int desc; |
16534
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
3100 int flags; |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
3101 struct stat statbuf; |
230 | 3102 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3103 CHECK_STRING (filename); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3104 absname = Fexpand_file_name (filename, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3105 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3106 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3107 call the corresponding file handler. */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3108 handler = Ffind_file_name_handler (absname, Qfile_readable_p); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3109 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3110 return call2 (handler, Qfile_readable_p, absname); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3111 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3112 absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3113 |
38929
ffa8f910b5f1
2001-08-24 Andrew Choi <akochoi@cse.cuhk.edu.hk>
Andrew Choi <akochoi@shaw.ca>
parents:
38924
diff
changeset
|
3114 #if defined(DOS_NT) || defined(macintosh) |
ffa8f910b5f1
2001-08-24 Andrew Choi <akochoi@cse.cuhk.edu.hk>
Andrew Choi <akochoi@shaw.ca>
parents:
38924
diff
changeset
|
3115 /* Under MS-DOS, Windows, and Macintosh, open does not work for |
ffa8f910b5f1
2001-08-24 Andrew Choi <akochoi@cse.cuhk.edu.hk>
Andrew Choi <akochoi@shaw.ca>
parents:
38924
diff
changeset
|
3116 directories. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3117 if (access (SDATA (absname), 0) == 0) |
13902
31e37f3d8ccd
(Ffile_readable_p) [MSDOS]: Use access rather than open.
Richard M. Stallman <rms@gnu.org>
parents:
13769
diff
changeset
|
3118 return Qt; |
31e37f3d8ccd
(Ffile_readable_p) [MSDOS]: Use access rather than open.
Richard M. Stallman <rms@gnu.org>
parents:
13769
diff
changeset
|
3119 return Qnil; |
38929
ffa8f910b5f1
2001-08-24 Andrew Choi <akochoi@cse.cuhk.edu.hk>
Andrew Choi <akochoi@shaw.ca>
parents:
38924
diff
changeset
|
3120 #else /* not DOS_NT and not macintosh */ |
16534
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
3121 flags = O_RDONLY; |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
3122 #if defined (S_ISFIFO) && defined (O_NONBLOCK) |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
3123 /* Opening a fifo without O_NONBLOCK can wait. |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
3124 We don't want to wait. But we don't want to mess wth O_NONBLOCK |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
3125 except in the case of a fifo, on a system which handles it. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3126 desc = stat (SDATA (absname), &statbuf); |
16534
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
3127 if (desc < 0) |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
3128 return Qnil; |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
3129 if (S_ISFIFO (statbuf.st_mode)) |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
3130 flags |= O_NONBLOCK; |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
3131 #endif |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3132 desc = emacs_open (SDATA (absname), flags, 0); |
8597 | 3133 if (desc < 0) |
3134 return Qnil; | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3135 emacs_close (desc); |
8597 | 3136 return Qt; |
38929
ffa8f910b5f1
2001-08-24 Andrew Choi <akochoi@cse.cuhk.edu.hk>
Andrew Choi <akochoi@shaw.ca>
parents:
38924
diff
changeset
|
3137 #endif /* not DOS_NT and not macintosh */ |
230 | 3138 } |
3139 | |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3140 /* Having this before file-symlink-p mysteriously caused it to be forgotten |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3141 on the RT/PC. */ |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3142 DEFUN ("file-writable-p", Ffile_writable_p, Sfile_writable_p, 1, 1, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3143 doc: /* Return t if file FILENAME can be written or created by you. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3144 (filename) |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3145 Lisp_Object filename; |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3146 { |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3147 Lisp_Object absname, dir, encoded; |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3148 Lisp_Object handler; |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3149 struct stat statbuf; |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3150 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3151 CHECK_STRING (filename); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3152 absname = Fexpand_file_name (filename, Qnil); |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3153 |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3154 /* If the file name has special constructs in it, |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3155 call the corresponding file handler. */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3156 handler = Ffind_file_name_handler (absname, Qfile_writable_p); |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3157 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3158 return call2 (handler, Qfile_writable_p, absname); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3159 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3160 encoded = ENCODE_FILE (absname); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3161 if (stat (SDATA (encoded), &statbuf) >= 0) |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3162 return (check_writable (SDATA (encoded)) |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3163 ? Qt : Qnil); |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3164 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3165 dir = Ffile_name_directory (absname); |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3166 #ifdef VMS |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3167 if (!NILP (dir)) |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3168 dir = Fdirectory_file_name (dir); |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3169 #endif /* VMS */ |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3170 #ifdef MSDOS |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3171 if (!NILP (dir)) |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3172 dir = Fdirectory_file_name (dir); |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3173 #endif /* MSDOS */ |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3174 |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3175 dir = ENCODE_FILE (dir); |
28673
55c84ae4d634
(Ffile_writable_p) [WINDOWSNT]: Return nil if parent
Gerd Moellmann <gerd@gnu.org>
parents:
28561
diff
changeset
|
3176 #ifdef WINDOWSNT |
55c84ae4d634
(Ffile_writable_p) [WINDOWSNT]: Return nil if parent
Gerd Moellmann <gerd@gnu.org>
parents:
28561
diff
changeset
|
3177 /* The read-only attribute of the parent directory doesn't affect |
55c84ae4d634
(Ffile_writable_p) [WINDOWSNT]: Return nil if parent
Gerd Moellmann <gerd@gnu.org>
parents:
28561
diff
changeset
|
3178 whether a file or directory can be created within it. Some day we |
55c84ae4d634
(Ffile_writable_p) [WINDOWSNT]: Return nil if parent
Gerd Moellmann <gerd@gnu.org>
parents:
28561
diff
changeset
|
3179 should check ACLs though, which do affect this. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3180 if (stat (SDATA (dir), &statbuf) < 0) |
28673
55c84ae4d634
(Ffile_writable_p) [WINDOWSNT]: Return nil if parent
Gerd Moellmann <gerd@gnu.org>
parents:
28561
diff
changeset
|
3181 return Qnil; |
55c84ae4d634
(Ffile_writable_p) [WINDOWSNT]: Return nil if parent
Gerd Moellmann <gerd@gnu.org>
parents:
28561
diff
changeset
|
3182 return (statbuf.st_mode & S_IFMT) == S_IFDIR ? Qt : Qnil; |
55c84ae4d634
(Ffile_writable_p) [WINDOWSNT]: Return nil if parent
Gerd Moellmann <gerd@gnu.org>
parents:
28561
diff
changeset
|
3183 #else |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3184 return (check_writable (!NILP (dir) ? (char *) SDATA (dir) : "") |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3185 ? Qt : Qnil); |
28673
55c84ae4d634
(Ffile_writable_p) [WINDOWSNT]: Return nil if parent
Gerd Moellmann <gerd@gnu.org>
parents:
28561
diff
changeset
|
3186 #endif |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3187 } |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3188 |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3189 DEFUN ("access-file", Faccess_file, Saccess_file, 2, 2, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3190 doc: /* Access file FILENAME, and get an error if that does not work. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3191 The second argument STRING is used in the error message. |
62188
a89a98d0bb8c
(Fexpand_file_name, Frename_file, Fadd_name_to_file, Fmake_symbolic_link,
Juanma Barranquero <lekktu@gmail.com>
parents:
61942
diff
changeset
|
3192 If there is no error, returns nil. */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3193 (filename, string) |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3194 Lisp_Object filename, string; |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3195 { |
40354
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
3196 Lisp_Object handler, encoded_filename, absname; |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3197 int fd; |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3198 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3199 CHECK_STRING (filename); |
40354
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
3200 absname = Fexpand_file_name (filename, Qnil); |
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
3201 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3202 CHECK_STRING (string); |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3203 |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3204 /* If the file name has special constructs in it, |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3205 call the corresponding file handler. */ |
40354
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
3206 handler = Ffind_file_name_handler (absname, Qaccess_file); |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3207 if (!NILP (handler)) |
40354
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
3208 return call3 (handler, Qaccess_file, absname, string); |
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
3209 |
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
3210 encoded_filename = ENCODE_FILE (absname); |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3211 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3212 fd = emacs_open (SDATA (encoded_filename), O_RDONLY, 0); |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3213 if (fd < 0) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3214 report_file_error (SDATA (string), Fcons (filename, Qnil)); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3215 emacs_close (fd); |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3216 |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3217 return Qnil; |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3218 } |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
3219 |
230 | 3220 DEFUN ("file-symlink-p", Ffile_symlink_p, Sfile_symlink_p, 1, 1, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3221 doc: /* Return non-nil if file FILENAME is the name of a symbolic link. |
50500
8fcca6e6a7a1
(Ffile_symlink_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
50491
diff
changeset
|
3222 The value is the link target, as a string. |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3223 Otherwise it returns nil. |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3224 |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3225 This function returns t when given the name of a symlink that |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3226 points to a nonexistent file. */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3227 (filename) |
230 | 3228 Lisp_Object filename; |
3229 { | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3230 Lisp_Object handler; |
230 | 3231 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3232 CHECK_STRING (filename); |
230 | 3233 filename = Fexpand_file_name (filename, Qnil); |
3234 | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3235 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3236 call the corresponding file handler. */ |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
3237 handler = Ffind_file_name_handler (filename, Qfile_symlink_p); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3238 if (!NILP (handler)) |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3239 return call2 (handler, Qfile_symlink_p, filename); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3240 |
50886
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
3241 #ifdef S_IFLNK |
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
3242 { |
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
3243 char *buf; |
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
3244 int bufsize; |
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
3245 int valsize; |
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
3246 Lisp_Object val; |
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
3247 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3248 filename = ENCODE_FILE (filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3249 |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
3250 bufsize = 50; |
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
3251 buf = NULL; |
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
3252 do |
230 | 3253 { |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
3254 bufsize *= 2; |
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
3255 buf = (char *) xrealloc (buf, bufsize); |
230 | 3256 bzero (buf, bufsize); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3257 |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
3258 errno = 0; |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3259 valsize = readlink (SDATA (filename), buf, bufsize); |
39291
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
3260 if (valsize == -1) |
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
3261 { |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
3262 #ifdef ERANGE |
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
3263 /* HP-UX reports ERANGE if buffer is too small. */ |
39291
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
3264 if (errno == ERANGE) |
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
3265 valsize = bufsize; |
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
3266 else |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
3267 #endif |
39291
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
3268 { |
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
3269 xfree (buf); |
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
3270 return Qnil; |
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
3271 } |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
3272 } |
230 | 3273 } |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
3274 while (valsize >= bufsize); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3275 |
230 | 3276 val = make_string (buf, valsize); |
27870
a36c3e02f43b
(Ffile_symlink_p): If result starts with a `/'
Gerd Moellmann <gerd@gnu.org>
parents:
27789
diff
changeset
|
3277 if (buf[0] == '/' && index (buf, ':')) |
a36c3e02f43b
(Ffile_symlink_p): If result starts with a `/'
Gerd Moellmann <gerd@gnu.org>
parents:
27789
diff
changeset
|
3278 val = concat2 (build_string ("/:"), val); |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2435
diff
changeset
|
3279 xfree (buf); |
21048
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
3280 val = DECODE_FILE (val); |
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
3281 return val; |
50886
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
3282 } |
230 | 3283 #else /* not S_IFLNK */ |
3284 return Qnil; | |
3285 #endif /* not S_IFLNK */ | |
3286 } | |
3287 | |
3288 DEFUN ("file-directory-p", Ffile_directory_p, Sfile_directory_p, 1, 1, 0, | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3289 doc: /* Return t if FILENAME names an existing directory. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3290 Symbolic links to directories count as directories. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3291 See `file-symlink-p' to distinguish symlinks. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3292 (filename) |
230 | 3293 Lisp_Object filename; |
3294 { | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3295 register Lisp_Object absname; |
230 | 3296 struct stat st; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3297 Lisp_Object handler; |
230 | 3298 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3299 absname = expand_and_dir_to_file (filename, current_buffer->directory); |
230 | 3300 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3301 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3302 call the corresponding file handler. */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3303 handler = Ffind_file_name_handler (absname, Qfile_directory_p); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3304 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3305 return call2 (handler, Qfile_directory_p, absname); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3306 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3307 absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3308 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3309 if (stat (SDATA (absname), &st) < 0) |
230 | 3310 return Qnil; |
3311 return (st.st_mode & S_IFMT) == S_IFDIR ? Qt : Qnil; | |
3312 } | |
3313 | |
536 | 3314 DEFUN ("file-accessible-directory-p", Ffile_accessible_directory_p, Sfile_accessible_directory_p, 1, 1, 0, |
41032
ef8a5e50dbe8
(Ffile_accessible_directory_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
3315 doc: /* Return t if file FILENAME names a directory you can open. |
ef8a5e50dbe8
(Ffile_accessible_directory_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
3316 For the value to be t, FILENAME must specify the name of a directory as a file, |
ef8a5e50dbe8
(Ffile_accessible_directory_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
3317 and the directory must allow you to open files in it. In order to use a |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3318 directory as a buffer's current directory, this predicate must return true. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3319 A directory name spec may be given instead; then the value is t |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3320 if the directory so specified exists and really is a readable and |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3321 searchable directory. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3322 (filename) |
536 | 3323 Lisp_Object filename; |
3324 { | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3325 Lisp_Object handler; |
8602
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
3326 int tem; |
8703
aaa0730f8b1e
(Ffile_accessible_directory_p): Put back the gcpro.
Karl Heuer <kwzh@gnu.org>
parents:
8662
diff
changeset
|
3327 struct gcpro gcpro1; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3328 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3329 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3330 call the corresponding file handler. */ |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
3331 handler = Ffind_file_name_handler (filename, Qfile_accessible_directory_p); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3332 if (!NILP (handler)) |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3333 return call2 (handler, Qfile_accessible_directory_p, filename); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3334 |
8703
aaa0730f8b1e
(Ffile_accessible_directory_p): Put back the gcpro.
Karl Heuer <kwzh@gnu.org>
parents:
8662
diff
changeset
|
3335 GCPRO1 (filename); |
8602
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
3336 tem = (NILP (Ffile_directory_p (filename)) |
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
3337 || NILP (Ffile_executable_p (filename))); |
8703
aaa0730f8b1e
(Ffile_accessible_directory_p): Put back the gcpro.
Karl Heuer <kwzh@gnu.org>
parents:
8662
diff
changeset
|
3338 UNGCPRO; |
8602
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
3339 return tem ? Qnil : Qt; |
536 | 3340 } |
3341 | |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3342 DEFUN ("file-regular-p", Ffile_regular_p, Sfile_regular_p, 1, 1, 0, |
66795 | 3343 doc: /* Return t if FILENAME names a regular file. |
3344 This is the sort of file that holds an ordinary stream of data bytes. | |
3345 Symbolic links to regular files count as regular files. | |
3346 See `file-symlink-p' to distinguish symlinks. */) | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3347 (filename) |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3348 Lisp_Object filename; |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3349 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3350 register Lisp_Object absname; |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3351 struct stat st; |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3352 Lisp_Object handler; |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3353 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3354 absname = expand_and_dir_to_file (filename, current_buffer->directory); |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3355 |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3356 /* If the file name has special constructs in it, |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3357 call the corresponding file handler. */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3358 handler = Ffind_file_name_handler (absname, Qfile_regular_p); |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3359 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3360 return call2 (handler, Qfile_regular_p, absname); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3361 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3362 absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3363 |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3364 #ifdef WINDOWSNT |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3365 { |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3366 int result; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3367 Lisp_Object tem = Vw32_get_true_file_attributes; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3368 |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3369 /* Tell stat to use expensive method to get accurate info. */ |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3370 Vw32_get_true_file_attributes = Qt; |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3371 result = stat (SDATA (absname), &st); |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3372 Vw32_get_true_file_attributes = tem; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3373 |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3374 if (result < 0) |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3375 return Qnil; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3376 return (st.st_mode & S_IFMT) == S_IFREG ? Qt : Qnil; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3377 } |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3378 #else |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3379 if (stat (SDATA (absname), &st) < 0) |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3380 return Qnil; |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3381 return (st.st_mode & S_IFMT) == S_IFREG ? Qt : Qnil; |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3382 #endif |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3383 } |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3384 |
230 | 3385 DEFUN ("file-modes", Ffile_modes, Sfile_modes, 1, 1, 0, |
57955 | 3386 doc: /* Return mode bits of file named FILENAME, as an integer. |
3387 Return nil, if file does not exist or is not accessible. */) | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3388 (filename) |
230 | 3389 Lisp_Object filename; |
3390 { | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3391 Lisp_Object absname; |
230 | 3392 struct stat st; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3393 Lisp_Object handler; |
230 | 3394 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3395 absname = expand_and_dir_to_file (filename, current_buffer->directory); |
230 | 3396 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3397 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3398 call the corresponding file handler. */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3399 handler = Ffind_file_name_handler (absname, Qfile_modes); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3400 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3401 return call2 (handler, Qfile_modes, absname); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3402 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3403 absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3404 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3405 if (stat (SDATA (absname), &st) < 0) |
230 | 3406 return Qnil; |
15625
537b4cdf9eff
(Fcopy_file): Use st_ino under DJGPP v2 and later to
Karl Heuer <kwzh@gnu.org>
parents:
15617
diff
changeset
|
3407 #if defined (MSDOS) && __DJGPP__ < 2 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3408 if (check_executable (SDATA (absname))) |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
3409 st.st_mode |= S_IEXEC; |
15625
537b4cdf9eff
(Fcopy_file): Use st_ino under DJGPP v2 and later to
Karl Heuer <kwzh@gnu.org>
parents:
15617
diff
changeset
|
3410 #endif /* MSDOS && __DJGPP__ < 2 */ |
6383
62db5566c287
(Ffile_modes) [MSDOS]: set exec-bit based on file suffix.
Karl Heuer <kwzh@gnu.org>
parents:
6370
diff
changeset
|
3411 |
230 | 3412 return make_number (st.st_mode & 07777); |
3413 } | |
3414 | |
84442
480b9674f921
(Fset_file_modes): Add an interactive spec that reads a file
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents:
83676
diff
changeset
|
3415 DEFUN ("set-file-modes", Fset_file_modes, Sset_file_modes, 2, 2, |
480b9674f921
(Fset_file_modes): Add an interactive spec that reads a file
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents:
83676
diff
changeset
|
3416 "(let ((file (read-file-name \"File: \"))) \ |
480b9674f921
(Fset_file_modes): Add an interactive spec that reads a file
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents:
83676
diff
changeset
|
3417 (list file (read-file-modes nil file)))", |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3418 doc: /* Set mode bits of file named FILENAME to MODE (an integer). |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3419 Only the 12 low bits of MODE are used. */) |
230 | 3420 (filename, mode) |
3421 Lisp_Object filename, mode; | |
3422 { | |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3423 Lisp_Object absname, encoded_absname; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3424 Lisp_Object handler; |
230 | 3425 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3426 absname = Fexpand_file_name (filename, current_buffer->directory); |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3427 CHECK_NUMBER (mode); |
230 | 3428 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3429 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3430 call the corresponding file handler. */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3431 handler = Ffind_file_name_handler (absname, Qset_file_modes); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3432 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3433 return call3 (handler, Qset_file_modes, absname, mode); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3434 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3435 encoded_absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3436 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3437 if (chmod (SDATA (encoded_absname), XINT (mode)) < 0) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3438 report_file_error ("Doing chmod", Fcons (absname, Qnil)); |
230 | 3439 |
3440 return Qnil; | |
3441 } | |
3442 | |
1763
65e858c07a8b
(Fset_default_file_modes, Fdefault_file_modes): Renamed from .._mode.
Richard M. Stallman <rms@gnu.org>
parents:
1762
diff
changeset
|
3443 DEFUN ("set-default-file-modes", Fset_default_file_modes, Sset_default_file_modes, 1, 1, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3444 doc: /* Set the file permission bits for newly created files. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3445 The argument MODE should be an integer; only the low 9 bits are used. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3446 This setting is inherited by subprocesses. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3447 (mode) |
1762
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3448 Lisp_Object mode; |
550 | 3449 { |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3450 CHECK_NUMBER (mode); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3451 |
1762
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3452 umask ((~ XINT (mode)) & 0777); |
550 | 3453 |
3454 return Qnil; | |
3455 } | |
3456 | |
1763
65e858c07a8b
(Fset_default_file_modes, Fdefault_file_modes): Renamed from .._mode.
Richard M. Stallman <rms@gnu.org>
parents:
1762
diff
changeset
|
3457 DEFUN ("default-file-modes", Fdefault_file_modes, Sdefault_file_modes, 0, 0, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3458 doc: /* Return the default file protection for created files. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3459 The value is an integer. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3460 () |
550 | 3461 { |
1762
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3462 int realmask; |
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3463 Lisp_Object value; |
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3464 |
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3465 realmask = umask (0); |
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3466 umask (realmask); |
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3467 |
9266
811ad893828b
(Fdefault_file_modes, Finsert_file_contents, Fdo_auto_save): Use new accessor
Karl Heuer <kwzh@gnu.org>
parents:
9241
diff
changeset
|
3468 XSETINT (value, (~ realmask) & 0777); |
1762
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3469 return value; |
550 | 3470 } |
55194
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3471 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3472 extern int lisp_time_argument P_ ((Lisp_Object, time_t *, int *)); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3473 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3474 DEFUN ("set-file-times", Fset_file_times, Sset_file_times, 1, 2, 0, |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3475 doc: /* Set times of file FILENAME to TIME. |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3476 Set both access and modification times. |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3477 Return t on success, else nil. |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3478 Use the current time if TIME is nil. TIME is in the format of |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3479 `current-time'. */) |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3480 (filename, time) |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3481 Lisp_Object filename, time; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3482 { |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3483 Lisp_Object absname, encoded_absname; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3484 Lisp_Object handler; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3485 time_t sec; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3486 int usec; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3487 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3488 if (! lisp_time_argument (time, &sec, &usec)) |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3489 error ("Invalid time specification"); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3490 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3491 absname = Fexpand_file_name (filename, current_buffer->directory); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3492 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3493 /* If the file name has special constructs in it, |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3494 call the corresponding file handler. */ |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3495 handler = Ffind_file_name_handler (absname, Qset_file_times); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3496 if (!NILP (handler)) |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3497 return call3 (handler, Qset_file_times, absname, time); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3498 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3499 encoded_absname = ENCODE_FILE (absname); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3500 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3501 { |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3502 EMACS_TIME t; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3503 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3504 EMACS_SET_SECS (t, sec); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3505 EMACS_SET_USECS (t, usec); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3506 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3507 if (set_file_times (SDATA (encoded_absname), t, t)) |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3508 { |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3509 #ifdef DOS_NT |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3510 struct stat st; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3511 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3512 /* Setting times on a directory always fails. */ |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3513 if (stat (SDATA (encoded_absname), &st) == 0 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3514 && (st.st_mode & S_IFMT) == S_IFDIR) |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3515 return Qnil; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3516 #endif |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3517 report_file_error ("Setting file times", Fcons (absname, Qnil)); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3518 return Qnil; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3519 } |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3520 } |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3521 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3522 return Qt; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3523 } |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3524 |
74398
48c50a37cc14
[__NetBSD__]: Don't define `unix'.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74108
diff
changeset
|
3525 #ifdef HAVE_SYNC |
689
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3526 DEFUN ("unix-sync", Funix_sync, Sunix_sync, 0, 0, "", |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3527 doc: /* Tell Unix to finish all pending disk updates. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3528 () |
689
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3529 { |
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3530 sync (); |
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3531 return Qnil; |
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3532 } |
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3533 |
74398
48c50a37cc14
[__NetBSD__]: Don't define `unix'.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74108
diff
changeset
|
3534 #endif /* HAVE_SYNC */ |
689
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3535 |
230 | 3536 DEFUN ("file-newer-than-file-p", Ffile_newer_than_file_p, Sfile_newer_than_file_p, 2, 2, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3537 doc: /* Return t if file FILE1 is newer than file FILE2. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3538 If FILE1 does not exist, the answer is nil; |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3539 otherwise, if FILE2 does not exist, the answer is t. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3540 (file1, file2) |
230 | 3541 Lisp_Object file1, file2; |
3542 { | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3543 Lisp_Object absname1, absname2; |
230 | 3544 struct stat st; |
3545 int mtime1; | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3546 Lisp_Object handler; |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
3547 struct gcpro gcpro1, gcpro2; |
230 | 3548 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3549 CHECK_STRING (file1); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3550 CHECK_STRING (file2); |
230 | 3551 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3552 absname1 = Qnil; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3553 GCPRO2 (absname1, file2); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3554 absname1 = expand_and_dir_to_file (file1, current_buffer->directory); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3555 absname2 = expand_and_dir_to_file (file2, current_buffer->directory); |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
3556 UNGCPRO; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3557 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3558 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3559 call the corresponding file handler. */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3560 handler = Ffind_file_name_handler (absname1, Qfile_newer_than_file_p); |
3705
309c27256ceb
(Fcopy_file): Pass all the args to the handler.
Richard M. Stallman <rms@gnu.org>
parents:
3598
diff
changeset
|
3561 if (NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3562 handler = Ffind_file_name_handler (absname2, Qfile_newer_than_file_p); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3563 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3564 return call3 (handler, Qfile_newer_than_file_p, absname1, absname2); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3565 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3566 GCPRO2 (absname1, absname2); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3567 absname1 = ENCODE_FILE (absname1); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3568 absname2 = ENCODE_FILE (absname2); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3569 UNGCPRO; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3570 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3571 if (stat (SDATA (absname1), &st) < 0) |
230 | 3572 return Qnil; |
3573 | |
3574 mtime1 = st.st_mtime; | |
3575 | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3576 if (stat (SDATA (absname2), &st) < 0) |
230 | 3577 return Qt; |
3578 | |
3579 return (mtime1 > st.st_mtime) ? Qt : Qnil; | |
3580 } | |
3581 | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3582 #ifdef DOS_NT |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
3583 Lisp_Object Qfind_buffer_file_type; |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3584 #endif /* DOS_NT */ |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
3585 |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3586 #ifndef READ_BUF_SIZE |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3587 #define READ_BUF_SIZE (64 << 10) |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3588 #endif |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3589 |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3590 extern void adjust_markers_for_delete P_ ((int, int, int, int)); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3591 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3592 /* This function is called after Lisp functions to decide a coding |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3593 system are called, or when they cause an error. Before they are |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3594 called, the current buffer is set unibyte and it contains only a |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3595 newly inserted text (thus the buffer was empty before the |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3596 insertion). |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3597 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3598 The functions may set markers, overlays, text properties, or even |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3599 alter the buffer contents, change the current buffer. |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3600 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3601 Here, we reset all those changes by: |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3602 o set back the current buffer. |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3603 o move all markers and overlays to BEG. |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3604 o remove all text properties. |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3605 o set back the buffer multibyteness. */ |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3606 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3607 static Lisp_Object |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3608 decide_coding_unwind (unwind_data) |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3609 Lisp_Object unwind_data; |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3610 { |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3611 Lisp_Object multibyte, undo_list, buffer; |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3612 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3613 multibyte = XCAR (unwind_data); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3614 unwind_data = XCDR (unwind_data); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3615 undo_list = XCAR (unwind_data); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3616 buffer = XCDR (unwind_data); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3617 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3618 if (current_buffer != XBUFFER (buffer)) |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3619 set_buffer_internal (XBUFFER (buffer)); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3620 adjust_markers_for_delete (BEG, BEG_BYTE, Z, Z_BYTE); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3621 adjust_overlays_for_delete (BEG, Z - BEG); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3622 BUF_INTERVALS (current_buffer) = 0; |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3623 TEMP_SET_PT_BOTH (BEG, BEG_BYTE); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3624 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3625 /* Now we are safe to change the buffer's multibyteness directly. */ |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3626 current_buffer->enable_multibyte_characters = multibyte; |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3627 current_buffer->undo_list = undo_list; |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3628 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3629 return Qnil; |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3630 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3631 |
38364
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3632 |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3633 /* Used to pass values from insert-file-contents to read_non_regular. */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3634 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3635 static int non_regular_fd; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3636 static int non_regular_inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3637 static int non_regular_nbytes; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3638 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3639 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3640 /* Read from a non-regular file. |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3641 Read non_regular_trytry bytes max from non_regular_fd. |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3642 Non_regular_inserted specifies where to put the read bytes. |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3643 Value is the number of bytes read. */ |
38364
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3644 |
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3645 static Lisp_Object |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3646 read_non_regular () |
38364
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3647 { |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3648 int nbytes; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3649 |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3650 immediate_quit = 1; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3651 QUIT; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3652 nbytes = emacs_read (non_regular_fd, |
45485
08b14b8f7bc2
(read_non_regular, Finsert_file_contents): Use BEG_BYTE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44563
diff
changeset
|
3653 BEG_ADDR + PT_BYTE - BEG_BYTE + non_regular_inserted, |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3654 non_regular_nbytes); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3655 immediate_quit = 0; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3656 return make_number (nbytes); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3657 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3658 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3659 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3660 /* Condition-case handler used when reading from non-regular files |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3661 in insert-file-contents. */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3662 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3663 static Lisp_Object |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3664 read_non_regular_quit () |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3665 { |
38364
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3666 return Qnil; |
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3667 } |
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3668 |
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3669 |
230 | 3670 DEFUN ("insert-file-contents", Finsert_file_contents, Sinsert_file_contents, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3671 1, 5, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3672 doc: /* Insert contents of file FILENAME after point. |
50491
15f94db27199
(Finsert_file_contents): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
50340
diff
changeset
|
3673 Returns list of absolute file name and number of characters inserted. |
87304 | 3674 If second argument VISIT is non-nil, the buffer's visited filename and |
3675 last save file modtime are set, and it is marked unmodified. If | |
3676 visiting and the file does not exist, visiting is completed before the | |
3677 error is signaled. | |
3678 | |
3679 The optional third and fourth arguments BEG and END specify what portion | |
3680 of the file to insert. These arguments count bytes in the file, not | |
3681 characters in the buffer. If VISIT is non-nil, BEG and END must be nil. | |
3682 | |
3683 If optional fifth argument REPLACE is non-nil, replace the current | |
3684 buffer contents (in the accessible portion) with the file contents. | |
3685 This is better than simply deleting and inserting the whole thing | |
3686 because (1) it preserves some marker positions and (2) it puts less data | |
3687 in the undo list. When REPLACE is non-nil, the second return value is | |
3688 the number of characters that replace previous buffer contents. | |
3689 | |
3690 This function does code conversion according to the value of | |
3691 `coding-system-for-read' or `file-coding-system-alist', and sets the | |
3692 variable `last-coding-system-used' to the coding system actually used. */) | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3693 (filename, visit, beg, end, replace) |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3694 Lisp_Object filename, visit, beg, end, replace; |
230 | 3695 { |
3696 struct stat st; | |
3697 register int fd; | |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
3698 int inserted = 0; |
230 | 3699 register int how_much; |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3700 register int unprocessed; |
46285
3f111801efb4
Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46020
diff
changeset
|
3701 int count = SPECPDL_INDEX (); |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
3702 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
3703 Lisp_Object handler, val, insval, orig_filename, old_undo; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
3704 Lisp_Object p; |
31829
43566b0aec59
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31775
diff
changeset
|
3705 int total = 0; |
9921
62392796a691
(Finsert_file_contents): Init not_regular at the beginning.
Richard M. Stallman <rms@gnu.org>
parents:
9915
diff
changeset
|
3706 int not_regular = 0; |
22053
8697087ea026
(Finsert_file_contents): Check that a -*- coding: -*- spec
Richard M. Stallman <rms@gnu.org>
parents:
22042
diff
changeset
|
3707 unsigned char read_buf[READ_BUF_SIZE]; |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3708 struct coding_system coding; |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3709 unsigned char buffer[1 << 14]; |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3710 int replace_handled = 0; |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
3711 int set_coding_system = 0; |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3712 int coding_system_decided = 0; |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3713 int read_quit = 0; |
62937
23f332ae21c8
(Finsert_file_contents): Lisp_Object/int mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
62589
diff
changeset
|
3714 Lisp_Object old_Vdeactivate_mark = Vdeactivate_mark; |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3715 int we_locked_file = 0; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3716 |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
3717 if (current_buffer->base_buffer && ! NILP (visit)) |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
3718 error ("Cannot do file visiting in an indirect buffer"); |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
3719 |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
3720 if (!NILP (current_buffer->read_only)) |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
3721 Fbarf_if_buffer_read_only (); |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
3722 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3723 val = Qnil; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
3724 p = Qnil; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3725 orig_filename = Qnil; |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
3726 old_undo = Qnil; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
3727 |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
3728 GCPRO5 (filename, val, p, orig_filename, old_undo); |
230 | 3729 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3730 CHECK_STRING (filename); |
230 | 3731 filename = Fexpand_file_name (filename, Qnil); |
3732 | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3733 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3734 call the corresponding file handler. */ |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
3735 handler = Ffind_file_name_handler (filename, Qinsert_file_contents); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3736 if (!NILP (handler)) |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3737 { |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3738 val = call6 (handler, Qinsert_file_contents, filename, |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3739 visit, beg, end, replace); |
25662
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
3740 if (CONSP (val) && CONSP (XCDR (val))) |
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
3741 inserted = XINT (XCAR (XCDR (val))); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3742 goto handled; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3743 } |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3744 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3745 orig_filename = filename; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3746 filename = ENCODE_FILE (filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3747 |
230 | 3748 fd = -1; |
3749 | |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3750 #ifdef WINDOWSNT |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3751 { |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3752 Lisp_Object tem = Vw32_get_true_file_attributes; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3753 |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3754 /* Tell stat to use expensive method to get accurate info. */ |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3755 Vw32_get_true_file_attributes = Qt; |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3756 total = stat (SDATA (filename), &st); |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3757 Vw32_get_true_file_attributes = tem; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3758 } |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3759 if (total < 0) |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3760 #else |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3761 if (stat (SDATA (filename), &st) < 0) |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3762 #endif /* WINDOWSNT */ |
230 | 3763 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3764 if (fd >= 0) emacs_close (fd); |
8047
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3765 badopen: |
485 | 3766 if (NILP (visit)) |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3767 report_file_error ("Opening input file", Fcons (orig_filename, Qnil)); |
230 | 3768 st.st_mtime = -1; |
3769 how_much = 0; | |
19925
31b8e0e60e2d
(Finsert_file_contents): If a coding system is
Richard M. Stallman <rms@gnu.org>
parents:
19861
diff
changeset
|
3770 if (!NILP (Vcoding_system_for_read)) |
26587
8b07051df40d
(Finsert_file_contents): Set buffer-file-coding-system
Kenichi Handa <handa@m17n.org>
parents:
26526
diff
changeset
|
3771 Fset (Qbuffer_file_coding_system, Vcoding_system_for_read); |
230 | 3772 goto notfound; |
3773 } | |
3774 | |
8047
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3775 #ifdef S_IFREG |
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3776 /* This code will need to be changed in order to work on named |
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3777 pipes, and it's probably just not worth it. So we should at |
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3778 least signal an error. */ |
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3779 if (!S_ISREG (st.st_mode)) |
9915
ec185bc66071
(Finsert_file_contents): If VISIT, set the buffer components
Richard M. Stallman <rms@gnu.org>
parents:
9872
diff
changeset
|
3780 { |
17286
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3781 not_regular = 1; |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3782 |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3783 if (! NILP (visit)) |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3784 goto notfound; |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3785 |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3786 if (! NILP (replace) || ! NILP (beg) || ! NILP (end)) |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
3787 xsignal2 (Qfile_error, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
3788 build_string ("not a regular file"), orig_filename); |
9915
ec185bc66071
(Finsert_file_contents): If VISIT, set the buffer components
Richard M. Stallman <rms@gnu.org>
parents:
9872
diff
changeset
|
3789 } |
8047
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3790 #endif |
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3791 |
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3792 if (fd < 0) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3793 if ((fd = emacs_open (SDATA (filename), O_RDONLY, 0)) < 0) |
8047
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3794 goto badopen; |
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3795 |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
3796 /* Replacement should preserve point as it preserves markers. */ |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
3797 if (!NILP (replace)) |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
3798 record_unwind_protect (restore_point_unwind, Fpoint_marker ()); |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
3799 |
230 | 3800 record_unwind_protect (close_file_unwind, make_number (fd)); |
3801 | |
3802 /* Supposedly happens on VMS. */ | |
48562
b3e8e8c5face
(Finsert_file_contents): Give a more appropriate error
Jason Rumney <jasonr@gnu.org>
parents:
48423
diff
changeset
|
3803 /* Can happen on any platform that uses long as type of off_t, but allows |
b3e8e8c5face
(Finsert_file_contents): Give a more appropriate error
Jason Rumney <jasonr@gnu.org>
parents:
48423
diff
changeset
|
3804 file sizes to exceed 2Gb. VMS is no longer officially supported, so |
b3e8e8c5face
(Finsert_file_contents): Give a more appropriate error
Jason Rumney <jasonr@gnu.org>
parents:
48423
diff
changeset
|
3805 give a message suitable for the latter case. */ |
17286
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3806 if (! not_regular && st.st_size < 0) |
48562
b3e8e8c5face
(Finsert_file_contents): Give a more appropriate error
Jason Rumney <jasonr@gnu.org>
parents:
48423
diff
changeset
|
3807 error ("Maximum buffer size exceeded"); |
752 | 3808 |
25006
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
3809 /* Prevent redisplay optimizations. */ |
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
3810 current_buffer->clip_changed = 1; |
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
3811 |
27134
ac336ecd19ff
(Finsert_file_contents): Signal error if visiting file
Kenichi Handa <handa@m17n.org>
parents:
26855
diff
changeset
|
3812 if (!NILP (visit)) |
ac336ecd19ff
(Finsert_file_contents): Signal error if visiting file
Kenichi Handa <handa@m17n.org>
parents:
26855
diff
changeset
|
3813 { |
ac336ecd19ff
(Finsert_file_contents): Signal error if visiting file
Kenichi Handa <handa@m17n.org>
parents:
26855
diff
changeset
|
3814 if (!NILP (beg) || !NILP (end)) |
ac336ecd19ff
(Finsert_file_contents): Signal error if visiting file
Kenichi Handa <handa@m17n.org>
parents:
26855
diff
changeset
|
3815 error ("Attempt to visit less than an entire file"); |
ac336ecd19ff
(Finsert_file_contents): Signal error if visiting file
Kenichi Handa <handa@m17n.org>
parents:
26855
diff
changeset
|
3816 if (BEG < Z && NILP (replace)) |
ac336ecd19ff
(Finsert_file_contents): Signal error if visiting file
Kenichi Handa <handa@m17n.org>
parents:
26855
diff
changeset
|
3817 error ("Cannot do file visiting in a non-empty buffer"); |
ac336ecd19ff
(Finsert_file_contents): Signal error if visiting file
Kenichi Handa <handa@m17n.org>
parents:
26855
diff
changeset
|
3818 } |
3787
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3819 |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3820 if (!NILP (beg)) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3821 CHECK_NUMBER (beg); |
3787
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3822 else |
9307
44d6fc4b638b
(Finsert_file_contents, Fwrite_region, Fdo_auto_save, Fset_buffer_auto_saved):
Karl Heuer <kwzh@gnu.org>
parents:
9291
diff
changeset
|
3823 XSETFASTINT (beg, 0); |
3787
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3824 |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3825 if (!NILP (end)) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3826 CHECK_NUMBER (end); |
3787
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3827 else |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3828 { |
17286
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3829 if (! not_regular) |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3830 { |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3831 XSETINT (end, st.st_size); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3832 |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3833 /* Arithmetic overflow can occur if an Emacs integer cannot |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3834 represent the file size, or if the calculations below |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3835 overflow. The calculations below double the file size |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3836 twice, so check that it can be multiplied by 4 safely. */ |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3837 if (XINT (end) != st.st_size |
87302
591bf917aa89
(Finsert_file_contents): Fix overflow check to not
Andreas Schwab <schwab@suse.de>
parents:
85506
diff
changeset
|
3838 || st.st_size > INT_MAX / 4) |
17286
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3839 error ("Maximum buffer size exceeded"); |
37390
2db1b1bb1d18
(Finsert_file_contents): If the file size returned from
Gerd Moellmann <gerd@gnu.org>
parents:
37292
diff
changeset
|
3840 |
2db1b1bb1d18
(Finsert_file_contents): If the file size returned from
Gerd Moellmann <gerd@gnu.org>
parents:
37292
diff
changeset
|
3841 /* The file size returned from stat may be zero, but data |
2db1b1bb1d18
(Finsert_file_contents): If the file size returned from
Gerd Moellmann <gerd@gnu.org>
parents:
37292
diff
changeset
|
3842 may be readable nonetheless, for example when this is a |
2db1b1bb1d18
(Finsert_file_contents): If the file size returned from
Gerd Moellmann <gerd@gnu.org>
parents:
37292
diff
changeset
|
3843 file in the /proc filesystem. */ |
2db1b1bb1d18
(Finsert_file_contents): If the file size returned from
Gerd Moellmann <gerd@gnu.org>
parents:
37292
diff
changeset
|
3844 if (st.st_size == 0) |
2db1b1bb1d18
(Finsert_file_contents): If the file size returned from
Gerd Moellmann <gerd@gnu.org>
parents:
37292
diff
changeset
|
3845 XSETINT (end, READ_BUF_SIZE); |
17286
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3846 } |
3787
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3847 } |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3848 |
51357
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3849 if (EQ (Vcoding_system_for_read, Qauto_save_coding)) |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3850 { |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3851 /* We use emacs-mule for auto saving... */ |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3852 setup_coding_system (Qemacs_mule, &coding); |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3853 /* ... but with the special flag to indicate to read in a |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3854 multibyte sequence for eight-bit-control char as is. */ |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3855 coding.flags = 1; |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3856 coding.src_multibyte = 0; |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3857 coding.dst_multibyte |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3858 = !NILP (current_buffer->enable_multibyte_characters); |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3859 coding.eol_type = CODING_EOL_LF; |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3860 coding_system_decided = 1; |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3861 } |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3862 else if (BEG < Z) |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3863 { |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3864 /* Decide the coding system to use for reading the file now |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3865 because we can't use an optimized method for handling |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3866 `coding:' tag if the current buffer is not empty. */ |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3867 Lisp_Object val; |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3868 val = Qnil; |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3869 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3870 if (!NILP (Vcoding_system_for_read)) |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3871 val = Vcoding_system_for_read; |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3872 else |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3873 { |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3874 /* Don't try looking inside a file for a coding system |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3875 specification if it is not seekable. */ |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3876 if (! not_regular && ! NILP (Vset_auto_coding_function)) |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3877 { |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3878 /* Find a coding system specified in the heading two |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3879 lines or in the tailing several lines of the file. |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3880 We assume that the 1K-byte and 3K-byte for heading |
24651 | 3881 and tailing respectively are sufficient for this |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3882 purpose. */ |
27613 | 3883 int nread; |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3884 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3885 if (st.st_size <= (1024 * 4)) |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3886 nread = emacs_read (fd, read_buf, 1024 * 4); |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3887 else |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3888 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3889 nread = emacs_read (fd, read_buf, 1024); |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3890 if (nread >= 0) |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3891 { |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3892 if (lseek (fd, st.st_size - (1024 * 3), 0) < 0) |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3893 report_file_error ("Setting file position", |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3894 Fcons (orig_filename, Qnil)); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3895 nread += emacs_read (fd, read_buf + nread, 1024 * 3); |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3896 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3897 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3898 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3899 if (nread < 0) |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3900 error ("IO error reading %s: %s", |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3901 SDATA (orig_filename), emacs_strerror (errno)); |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3902 else if (nread > 0) |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3903 { |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3904 struct buffer *prev = current_buffer; |
44563
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3905 Lisp_Object buffer; |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3906 struct buffer *buf; |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3907 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3908 record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
27789
eb273bf5c3a8
(Finsert_file_contents): Unbind the binding of
Gerd Moellmann <gerd@gnu.org>
parents:
27618
diff
changeset
|
3909 |
44563
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3910 buffer = Fget_buffer_create (build_string (" *code-converting-work*")); |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3911 buf = XBUFFER (buffer); |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3912 |
52018
76a99003b377
(Finsert_file_contents): Use delete_all_overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51839
diff
changeset
|
3913 delete_all_overlays (buf); |
44563
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3914 buf->directory = current_buffer->directory; |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3915 buf->read_only = Qnil; |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3916 buf->filename = Qnil; |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3917 buf->undo_list = Qt; |
52018
76a99003b377
(Finsert_file_contents): Use delete_all_overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51839
diff
changeset
|
3918 eassert (buf->overlays_before == NULL); |
76a99003b377
(Finsert_file_contents): Use delete_all_overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51839
diff
changeset
|
3919 eassert (buf->overlays_after == NULL); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3920 |
44563
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3921 set_buffer_internal (buf); |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3922 Ferase_buffer (); |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3923 buf->enable_multibyte_characters = Qnil; |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3924 |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3925 insert_1_both (read_buf, nread, nread, 0, 0, 0); |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3926 TEMP_SET_PT_BOTH (BEG, BEG_BYTE); |
22811
6e11bb792d4f
(Finsert_file_contents): Call Vset_auto_coding_function
Kenichi Handa <handa@m17n.org>
parents:
22753
diff
changeset
|
3927 val = call2 (Vset_auto_coding_function, |
6e11bb792d4f
(Finsert_file_contents): Call Vset_auto_coding_function
Kenichi Handa <handa@m17n.org>
parents:
22753
diff
changeset
|
3928 filename, make_number (nread)); |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3929 set_buffer_internal (prev); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3930 |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3931 /* Discard the unwind protect for recovering the |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3932 current buffer. */ |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3933 specpdl_ptr--; |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3934 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3935 /* Rewind the file for the actual read done later. */ |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3936 if (lseek (fd, 0, 0) < 0) |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3937 report_file_error ("Setting file position", |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3938 Fcons (orig_filename, Qnil)); |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3939 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3940 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3941 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3942 if (NILP (val)) |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3943 { |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3944 /* If we have not yet decided a coding system, check |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3945 file-coding-system-alist. */ |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3946 Lisp_Object args[6], coding_systems; |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3947 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3948 args[0] = Qinsert_file_contents, args[1] = orig_filename; |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3949 args[2] = visit, args[3] = beg, args[4] = end, args[5] = replace; |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3950 coding_systems = Ffind_operation_coding_system (6, args); |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3951 if (CONSP (coding_systems)) |
25662
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
3952 val = XCAR (coding_systems); |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3953 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3954 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3955 |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
3956 setup_coding_system (Fcheck_coding_system (val), &coding); |
29152
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
3957 /* Ensure we set Vlast_coding_system_used. */ |
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
3958 set_coding_system = 1; |
22362
e845baca3407
(Finsert_file_contents): Always update
Karl Heuer <kwzh@gnu.org>
parents:
22311
diff
changeset
|
3959 |
24932
27a1d7a4c444
(Finsert_file_contents): If reading into a unibyte
Richard M. Stallman <rms@gnu.org>
parents:
24909
diff
changeset
|
3960 if (NILP (current_buffer->enable_multibyte_characters) |
27a1d7a4c444
(Finsert_file_contents): If reading into a unibyte
Richard M. Stallman <rms@gnu.org>
parents:
24909
diff
changeset
|
3961 && ! NILP (val)) |
27a1d7a4c444
(Finsert_file_contents): If reading into a unibyte
Richard M. Stallman <rms@gnu.org>
parents:
24909
diff
changeset
|
3962 /* We must suppress all character code conversion except for |
27a1d7a4c444
(Finsert_file_contents): If reading into a unibyte
Richard M. Stallman <rms@gnu.org>
parents:
24909
diff
changeset
|
3963 end-of-line conversion. */ |
22613
285822d24189
(Finsert_file_contents): Call setup_raw_text_coding_system.
Kenichi Handa <handa@m17n.org>
parents:
22493
diff
changeset
|
3964 setup_raw_text_coding_system (&coding); |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3965 |
29009
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
3966 coding.src_multibyte = 0; |
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
3967 coding.dst_multibyte |
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
3968 = !NILP (current_buffer->enable_multibyte_characters); |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3969 coding_system_decided = 1; |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3970 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3971 |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3972 /* If requested, replace the accessible part of the buffer |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3973 with the file contents. Avoid replacing text at the |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3974 beginning or end of the buffer that matches the file contents; |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3975 that preserves markers pointing to the unchanged parts. |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3976 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3977 Here we implement this feature in an optimized way |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3978 for the case where code conversion is NOT needed. |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3979 The following if-statement handles the case of conversion |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3980 in a less optimal way. |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3981 |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3982 If the code conversion is "automatic" then we try using this |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3983 method and hope for the best. |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3984 But if we discover the need for conversion, we give up on this method |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3985 and let the following if-statement handle the replace job. */ |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3986 if (!NILP (replace) |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3987 && BEGV < ZV |
29009
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
3988 && !(coding.common_flags & CODING_REQUIRE_DECODING_MASK)) |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
3989 { |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
3990 /* same_at_start and same_at_end count bytes, |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
3991 because file access counts bytes |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
3992 and BEG and END count bytes. */ |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
3993 int same_at_start = BEGV_BYTE; |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
3994 int same_at_end = ZV_BYTE; |
6328
e97a1cc44be8
(Finsert_file_contents): Don't let same_at_end be less than same_at_start.
Richard M. Stallman <rms@gnu.org>
parents:
6209
diff
changeset
|
3995 int overlap; |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3996 /* There is still a possibility we will find the need to do code |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3997 conversion. If that happens, we set this variable to 1 to |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3998 give up on handling REPLACE in the optimized way. */ |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3999 int giveup_match_end = 0; |
6328
e97a1cc44be8
(Finsert_file_contents): Don't let same_at_end be less than same_at_start.
Richard M. Stallman <rms@gnu.org>
parents:
6209
diff
changeset
|
4000 |
16695
7df45948d2d8
(Finsert_file_contents): Handle BEG and END non-nil
Richard M. Stallman <rms@gnu.org>
parents:
16662
diff
changeset
|
4001 if (XINT (beg) != 0) |
7df45948d2d8
(Finsert_file_contents): Handle BEG and END non-nil
Richard M. Stallman <rms@gnu.org>
parents:
16662
diff
changeset
|
4002 { |
7df45948d2d8
(Finsert_file_contents): Handle BEG and END non-nil
Richard M. Stallman <rms@gnu.org>
parents:
16662
diff
changeset
|
4003 if (lseek (fd, XINT (beg), 0) < 0) |
7df45948d2d8
(Finsert_file_contents): Handle BEG and END non-nil
Richard M. Stallman <rms@gnu.org>
parents:
16662
diff
changeset
|
4004 report_file_error ("Setting file position", |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4005 Fcons (orig_filename, Qnil)); |
16695
7df45948d2d8
(Finsert_file_contents): Handle BEG and END non-nil
Richard M. Stallman <rms@gnu.org>
parents:
16662
diff
changeset
|
4006 } |
7df45948d2d8
(Finsert_file_contents): Handle BEG and END non-nil
Richard M. Stallman <rms@gnu.org>
parents:
16662
diff
changeset
|
4007 |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4008 immediate_quit = 1; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4009 QUIT; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4010 /* Count how many chars at the start of the file |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4011 match the text at the beginning of the buffer. */ |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4012 while (1) |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4013 { |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4014 int nread, bufpos; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4015 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
4016 nread = emacs_read (fd, buffer, sizeof buffer); |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4017 if (nread < 0) |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4018 error ("IO error reading %s: %s", |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
4019 SDATA (orig_filename), emacs_strerror (errno)); |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4020 else if (nread == 0) |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4021 break; |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4022 |
17835
f36ffb6f1208
Name change through the code:
Kenichi Handa <handa@m17n.org>
parents:
17823
diff
changeset
|
4023 if (coding.type == coding_type_undecided) |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4024 detect_coding (&coding, buffer, nread); |
29009
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4025 if (coding.common_flags & CODING_REQUIRE_DECODING_MASK) |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4026 /* We found that the file should be decoded somehow. |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4027 Let's give up here. */ |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4028 { |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4029 giveup_match_end = 1; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4030 break; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4031 } |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4032 |
17835
f36ffb6f1208
Name change through the code:
Kenichi Handa <handa@m17n.org>
parents:
17823
diff
changeset
|
4033 if (coding.eol_type == CODING_EOL_UNDECIDED) |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4034 detect_eol (&coding, buffer, nread); |
18270
fd2ccbdc5660
(Fdo_auto_save): Use stdio to write the save-list file.
Richard M. Stallman <rms@gnu.org>
parents:
18210
diff
changeset
|
4035 if (coding.eol_type != CODING_EOL_UNDECIDED |
18973
9f5b8d5eed29
(Finsert_file_contents): Use new macros
Kenichi Handa <handa@m17n.org>
parents:
18861
diff
changeset
|
4036 && coding.eol_type != CODING_EOL_LF) |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4037 /* We found that the format of eol should be decoded. |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4038 Let's give up here. */ |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4039 { |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4040 giveup_match_end = 1; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4041 break; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4042 } |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4043 |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4044 bufpos = 0; |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4045 while (bufpos < nread && same_at_start < ZV_BYTE |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4046 && FETCH_BYTE (same_at_start) == buffer[bufpos]) |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4047 same_at_start++, bufpos++; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4048 /* If we found a discrepancy, stop the scan. |
14036 | 4049 Otherwise loop around and scan the next bufferful. */ |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4050 if (bufpos != nread) |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4051 break; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4052 } |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4053 immediate_quit = 0; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4054 /* If the file matches the buffer completely, |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4055 there's no need to replace anything. */ |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4056 if (same_at_start - BEGV_BYTE == XINT (end)) |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4057 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
4058 emacs_close (fd); |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
4059 specpdl_ptr--; |
7595
9f0893928a4d
(Finsert_file_contents): Declare buffer as unsigned
Richard M. Stallman <rms@gnu.org>
parents:
7551
diff
changeset
|
4060 /* Truncate the buffer to the size of the file. */ |
26742
936b39bd05b4
* editfns.c (Fdelete_and_extract_region): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26714
diff
changeset
|
4061 del_range_1 (same_at_start, same_at_end, 0, 0); |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4062 goto handled; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4063 } |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4064 immediate_quit = 1; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4065 QUIT; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4066 /* Count how many chars at the end of the file |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4067 match the text at the end of the buffer. But, if we have |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4068 already found that decoding is necessary, don't waste time. */ |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4069 while (!giveup_match_end) |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4070 { |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4071 int total_read, nread, bufpos, curpos, trial; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4072 |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4073 /* At what file position are we now scanning? */ |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4074 curpos = XINT (end) - (ZV_BYTE - same_at_end); |
7695
aba3ffcc8f51
(Finsert_file_contents): Check for beginning of file.
Karl Heuer <kwzh@gnu.org>
parents:
7611
diff
changeset
|
4075 /* If the entire file matches the buffer tail, stop the scan. */ |
aba3ffcc8f51
(Finsert_file_contents): Check for beginning of file.
Karl Heuer <kwzh@gnu.org>
parents:
7611
diff
changeset
|
4076 if (curpos == 0) |
aba3ffcc8f51
(Finsert_file_contents): Check for beginning of file.
Karl Heuer <kwzh@gnu.org>
parents:
7611
diff
changeset
|
4077 break; |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4078 /* How much can we scan in the next step? */ |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4079 trial = min (curpos, sizeof buffer); |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4080 if (lseek (fd, curpos - trial, 0) < 0) |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4081 report_file_error ("Setting file position", |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4082 Fcons (orig_filename, Qnil)); |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4083 |
39457
dbb9a3969094
(Finsert_file_contents): If REPLACE is non-nil, stop
Gerd Moellmann <gerd@gnu.org>
parents:
39291
diff
changeset
|
4084 total_read = nread = 0; |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4085 while (total_read < trial) |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4086 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
4087 nread = emacs_read (fd, buffer + total_read, trial - total_read); |
38619
879c6b736b9f
(Finsert_file_contents): Don't treat a return value
Gerd Moellmann <gerd@gnu.org>
parents:
38450
diff
changeset
|
4088 if (nread < 0) |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4089 error ("IO error reading %s: %s", |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
4090 SDATA (orig_filename), emacs_strerror (errno)); |
38619
879c6b736b9f
(Finsert_file_contents): Don't treat a return value
Gerd Moellmann <gerd@gnu.org>
parents:
38450
diff
changeset
|
4091 else if (nread == 0) |
879c6b736b9f
(Finsert_file_contents): Don't treat a return value
Gerd Moellmann <gerd@gnu.org>
parents:
38450
diff
changeset
|
4092 break; |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4093 total_read += nread; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4094 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4095 |
14036 | 4096 /* Scan this bufferful from the end, comparing with |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4097 the Emacs buffer. */ |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4098 bufpos = total_read; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4099 |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4100 /* Compare with same_at_start to avoid counting some buffer text |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4101 as matching both at the file's beginning and at the end. */ |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4102 while (bufpos > 0 && same_at_end > same_at_start |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4103 && FETCH_BYTE (same_at_end - 1) == buffer[bufpos - 1]) |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4104 same_at_end--, bufpos--; |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4105 |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4106 /* If we found a discrepancy, stop the scan. |
14036 | 4107 Otherwise loop around and scan the preceding bufferful. */ |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4108 if (bufpos != 0) |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4109 { |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4110 /* If this discrepancy is because of code conversion, |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4111 we cannot use this method; giveup and try the other. */ |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4112 if (same_at_end > same_at_start |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4113 && FETCH_BYTE (same_at_end - 1) >= 0200 |
18679
554594d88cd3
(Finsert_file_contents): Give up match-end only if
Richard M. Stallman <rms@gnu.org>
parents:
18647
diff
changeset
|
4114 && ! NILP (current_buffer->enable_multibyte_characters) |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4115 && (CODING_MAY_REQUIRE_DECODING (&coding))) |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4116 giveup_match_end = 1; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4117 break; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4118 } |
39457
dbb9a3969094
(Finsert_file_contents): If REPLACE is non-nil, stop
Gerd Moellmann <gerd@gnu.org>
parents:
39291
diff
changeset
|
4119 |
dbb9a3969094
(Finsert_file_contents): If REPLACE is non-nil, stop
Gerd Moellmann <gerd@gnu.org>
parents:
39291
diff
changeset
|
4120 if (nread == 0) |
dbb9a3969094
(Finsert_file_contents): If REPLACE is non-nil, stop
Gerd Moellmann <gerd@gnu.org>
parents:
39291
diff
changeset
|
4121 break; |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4122 } |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4123 immediate_quit = 0; |
6328
e97a1cc44be8
(Finsert_file_contents): Don't let same_at_end be less than same_at_start.
Richard M. Stallman <rms@gnu.org>
parents:
6209
diff
changeset
|
4124 |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4125 if (! giveup_match_end) |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4126 { |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4127 int temp; |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4128 |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4129 /* We win! We can handle REPLACE the optimized way. */ |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4130 |
22753
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4131 /* Extend the start of non-matching text area to multibyte |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4132 character boundary. */ |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4133 if (! NILP (current_buffer->enable_multibyte_characters)) |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4134 while (same_at_start > BEGV_BYTE |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4135 && ! CHAR_HEAD_P (FETCH_BYTE (same_at_start))) |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4136 same_at_start--; |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4137 |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4138 /* Extend the end of non-matching text area to multibyte |
18679
554594d88cd3
(Finsert_file_contents): Give up match-end only if
Richard M. Stallman <rms@gnu.org>
parents:
18647
diff
changeset
|
4139 character boundary. */ |
554594d88cd3
(Finsert_file_contents): Give up match-end only if
Richard M. Stallman <rms@gnu.org>
parents:
18647
diff
changeset
|
4140 if (! NILP (current_buffer->enable_multibyte_characters)) |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4141 while (same_at_end < ZV_BYTE |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4142 && ! CHAR_HEAD_P (FETCH_BYTE (same_at_end))) |
18679
554594d88cd3
(Finsert_file_contents): Give up match-end only if
Richard M. Stallman <rms@gnu.org>
parents:
18647
diff
changeset
|
4143 same_at_end++; |
554594d88cd3
(Finsert_file_contents): Give up match-end only if
Richard M. Stallman <rms@gnu.org>
parents:
18647
diff
changeset
|
4144 |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4145 /* Don't try to reuse the same piece of text twice. */ |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4146 overlap = (same_at_start - BEGV_BYTE |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4147 - (same_at_end + st.st_size - ZV)); |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4148 if (overlap > 0) |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4149 same_at_end += overlap; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4150 |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4151 /* Arrange to read only the nonmatching middle part of the file. */ |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4152 XSETFASTINT (beg, XINT (beg) + (same_at_start - BEGV_BYTE)); |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4153 XSETFASTINT (end, XINT (end) - (ZV_BYTE - same_at_end)); |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4154 |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4155 del_range_byte (same_at_start, same_at_end, 0); |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4156 /* Insert from the file at the proper position. */ |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4157 temp = BYTE_TO_CHAR (same_at_start); |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4158 SET_PT_BOTH (temp, same_at_start); |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4159 |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4160 /* If display currently starts at beginning of line, |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4161 keep it that way. */ |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4162 if (XBUFFER (XWINDOW (selected_window)->buffer) == current_buffer) |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4163 XWINDOW (selected_window)->start_at_line_beg = Fbolp (); |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4164 |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4165 replace_handled = 1; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4166 } |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4167 } |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4168 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4169 /* If requested, replace the accessible part of the buffer |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4170 with the file contents. Avoid replacing text at the |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4171 beginning or end of the buffer that matches the file contents; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4172 that preserves markers pointing to the unchanged parts. |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4173 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4174 Here we implement this feature for the case where code conversion |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4175 is needed, in a simple way that needs a lot of memory. |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4176 The preceding if-statement handles the case of no conversion |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4177 in a more optimized way. */ |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
4178 if (!NILP (replace) && ! replace_handled && BEGV < ZV) |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4179 { |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4180 int same_at_start = BEGV_BYTE; |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4181 int same_at_end = ZV_BYTE; |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4182 int overlap; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4183 int bufpos; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4184 /* Make sure that the gap is large enough. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4185 int bufsize = 2 * st.st_size; |
17820
d7b187832881
(Finsert_file_contents): Use xmalloc. not malloc.
Richard M. Stallman <rms@gnu.org>
parents:
17723
diff
changeset
|
4186 unsigned char *conversion_buffer = (unsigned char *) xmalloc (bufsize); |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4187 int temp; |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4188 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4189 /* First read the whole file, performing code conversion into |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4190 CONVERSION_BUFFER. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4191 |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4192 if (lseek (fd, XINT (beg), 0) < 0) |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4193 { |
24451
4e77e063fc79
(Finsert_file_contents): Use xfree.
Dave Love <fx@gnu.org>
parents:
24392
diff
changeset
|
4194 xfree (conversion_buffer); |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4195 report_file_error ("Setting file position", |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4196 Fcons (orig_filename, Qnil)); |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4197 } |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4198 |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4199 total = st.st_size; /* Total bytes in the file. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4200 how_much = 0; /* Bytes read from file so far. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4201 inserted = 0; /* Bytes put into CONVERSION_BUFFER so far. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4202 unprocessed = 0; /* Bytes not processed in previous loop. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4203 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4204 while (how_much < total) |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4205 { |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4206 /* try is reserved in some compilers (Microsoft C) */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4207 int trytry = min (total - how_much, READ_BUF_SIZE - unprocessed); |
22311
599c0971ae49
(Finsert_file_contents): Fix char signedness mismatches.
Karl Heuer <kwzh@gnu.org>
parents:
22172
diff
changeset
|
4208 unsigned char *destination = read_buf + unprocessed; |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4209 int this; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4210 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4211 /* Allow quitting out of the actual I/O. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4212 immediate_quit = 1; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4213 QUIT; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
4214 this = emacs_read (fd, destination, trytry); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4215 immediate_quit = 0; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4216 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4217 if (this < 0 || this + unprocessed == 0) |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4218 { |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4219 how_much = this; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4220 break; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4221 } |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4222 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4223 how_much += this; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4224 |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4225 if (CODING_MAY_REQUIRE_DECODING (&coding)) |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4226 { |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4227 int require, result; |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4228 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4229 this += unprocessed; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4230 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4231 /* If we are using more space than estimated, |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4232 make CONVERSION_BUFFER bigger. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4233 require = decoding_buffer_size (&coding, this); |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4234 if (inserted + require + 2 * (total - how_much) > bufsize) |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4235 { |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4236 bufsize = inserted + require + 2 * (total - how_much); |
17823
2f313f045caa
(Finsert_file_contents): Use xrealloc too.
Richard M. Stallman <rms@gnu.org>
parents:
17820
diff
changeset
|
4237 conversion_buffer = (unsigned char *) xrealloc (conversion_buffer, bufsize); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4238 } |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4239 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4240 /* Convert this batch with results in CONVERSION_BUFFER. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4241 if (how_much >= total) /* This is the last block. */ |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4242 coding.mode |= CODING_MODE_LAST_BLOCK; |
38973
64125d607a06
Finsert_file_contents): Allocate, restore, and
Gerd Moellmann <gerd@gnu.org>
parents:
38967
diff
changeset
|
4243 if (coding.composing != COMPOSITION_DISABLED) |
64125d607a06
Finsert_file_contents): Allocate, restore, and
Gerd Moellmann <gerd@gnu.org>
parents:
38967
diff
changeset
|
4244 coding_allocate_composition_data (&coding, BEGV); |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4245 result = decode_coding (&coding, read_buf, |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4246 conversion_buffer + inserted, |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4247 this, bufsize - inserted); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4248 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4249 /* Save for next iteration whatever we didn't convert. */ |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4250 unprocessed = this - coding.consumed; |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4251 bcopy (read_buf + coding.consumed, read_buf, unprocessed); |
29009
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4252 if (!NILP (current_buffer->enable_multibyte_characters)) |
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4253 this = coding.produced; |
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4254 else |
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4255 this = str_as_unibyte (conversion_buffer + inserted, |
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4256 coding.produced); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4257 } |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4258 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4259 inserted += this; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4260 } |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4261 |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4262 /* At this point, INSERTED is how many characters (i.e. bytes) |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4263 are present in CONVERSION_BUFFER. |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4264 HOW_MUCH should equal TOTAL, |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4265 or should be <= 0 if we couldn't read the file. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4266 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4267 if (how_much < 0) |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4268 { |
25321
2ad9fa0386b6
(Finsert_file_contents): Use xfree.
Dave Love <fx@gnu.org>
parents:
25006
diff
changeset
|
4269 xfree (conversion_buffer); |
57286
32c7a00069f2
(Finsert_file_contents): Be sure to free composition data.
Kenichi Handa <handa@m17n.org>
parents:
57112
diff
changeset
|
4270 coding_free_composition_data (&coding); |
70578
e963ced8a1ca
(Finsert_file_contents): Fix for the case of IO error
Kenichi Handa <handa@m17n.org>
parents:
70518
diff
changeset
|
4271 error ("IO error reading %s: %s", |
e963ced8a1ca
(Finsert_file_contents): Fix for the case of IO error
Kenichi Handa <handa@m17n.org>
parents:
70518
diff
changeset
|
4272 SDATA (orig_filename), emacs_strerror (errno)); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4273 } |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4274 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4275 /* Compare the beginning of the converted file |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4276 with the buffer text. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4277 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4278 bufpos = 0; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4279 while (bufpos < inserted && same_at_start < same_at_end |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4280 && FETCH_BYTE (same_at_start) == conversion_buffer[bufpos]) |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4281 same_at_start++, bufpos++; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4282 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4283 /* If the file matches the buffer completely, |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4284 there's no need to replace anything. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4285 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4286 if (bufpos == inserted) |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4287 { |
25321
2ad9fa0386b6
(Finsert_file_contents): Use xfree.
Dave Love <fx@gnu.org>
parents:
25006
diff
changeset
|
4288 xfree (conversion_buffer); |
57286
32c7a00069f2
(Finsert_file_contents): Be sure to free composition data.
Kenichi Handa <handa@m17n.org>
parents:
57112
diff
changeset
|
4289 coding_free_composition_data (&coding); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
4290 emacs_close (fd); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4291 specpdl_ptr--; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4292 /* Truncate the buffer to the size of the file. */ |
24877
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
4293 del_range_byte (same_at_start, same_at_end, 0); |
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
4294 inserted = 0; |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4295 goto handled; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4296 } |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4297 |
22753
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4298 /* Extend the start of non-matching text area to multibyte |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4299 character boundary. */ |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4300 if (! NILP (current_buffer->enable_multibyte_characters)) |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4301 while (same_at_start > BEGV_BYTE |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4302 && ! CHAR_HEAD_P (FETCH_BYTE (same_at_start))) |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4303 same_at_start--; |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4304 |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4305 /* Scan this bufferful from the end, comparing with |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4306 the Emacs buffer. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4307 bufpos = inserted; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4308 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4309 /* Compare with same_at_start to avoid counting some buffer text |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4310 as matching both at the file's beginning and at the end. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4311 while (bufpos > 0 && same_at_end > same_at_start |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4312 && FETCH_BYTE (same_at_end - 1) == conversion_buffer[bufpos - 1]) |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4313 same_at_end--, bufpos--; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4314 |
22753
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4315 /* Extend the end of non-matching text area to multibyte |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4316 character boundary. */ |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4317 if (! NILP (current_buffer->enable_multibyte_characters)) |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4318 while (same_at_end < ZV_BYTE |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4319 && ! CHAR_HEAD_P (FETCH_BYTE (same_at_end))) |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4320 same_at_end++; |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
4321 |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4322 /* Don't try to reuse the same piece of text twice. */ |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4323 overlap = same_at_start - BEGV_BYTE - (same_at_end + inserted - ZV_BYTE); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4324 if (overlap > 0) |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4325 same_at_end += overlap; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4326 |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4327 /* If display currently starts at beginning of line, |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4328 keep it that way. */ |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4329 if (XBUFFER (XWINDOW (selected_window)->buffer) == current_buffer) |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4330 XWINDOW (selected_window)->start_at_line_beg = Fbolp (); |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
4331 |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4332 /* Replace the chars that we need to replace, |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4333 and update INSERTED to equal the number of bytes |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4334 we are taking from the file. */ |
57112
4c14357ffc27
(Finsert_file_contents): Fix case of replacement in a narrowed buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56977
diff
changeset
|
4335 inserted -= (ZV_BYTE - same_at_end) + (same_at_start - BEGV_BYTE); |
24877
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
4336 |
21949
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
4337 if (same_at_end != same_at_start) |
24877
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
4338 { |
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
4339 del_range_byte (same_at_start, same_at_end, 0); |
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
4340 temp = GPT; |
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
4341 same_at_start = GPT_BYTE; |
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
4342 } |
21949
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
4343 else |
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
4344 { |
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
4345 temp = BYTE_TO_CHAR (same_at_start); |
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
4346 } |
24877
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
4347 /* Insert from the file at the proper position. */ |
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
4348 SET_PT_BOTH (temp, same_at_start); |
57112
4c14357ffc27
(Finsert_file_contents): Fix case of replacement in a narrowed buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56977
diff
changeset
|
4349 insert_1 (conversion_buffer + same_at_start - BEGV_BYTE, inserted, |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4350 0, 0, 0); |
38973
64125d607a06
Finsert_file_contents): Allocate, restore, and
Gerd Moellmann <gerd@gnu.org>
parents:
38967
diff
changeset
|
4351 if (coding.cmp_data && coding.cmp_data->used) |
64125d607a06
Finsert_file_contents): Allocate, restore, and
Gerd Moellmann <gerd@gnu.org>
parents:
38967
diff
changeset
|
4352 coding_restore_composition (&coding, Fcurrent_buffer ()); |
64125d607a06
Finsert_file_contents): Allocate, restore, and
Gerd Moellmann <gerd@gnu.org>
parents:
38967
diff
changeset
|
4353 coding_free_composition_data (&coding); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4354 |
24877
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
4355 /* Set `inserted' to the number of inserted characters. */ |
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
4356 inserted = PT - temp; |
69136
ebfcb70d92d2
(Finsert_file_contents): When a text is replaced
Kenichi Handa <handa@m17n.org>
parents:
68118
diff
changeset
|
4357 /* Set point before the inserted characters. */ |
ebfcb70d92d2
(Finsert_file_contents): When a text is replaced
Kenichi Handa <handa@m17n.org>
parents:
68118
diff
changeset
|
4358 SET_PT_BOTH (temp, same_at_start); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4359 |
30605
2bf69b38f4d3
(Finsert_file_contents): Use xfree instead of free.
Gerd Moellmann <gerd@gnu.org>
parents:
30376
diff
changeset
|
4360 xfree (conversion_buffer); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
4361 emacs_close (fd); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4362 specpdl_ptr--; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4363 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
4364 goto handled; |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4365 } |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
4366 |
17286
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4367 if (! not_regular) |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4368 { |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4369 register Lisp_Object temp; |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4370 |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4371 total = XINT (end) - XINT (beg); |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4372 |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4373 /* Make sure point-max won't overflow after this insertion. */ |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4374 XSETINT (temp, total); |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4375 if (total != XINT (temp)) |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4376 error ("Maximum buffer size exceeded"); |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4377 } |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4378 else |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4379 /* For a special file, all we can do is guess. */ |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
4380 total = READ_BUF_SIZE; |
230 | 4381 |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4382 if (NILP (visit) && inserted > 0) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4383 { |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4384 #ifdef CLASH_DETECTION |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4385 if (!NILP (current_buffer->file_truename) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4386 /* Make binding buffer-file-name to nil effective. */ |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4387 && !NILP (current_buffer->filename) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4388 && SAVE_MODIFF >= MODIFF) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4389 we_locked_file = 1; |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4390 #endif /* CLASH_DETECTION */ |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4391 prepare_to_modify_buffer (GPT, GPT, NULL); |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4392 } |
16167
651ee074f8b0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
16155
diff
changeset
|
4393 |
651ee074f8b0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
16155
diff
changeset
|
4394 move_gap (PT); |
3787
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
4395 if (GAP_SIZE < total) |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
4396 make_gap (total - GAP_SIZE); |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
4397 |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
4398 if (XINT (beg) != 0 || !NILP (replace)) |
3787
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
4399 { |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
4400 if (lseek (fd, XINT (beg), 0) < 0) |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4401 report_file_error ("Setting file position", |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4402 Fcons (orig_filename, Qnil)); |
3787
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
4403 } |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
4404 |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4405 /* In the following loop, HOW_MUCH contains the total bytes read so |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4406 far for a regular file, and not changed for a special file. But, |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4407 before exiting the loop, it is set to a negative value if I/O |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4408 error occurs. */ |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
4409 how_much = 0; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4410 |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4411 /* Total bytes inserted. */ |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4412 inserted = 0; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4413 |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4414 /* Here, we don't do code conversion in the loop. It is done by |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4415 code_convert_region after all data are read into the buffer. */ |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4416 { |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4417 int gap_size = GAP_SIZE; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4418 |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4419 while (how_much < total) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4420 { |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
4421 /* try is reserved in some compilers (Microsoft C) */ |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4422 int trytry = min (total - how_much, READ_BUF_SIZE); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4423 int this; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4424 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4425 if (not_regular) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4426 { |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4427 Lisp_Object val; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4428 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4429 /* Maybe make more room. */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4430 if (gap_size < trytry) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4431 { |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4432 make_gap (total - gap_size); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4433 gap_size = GAP_SIZE; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4434 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4435 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4436 /* Read from the file, capturing `quit'. When an |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4437 error occurs, end the loop, and arrange for a quit |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4438 to be signaled after decoding the text we read. */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4439 non_regular_fd = fd; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4440 non_regular_inserted = inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4441 non_regular_nbytes = trytry; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4442 val = internal_condition_case_1 (read_non_regular, Qnil, Qerror, |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4443 read_non_regular_quit); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4444 if (NILP (val)) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4445 { |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4446 read_quit = 1; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4447 break; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4448 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4449 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4450 this = XINT (val); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4451 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4452 else |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4453 { |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4454 /* Allow quitting out of the actual I/O. We don't make text |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4455 part of the buffer until all the reading is done, so a C-g |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4456 here doesn't do any harm. */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4457 immediate_quit = 1; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4458 QUIT; |
45485
08b14b8f7bc2
(read_non_regular, Finsert_file_contents): Use BEG_BYTE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44563
diff
changeset
|
4459 this = emacs_read (fd, BEG_ADDR + PT_BYTE - BEG_BYTE + inserted, trytry); |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4460 immediate_quit = 0; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4461 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4462 |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4463 if (this <= 0) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4464 { |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4465 how_much = this; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4466 break; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4467 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4468 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4469 gap_size -= this; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4470 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4471 /* For a regular file, where TOTAL is the real size, |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4472 count HOW_MUCH to compare with it. |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4473 For a special file, where TOTAL is just a buffer size, |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4474 so don't bother counting in HOW_MUCH. |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4475 (INSERTED is where we count the number of characters inserted.) */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4476 if (! not_regular) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4477 how_much += this; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4478 inserted += this; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4479 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4480 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4481 |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4482 /* Now we have read all the file data into the gap. |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4483 If it was empty, undo marking the buffer modified. */ |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4484 |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4485 if (inserted == 0) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4486 { |
62299
3fa6e7b9d397
(Finsert_file_contents): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
62296
diff
changeset
|
4487 #ifdef CLASH_DETECTION |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4488 if (we_locked_file) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4489 unlock_file (current_buffer->file_truename); |
62299
3fa6e7b9d397
(Finsert_file_contents): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
62296
diff
changeset
|
4490 #endif |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4491 Vdeactivate_mark = old_Vdeactivate_mark; |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4492 } |
67495
5a3907cc23fc
(Finsert_file_contents): Set Vdeactivate_mark when we change the buffer.
Richard M. Stallman <rms@gnu.org>
parents:
67337
diff
changeset
|
4493 else |
5a3907cc23fc
(Finsert_file_contents): Set Vdeactivate_mark when we change the buffer.
Richard M. Stallman <rms@gnu.org>
parents:
67337
diff
changeset
|
4494 Vdeactivate_mark = Qt; |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4495 |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4496 /* Make the text read part of the buffer. */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4497 GAP_SIZE -= inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4498 GPT += inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4499 GPT_BYTE += inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4500 ZV += inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4501 ZV_BYTE += inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4502 Z += inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4503 Z_BYTE += inserted; |
230 | 4504 |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4505 if (GAP_SIZE > 0) |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4506 /* Put an anchor to ensure multi-byte form ends at gap. */ |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4507 *GPT_ADDR = 0; |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4508 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
4509 emacs_close (fd); |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4510 |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4511 /* Discard the unwind protect for closing the file. */ |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4512 specpdl_ptr--; |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4513 |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4514 if (how_much < 0) |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4515 error ("IO error reading %s: %s", |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
4516 SDATA (orig_filename), emacs_strerror (errno)); |
19399
8ece1f8d2ff6
(Finsert_file_contents) [DOS_NT]: Set buffer_file_type
Geoff Voelker <voelker@cs.washington.edu>
parents:
19206
diff
changeset
|
4517 |
29152
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4518 notfound: |
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4519 |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4520 if (! coding_system_decided) |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4521 { |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4522 /* The coding system is not yet decided. Decide it by an |
26638 | 4523 optimized method for handling `coding:' tag. |
4524 | |
4525 Note that we can get here only if the buffer was empty | |
4526 before the insertion. */ | |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4527 Lisp_Object val; |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4528 val = Qnil; |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4529 |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4530 if (!NILP (Vcoding_system_for_read)) |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4531 val = Vcoding_system_for_read; |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4532 else |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4533 { |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4534 /* Since we are sure that the current buffer was empty |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4535 before the insertion, we can toggle |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4536 enable-multibyte-characters directly here without taking |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4537 care of marker adjustment and byte combining problem. By |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4538 this way, we can run Lisp program safely before decoding |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4539 the inserted text. */ |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4540 Lisp_Object unwind_data; |
60563
ca116ec246d7
(Finsert_file_contents): Call Fcheck_coding_system
Kenichi Handa <handa@m17n.org>
parents:
60387
diff
changeset
|
4541 int count = SPECPDL_INDEX (); |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4542 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4543 unwind_data = Fcons (current_buffer->enable_multibyte_characters, |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4544 Fcons (current_buffer->undo_list, |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4545 Fcurrent_buffer ())); |
60563
ca116ec246d7
(Finsert_file_contents): Call Fcheck_coding_system
Kenichi Handa <handa@m17n.org>
parents:
60387
diff
changeset
|
4546 current_buffer->enable_multibyte_characters = Qnil; |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4547 current_buffer->undo_list = Qt; |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4548 record_unwind_protect (decide_coding_unwind, unwind_data); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4549 |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4550 if (inserted > 0 && ! NILP (Vset_auto_coding_function)) |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4551 { |
22811
6e11bb792d4f
(Finsert_file_contents): Call Vset_auto_coding_function
Kenichi Handa <handa@m17n.org>
parents:
22753
diff
changeset
|
4552 val = call2 (Vset_auto_coding_function, |
6e11bb792d4f
(Finsert_file_contents): Call Vset_auto_coding_function
Kenichi Handa <handa@m17n.org>
parents:
22753
diff
changeset
|
4553 filename, make_number (inserted)); |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4554 } |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4555 |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4556 if (NILP (val)) |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4557 { |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4558 /* If the coding system is not yet decided, check |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4559 file-coding-system-alist. */ |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4560 Lisp_Object args[6], coding_systems; |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4561 |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4562 args[0] = Qinsert_file_contents, args[1] = orig_filename; |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4563 args[2] = visit, args[3] = beg, args[4] = end, args[5] = Qnil; |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4564 coding_systems = Ffind_operation_coding_system (6, args); |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4565 if (CONSP (coding_systems)) |
25662
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
4566 val = XCAR (coding_systems); |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4567 } |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4568 unbind_to (count, Qnil); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4569 inserted = Z_BYTE - BEG_BYTE; |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4570 } |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4571 |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4572 /* The following kludgy code is to avoid some compiler bug. |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4573 We can't simply do |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4574 setup_coding_system (val, &coding); |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4575 on some system. */ |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4576 { |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4577 struct coding_system temp_coding; |
60563
ca116ec246d7
(Finsert_file_contents): Call Fcheck_coding_system
Kenichi Handa <handa@m17n.org>
parents:
60387
diff
changeset
|
4578 setup_coding_system (Fcheck_coding_system (val), &temp_coding); |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4579 bcopy (&temp_coding, &coding, sizeof coding); |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4580 } |
29152
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4581 /* Ensure we set Vlast_coding_system_used. */ |
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4582 set_coding_system = 1; |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4583 |
24932
27a1d7a4c444
(Finsert_file_contents): If reading into a unibyte
Richard M. Stallman <rms@gnu.org>
parents:
24909
diff
changeset
|
4584 if (NILP (current_buffer->enable_multibyte_characters) |
27a1d7a4c444
(Finsert_file_contents): If reading into a unibyte
Richard M. Stallman <rms@gnu.org>
parents:
24909
diff
changeset
|
4585 && ! NILP (val)) |
27a1d7a4c444
(Finsert_file_contents): If reading into a unibyte
Richard M. Stallman <rms@gnu.org>
parents:
24909
diff
changeset
|
4586 /* We must suppress all character code conversion except for |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4587 end-of-line conversion. */ |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4588 setup_raw_text_coding_system (&coding); |
29540
c449a480768c
(Finsert_file_contents): Be sure to setup src_multibyte
Kenichi Handa <handa@m17n.org>
parents:
29478
diff
changeset
|
4589 coding.src_multibyte = 0; |
c449a480768c
(Finsert_file_contents): Be sure to setup src_multibyte
Kenichi Handa <handa@m17n.org>
parents:
29478
diff
changeset
|
4590 coding.dst_multibyte |
c449a480768c
(Finsert_file_contents): Be sure to setup src_multibyte
Kenichi Handa <handa@m17n.org>
parents:
29478
diff
changeset
|
4591 = !NILP (current_buffer->enable_multibyte_characters); |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4592 } |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4593 |
29009
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4594 if (!NILP (visit) |
39023
c0daac54d3e1
(Finsert_file_contents): Don't change the multibyteness
Gerd Moellmann <gerd@gnu.org>
parents:
39007
diff
changeset
|
4595 /* Can't do this if part of the buffer might be preserved. */ |
c0daac54d3e1
(Finsert_file_contents): Don't change the multibyteness
Gerd Moellmann <gerd@gnu.org>
parents:
39007
diff
changeset
|
4596 && NILP (replace) |
29009
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4597 && (coding.type == coding_type_no_conversion |
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4598 || coding.type == coding_type_raw_text)) |
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4599 { |
39023
c0daac54d3e1
(Finsert_file_contents): Don't change the multibyteness
Gerd Moellmann <gerd@gnu.org>
parents:
39007
diff
changeset
|
4600 /* Visiting a file with these coding system makes the buffer |
c0daac54d3e1
(Finsert_file_contents): Don't change the multibyteness
Gerd Moellmann <gerd@gnu.org>
parents:
39007
diff
changeset
|
4601 unibyte. */ |
c0daac54d3e1
(Finsert_file_contents): Don't change the multibyteness
Gerd Moellmann <gerd@gnu.org>
parents:
39007
diff
changeset
|
4602 current_buffer->enable_multibyte_characters = Qnil; |
38932
8328e5ca5f55
(Finsert_file_contents): Set coding's dest_multibyte
Gerd Moellmann <gerd@gnu.org>
parents:
38929
diff
changeset
|
4603 coding.dst_multibyte = 0; |
29009
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4604 } |
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4605 |
23878
0d713a8426b6
(Finsert_file_contents): Even if INSERTED is zero, if
Kenichi Handa <handa@m17n.org>
parents:
23617
diff
changeset
|
4606 if (inserted > 0 || coding.type == coding_type_ccl) |
1240
7365d006d0a0
(Finsert_file_contents): Do record_insert, then inc MODIFF.
Richard M. Stallman <rms@gnu.org>
parents:
1204
diff
changeset
|
4607 { |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4608 if (CODING_MAY_REQUIRE_DECODING (&coding)) |
20929
21009c0c7598
(Finsert_file_contents): Read a file contents into the
Kenichi Handa <handa@m17n.org>
parents:
20897
diff
changeset
|
4609 { |
21009c0c7598
(Finsert_file_contents): Read a file contents into the
Kenichi Handa <handa@m17n.org>
parents:
20897
diff
changeset
|
4610 code_convert_region (PT, PT_BYTE, PT + inserted, PT_BYTE + inserted, |
21009c0c7598
(Finsert_file_contents): Read a file contents into the
Kenichi Handa <handa@m17n.org>
parents:
20897
diff
changeset
|
4611 &coding, 0, 0); |
29009
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4612 inserted = coding.produced_char; |
21138
d10664297ed2
(Finsert_file_contents): Don't do position adjustments
Kenichi Handa <handa@m17n.org>
parents:
21048
diff
changeset
|
4613 } |
21504
0e2b0f6fc9c0
(Finsert_file_contents): Call adjust_after_insert also
Andreas Schwab <schwab@suse.de>
parents:
21423
diff
changeset
|
4614 else |
0e2b0f6fc9c0
(Finsert_file_contents): Call adjust_after_insert also
Andreas Schwab <schwab@suse.de>
parents:
21423
diff
changeset
|
4615 adjust_after_insert (PT, PT_BYTE, PT + inserted, PT_BYTE + inserted, |
29009
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
4616 inserted); |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4617 } |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4618 |
50491
15f94db27199
(Finsert_file_contents): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
50340
diff
changeset
|
4619 /* Now INSERTED is measured in characters. */ |
15f94db27199
(Finsert_file_contents): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
50340
diff
changeset
|
4620 |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4621 #ifdef DOS_NT |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4622 /* Use the conversion type to determine buffer-file-type |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4623 (find-buffer-file-type is now used to help determine the |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4624 conversion). */ |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4625 if ((coding.eol_type == CODING_EOL_UNDECIDED |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4626 || coding.eol_type == CODING_EOL_LF) |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4627 && ! CODING_REQUIRE_DECODING (&coding)) |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4628 current_buffer->buffer_file_type = Qt; |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4629 else |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4630 current_buffer->buffer_file_type = Qnil; |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4631 #endif |
230 | 4632 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4633 handled: |
230 | 4634 |
485 | 4635 if (!NILP (visit)) |
230 | 4636 { |
6177
ac2ef13dca1b
(Finsert_file_contents): If undo_list was t, leave it t.
Richard M. Stallman <rms@gnu.org>
parents:
6036
diff
changeset
|
4637 if (!EQ (current_buffer->undo_list, Qt)) |
ac2ef13dca1b
(Finsert_file_contents): If undo_list was t, leave it t.
Richard M. Stallman <rms@gnu.org>
parents:
6036
diff
changeset
|
4638 current_buffer->undo_list = Qnil; |
5390
d9c81d7079f3
(Finsert_file_contents): Don't run after change hook
Richard M. Stallman <rms@gnu.org>
parents:
5351
diff
changeset
|
4639 |
5395
e11486a64dab
(Finsert_file_contents): Avoid setting buffer-file-name field if ran a handler.
Richard M. Stallman <rms@gnu.org>
parents:
5390
diff
changeset
|
4640 if (NILP (handler)) |
e11486a64dab
(Finsert_file_contents): Avoid setting buffer-file-name field if ran a handler.
Richard M. Stallman <rms@gnu.org>
parents:
5390
diff
changeset
|
4641 { |
e11486a64dab
(Finsert_file_contents): Avoid setting buffer-file-name field if ran a handler.
Richard M. Stallman <rms@gnu.org>
parents:
5390
diff
changeset
|
4642 current_buffer->modtime = st.st_mtime; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4643 current_buffer->filename = orig_filename; |
5395
e11486a64dab
(Finsert_file_contents): Avoid setting buffer-file-name field if ran a handler.
Richard M. Stallman <rms@gnu.org>
parents:
5390
diff
changeset
|
4644 } |
5390
d9c81d7079f3
(Finsert_file_contents): Don't run after change hook
Richard M. Stallman <rms@gnu.org>
parents:
5351
diff
changeset
|
4645 |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
4646 SAVE_MODIFF = MODIFF; |
230 | 4647 current_buffer->auto_save_modified = MODIFF; |
9307
44d6fc4b638b
(Finsert_file_contents, Fwrite_region, Fdo_auto_save, Fset_buffer_auto_saved):
Karl Heuer <kwzh@gnu.org>
parents:
9291
diff
changeset
|
4648 XSETFASTINT (current_buffer->save_length, Z - BEG); |
230 | 4649 #ifdef CLASH_DETECTION |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4650 if (NILP (handler)) |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4651 { |
11658
304577bc9b51
(Finsert_file_contents): Use file_truename for unlocking.
Richard M. Stallman <rms@gnu.org>
parents:
11632
diff
changeset
|
4652 if (!NILP (current_buffer->file_truename)) |
304577bc9b51
(Finsert_file_contents): Use file_truename for unlocking.
Richard M. Stallman <rms@gnu.org>
parents:
11632
diff
changeset
|
4653 unlock_file (current_buffer->file_truename); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4654 unlock_file (filename); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4655 } |
230 | 4656 #endif /* CLASH_DETECTION */ |
9915
ec185bc66071
(Finsert_file_contents): If VISIT, set the buffer components
Richard M. Stallman <rms@gnu.org>
parents:
9872
diff
changeset
|
4657 if (not_regular) |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
4658 xsignal2 (Qfile_error, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
4659 build_string ("not a regular file"), orig_filename); |
230 | 4660 } |
4661 | |
50530
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4662 if (set_coding_system) |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4663 Vlast_coding_system_used = coding.symbol; |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4664 |
50546
4a06e3332577
(Vafter_insert_file_adjust_coding_function): Delete
Kenichi Handa <handa@m17n.org>
parents:
50530
diff
changeset
|
4665 if (! NILP (Ffboundp (Qafter_insert_file_set_coding))) |
50530
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4666 { |
59207
3912575fcded
(Finsert_file_contents): Don't use
Kenichi Handa <handa@m17n.org>
parents:
59146
diff
changeset
|
4667 insval = call2 (Qafter_insert_file_set_coding, make_number (inserted), |
3912575fcded
(Finsert_file_contents): Don't use
Kenichi Handa <handa@m17n.org>
parents:
59146
diff
changeset
|
4668 visit); |
50530
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4669 if (! NILP (insval)) |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4670 { |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4671 CHECK_NUMBER (insval); |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4672 inserted = XFASTINT (insval); |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4673 } |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4674 } |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4675 |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4676 /* Decode file format */ |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4677 if (inserted > 0) |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4678 { |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4679 /* Don't run point motion or modification hooks when decoding. */ |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4680 int count = SPECPDL_INDEX (); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4681 specbind (Qinhibit_point_motion_hooks, Qt); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4682 specbind (Qinhibit_modification_hooks, Qt); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4683 |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4684 /* Save old undo list and don't record undo for decoding. */ |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4685 old_undo = current_buffer->undo_list; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4686 current_buffer->undo_list = Qt; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4687 |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4688 if (NILP (replace)) |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4689 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4690 insval = call3 (Qformat_decode, |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4691 Qnil, make_number (inserted), visit); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4692 CHECK_NUMBER (insval); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4693 inserted = XFASTINT (insval); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4694 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4695 else |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4696 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4697 /* If REPLACE is non-nil and we succeeded in not replacing the |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4698 beginning or end of the buffer text with the file's contents, |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4699 call format-decode with `point' positioned at the beginning of |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4700 the buffer and `inserted' equalling the number of characters |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4701 in the buffer. Otherwise, format-decode might fail to |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4702 correctly analyze the beginning or end of the buffer. Hence |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4703 we temporarily save `point' and `inserted' here and restore |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4704 `point' iff format-decode did not insert or delete any text. |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4705 Otherwise we leave `point' at point-min. */ |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4706 int opoint = PT; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4707 int opoint_byte = PT_BYTE; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4708 int oinserted = ZV - BEGV; |
82809
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4709 int ochars_modiff = CHARS_MODIFF; |
85506
b31c7731df51
* fileio.c (Fcopy_file): Call file name handler with preserve_uid_gid.
Michael Albinus <michael.albinus@gmx.de>
parents:
85335
diff
changeset
|
4710 |
b31c7731df51
* fileio.c (Fcopy_file): Call file name handler with preserve_uid_gid.
Michael Albinus <michael.albinus@gmx.de>
parents:
85335
diff
changeset
|
4711 TEMP_SET_PT_BOTH (BEGV, BEGV_BYTE); |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4712 insval = call3 (Qformat_decode, |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4713 Qnil, make_number (oinserted), visit); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4714 CHECK_NUMBER (insval); |
82809
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4715 if (ochars_modiff == CHARS_MODIFF) |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4716 /* format_decode didn't modify buffer's characters => move |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4717 point back to position before inserted text and leave |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4718 value of inserted alone. */ |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4719 SET_PT_BOTH (opoint, opoint_byte); |
82809
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4720 else |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4721 /* format_decode modified buffer's characters => consider |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4722 entire buffer changed and leave point at point-min. */ |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4723 inserted = XFASTINT (insval); |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4724 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4725 |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4726 /* For consistency with format-decode call these now iff inserted > 0 |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4727 (martin 2007-06-28) */ |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4728 p = Vafter_insert_file_functions; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4729 while (CONSP (p)) |
34167
ce6d3ca84e6d
(Finsert_file_contents): When VISIT is t, don't
Gerd Moellmann <gerd@gnu.org>
parents:
34104
diff
changeset
|
4730 { |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4731 if (NILP (replace)) |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4732 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4733 insval = call1 (XCAR (p), make_number (inserted)); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4734 if (!NILP (insval)) |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4735 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4736 CHECK_NUMBER (insval); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4737 inserted = XFASTINT (insval); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4738 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4739 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4740 else |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4741 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4742 /* For the rationale of this see the comment on format-decode above. */ |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4743 int opoint = PT; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4744 int opoint_byte = PT_BYTE; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4745 int oinserted = ZV - BEGV; |
82809
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4746 int ochars_modiff = CHARS_MODIFF; |
85506
b31c7731df51
* fileio.c (Fcopy_file): Call file name handler with preserve_uid_gid.
Michael Albinus <michael.albinus@gmx.de>
parents:
85335
diff
changeset
|
4747 |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4748 TEMP_SET_PT_BOTH (BEGV, BEGV_BYTE); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4749 insval = call1 (XCAR (p), make_number (oinserted)); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4750 if (!NILP (insval)) |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4751 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4752 CHECK_NUMBER (insval); |
82809
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4753 if (ochars_modiff == CHARS_MODIFF) |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4754 /* after_insert_file_functions didn't modify |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4755 buffer's characters => move point back to |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4756 position before inserted text and leave value of |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4757 inserted alone. */ |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4758 SET_PT_BOTH (opoint, opoint_byte); |
82809
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4759 else |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4760 /* after_insert_file_functions did modify buffer's |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4761 characters => consider entire buffer changed and |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4762 leave point at point-min. */ |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4763 inserted = XFASTINT (insval); |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4764 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4765 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4766 |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4767 QUIT; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4768 p = XCDR (p); |
34167
ce6d3ca84e6d
(Finsert_file_contents): When VISIT is t, don't
Gerd Moellmann <gerd@gnu.org>
parents:
34104
diff
changeset
|
4769 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4770 |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4771 if (NILP (visit)) |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4772 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4773 Lisp_Object lbeg, lend; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4774 XSETINT (lbeg, PT); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4775 XSETINT (lend, PT + inserted); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4776 if (CONSP (old_undo)) |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4777 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4778 Lisp_Object tem = XCAR (old_undo); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4779 if (CONSP (tem) && INTEGERP (XCAR (tem)) && |
82357
70180028ad92
(Finsert_file_contents): Yet Another Int/Lisp_Object Mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82310
diff
changeset
|
4780 INTEGERP (XCDR (tem)) && EQ (XCAR (tem), lbeg)) |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4781 /* In the non-visiting case record only the final insertion. */ |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4782 current_buffer->undo_list = |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4783 Fcons (Fcons (lbeg, lend), Fcdr (old_undo)); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4784 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4785 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4786 else |
82357
70180028ad92
(Finsert_file_contents): Yet Another Int/Lisp_Object Mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82310
diff
changeset
|
4787 /* If undo_list was Qt before, keep it that way. |
70180028ad92
(Finsert_file_contents): Yet Another Int/Lisp_Object Mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82310
diff
changeset
|
4788 Otherwise start with an empty undo_list. */ |
70180028ad92
(Finsert_file_contents): Yet Another Int/Lisp_Object Mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82310
diff
changeset
|
4789 current_buffer->undo_list = EQ (old_undo, Qt) ? Qt : Qnil; |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4790 |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4791 unbind_to (count, Qnil); |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4792 } |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4793 |
17396
7fbce3c83857
(Finsert_file_contents): Do call signal_after_change
Richard M. Stallman <rms@gnu.org>
parents:
17287
diff
changeset
|
4794 /* Call after-change hooks for the inserted text, aside from the case |
7fbce3c83857
(Finsert_file_contents): Do call signal_after_change
Richard M. Stallman <rms@gnu.org>
parents:
17287
diff
changeset
|
4795 of normal visiting (not with REPLACE), which is done in a new buffer |
7fbce3c83857
(Finsert_file_contents): Do call signal_after_change
Richard M. Stallman <rms@gnu.org>
parents:
17287
diff
changeset
|
4796 "before" the buffer is changed. */ |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4797 if (inserted > 0 && total > 0 |
17396
7fbce3c83857
(Finsert_file_contents): Do call signal_after_change
Richard M. Stallman <rms@gnu.org>
parents:
17287
diff
changeset
|
4798 && (NILP (visit) || !NILP (replace))) |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4799 { |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4800 signal_after_change (PT, 0, inserted); |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4801 update_compositions (PT, PT, CHECK_BORDER); |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4802 } |
20432
987ddd5cb6ee
(Finsert_file_contents): Set Vlast_coding_system_used
Kenichi Handa <handa@m17n.org>
parents:
20370
diff
changeset
|
4803 |
29152
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4804 if (!NILP (visit) |
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4805 && current_buffer->modtime == -1) |
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4806 { |
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4807 /* If visiting nonexistent file, return nil. */ |
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4808 report_file_error ("Opening input file", Fcons (orig_filename, Qnil)); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4809 } |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4810 |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4811 if (read_quit) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4812 Fsignal (Qquit, Qnil); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4813 |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4814 /* ??? Retval needs to be dealt with in all cases consistently. */ |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
4815 if (NILP (val)) |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4816 val = Fcons (orig_filename, |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
4817 Fcons (make_number (inserted), |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
4818 Qnil)); |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
4819 |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
4820 RETURN_UNGCPRO (unbind_to (count, val)); |
230 | 4821 } |
3787
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
4822 |
41181
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4823 static Lisp_Object build_annotations P_ ((Lisp_Object, Lisp_Object)); |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4824 static Lisp_Object build_annotations_2 P_ ((Lisp_Object, Lisp_Object, |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4825 Lisp_Object, Lisp_Object)); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4826 |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4827 /* If build_annotations switched buffers, switch back to BUF. |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4828 Kill the temporary buffer that was selected in the meantime. |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4829 |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4830 Since this kill only the last temporary buffer, some buffers remain |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4831 not killed if build_annotations switched buffers more than once. |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4832 -- K.Handa */ |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4833 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
4834 static Lisp_Object |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4835 build_annotations_unwind (buf) |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4836 Lisp_Object buf; |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4837 { |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4838 Lisp_Object tembuf; |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4839 |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4840 if (XBUFFER (buf) == current_buffer) |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4841 return Qnil; |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4842 tembuf = Fcurrent_buffer (); |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4843 Fset_buffer (buf); |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4844 Fkill_buffer (tembuf); |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4845 return Qnil; |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4846 } |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4847 |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4848 /* Decide the coding-system to encode the data with. */ |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4849 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4850 void |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4851 choose_write_coding_system (start, end, filename, |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4852 append, visit, lockname, coding) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4853 Lisp_Object start, end, filename, append, visit, lockname; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4854 struct coding_system *coding; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4855 { |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4856 Lisp_Object val; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4857 |
53363
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4858 if (auto_saving |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4859 && NILP (Fstring_equal (current_buffer->filename, |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4860 current_buffer->auto_save_file_name))) |
51357
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
4861 { |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
4862 /* We use emacs-mule for auto saving... */ |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
4863 setup_coding_system (Qemacs_mule, coding); |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
4864 /* ... but with the special flag to indicate not to strip off |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
4865 leading code of eight-bit-control chars. */ |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
4866 coding->flags = 1; |
72405
8006b4a1c703
(choose_write_coding_system): Use LF for end-of-line
Kenichi Handa <handa@m17n.org>
parents:
71977
diff
changeset
|
4867 /* We force LF for end-of-line because that is faster. */ |
8006b4a1c703
(choose_write_coding_system): Use LF for end-of-line
Kenichi Handa <handa@m17n.org>
parents:
71977
diff
changeset
|
4868 coding->eol_type = CODING_EOL_LF; |
51357
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
4869 goto done_setup_coding; |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
4870 } |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4871 else if (!NILP (Vcoding_system_for_write)) |
48876
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4872 { |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4873 val = Vcoding_system_for_write; |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4874 if (coding_system_require_warning |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4875 && !NILP (Ffboundp (Vselect_safe_coding_system_function))) |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4876 /* Confirm that VAL can surely encode the current region. */ |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4877 val = call5 (Vselect_safe_coding_system_function, |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4878 start, end, Fcons (Qt, Fcons (val, Qnil)), |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4879 Qnil, filename); |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4880 } |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4881 else |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4882 { |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4883 /* If the variable `buffer-file-coding-system' is set locally, |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4884 it means that the file was read with some kind of code |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4885 conversion or the variable is explicitly set by users. We |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4886 had better write it out with the same coding system even if |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4887 `enable-multibyte-characters' is nil. |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4888 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4889 If it is not set locally, we anyway have to convert EOL |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4890 format if the default value of `buffer-file-coding-system' |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4891 tells that it is not Unix-like (LF only) format. */ |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4892 int using_default_coding = 0; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4893 int force_raw_text = 0; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4894 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4895 val = current_buffer->buffer_file_coding_system; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4896 if (NILP (val) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4897 || NILP (Flocal_variable_p (Qbuffer_file_coding_system, Qnil))) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4898 { |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4899 val = Qnil; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4900 if (NILP (current_buffer->enable_multibyte_characters)) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4901 force_raw_text = 1; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4902 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4903 |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4904 if (NILP (val)) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4905 { |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4906 /* Check file-coding-system-alist. */ |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4907 Lisp_Object args[7], coding_systems; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4908 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4909 args[0] = Qwrite_region; args[1] = start; args[2] = end; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4910 args[3] = filename; args[4] = append; args[5] = visit; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4911 args[6] = lockname; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4912 coding_systems = Ffind_operation_coding_system (7, args); |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4913 if (CONSP (coding_systems) && !NILP (XCDR (coding_systems))) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4914 val = XCDR (coding_systems); |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4915 } |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4916 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4917 if (NILP (val) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4918 && !NILP (current_buffer->buffer_file_coding_system)) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4919 { |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4920 /* If we still have not decided a coding system, use the |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4921 default value of buffer-file-coding-system. */ |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4922 val = current_buffer->buffer_file_coding_system; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4923 using_default_coding = 1; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4924 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4925 |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4926 if (!force_raw_text |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4927 && !NILP (Ffboundp (Vselect_safe_coding_system_function))) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4928 /* Confirm that VAL can surely encode the current region. */ |
45640
a181c1d41a78
(choose_write_coding_system): Call select-safe-coding-system properly.
Pavel Janík <Pavel@Janik.cz>
parents:
45628
diff
changeset
|
4929 val = call5 (Vselect_safe_coding_system_function, |
a181c1d41a78
(choose_write_coding_system): Call select-safe-coding-system properly.
Pavel Janík <Pavel@Janik.cz>
parents:
45628
diff
changeset
|
4930 start, end, val, Qnil, filename); |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4931 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4932 setup_coding_system (Fcheck_coding_system (val), coding); |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4933 if (coding->eol_type == CODING_EOL_UNDECIDED |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4934 && !using_default_coding) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4935 { |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4936 if (! EQ (default_buffer_file_coding.symbol, |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4937 buffer_defaults.buffer_file_coding_system)) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4938 setup_coding_system (buffer_defaults.buffer_file_coding_system, |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4939 &default_buffer_file_coding); |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4940 if (default_buffer_file_coding.eol_type != CODING_EOL_UNDECIDED) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4941 { |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4942 Lisp_Object subsidiaries; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4943 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4944 coding->eol_type = default_buffer_file_coding.eol_type; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4945 subsidiaries = Fget (coding->symbol, Qeol_type); |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4946 if (VECTORP (subsidiaries) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4947 && XVECTOR (subsidiaries)->size == 3) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4948 coding->symbol |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4949 = XVECTOR (subsidiaries)->contents[coding->eol_type]; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4950 } |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4951 } |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4952 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4953 if (force_raw_text) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4954 setup_raw_text_coding_system (coding); |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4955 goto done_setup_coding; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4956 } |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4957 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4958 setup_coding_system (Fcheck_coding_system (val), coding); |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4959 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4960 done_setup_coding: |
70518
b191186433c8
(choose_write_coding_system): Use system_eol_type for
Kenichi Handa <handa@m17n.org>
parents:
69597
diff
changeset
|
4961 if (coding->eol_type == CODING_EOL_UNDECIDED) |
b191186433c8
(choose_write_coding_system): Use system_eol_type for
Kenichi Handa <handa@m17n.org>
parents:
69597
diff
changeset
|
4962 coding->eol_type = system_eol_type; |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4963 if (!STRINGP (start) && !NILP (current_buffer->selective_display)) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4964 coding->mode |= CODING_MODE_SELECTIVE_DISPLAY; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4965 } |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4966 |
21020
f7ace8487b28
(auto_save_1): Pass new arg to Fwrite_region.
Richard M. Stallman <rms@gnu.org>
parents:
20944
diff
changeset
|
4967 DEFUN ("write-region", Fwrite_region, Swrite_region, 3, 7, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4968 "r\nFWrite region to file: \ni\ni\ni\np", |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4969 doc: /* Write current region into specified file. |
41993
0b548ba2f6d6
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41969
diff
changeset
|
4970 When called from a program, requires three arguments: |
0b548ba2f6d6
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41969
diff
changeset
|
4971 START, END and FILENAME. START and END are normally buffer positions |
0b548ba2f6d6
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41969
diff
changeset
|
4972 specifying the part of the buffer to write. |
0b548ba2f6d6
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41969
diff
changeset
|
4973 If START is nil, that means to use the entire buffer contents. |
0b548ba2f6d6
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41969
diff
changeset
|
4974 If START is a string, then output that string to the file |
0b548ba2f6d6
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41969
diff
changeset
|
4975 instead of any buffer contents; END is ignored. |
0b548ba2f6d6
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41969
diff
changeset
|
4976 |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4977 Optional fourth argument APPEND if non-nil means |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4978 append to existing file contents (if any). If it is an integer, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4979 seek to that offset in the file before writing. |
56525
a86a4deb195d
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
56422
diff
changeset
|
4980 Optional fifth argument VISIT, if t or a string, means |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4981 set the last-save-file-modtime of buffer to this file's modtime |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4982 and mark buffer not modified. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4983 If VISIT is a string, it is a second file name; |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4984 the output goes to FILENAME, but the buffer is marked as visiting VISIT. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4985 VISIT is also the file name to lock and unlock for clash detection. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4986 If VISIT is neither t nor nil nor a string, |
46323
7500d7e20ea7
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
4987 that means do not display the \"Wrote file\" message. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4988 The optional sixth arg LOCKNAME, if non-nil, specifies the name to |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4989 use for locking and unlocking, overriding FILENAME and VISIT. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4990 The optional seventh arg MUSTBENEW, if non-nil, insists on a check |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4991 for an existing file with the same name. If MUSTBENEW is `excl', |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4992 that means to get an error if the file already exists; never overwrite. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4993 If MUSTBENEW is neither nil nor `excl', that means ask for |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4994 confirmation before overwriting, but do go ahead and overwrite the file |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4995 if the user confirms. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4996 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4997 This does code conversion according to the value of |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4998 `coding-system-for-write', `buffer-file-coding-system', or |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4999 `file-coding-system-alist', and sets the variable |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5000 `last-coding-system-used' to the coding system actually used. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5001 (start, end, filename, append, visit, lockname, mustbenew) |
25597
16a9c3c6f90e
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
25595
diff
changeset
|
5002 Lisp_Object start, end, filename, append, visit, lockname, mustbenew; |
230 | 5003 { |
5004 register int desc; | |
5005 int failure; | |
31829
43566b0aec59
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31775
diff
changeset
|
5006 int save_errno = 0; |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
5007 const unsigned char *fn; |
230 | 5008 struct stat st; |
4950
145c69e39666
(Fwrite_region): Fix minor bugs in POS arg to awrite.
Richard M. Stallman <rms@gnu.org>
parents:
4879
diff
changeset
|
5009 int tem; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
5010 int count = SPECPDL_INDEX (); |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5011 int count1; |
230 | 5012 #ifdef VMS |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5013 unsigned char *fname = 0; /* If non-0, original filename (must rename) */ |
230 | 5014 #endif /* VMS */ |
848 | 5015 Lisp_Object handler; |
2407
1c590cd84ab3
(Fexpand_file_name): Default DEFALT at beginning,
Richard M. Stallman <rms@gnu.org>
parents:
2280
diff
changeset
|
5016 Lisp_Object visit_file; |
41211
2e188a8c4ad8
(Fwrite_region): Avoid initializer for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
41181
diff
changeset
|
5017 Lisp_Object annotations; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5018 Lisp_Object encoded_filename; |
33249
bc4bfaca97aa
(Fwrite_region): Use `visiting' rather than `visit'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31829
diff
changeset
|
5019 int visiting = (EQ (visit, Qt) || STRINGP (visit)); |
bc4bfaca97aa
(Fwrite_region): Use `visiting' rather than `visit'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31829
diff
changeset
|
5020 int quietly = !NILP (visit); |
12853
032f8aae6bbe
(Fwrite_region): New arg lockname.
Richard M. Stallman <rms@gnu.org>
parents:
12642
diff
changeset
|
5021 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5; |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5022 struct buffer *given_buffer; |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5023 #ifdef DOS_NT |
18764
2ef1d8539441
(Fwrite_region) [DOS_NT]: Always use binary mode since
Richard M. Stallman <rms@gnu.org>
parents:
18744
diff
changeset
|
5024 int buffer_file_type = O_BINARY; |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5025 #endif /* DOS_NT */ |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5026 struct coding_system coding; |
230 | 5027 |
33249
bc4bfaca97aa
(Fwrite_region): Use `visiting' rather than `visit'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31829
diff
changeset
|
5028 if (current_buffer->base_buffer && visiting) |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
5029 error ("Cannot do file visiting in an indirect buffer"); |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
5030 |
5410
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
5031 if (!NILP (start) && !STRINGP (start)) |
230 | 5032 validate_region (&start, &end); |
5033 | |
69597
df847a0b85d2
(Fwrite_region): Set visit_file to Qnil before GCPRO
Kenichi Handa <handa@m17n.org>
parents:
69136
diff
changeset
|
5034 visit_file = Qnil; |
41288
1d1183771c4f
(Fwrite_region): Move choose_write_coding_system to after build_annotations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41211
diff
changeset
|
5035 GCPRO5 (start, filename, visit, visit_file, lockname); |
20432
987ddd5cb6ee
(Finsert_file_contents): Set Vlast_coding_system_used
Kenichi Handa <handa@m17n.org>
parents:
20370
diff
changeset
|
5036 |
2407
1c590cd84ab3
(Fexpand_file_name): Default DEFALT at beginning,
Richard M. Stallman <rms@gnu.org>
parents:
2280
diff
changeset
|
5037 filename = Fexpand_file_name (filename, Qnil); |
21020
f7ace8487b28
(auto_save_1): Pass new arg to Fwrite_region.
Richard M. Stallman <rms@gnu.org>
parents:
20944
diff
changeset
|
5038 |
41181
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5039 if (!NILP (mustbenew) && !EQ (mustbenew, Qexcl)) |
21304
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
5040 barf_or_query_if_file_exists (filename, "overwrite", 1, 0, 1); |
21020
f7ace8487b28
(auto_save_1): Pass new arg to Fwrite_region.
Richard M. Stallman <rms@gnu.org>
parents:
20944
diff
changeset
|
5041 |
5410
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
5042 if (STRINGP (visit)) |
2435
b72453ad92ae
(Fwrite_region): Don't fail to set visit_file.
Richard M. Stallman <rms@gnu.org>
parents:
2407
diff
changeset
|
5043 visit_file = Fexpand_file_name (visit, Qnil); |
2407
1c590cd84ab3
(Fexpand_file_name): Default DEFALT at beginning,
Richard M. Stallman <rms@gnu.org>
parents:
2280
diff
changeset
|
5044 else |
1c590cd84ab3
(Fexpand_file_name): Default DEFALT at beginning,
Richard M. Stallman <rms@gnu.org>
parents:
2280
diff
changeset
|
5045 visit_file = filename; |
1c590cd84ab3
(Fexpand_file_name): Default DEFALT at beginning,
Richard M. Stallman <rms@gnu.org>
parents:
2280
diff
changeset
|
5046 |
12853
032f8aae6bbe
(Fwrite_region): New arg lockname.
Richard M. Stallman <rms@gnu.org>
parents:
12642
diff
changeset
|
5047 if (NILP (lockname)) |
032f8aae6bbe
(Fwrite_region): New arg lockname.
Richard M. Stallman <rms@gnu.org>
parents:
12642
diff
changeset
|
5048 lockname = visit_file; |
032f8aae6bbe
(Fwrite_region): New arg lockname.
Richard M. Stallman <rms@gnu.org>
parents:
12642
diff
changeset
|
5049 |
41211
2e188a8c4ad8
(Fwrite_region): Avoid initializer for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
41181
diff
changeset
|
5050 annotations = Qnil; |
2e188a8c4ad8
(Fwrite_region): Avoid initializer for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
41181
diff
changeset
|
5051 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5052 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5053 call the corresponding file handler. */ |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
5054 handler = Ffind_file_name_handler (filename, Qwrite_region); |
5758
23821c197271
(Fwrite_region): If FILENAME has no handler, see if VISIT has one.
Richard M. Stallman <rms@gnu.org>
parents:
5647
diff
changeset
|
5055 /* If FILENAME has no handler, see if VISIT has one. */ |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
5056 if (NILP (handler) && STRINGP (visit)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
5057 handler = Ffind_file_name_handler (visit, Qwrite_region); |
848 | 5058 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5059 if (!NILP (handler)) |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5060 { |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5061 Lisp_Object val; |
3705
309c27256ceb
(Fcopy_file): Pass all the args to the handler.
Richard M. Stallman <rms@gnu.org>
parents:
3598
diff
changeset
|
5062 val = call6 (handler, Qwrite_region, start, end, |
309c27256ceb
(Fcopy_file): Pass all the args to the handler.
Richard M. Stallman <rms@gnu.org>
parents:
3598
diff
changeset
|
5063 filename, append, visit); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5064 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5065 if (visiting) |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5066 { |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
5067 SAVE_MODIFF = MODIFF; |
9307
44d6fc4b638b
(Finsert_file_contents, Fwrite_region, Fdo_auto_save, Fset_buffer_auto_saved):
Karl Heuer <kwzh@gnu.org>
parents:
9291
diff
changeset
|
5068 XSETFASTINT (current_buffer->save_length, Z - BEG); |
1377
dcec08a3bec4
(Fwrite_region): If VISIT is a file name,
Richard M. Stallman <rms@gnu.org>
parents:
1358
diff
changeset
|
5069 current_buffer->filename = visit_file; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5070 } |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
5071 UNGCPRO; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5072 return val; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5073 } |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5074 |
51557
3df5bc22c5e4
(Fwrite_region): Save and restore restriction.
Kenichi Handa <handa@m17n.org>
parents:
51357
diff
changeset
|
5075 record_unwind_protect (save_restriction_restore, save_restriction_save ()); |
3df5bc22c5e4
(Fwrite_region): Save and restore restriction.
Kenichi Handa <handa@m17n.org>
parents:
51357
diff
changeset
|
5076 |
5410
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
5077 /* Special kludge to simplify auto-saving. */ |
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
5078 if (NILP (start)) |
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
5079 { |
9307
44d6fc4b638b
(Finsert_file_contents, Fwrite_region, Fdo_auto_save, Fset_buffer_auto_saved):
Karl Heuer <kwzh@gnu.org>
parents:
9291
diff
changeset
|
5080 XSETFASTINT (start, BEG); |
44d6fc4b638b
(Finsert_file_contents, Fwrite_region, Fdo_auto_save, Fset_buffer_auto_saved):
Karl Heuer <kwzh@gnu.org>
parents:
9291
diff
changeset
|
5081 XSETFASTINT (end, Z); |
51557
3df5bc22c5e4
(Fwrite_region): Save and restore restriction.
Kenichi Handa <handa@m17n.org>
parents:
51357
diff
changeset
|
5082 Fwiden (); |
5410
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
5083 } |
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
5084 |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5085 record_unwind_protect (build_annotations_unwind, Fcurrent_buffer ()); |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
5086 count1 = SPECPDL_INDEX (); |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5087 |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5088 given_buffer = current_buffer; |
45561
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5089 |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5090 if (!STRINGP (start)) |
41181
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5091 { |
45561
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5092 annotations = build_annotations (start, end); |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5093 |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5094 if (current_buffer != given_buffer) |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5095 { |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5096 XSETFASTINT (start, BEGV); |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5097 XSETFASTINT (end, ZV); |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5098 } |
41181
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5099 } |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5100 |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5101 UNGCPRO; |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5102 |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5103 GCPRO5 (start, filename, annotations, visit_file, lockname); |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5104 |
41288
1d1183771c4f
(Fwrite_region): Move choose_write_coding_system to after build_annotations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41211
diff
changeset
|
5105 /* Decide the coding-system to encode the data with. |
1d1183771c4f
(Fwrite_region): Move choose_write_coding_system to after build_annotations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41211
diff
changeset
|
5106 We used to make this choice before calling build_annotations, but that |
1d1183771c4f
(Fwrite_region): Move choose_write_coding_system to after build_annotations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41211
diff
changeset
|
5107 leads to problems when a write-annotate-function takes care of |
1d1183771c4f
(Fwrite_region): Move choose_write_coding_system to after build_annotations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41211
diff
changeset
|
5108 unsavable chars (as was the case with X-Symbol). */ |
1d1183771c4f
(Fwrite_region): Move choose_write_coding_system to after build_annotations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41211
diff
changeset
|
5109 choose_write_coding_system (start, end, filename, |
1d1183771c4f
(Fwrite_region): Move choose_write_coding_system to after build_annotations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41211
diff
changeset
|
5110 append, visit, lockname, &coding); |
1d1183771c4f
(Fwrite_region): Move choose_write_coding_system to after build_annotations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41211
diff
changeset
|
5111 Vlast_coding_system_used = coding.symbol; |
1d1183771c4f
(Fwrite_region): Move choose_write_coding_system to after build_annotations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41211
diff
changeset
|
5112 |
41181
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5113 given_buffer = current_buffer; |
45561
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5114 if (! STRINGP (start)) |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5115 { |
45561
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5116 annotations = build_annotations_2 (start, end, |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5117 coding.pre_write_conversion, annotations); |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5118 if (current_buffer != given_buffer) |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5119 { |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5120 XSETFASTINT (start, BEGV); |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5121 XSETFASTINT (end, ZV); |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
5122 } |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5123 } |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5124 |
230 | 5125 #ifdef CLASH_DETECTION |
5126 if (!auto_saving) | |
16317
763b3b143ed6
(Vuser_login_name): Declared extern.
Richard M. Stallman <rms@gnu.org>
parents:
16226
diff
changeset
|
5127 { |
19206
c21764412813
(Fwrite_region): Turn off the feature of checking
Richard M. Stallman <rms@gnu.org>
parents:
19067
diff
changeset
|
5128 #if 0 /* This causes trouble for GNUS. */ |
16317
763b3b143ed6
(Vuser_login_name): Declared extern.
Richard M. Stallman <rms@gnu.org>
parents:
16226
diff
changeset
|
5129 /* If we've locked this file for some other buffer, |
763b3b143ed6
(Vuser_login_name): Declared extern.
Richard M. Stallman <rms@gnu.org>
parents:
16226
diff
changeset
|
5130 query before proceeding. */ |
763b3b143ed6
(Vuser_login_name): Declared extern.
Richard M. Stallman <rms@gnu.org>
parents:
16226
diff
changeset
|
5131 if (!visiting && EQ (Ffile_locked_p (lockname), Qt)) |
18744
1718bdf566fd
(Fwrite_region): Fix call2 argument.
Richard M. Stallman <rms@gnu.org>
parents:
18679
diff
changeset
|
5132 call2 (intern ("ask-user-about-lock"), filename, Vuser_login_name); |
19206
c21764412813
(Fwrite_region): Turn off the feature of checking
Richard M. Stallman <rms@gnu.org>
parents:
19067
diff
changeset
|
5133 #endif |
16317
763b3b143ed6
(Vuser_login_name): Declared extern.
Richard M. Stallman <rms@gnu.org>
parents:
16226
diff
changeset
|
5134 |
763b3b143ed6
(Vuser_login_name): Declared extern.
Richard M. Stallman <rms@gnu.org>
parents:
16226
diff
changeset
|
5135 lock_file (lockname); |
763b3b143ed6
(Vuser_login_name): Declared extern.
Richard M. Stallman <rms@gnu.org>
parents:
16226
diff
changeset
|
5136 } |
230 | 5137 #endif /* CLASH_DETECTION */ |
5138 | |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5139 encoded_filename = ENCODE_FILE (filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5140 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5141 fn = SDATA (encoded_filename); |
230 | 5142 desc = -1; |
485 | 5143 if (!NILP (append)) |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5144 #ifdef DOS_NT |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
5145 desc = emacs_open (fn, O_WRONLY | buffer_file_type, 0); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5146 #else /* not DOS_NT */ |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
5147 desc = emacs_open (fn, O_WRONLY, 0); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5148 #endif /* not DOS_NT */ |
230 | 5149 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5150 if (desc < 0 && (NILP (append) || errno == ENOENT)) |
230 | 5151 #ifdef VMS |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5152 if (auto_saving) /* Overwrite any previous version of autosave file */ |
230 | 5153 { |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5154 vms_truncate (fn); /* if fn exists, truncate to zero length */ |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
5155 desc = emacs_open (fn, O_RDWR, 0); |
230 | 5156 if (desc < 0) |
5410
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
5157 desc = creat_copy_attrs (STRINGP (current_buffer->filename) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5158 ? SDATA (current_buffer->filename) : 0, |
536 | 5159 fn); |
230 | 5160 } |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5161 else /* Write to temporary name and rename if no errors */ |
230 | 5162 { |
5163 Lisp_Object temp_name; | |
5164 temp_name = Ffile_name_directory (filename); | |
5165 | |
485 | 5166 if (!NILP (temp_name)) |
230 | 5167 { |
5168 temp_name = Fmake_temp_name (concat2 (temp_name, | |
5169 build_string ("$$SAVE$$"))); | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5170 fname = SDATA (filename); |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5171 fn = SDATA (temp_name); |
230 | 5172 desc = creat_copy_attrs (fname, fn); |
5173 if (desc < 0) | |
5174 { | |
5175 /* If we can't open the temporary file, try creating a new | |
5176 version of the original file. VMS "creat" creates a | |
5177 new version rather than truncating an existing file. */ | |
5178 fn = fname; | |
5179 fname = 0; | |
5180 desc = creat (fn, 0666); | |
5181 #if 0 /* This can clobber an existing file and fail to replace it, | |
5182 if the user runs out of space. */ | |
5183 if (desc < 0) | |
5184 { | |
5185 /* We can't make a new version; | |
5186 try to truncate and rewrite existing version if any. */ | |
5187 vms_truncate (fn); | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
5188 desc = emacs_open (fn, O_RDWR, 0); |
230 | 5189 } |
5190 #endif | |
5191 } | |
5192 } | |
5193 else | |
5194 desc = creat (fn, 0666); | |
5195 } | |
5196 #else /* not VMS */ | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5197 #ifdef DOS_NT |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
5198 desc = emacs_open (fn, |
36693
ca1461008b2c
(Fwrite_region) [DOS_NT]: Remove O_TRUNC from open
Gerd Moellmann <gerd@gnu.org>
parents:
36633
diff
changeset
|
5199 O_WRONLY | O_CREAT | buffer_file_type |
ca1461008b2c
(Fwrite_region) [DOS_NT]: Remove O_TRUNC from open
Gerd Moellmann <gerd@gnu.org>
parents:
36633
diff
changeset
|
5200 | (EQ (mustbenew, Qexcl) ? O_EXCL : O_TRUNC), |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
5201 S_IREAD | S_IWRITE); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5202 #else /* not DOS_NT */ |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
5203 desc = emacs_open (fn, O_WRONLY | O_TRUNC | O_CREAT |
28507
b6f06a755c7d
make_number/XINT/XUINT conversions; EQ/== fixes; ==Qnil -> NILP
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
5204 | (EQ (mustbenew, Qexcl) ? O_EXCL : 0), |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
5205 auto_saving ? auto_save_mode_bits : 0666); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5206 #endif /* not DOS_NT */ |
230 | 5207 #endif /* not VMS */ |
5208 | |
5209 if (desc < 0) | |
5210 { | |
5211 #ifdef CLASH_DETECTION | |
5212 save_errno = errno; | |
12853
032f8aae6bbe
(Fwrite_region): New arg lockname.
Richard M. Stallman <rms@gnu.org>
parents:
12642
diff
changeset
|
5213 if (!auto_saving) unlock_file (lockname); |
230 | 5214 errno = save_errno; |
5215 #endif /* CLASH_DETECTION */ | |
28846
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5216 UNGCPRO; |
230 | 5217 report_file_error ("Opening output file", Fcons (filename, Qnil)); |
5218 } | |
5219 | |
5220 record_unwind_protect (close_file_unwind, make_number (desc)); | |
5221 | |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
5222 if (!NILP (append) && !NILP (Ffile_regular_p (filename))) |
28846
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5223 { |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5224 long ret; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5225 |
28846
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5226 if (NUMBERP (append)) |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5227 ret = lseek (desc, XINT (append), 1); |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5228 else |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5229 ret = lseek (desc, 0, 2); |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5230 if (ret < 0) |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5231 { |
230 | 5232 #ifdef CLASH_DETECTION |
28846
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5233 if (!auto_saving) unlock_file (lockname); |
230 | 5234 #endif /* CLASH_DETECTION */ |
28846
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5235 UNGCPRO; |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5236 report_file_error ("Lseek error", Fcons (filename, Qnil)); |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5237 } |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5238 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5239 |
28846
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
5240 UNGCPRO; |
230 | 5241 |
5242 #ifdef VMS | |
5243 /* | |
5244 * Kludge Warning: The VMS C RTL likes to insert carriage returns | |
5245 * if we do writes that don't end with a carriage return. Furthermore | |
5246 * it cannot handle writes of more then 16K. The modified | |
5247 * version of "sys_write" in SYSDEP.C (see comment there) copes with | |
78501 | 5248 * this EXCEPT for the last record (if it doesn't end with a carriage |
230 | 5249 * return). This implies that if your buffer doesn't end with a carriage |
5250 * return, you get one free... tough. However it also means that if | |
5251 * we make two calls to sys_write (a la the following code) you can | |
5252 * get one at the gap as well. The easiest way to fix this (honest) | |
5253 * is to move the gap to the next newline (or the end of the buffer). | |
5254 * Thus this change. | |
5255 * | |
5256 * Yech! | |
5257 */ | |
5258 if (GPT > BEG && GPT_ADDR[-1] != '\n') | |
5259 move_gap (find_next_newline (GPT, 1)); | |
17723
f67a321c8fb6
(Fwrite_region): Add 7th optional arg
Kenichi Handa <handa@m17n.org>
parents:
17718
diff
changeset
|
5260 #else |
f67a321c8fb6
(Fwrite_region): Add 7th optional arg
Kenichi Handa <handa@m17n.org>
parents:
17718
diff
changeset
|
5261 /* Whether VMS or not, we must move the gap to the next of newline |
f67a321c8fb6
(Fwrite_region): Add 7th optional arg
Kenichi Handa <handa@m17n.org>
parents:
17718
diff
changeset
|
5262 when we must put designation sequences at beginning of line. */ |
f67a321c8fb6
(Fwrite_region): Add 7th optional arg
Kenichi Handa <handa@m17n.org>
parents:
17718
diff
changeset
|
5263 if (INTEGERP (start) |
f67a321c8fb6
(Fwrite_region): Add 7th optional arg
Kenichi Handa <handa@m17n.org>
parents:
17718
diff
changeset
|
5264 && coding.type == coding_type_iso2022 |
f67a321c8fb6
(Fwrite_region): Add 7th optional arg
Kenichi Handa <handa@m17n.org>
parents:
17718
diff
changeset
|
5265 && coding.flags & CODING_FLAG_ISO_DESIGNATE_AT_BOL |
f67a321c8fb6
(Fwrite_region): Add 7th optional arg
Kenichi Handa <handa@m17n.org>
parents:
17718
diff
changeset
|
5266 && GPT > BEG && GPT_ADDR[-1] != '\n') |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5267 { |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5268 int opoint = PT, opoint_byte = PT_BYTE; |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5269 scan_newline (PT, PT_BYTE, ZV, ZV_BYTE, 1, 0); |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5270 move_gap_both (PT, PT_BYTE); |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5271 SET_PT_BOTH (opoint, opoint_byte); |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5272 } |
230 | 5273 #endif |
5274 | |
5275 failure = 0; | |
5276 immediate_quit = 1; | |
5277 | |
5410
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
5278 if (STRINGP (start)) |
230 | 5279 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5280 failure = 0 > a_write (desc, start, 0, SCHARS (start), |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5281 &annotations, &coding); |
230 | 5282 save_errno = errno; |
5283 } | |
5284 else if (XINT (start) != XINT (end)) | |
5285 { | |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5286 tem = CHAR_TO_BYTE (XINT (start)); |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5287 |
230 | 5288 if (XINT (start) < GPT) |
5289 { | |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5290 failure = 0 > a_write (desc, Qnil, XINT (start), |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5291 min (GPT, XINT (end)) - XINT (start), |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5292 &annotations, &coding); |
230 | 5293 save_errno = errno; |
5294 } | |
5295 | |
5296 if (XINT (end) > GPT && !failure) | |
5297 { | |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5298 tem = max (XINT (start), GPT); |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5299 failure = 0 > a_write (desc, Qnil, tem , XINT (end) - tem, |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5300 &annotations, &coding); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5301 save_errno = errno; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5302 } |
13451
3a69848f7892
(Fwrite_region): Move the code that writes annotations for empty files.
Richard M. Stallman <rms@gnu.org>
parents:
13221
diff
changeset
|
5303 } |
3a69848f7892
(Fwrite_region): Move the code that writes annotations for empty files.
Richard M. Stallman <rms@gnu.org>
parents:
13221
diff
changeset
|
5304 else |
3a69848f7892
(Fwrite_region): Move the code that writes annotations for empty files.
Richard M. Stallman <rms@gnu.org>
parents:
13221
diff
changeset
|
5305 { |
3a69848f7892
(Fwrite_region): Move the code that writes annotations for empty files.
Richard M. Stallman <rms@gnu.org>
parents:
13221
diff
changeset
|
5306 /* If file was empty, still need to write the annotations */ |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
5307 coding.mode |= CODING_MODE_LAST_BLOCK; |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5308 failure = 0 > a_write (desc, Qnil, XINT (end), 0, &annotations, &coding); |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5309 save_errno = errno; |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5310 } |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5311 |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
5312 if (CODING_REQUIRE_FLUSHING (&coding) |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
5313 && !(coding.mode & CODING_MODE_LAST_BLOCK) |
20651
0de9f45a1db6
(Finsert_file_contents): When not decoding,
Richard M. Stallman <rms@gnu.org>
parents:
20621
diff
changeset
|
5314 && ! failure) |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5315 { |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5316 /* We have to flush out a data. */ |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
5317 coding.mode |= CODING_MODE_LAST_BLOCK; |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5318 failure = 0 > e_write (desc, Qnil, 0, 0, &coding); |
13451
3a69848f7892
(Fwrite_region): Move the code that writes annotations for empty files.
Richard M. Stallman <rms@gnu.org>
parents:
13221
diff
changeset
|
5319 save_errno = errno; |
230 | 5320 } |
5321 | |
5322 immediate_quit = 0; | |
5323 | |
2280
bd56d208ed22
* fileio.c (HAVE_FSYNC): Define, if appropriate.
Jim Blandy <jimb@redhat.com>
parents:
2257
diff
changeset
|
5324 #ifdef HAVE_FSYNC |
230 | 5325 /* Note fsync appears to change the modtime on BSD4.2 (both vax and sun). |
5326 Disk full in NFS may be reported here. */ | |
3415
c37d05ce7e52
(Fwrite_region): Don't fsync if autosaving.
Richard M. Stallman <rms@gnu.org>
parents:
3410
diff
changeset
|
5327 /* mib says that closing the file will try to write as fast as NFS can do |
c37d05ce7e52
(Fwrite_region): Don't fsync if autosaving.
Richard M. Stallman <rms@gnu.org>
parents:
3410
diff
changeset
|
5328 it, and that means the fsync here is not crucial for autosave files. */ |
65513
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
5329 if (!auto_saving && !write_region_inhibit_fsync && fsync (desc) < 0) |
12540
1a96888d82ed
(Fwrite_region): If fsync fails with EINTR, don't
Karl Heuer <kwzh@gnu.org>
parents:
12369
diff
changeset
|
5330 { |
78980
ac06b6d5fee4
(Fwrite_region): Ignore EINVAL error from fsync.
Andreas Schwab <schwab@suse.de>
parents:
78501
diff
changeset
|
5331 /* If fsync fails with EINTR, don't treat that as serious. Also |
ac06b6d5fee4
(Fwrite_region): Ignore EINVAL error from fsync.
Andreas Schwab <schwab@suse.de>
parents:
78501
diff
changeset
|
5332 ignore EINVAL which happens when fsync is not supported on this |
ac06b6d5fee4
(Fwrite_region): Ignore EINVAL error from fsync.
Andreas Schwab <schwab@suse.de>
parents:
78501
diff
changeset
|
5333 file. */ |
ac06b6d5fee4
(Fwrite_region): Ignore EINVAL error from fsync.
Andreas Schwab <schwab@suse.de>
parents:
78501
diff
changeset
|
5334 if (errno != EINTR && errno != EINVAL) |
12540
1a96888d82ed
(Fwrite_region): If fsync fails with EINTR, don't
Karl Heuer <kwzh@gnu.org>
parents:
12369
diff
changeset
|
5335 failure = 1, save_errno = errno; |
1a96888d82ed
(Fwrite_region): If fsync fails with EINTR, don't
Karl Heuer <kwzh@gnu.org>
parents:
12369
diff
changeset
|
5336 } |
230 | 5337 #endif |
5338 | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
5339 /* Spurious "file has changed on disk" warnings have been |
230 | 5340 observed on Suns as well. |
5341 It seems that `close' can change the modtime, under nfs. | |
5342 | |
5343 (This has supposedly been fixed in Sunos 4, | |
5344 but who knows about all the other machines with NFS?) */ | |
5345 #if 0 | |
5346 | |
87730 | 5347 /* On VMS, must do the stat after the close |
230 | 5348 since closing changes the modtime. */ |
5349 #ifndef VMS | |
5350 /* Recall that #if defined does not work on VMS. */ | |
5351 #define FOO | |
5352 fstat (desc, &st); | |
5353 #endif | |
5354 #endif | |
5355 | |
5356 /* NFS can report a write failure now. */ | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
5357 if (emacs_close (desc) < 0) |
230 | 5358 failure = 1, save_errno = errno; |
5359 | |
5360 #ifdef VMS | |
5361 /* If we wrote to a temporary name and had no errors, rename to real name. */ | |
5362 if (fname) | |
5363 { | |
5364 if (!failure) | |
5365 failure = (rename (fn, fname) != 0), save_errno = errno; | |
5366 fn = fname; | |
5367 } | |
5368 #endif /* VMS */ | |
5369 | |
5370 #ifndef FOO | |
5371 stat (fn, &st); | |
5372 #endif | |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5373 /* Discard the unwind protect for close_file_unwind. */ |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5374 specpdl_ptr = specpdl + count1; |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5375 /* Restore the original current buffer. */ |
8662
627a2ed242c0
(Ffile_accessible_directory_p): No need for gcpro.
Richard M. Stallman <rms@gnu.org>
parents:
8603
diff
changeset
|
5376 visit_file = unbind_to (count, visit_file); |
230 | 5377 |
5378 #ifdef CLASH_DETECTION | |
5379 if (!auto_saving) | |
12853
032f8aae6bbe
(Fwrite_region): New arg lockname.
Richard M. Stallman <rms@gnu.org>
parents:
12642
diff
changeset
|
5380 unlock_file (lockname); |
230 | 5381 #endif /* CLASH_DETECTION */ |
5382 | |
5383 /* Do this before reporting IO error | |
5384 to avoid a "file has changed on disk" warning on | |
5385 next attempt to save. */ | |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5386 if (visiting) |
230 | 5387 current_buffer->modtime = st.st_mtime; |
5388 | |
5389 if (failure) | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5390 error ("IO error writing %s: %s", SDATA (filename), |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
5391 emacs_strerror (save_errno)); |
230 | 5392 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5393 if (visiting) |
230 | 5394 { |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
5395 SAVE_MODIFF = MODIFF; |
9307
44d6fc4b638b
(Finsert_file_contents, Fwrite_region, Fdo_auto_save, Fset_buffer_auto_saved):
Karl Heuer <kwzh@gnu.org>
parents:
9291
diff
changeset
|
5396 XSETFASTINT (current_buffer->save_length, Z - BEG); |
1377
dcec08a3bec4
(Fwrite_region): If VISIT is a file name,
Richard M. Stallman <rms@gnu.org>
parents:
1358
diff
changeset
|
5397 current_buffer->filename = visit_file; |
7551
69f20f10799a
(Fwrite_region): Set update_mode_lines.
Richard M. Stallman <rms@gnu.org>
parents:
7549
diff
changeset
|
5398 update_mode_lines++; |
230 | 5399 } |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5400 else if (quietly) |
53363
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5401 { |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5402 if (auto_saving |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5403 && ! NILP (Fstring_equal (current_buffer->filename, |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5404 current_buffer->auto_save_file_name))) |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5405 SAVE_MODIFF = MODIFF; |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5406 |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5407 return Qnil; |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5408 } |
230 | 5409 |
5410 if (!auto_saving) | |
52212
db86c36d5abf
(Fwrite_region): Fix conditional expression to issue the right message.
Richard M. Stallman <rms@gnu.org>
parents:
52018
diff
changeset
|
5411 message_with_string ((INTEGERP (append) |
51636
758b45c47650
(Fwrite_region): Alternate messages for append and partial write.
Richard M. Stallman <rms@gnu.org>
parents:
51559
diff
changeset
|
5412 ? "Updated %s" |
758b45c47650
(Fwrite_region): Alternate messages for append and partial write.
Richard M. Stallman <rms@gnu.org>
parents:
51559
diff
changeset
|
5413 : ! NILP (append) |
758b45c47650
(Fwrite_region): Alternate messages for append and partial write.
Richard M. Stallman <rms@gnu.org>
parents:
51559
diff
changeset
|
5414 ? "Added to %s" |
758b45c47650
(Fwrite_region): Alternate messages for append and partial write.
Richard M. Stallman <rms@gnu.org>
parents:
51559
diff
changeset
|
5415 : "Wrote %s"), |
758b45c47650
(Fwrite_region): Alternate messages for append and partial write.
Richard M. Stallman <rms@gnu.org>
parents:
51559
diff
changeset
|
5416 visit_file, 1); |
230 | 5417 |
5418 return Qnil; | |
5419 } | |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5420 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5421 Lisp_Object merge (); |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5422 |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5423 DEFUN ("car-less-than-car", Fcar_less_than_car, Scar_less_than_car, 2, 2, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5424 doc: /* Return t if (car A) is numerically less than (car B). */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5425 (a, b) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5426 Lisp_Object a, b; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5427 { |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5428 return Flss (Fcar (a), Fcar (b)); |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5429 } |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5430 |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5431 /* Build the complete list of annotations appropriate for writing out |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5432 the text between START and END, by calling all the functions in |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5433 write-region-annotate-functions and merging the lists they return. |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5434 If one of these functions switches to a different buffer, we assume |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5435 that buffer contains altered text. Therefore, the caller must |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5436 make sure to restore the current buffer in all cases, |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5437 as save-excursion would do. */ |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5438 |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5439 static Lisp_Object |
41181
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5440 build_annotations (start, end) |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5441 Lisp_Object start, end; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5442 { |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5443 Lisp_Object annotations; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5444 Lisp_Object p, res; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5445 struct gcpro gcpro1, gcpro2; |
16044
63b85944e37b
(build_annotations): Remember original buffer that the
Richard M. Stallman <rms@gnu.org>
parents:
15738
diff
changeset
|
5446 Lisp_Object original_buffer; |
50829
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
5447 int i, used_global = 0; |
16044
63b85944e37b
(build_annotations): Remember original buffer that the
Richard M. Stallman <rms@gnu.org>
parents:
15738
diff
changeset
|
5448 |
63b85944e37b
(build_annotations): Remember original buffer that the
Richard M. Stallman <rms@gnu.org>
parents:
15738
diff
changeset
|
5449 XSETBUFFER (original_buffer, current_buffer); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5450 |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5451 annotations = Qnil; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5452 p = Vwrite_region_annotate_functions; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5453 GCPRO2 (annotations, p); |
45485
08b14b8f7bc2
(read_non_regular, Finsert_file_contents): Use BEG_BYTE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44563
diff
changeset
|
5454 while (CONSP (p)) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5455 { |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5456 struct buffer *given_buffer = current_buffer; |
50829
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
5457 if (EQ (Qt, XCAR (p)) && !used_global) |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
5458 { /* Use the global value of the hook. */ |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
5459 Lisp_Object arg[2]; |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
5460 used_global = 1; |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
5461 arg[0] = Fdefault_value (Qwrite_region_annotate_functions); |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
5462 arg[1] = XCDR (p); |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
5463 p = Fappend (2, arg); |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
5464 continue; |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
5465 } |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5466 Vwrite_region_annotations_so_far = annotations; |
45485
08b14b8f7bc2
(read_non_regular, Finsert_file_contents): Use BEG_BYTE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44563
diff
changeset
|
5467 res = call2 (XCAR (p), start, end); |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5468 /* If the function makes a different buffer current, |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5469 assume that means this buffer contains altered text to be output. |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5470 Reset START and END from the buffer bounds |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5471 and discard all previous annotations because they should have |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5472 been dealt with by this function. */ |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5473 if (current_buffer != given_buffer) |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5474 { |
18107
7e13abad5cca
(Fwrite_region, build_annotations):
Richard M. Stallman <rms@gnu.org>
parents:
17959
diff
changeset
|
5475 XSETFASTINT (start, BEGV); |
7e13abad5cca
(Fwrite_region, build_annotations):
Richard M. Stallman <rms@gnu.org>
parents:
17959
diff
changeset
|
5476 XSETFASTINT (end, ZV); |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5477 annotations = Qnil; |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5478 } |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5479 Flength (res); /* Check basic validity of return value */ |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5480 annotations = merge (annotations, res, Qcar_less_than_car); |
45485
08b14b8f7bc2
(read_non_regular, Finsert_file_contents): Use BEG_BYTE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44563
diff
changeset
|
5481 p = XCDR (p); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5482 } |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5483 |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5484 /* Now do the same for annotation functions implied by the file-format */ |
56977
87de6585e906
Delete declaration for removed Vauto_save_file_format.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56835
diff
changeset
|
5485 if (auto_saving && (!EQ (current_buffer->auto_save_file_format, Qt))) |
87de6585e906
Delete declaration for removed Vauto_save_file_format.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56835
diff
changeset
|
5486 p = current_buffer->auto_save_file_format; |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5487 else |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5488 p = current_buffer->file_format; |
45485
08b14b8f7bc2
(read_non_regular, Finsert_file_contents): Use BEG_BYTE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44563
diff
changeset
|
5489 for (i = 0; CONSP (p); p = XCDR (p), ++i) |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5490 { |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5491 struct buffer *given_buffer = current_buffer; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5492 |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5493 Vwrite_region_annotations_so_far = annotations; |
30927
5c0b3d6959c4
(build_annotations): Add a comment explaining the
Gerd Moellmann <gerd@gnu.org>
parents:
30605
diff
changeset
|
5494 |
5c0b3d6959c4
(build_annotations): Add a comment explaining the
Gerd Moellmann <gerd@gnu.org>
parents:
30605
diff
changeset
|
5495 /* Value is either a list of annotations or nil if the function |
5c0b3d6959c4
(build_annotations): Add a comment explaining the
Gerd Moellmann <gerd@gnu.org>
parents:
30605
diff
changeset
|
5496 has written annotations to a temporary buffer, which is now |
5c0b3d6959c4
(build_annotations): Add a comment explaining the
Gerd Moellmann <gerd@gnu.org>
parents:
30605
diff
changeset
|
5497 current. */ |
45485
08b14b8f7bc2
(read_non_regular, Finsert_file_contents): Use BEG_BYTE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44563
diff
changeset
|
5498 res = call5 (Qformat_annotate_function, XCAR (p), start, end, |
30927
5c0b3d6959c4
(build_annotations): Add a comment explaining the
Gerd Moellmann <gerd@gnu.org>
parents:
30605
diff
changeset
|
5499 original_buffer, make_number (i)); |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5500 if (current_buffer != given_buffer) |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5501 { |
18107
7e13abad5cca
(Fwrite_region, build_annotations):
Richard M. Stallman <rms@gnu.org>
parents:
17959
diff
changeset
|
5502 XSETFASTINT (start, BEGV); |
7e13abad5cca
(Fwrite_region, build_annotations):
Richard M. Stallman <rms@gnu.org>
parents:
17959
diff
changeset
|
5503 XSETFASTINT (end, ZV); |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5504 annotations = Qnil; |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5505 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5506 |
30927
5c0b3d6959c4
(build_annotations): Add a comment explaining the
Gerd Moellmann <gerd@gnu.org>
parents:
30605
diff
changeset
|
5507 if (CONSP (res)) |
5c0b3d6959c4
(build_annotations): Add a comment explaining the
Gerd Moellmann <gerd@gnu.org>
parents:
30605
diff
changeset
|
5508 annotations = merge (annotations, res, Qcar_less_than_car); |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5509 } |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5510 |
41181
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5511 UNGCPRO; |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5512 return annotations; |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5513 } |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5514 |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5515 static Lisp_Object |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5516 build_annotations_2 (start, end, pre_write_conversion, annotations) |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5517 Lisp_Object start, end, pre_write_conversion, annotations; |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5518 { |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5519 struct gcpro gcpro1; |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5520 Lisp_Object res; |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5521 |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
5522 GCPRO1 (annotations); |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5523 /* At last, do the same for the function PRE_WRITE_CONVERSION |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5524 implied by the current coding-system. */ |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5525 if (!NILP (pre_write_conversion)) |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5526 { |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5527 struct buffer *given_buffer = current_buffer; |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5528 Vwrite_region_annotations_so_far = annotations; |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5529 res = call2 (pre_write_conversion, start, end); |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5530 Flength (res); |
17723
f67a321c8fb6
(Fwrite_region): Add 7th optional arg
Kenichi Handa <handa@m17n.org>
parents:
17718
diff
changeset
|
5531 annotations = (current_buffer != given_buffer |
f67a321c8fb6
(Fwrite_region): Add 7th optional arg
Kenichi Handa <handa@m17n.org>
parents:
17718
diff
changeset
|
5532 ? res |
f67a321c8fb6
(Fwrite_region): Add 7th optional arg
Kenichi Handa <handa@m17n.org>
parents:
17718
diff
changeset
|
5533 : merge (annotations, res, Qcar_less_than_car)); |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5534 } |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5535 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5536 UNGCPRO; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5537 return annotations; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5538 } |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5539 |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5540 /* Write to descriptor DESC the NCHARS chars starting at POS of STRING. |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5541 If STRING is nil, POS is the character position in the current buffer. |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5542 Intersperse with them the annotations from *ANNOT |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5543 which fall within the range of POS to POS + NCHARS, |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5544 each at its appropriate position. |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5545 |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5546 We modify *ANNOT by discarding elements as we use them up. |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5547 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5548 The return value is negative in case of system call failure. */ |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5549 |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5550 static int |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5551 a_write (desc, string, pos, nchars, annot, coding) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5552 int desc; |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5553 Lisp_Object string; |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5554 register int nchars; |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5555 int pos; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5556 Lisp_Object *annot; |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5557 struct coding_system *coding; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5558 { |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5559 Lisp_Object tem; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5560 int nextpos; |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5561 int lastpos = pos + nchars; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5562 |
8079
3f543986a45a
(a_write): Loop while *ANNOT is listp, not consp. Previous code omitted
Roland McGrath <roland@gnu.org>
parents:
8068
diff
changeset
|
5563 while (NILP (*annot) || CONSP (*annot)) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5564 { |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5565 tem = Fcar_safe (Fcar (*annot)); |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5566 nextpos = pos - 1; |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5567 if (INTEGERP (tem)) |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5568 nextpos = XFASTINT (tem); |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5569 |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5570 /* If there are no more annotations in this range, |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5571 output the rest of the range all at once. */ |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5572 if (! (nextpos >= pos && nextpos <= lastpos)) |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5573 return e_write (desc, string, pos, lastpos, coding); |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5574 |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5575 /* Output buffer text up to the next annotation's position. */ |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5576 if (nextpos > pos) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5577 { |
28561
98330e399518
(a_write): Remove redundant semi-colons.
Eli Zaretskii <eliz@gnu.org>
parents:
28507
diff
changeset
|
5578 if (0 > e_write (desc, string, pos, nextpos, coding)) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5579 return -1; |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5580 pos = nextpos; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5581 } |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5582 /* Output the annotation. */ |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5583 tem = Fcdr (Fcar (*annot)); |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5584 if (STRINGP (tem)) |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5585 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5586 if (0 > e_write (desc, tem, 0, SCHARS (tem), coding)) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5587 return -1; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5588 } |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5589 *annot = Fcdr (*annot); |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5590 } |
21514 | 5591 return 0; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5592 } |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5593 |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5594 #ifndef WRITE_BUF_SIZE |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5595 #define WRITE_BUF_SIZE (16 * 1024) |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5596 #endif |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5597 |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5598 /* Write text in the range START and END into descriptor DESC, |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5599 encoding them with coding system CODING. If STRING is nil, START |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5600 and END are character positions of the current buffer, else they |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5601 are indexes to the string STRING. */ |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5602 |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5603 static int |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5604 e_write (desc, string, start, end, coding) |
230 | 5605 int desc; |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5606 Lisp_Object string; |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5607 int start, end; |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5608 struct coding_system *coding; |
230 | 5609 { |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5610 register char *addr; |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5611 register int nbytes; |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5612 char buf[WRITE_BUF_SIZE]; |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5613 int return_val = 0; |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5614 |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5615 if (start >= end) |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5616 coding->composing = COMPOSITION_DISABLED; |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5617 if (coding->composing != COMPOSITION_DISABLED) |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5618 coding_save_composition (coding, start, end, string); |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5619 |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5620 if (STRINGP (string)) |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5621 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5622 addr = SDATA (string); |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5623 nbytes = SBYTES (string); |
29009
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
5624 coding->src_multibyte = STRING_MULTIBYTE (string); |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5625 } |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5626 else if (start < end) |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5627 { |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5628 /* It is assured that the gap is not in the range START and END-1. */ |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5629 addr = CHAR_POS_ADDR (start); |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5630 nbytes = CHAR_TO_BYTE (end) - CHAR_TO_BYTE (start); |
29009
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
5631 coding->src_multibyte |
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
5632 = !NILP (current_buffer->enable_multibyte_characters); |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5633 } |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5634 else |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5635 { |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5636 addr = ""; |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5637 nbytes = 0; |
29009
85822da9ece9
(Finsert_file_contents): Setup src_multibyte and
Kenichi Handa <handa@m17n.org>
parents:
28928
diff
changeset
|
5638 coding->src_multibyte = 1; |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5639 } |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5640 |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5641 /* We used to have a code for handling selective display here. But, |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5642 now it is handled within encode_coding. */ |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5643 while (1) |
230 | 5644 { |
22441
dd560c810254
(set_auto_coding_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents:
22362
diff
changeset
|
5645 int result; |
dd560c810254
(set_auto_coding_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents:
22362
diff
changeset
|
5646 |
dd560c810254
(set_auto_coding_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents:
22362
diff
changeset
|
5647 result = encode_coding (coding, addr, buf, nbytes, WRITE_BUF_SIZE); |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
5648 if (coding->produced > 0) |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5649 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
5650 coding->produced -= emacs_write (desc, buf, coding->produced); |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5651 if (coding->produced) |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5652 { |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5653 return_val = -1; |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5654 break; |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5655 } |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5656 } |
27564
bb284bade4d0
(e_write): Fix the handling of
Kenichi Handa <handa@m17n.org>
parents:
27134
diff
changeset
|
5657 nbytes -= coding->consumed; |
bb284bade4d0
(e_write): Fix the handling of
Kenichi Handa <handa@m17n.org>
parents:
27134
diff
changeset
|
5658 addr += coding->consumed; |
bb284bade4d0
(e_write): Fix the handling of
Kenichi Handa <handa@m17n.org>
parents:
27134
diff
changeset
|
5659 if (result == CODING_FINISH_INSUFFICIENT_SRC |
bb284bade4d0
(e_write): Fix the handling of
Kenichi Handa <handa@m17n.org>
parents:
27134
diff
changeset
|
5660 && nbytes > 0) |
22441
dd560c810254
(set_auto_coding_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents:
22362
diff
changeset
|
5661 { |
dd560c810254
(set_auto_coding_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents:
22362
diff
changeset
|
5662 /* The source text ends by an incomplete multibyte form. |
dd560c810254
(set_auto_coding_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents:
22362
diff
changeset
|
5663 There's no way other than write it out as is. */ |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
5664 nbytes -= emacs_write (desc, addr, nbytes); |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5665 if (nbytes) |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5666 { |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5667 return_val = -1; |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5668 break; |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5669 } |
22441
dd560c810254
(set_auto_coding_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents:
22362
diff
changeset
|
5670 } |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5671 if (nbytes <= 0) |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5672 break; |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5673 start += coding->consumed_char; |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5674 if (coding->cmp_data) |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5675 coding_adjust_composition_offset (coding, start); |
230 | 5676 } |
29478
01f18086f2ac
(e_write): Free composition data if stored in
Kenichi Handa <handa@m17n.org>
parents:
29312
diff
changeset
|
5677 |
01f18086f2ac
(e_write): Free composition data if stored in
Kenichi Handa <handa@m17n.org>
parents:
29312
diff
changeset
|
5678 if (coding->cmp_data) |
01f18086f2ac
(e_write): Free composition data if stored in
Kenichi Handa <handa@m17n.org>
parents:
29312
diff
changeset
|
5679 coding_free_composition_data (coding); |
01f18086f2ac
(e_write): Free composition data if stored in
Kenichi Handa <handa@m17n.org>
parents:
29312
diff
changeset
|
5680 |
28561
98330e399518
(a_write): Remove redundant semi-colons.
Eli Zaretskii <eliz@gnu.org>
parents:
28507
diff
changeset
|
5681 return return_val; |
230 | 5682 } |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5683 |
230 | 5684 DEFUN ("verify-visited-file-modtime", Fverify_visited_file_modtime, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5685 Sverify_visited_file_modtime, 1, 1, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5686 doc: /* Return t if last mod time of BUF's visited file matches what BUF records. |
54895
0ea7bf2995a9
(Fverify_visited_file_modtime, Fvisited_file_modtime):
Luc Teirlinck <teirllm@auburn.edu>
parents:
54419
diff
changeset
|
5687 This means that the file has not been changed since it was visited or saved. |
0ea7bf2995a9
(Fverify_visited_file_modtime, Fvisited_file_modtime):
Luc Teirlinck <teirllm@auburn.edu>
parents:
54419
diff
changeset
|
5688 See Info node `(elisp)Modification Time' for more details. */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5689 (buf) |
230 | 5690 Lisp_Object buf; |
5691 { | |
5692 struct buffer *b; | |
5693 struct stat st; | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5694 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5695 Lisp_Object filename; |
230 | 5696 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
5697 CHECK_BUFFER (buf); |
230 | 5698 b = XBUFFER (buf); |
5699 | |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
5700 if (!STRINGP (b->filename)) return Qt; |
230 | 5701 if (b->modtime == 0) return Qt; |
5702 | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5703 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5704 call the corresponding file handler. */ |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
5705 handler = Ffind_file_name_handler (b->filename, |
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
5706 Qverify_visited_file_modtime); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5707 if (!NILP (handler)) |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
5708 return call2 (handler, Qverify_visited_file_modtime, buf); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5709 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5710 filename = ENCODE_FILE (b->filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5711 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5712 if (stat (SDATA (filename), &st) < 0) |
230 | 5713 { |
5714 /* If the file doesn't exist now and didn't exist before, | |
5715 we say that it isn't modified, provided the error is a tame one. */ | |
5716 if (errno == ENOENT || errno == EACCES || errno == ENOTDIR) | |
5717 st.st_mtime = -1; | |
5718 else | |
5719 st.st_mtime = 0; | |
5720 } | |
5721 if (st.st_mtime == b->modtime | |
5722 /* If both are positive, accept them if they are off by one second. */ | |
5723 || (st.st_mtime > 0 && b->modtime > 0 | |
5724 && (st.st_mtime == b->modtime + 1 | |
5725 || st.st_mtime == b->modtime - 1))) | |
5726 return Qt; | |
5727 return Qnil; | |
5728 } | |
5729 | |
5730 DEFUN ("clear-visited-file-modtime", Fclear_visited_file_modtime, | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5731 Sclear_visited_file_modtime, 0, 0, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5732 doc: /* Clear out records of last mod time of visited file. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5733 Next attempt to save will certainly not complain of a discrepancy. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5734 () |
230 | 5735 { |
5736 current_buffer->modtime = 0; | |
5737 return Qnil; | |
5738 } | |
5739 | |
2257
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5740 DEFUN ("visited-file-modtime", Fvisited_file_modtime, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5741 Svisited_file_modtime, 0, 0, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5742 doc: /* Return the current buffer's recorded visited file modification time. |
56422
36170ef90094
(Fvisited_file_modtime): Return a list of two integers,
Luc Teirlinck <teirllm@auburn.edu>
parents:
56340
diff
changeset
|
5743 The value is a list of the form (HIGH LOW), like the time values |
54895
0ea7bf2995a9
(Fverify_visited_file_modtime, Fvisited_file_modtime):
Luc Teirlinck <teirllm@auburn.edu>
parents:
54419
diff
changeset
|
5744 that `file-attributes' returns. If the current buffer has no recorded |
0ea7bf2995a9
(Fverify_visited_file_modtime, Fvisited_file_modtime):
Luc Teirlinck <teirllm@auburn.edu>
parents:
54419
diff
changeset
|
5745 file modification time, this function returns 0. |
0ea7bf2995a9
(Fverify_visited_file_modtime, Fvisited_file_modtime):
Luc Teirlinck <teirllm@auburn.edu>
parents:
54419
diff
changeset
|
5746 See Info node `(elisp)Modification Time' for more details. */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5747 () |
230 | 5748 { |
78402
d22d1c8033b8
(Fvisited_file_modtime): Use make_time.
Richard M. Stallman <rms@gnu.org>
parents:
78260
diff
changeset
|
5749 if (! current_buffer->modtime) |
d22d1c8033b8
(Fvisited_file_modtime): Use make_time.
Richard M. Stallman <rms@gnu.org>
parents:
78260
diff
changeset
|
5750 return make_number (0); |
d22d1c8033b8
(Fvisited_file_modtime): Use make_time.
Richard M. Stallman <rms@gnu.org>
parents:
78260
diff
changeset
|
5751 return make_time ((time_t) current_buffer->modtime); |
2257
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5752 } |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5753 |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5754 DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5755 Sset_visited_file_modtime, 0, 1, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5756 doc: /* Update buffer's recorded modification time from the visited file's time. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5757 Useful if the buffer was not read from the file normally |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5758 or if the file itself has been changed for some known benign reason. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5759 An argument specifies the modification time value to use |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5760 \(instead of that of the visited file), in the form of a list |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5761 \(HIGH . LOW) or (HIGH LOW). */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5762 (time_list) |
2257
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5763 Lisp_Object time_list; |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5764 { |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5765 if (!NILP (time_list)) |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5766 current_buffer->modtime = cons_to_long (time_list); |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5767 else |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5768 { |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5769 register Lisp_Object filename; |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5770 struct stat st; |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5771 Lisp_Object handler; |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5772 |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5773 filename = Fexpand_file_name (current_buffer->filename, Qnil); |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5774 |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5775 /* If the file name has special constructs in it, |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5776 call the corresponding file handler. */ |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
5777 handler = Ffind_file_name_handler (filename, Qset_visited_file_modtime); |
2257
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5778 if (!NILP (handler)) |
3721
4550c56785d8
(Fset_visited_file_modtime): Don't give the handler
Richard M. Stallman <rms@gnu.org>
parents:
3705
diff
changeset
|
5779 /* The handler can find the file name the same way we did. */ |
3829
4130587b6ffc
* fileio.c (Fset_visited_file_modtime): We're only passing two
Jim Blandy <jimb@redhat.com>
parents:
3787
diff
changeset
|
5780 return call2 (handler, Qset_visited_file_modtime, Qnil); |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5781 |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5782 filename = ENCODE_FILE (filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5783 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5784 if (stat (SDATA (filename), &st) >= 0) |
2257
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5785 current_buffer->modtime = st.st_mtime; |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5786 } |
230 | 5787 |
5788 return Qnil; | |
5789 } | |
5790 | |
5791 Lisp_Object | |
34176
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5792 auto_save_error (error) |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5793 Lisp_Object error; |
230 | 5794 { |
34176
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5795 Lisp_Object args[3], msg; |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5796 int i, nbytes; |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5797 struct gcpro gcpro1; |
65466
1fdd6c36f42c
(auto_save_error): Pass copy of lisp string to message2.
Kim F. Storm <storm@cua.dk>
parents:
64770
diff
changeset
|
5798 char *msgbuf; |
1fdd6c36f42c
(auto_save_error): Pass copy of lisp string to message2.
Kim F. Storm <storm@cua.dk>
parents:
64770
diff
changeset
|
5799 USE_SAFE_ALLOCA; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5800 |
83100
4970ad4995f5
Eliminated updating_frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
54895
diff
changeset
|
5801 ring_bell (XFRAME (selected_frame)); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5802 |
34176
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5803 args[0] = build_string ("Auto-saving %s: %s"); |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5804 args[1] = current_buffer->name; |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5805 args[2] = Ferror_message_string (error); |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5806 msg = Fformat (3, args); |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5807 GCPRO1 (msg); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5808 nbytes = SBYTES (msg); |
65466
1fdd6c36f42c
(auto_save_error): Pass copy of lisp string to message2.
Kim F. Storm <storm@cua.dk>
parents:
64770
diff
changeset
|
5809 SAFE_ALLOCA (msgbuf, char *, nbytes); |
1fdd6c36f42c
(auto_save_error): Pass copy of lisp string to message2.
Kim F. Storm <storm@cua.dk>
parents:
64770
diff
changeset
|
5810 bcopy (SDATA (msg), msgbuf, nbytes); |
34176
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5811 |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5812 for (i = 0; i < 3; ++i) |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5813 { |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5814 if (i == 0) |
65466
1fdd6c36f42c
(auto_save_error): Pass copy of lisp string to message2.
Kim F. Storm <storm@cua.dk>
parents:
64770
diff
changeset
|
5815 message2 (msgbuf, nbytes, STRING_MULTIBYTE (msg)); |
34176
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5816 else |
65466
1fdd6c36f42c
(auto_save_error): Pass copy of lisp string to message2.
Kim F. Storm <storm@cua.dk>
parents:
64770
diff
changeset
|
5817 message2_nolog (msgbuf, nbytes, STRING_MULTIBYTE (msg)); |
34176
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5818 Fsleep_for (make_number (1), Qnil); |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5819 } |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5820 |
66235
60419121ec96
(auto_save_error): Call SAFE_FREE.
Kim F. Storm <storm@cua.dk>
parents:
65547
diff
changeset
|
5821 SAFE_FREE (); |
34176
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5822 UNGCPRO; |
230 | 5823 return Qnil; |
5824 } | |
5825 | |
5826 Lisp_Object | |
5827 auto_save_1 () | |
5828 { | |
5829 struct stat st; | |
57955 | 5830 Lisp_Object modes; |
5831 | |
5832 auto_save_mode_bits = 0666; | |
230 | 5833 |
5834 /* Get visited file's mode to become the auto save file's mode. */ | |
57955 | 5835 if (! NILP (current_buffer->filename)) |
5836 { | |
5837 if (stat (SDATA (current_buffer->filename), &st) >= 0) | |
5838 /* But make sure we can overwrite it later! */ | |
5839 auto_save_mode_bits = st.st_mode | 0600; | |
5840 else if ((modes = Ffile_modes (current_buffer->filename), | |
5841 INTEGERP (modes))) | |
5842 /* Remote files don't cooperate with stat. */ | |
5843 auto_save_mode_bits = XINT (modes) | 0600; | |
5844 } | |
230 | 5845 |
5846 return | |
5847 Fwrite_region (Qnil, Qnil, | |
5848 current_buffer->auto_save_file_name, | |
21020
f7ace8487b28
(auto_save_1): Pass new arg to Fwrite_region.
Richard M. Stallman <rms@gnu.org>
parents:
20944
diff
changeset
|
5849 Qnil, Qlambda, Qnil, Qnil); |
230 | 5850 } |
5851 | |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5852 static Lisp_Object |
64535
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5853 do_auto_save_unwind (arg) /* used as unwind-protect function */ |
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5854 Lisp_Object arg; |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5855 { |
64535
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5856 FILE *stream = (FILE *) XSAVE_VALUE (arg)->pointer; |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
5857 auto_saving = 0; |
64535
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5858 if (stream != NULL) |
76622
e0b9cd18e1b6
(do_auto_save_unwind): Add BLOCK_INPUT around fclose.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75348
diff
changeset
|
5859 { |
e0b9cd18e1b6
(do_auto_save_unwind): Add BLOCK_INPUT around fclose.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75348
diff
changeset
|
5860 BLOCK_INPUT; |
e0b9cd18e1b6
(do_auto_save_unwind): Add BLOCK_INPUT around fclose.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75348
diff
changeset
|
5861 fclose (stream); |
e0b9cd18e1b6
(do_auto_save_unwind): Add BLOCK_INPUT around fclose.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75348
diff
changeset
|
5862 UNBLOCK_INPUT; |
e0b9cd18e1b6
(do_auto_save_unwind): Add BLOCK_INPUT around fclose.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75348
diff
changeset
|
5863 } |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5864 return Qnil; |
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5865 } |
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5866 |
18861
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5867 static Lisp_Object |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5868 do_auto_save_unwind_1 (value) /* used as unwind-protect function */ |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5869 Lisp_Object value; |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5870 { |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5871 minibuffer_auto_raise = XINT (value); |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5872 return Qnil; |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5873 } |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5874 |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5875 static Lisp_Object |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5876 do_auto_save_make_dir (dir) |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5877 Lisp_Object dir; |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5878 { |
71680
9e578ef3e05c
fileio.c (do_auto_save_make_dir): Make the auto-save-list-file
Stephen Gildea <gildea@stop.mail-abuse.org>
parents:
71426
diff
changeset
|
5879 Lisp_Object mode; |
9e578ef3e05c
fileio.c (do_auto_save_make_dir): Make the auto-save-list-file
Stephen Gildea <gildea@stop.mail-abuse.org>
parents:
71426
diff
changeset
|
5880 |
9e578ef3e05c
fileio.c (do_auto_save_make_dir): Make the auto-save-list-file
Stephen Gildea <gildea@stop.mail-abuse.org>
parents:
71426
diff
changeset
|
5881 call2 (Qmake_directory, dir, Qt); |
9e578ef3e05c
fileio.c (do_auto_save_make_dir): Make the auto-save-list-file
Stephen Gildea <gildea@stop.mail-abuse.org>
parents:
71426
diff
changeset
|
5882 XSETFASTINT (mode, 0700); |
9e578ef3e05c
fileio.c (do_auto_save_make_dir): Make the auto-save-list-file
Stephen Gildea <gildea@stop.mail-abuse.org>
parents:
71426
diff
changeset
|
5883 return Fset_file_modes (dir, mode); |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5884 } |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5885 |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5886 static Lisp_Object |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5887 do_auto_save_eh (ignore) |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5888 Lisp_Object ignore; |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5889 { |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5890 return Qnil; |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5891 } |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5892 |
230 | 5893 DEFUN ("do-auto-save", Fdo_auto_save, Sdo_auto_save, 0, 2, "", |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5894 doc: /* Auto-save all buffers that need it. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5895 This is all buffers that have auto-saving enabled |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5896 and are changed since last auto-saved. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5897 Auto-saving writes the buffer into a file |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5898 so that your editing is not lost if the system crashes. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5899 This file is not the file you visited; that changes only when you save. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5900 Normally we run the normal hook `auto-save-hook' before saving. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5901 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5902 A non-nil NO-MESSAGE argument means do not print any message if successful. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5903 A non-nil CURRENT-ONLY argument means save only current buffer. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5904 (no_message, current_only) |
1775
f9ac4c0d8b72
* fileio.c (Fdo_auto_save): Add CURRENT_ONLY argument, as
Jim Blandy <jimb@redhat.com>
parents:
1763
diff
changeset
|
5905 Lisp_Object no_message, current_only; |
230 | 5906 { |
5907 struct buffer *old = current_buffer, *b; | |
5908 Lisp_Object tail, buf; | |
5909 int auto_saved = 0; | |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
5910 int do_handled_files; |
4270
3ce8e11f338b
(Fdo_auto_save): Temporarily clear Vquit_flag.
Richard M. Stallman <rms@gnu.org>
parents:
3963
diff
changeset
|
5911 Lisp_Object oquit; |
64535
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5912 FILE *stream = NULL; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
5913 int count = SPECPDL_INDEX (); |
18861
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5914 int orig_minibuffer_auto_raise = minibuffer_auto_raise; |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5915 int old_message_p = 0; |
49191
9b836b1dabe5
(syms_of_fileio) <directory-sep-char>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
48876
diff
changeset
|
5916 struct gcpro gcpro1, gcpro2; |
42407
f2c23e762b64
(Fdo_auto_save): If NO_MESSAGE, don't call push_message.
Richard M. Stallman <rms@gnu.org>
parents:
42191
diff
changeset
|
5917 |
f2c23e762b64
(Fdo_auto_save): If NO_MESSAGE, don't call push_message.
Richard M. Stallman <rms@gnu.org>
parents:
42191
diff
changeset
|
5918 if (max_specpdl_size < specpdl_size + 40) |
f2c23e762b64
(Fdo_auto_save): If NO_MESSAGE, don't call push_message.
Richard M. Stallman <rms@gnu.org>
parents:
42191
diff
changeset
|
5919 max_specpdl_size = specpdl_size + 40; |
f2c23e762b64
(Fdo_auto_save): If NO_MESSAGE, don't call push_message.
Richard M. Stallman <rms@gnu.org>
parents:
42191
diff
changeset
|
5920 |
f2c23e762b64
(Fdo_auto_save): If NO_MESSAGE, don't call push_message.
Richard M. Stallman <rms@gnu.org>
parents:
42191
diff
changeset
|
5921 if (minibuf_level) |
f2c23e762b64
(Fdo_auto_save): If NO_MESSAGE, don't call push_message.
Richard M. Stallman <rms@gnu.org>
parents:
42191
diff
changeset
|
5922 no_message = Qt; |
f2c23e762b64
(Fdo_auto_save): If NO_MESSAGE, don't call push_message.
Richard M. Stallman <rms@gnu.org>
parents:
42191
diff
changeset
|
5923 |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5924 if (NILP (no_message)) |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5925 { |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5926 old_message_p = push_message (); |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5927 record_unwind_protect (pop_message_unwind, Qnil); |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5928 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5929 |
4270
3ce8e11f338b
(Fdo_auto_save): Temporarily clear Vquit_flag.
Richard M. Stallman <rms@gnu.org>
parents:
3963
diff
changeset
|
5930 /* Ordinarily don't quit within this function, |
3ce8e11f338b
(Fdo_auto_save): Temporarily clear Vquit_flag.
Richard M. Stallman <rms@gnu.org>
parents:
3963
diff
changeset
|
5931 but don't make it impossible to quit (in case we get hung in I/O). */ |
3ce8e11f338b
(Fdo_auto_save): Temporarily clear Vquit_flag.
Richard M. Stallman <rms@gnu.org>
parents:
3963
diff
changeset
|
5932 oquit = Vquit_flag; |
3ce8e11f338b
(Fdo_auto_save): Temporarily clear Vquit_flag.
Richard M. Stallman <rms@gnu.org>
parents:
3963
diff
changeset
|
5933 Vquit_flag = Qnil; |
230 | 5934 |
5935 /* No GCPRO needed, because (when it matters) all Lisp_Object variables | |
5936 point to non-strings reached from Vbuffer_alist. */ | |
5937 | |
485 | 5938 if (!NILP (Vrun_hooks)) |
230 | 5939 call1 (Vrun_hooks, intern ("auto-save-hook")); |
5940 | |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5941 if (STRINGP (Vauto_save_list_file_name)) |
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5942 { |
37961
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5943 Lisp_Object listfile; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5944 |
11632
ddbe0702ea95
(Fdo_auto_save): Record visited file name
Richard M. Stallman <rms@gnu.org>
parents:
11599
diff
changeset
|
5945 listfile = Fexpand_file_name (Vauto_save_list_file_name, Qnil); |
37961
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5946 |
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5947 /* Don't try to create the directory when shutting down Emacs, |
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5948 because creating the directory might signal an error, and |
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5949 that would leave Emacs in a strange state. */ |
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5950 if (!NILP (Vrun_hooks)) |
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5951 { |
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5952 Lisp_Object dir; |
49191
9b836b1dabe5
(syms_of_fileio) <directory-sep-char>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
48876
diff
changeset
|
5953 dir = Qnil; |
9b836b1dabe5
(syms_of_fileio) <directory-sep-char>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
48876
diff
changeset
|
5954 GCPRO2 (dir, listfile); |
37961
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5955 dir = Ffile_name_directory (listfile); |
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5956 if (NILP (Ffile_directory_p (dir))) |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5957 internal_condition_case_1 (do_auto_save_make_dir, |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5958 dir, Fcons (Fcons (Qfile_error, Qnil), Qnil), |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5959 do_auto_save_eh); |
49191
9b836b1dabe5
(syms_of_fileio) <directory-sep-char>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
48876
diff
changeset
|
5960 UNGCPRO; |
37961
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5961 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5962 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5963 stream = fopen (SDATA (listfile), "w"); |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5964 } |
64535
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5965 |
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5966 record_unwind_protect (do_auto_save_unwind, |
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5967 make_save_value (stream, 0)); |
18861
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5968 record_unwind_protect (do_auto_save_unwind_1, |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5969 make_number (minibuffer_auto_raise)); |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5970 minibuffer_auto_raise = 0; |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
5971 auto_saving = 1; |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
5972 |
53363
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5973 /* On first pass, save all files that don't have handlers. |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5974 On second pass, save all files that do have handlers. |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5975 |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5976 If Emacs is crashing, the handlers may tweak what is causing |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5977 Emacs to crash in the first place, and it would be a shame if |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5978 Emacs failed to autosave perfectly ordinary files because it |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5979 couldn't handle some ange-ftp'd file. */ |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5980 |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
5981 for (do_handled_files = 0; do_handled_files < 2; do_handled_files++) |
25662
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
5982 for (tail = Vbuffer_alist; GC_CONSP (tail); tail = XCDR (tail)) |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
5983 { |
25662
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
5984 buf = XCDR (XCAR (tail)); |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
5985 b = XBUFFER (buf); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
5986 |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5987 /* Record all the buffers that have auto save mode |
11632
ddbe0702ea95
(Fdo_auto_save): Record visited file name
Richard M. Stallman <rms@gnu.org>
parents:
11599
diff
changeset
|
5988 in the special file that lists them. For each of these buffers, |
ddbe0702ea95
(Fdo_auto_save): Record visited file name
Richard M. Stallman <rms@gnu.org>
parents:
11599
diff
changeset
|
5989 Record visited name (if any) and auto save name. */ |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
5990 if (STRINGP (b->auto_save_file_name) |
18270
fd2ccbdc5660
(Fdo_auto_save): Use stdio to write the save-list file.
Richard M. Stallman <rms@gnu.org>
parents:
18210
diff
changeset
|
5991 && stream != NULL && do_handled_files == 0) |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5992 { |
76622
e0b9cd18e1b6
(do_auto_save_unwind): Add BLOCK_INPUT around fclose.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75348
diff
changeset
|
5993 BLOCK_INPUT; |
11632
ddbe0702ea95
(Fdo_auto_save): Record visited file name
Richard M. Stallman <rms@gnu.org>
parents:
11599
diff
changeset
|
5994 if (!NILP (b->filename)) |
ddbe0702ea95
(Fdo_auto_save): Record visited file name
Richard M. Stallman <rms@gnu.org>
parents:
11599
diff
changeset
|
5995 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5996 fwrite (SDATA (b->filename), 1, |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5997 SBYTES (b->filename), stream); |
11632
ddbe0702ea95
(Fdo_auto_save): Record visited file name
Richard M. Stallman <rms@gnu.org>
parents:
11599
diff
changeset
|
5998 } |
18270
fd2ccbdc5660
(Fdo_auto_save): Use stdio to write the save-list file.
Richard M. Stallman <rms@gnu.org>
parents:
18210
diff
changeset
|
5999 putc ('\n', stream); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
6000 fwrite (SDATA (b->auto_save_file_name), 1, |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
6001 SBYTES (b->auto_save_file_name), stream); |
18270
fd2ccbdc5660
(Fdo_auto_save): Use stdio to write the save-list file.
Richard M. Stallman <rms@gnu.org>
parents:
18210
diff
changeset
|
6002 putc ('\n', stream); |
76622
e0b9cd18e1b6
(do_auto_save_unwind): Add BLOCK_INPUT around fclose.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75348
diff
changeset
|
6003 UNBLOCK_INPUT; |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
6004 } |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6005 |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6006 if (!NILP (current_only) |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6007 && b != current_buffer) |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6008 continue; |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
6009 |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
6010 /* Don't auto-save indirect buffers. |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
6011 The base buffer takes care of it. */ |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
6012 if (b->base_buffer) |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
6013 continue; |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
6014 |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6015 /* Check for auto save enabled |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6016 and file changed since last auto save |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6017 and file changed since last real save. */ |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
6018 if (STRINGP (b->auto_save_file_name) |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
6019 && BUF_SAVE_MODIFF (b) < BUF_MODIFF (b) |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6020 && b->auto_save_modified < BUF_MODIFF (b) |
6678
e29adbacde1d
(Fdo_auto_save): Don't turn off auto save mode.
Richard M. Stallman <rms@gnu.org>
parents:
6498
diff
changeset
|
6021 /* -1 means we've turned off autosaving for a while--see below. */ |
e29adbacde1d
(Fdo_auto_save): Don't turn off auto save mode.
Richard M. Stallman <rms@gnu.org>
parents:
6498
diff
changeset
|
6022 && XINT (b->save_length) >= 0 |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6023 && (do_handled_files |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
6024 || NILP (Ffind_file_name_handler (b->auto_save_file_name, |
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
6025 Qwrite_region)))) |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6026 { |
5553
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6027 EMACS_TIME before_time, after_time; |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6028 |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6029 EMACS_GET_TIME (before_time); |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6030 |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6031 /* If we had a failure, don't try again for 20 minutes. */ |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6032 if (b->auto_save_failure_time >= 0 |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6033 && EMACS_SECS (before_time) - b->auto_save_failure_time < 1200) |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6034 continue; |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6035 |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6036 if ((XFASTINT (b->save_length) * 10 |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6037 > (BUF_Z (b) - BUF_BEG (b)) * 13) |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6038 /* A short file is likely to change a large fraction; |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6039 spare the user annoying messages. */ |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6040 && XFASTINT (b->save_length) > 5000 |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6041 /* These messages are frequent and annoying for `*mail*'. */ |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6042 && !EQ (b->filename, Qnil) |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6043 && NILP (no_message)) |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6044 { |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6045 /* It has shrunk too much; turn off auto-saving here. */ |
18861
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
6046 minibuffer_auto_raise = orig_minibuffer_auto_raise; |
43081
6307d3a2321b
(Fdo_auto_save): Improve "auto save disabled" msg.
Richard M. Stallman <rms@gnu.org>
parents:
42407
diff
changeset
|
6047 message_with_string ("Buffer %s has shrunk a lot; auto save disabled in that buffer until next real save", |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
6048 b->name, 1); |
18861
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
6049 minibuffer_auto_raise = 0; |
6678
e29adbacde1d
(Fdo_auto_save): Don't turn off auto save mode.
Richard M. Stallman <rms@gnu.org>
parents:
6498
diff
changeset
|
6050 /* Turn off auto-saving until there's a real save, |
e29adbacde1d
(Fdo_auto_save): Don't turn off auto save mode.
Richard M. Stallman <rms@gnu.org>
parents:
6498
diff
changeset
|
6051 and prevent any more warnings. */ |
9266
811ad893828b
(Fdefault_file_modes, Finsert_file_contents, Fdo_auto_save): Use new accessor
Karl Heuer <kwzh@gnu.org>
parents:
9241
diff
changeset
|
6052 XSETINT (b->save_length, -1); |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6053 Fsleep_for (make_number (1), Qnil); |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6054 continue; |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6055 } |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6056 set_buffer_internal (b); |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6057 if (!auto_saved && NILP (no_message)) |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6058 message1 ("Auto-saving..."); |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6059 internal_condition_case (auto_save_1, Qt, auto_save_error); |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6060 auto_saved++; |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6061 b->auto_save_modified = BUF_MODIFF (b); |
9307
44d6fc4b638b
(Finsert_file_contents, Fwrite_region, Fdo_auto_save, Fset_buffer_auto_saved):
Karl Heuer <kwzh@gnu.org>
parents:
9291
diff
changeset
|
6062 XSETFASTINT (current_buffer->save_length, Z - BEG); |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6063 set_buffer_internal (old); |
5553
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6064 |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6065 EMACS_GET_TIME (after_time); |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6066 |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6067 /* If auto-save took more than 60 seconds, |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6068 assume it was an NFS failure that got a timeout. */ |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6069 if (EMACS_SECS (after_time) - EMACS_SECS (before_time) > 60) |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6070 b->auto_save_failure_time = EMACS_SECS (after_time); |
1869
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6071 } |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
6072 } |
230 | 6073 |
1059
430923239064
(Fdo_auto_save): Always call record_auto_save.
Richard M. Stallman <rms@gnu.org>
parents:
1044
diff
changeset
|
6074 /* Prevent another auto save till enough input events come in. */ |
430923239064
(Fdo_auto_save): Always call record_auto_save.
Richard M. Stallman <rms@gnu.org>
parents:
1044
diff
changeset
|
6075 record_auto_save (); |
230 | 6076 |
1775
f9ac4c0d8b72
* fileio.c (Fdo_auto_save): Add CURRENT_ONLY argument, as
Jim Blandy <jimb@redhat.com>
parents:
1763
diff
changeset
|
6077 if (auto_saved && NILP (no_message)) |
5875
6bfcd23bfa84
(Fdo_auto_save): Save echo_area_glyphs_length.
Karl Heuer <kwzh@gnu.org>
parents:
5758
diff
changeset
|
6078 { |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
6079 if (old_message_p) |
25006
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
6080 { |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
6081 /* If we are going to restore an old message, |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
6082 give time to read ours. */ |
71799
8134ee20ca71
(Fdo_auto_save): Update/simplify sit_for calls.
Kim F. Storm <storm@cua.dk>
parents:
71680
diff
changeset
|
6083 sit_for (make_number (1), 0, 0); |
25348
5c1dc7109bb8
(Fdo_auto_save): Use push_message, restore_message,
Gerd Moellmann <gerd@gnu.org>
parents:
25321
diff
changeset
|
6084 restore_message (); |
14616
051d6225ca90
(Fdo_auto_save): Pause before restoring old message.
Karl Heuer <kwzh@gnu.org>
parents:
14571
diff
changeset
|
6085 } |
5875
6bfcd23bfa84
(Fdo_auto_save): Save echo_area_glyphs_length.
Karl Heuer <kwzh@gnu.org>
parents:
5758
diff
changeset
|
6086 else |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
6087 /* If we displayed a message and then restored a state |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
6088 with no message, leave a "done" message on the screen. */ |
5875
6bfcd23bfa84
(Fdo_auto_save): Save echo_area_glyphs_length.
Karl Heuer <kwzh@gnu.org>
parents:
5758
diff
changeset
|
6089 message1 ("Auto-saving...done"); |
6bfcd23bfa84
(Fdo_auto_save): Save echo_area_glyphs_length.
Karl Heuer <kwzh@gnu.org>
parents:
5758
diff
changeset
|
6090 } |
230 | 6091 |
4270
3ce8e11f338b
(Fdo_auto_save): Temporarily clear Vquit_flag.
Richard M. Stallman <rms@gnu.org>
parents:
3963
diff
changeset
|
6092 Vquit_flag = oquit; |
3ce8e11f338b
(Fdo_auto_save): Temporarily clear Vquit_flag.
Richard M. Stallman <rms@gnu.org>
parents:
3963
diff
changeset
|
6093 |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
6094 /* This restores the message-stack status. */ |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
6095 unbind_to (count, Qnil); |
230 | 6096 return Qnil; |
6097 } | |
6098 | |
6099 DEFUN ("set-buffer-auto-saved", Fset_buffer_auto_saved, | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6100 Sset_buffer_auto_saved, 0, 0, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6101 doc: /* Mark current buffer as auto-saved with its current text. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6102 No auto-save file will be written until the buffer changes again. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6103 () |
230 | 6104 { |
6105 current_buffer->auto_save_modified = MODIFF; | |
9307
44d6fc4b638b
(Finsert_file_contents, Fwrite_region, Fdo_auto_save, Fset_buffer_auto_saved):
Karl Heuer <kwzh@gnu.org>
parents:
9291
diff
changeset
|
6106 XSETFASTINT (current_buffer->save_length, Z - BEG); |
5553
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6107 current_buffer->auto_save_failure_time = -1; |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6108 return Qnil; |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6109 } |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6110 |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6111 DEFUN ("clear-buffer-auto-save-failure", Fclear_buffer_auto_save_failure, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6112 Sclear_buffer_auto_save_failure, 0, 0, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6113 doc: /* Clear any record of a recent auto-save failure in the current buffer. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6114 () |
5553
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6115 { |
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6116 current_buffer->auto_save_failure_time = -1; |
230 | 6117 return Qnil; |
6118 } | |
6119 | |
6120 DEFUN ("recent-auto-save-p", Frecent_auto_save_p, Srecent_auto_save_p, | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6121 0, 0, 0, |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
6122 doc: /* Return t if current buffer has been auto-saved recently. |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
6123 More precisely, if it has been auto-saved since last read from or saved |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
6124 in the visited file. If the buffer has no visited file, |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
6125 then any auto-save counts as "recent". */) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6126 () |
230 | 6127 { |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
6128 return (SAVE_MODIFF < current_buffer->auto_save_modified) ? Qt : Qnil; |
230 | 6129 } |
6130 | |
6131 /* Reading and completing file names */ | |
6132 extern Lisp_Object Ffile_name_completion (), Ffile_name_all_completions (); | |
79110
29f6806df351
(Qcompletion_ignore_case): New external Lisp_Object.
Glenn Morris <rgm@gnu.org>
parents:
78980
diff
changeset
|
6133 extern Lisp_Object Qcompletion_ignore_case; |
230 | 6134 |
5647
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6135 /* In the string VAL, change each $ to $$ and return the result. */ |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6136 |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6137 static Lisp_Object |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6138 double_dollars (val) |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6139 Lisp_Object val; |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6140 { |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
6141 register const unsigned char *old; |
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
6142 register unsigned char *new; |
5647
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6143 register int n; |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6144 int osize, count; |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6145 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
6146 osize = SBYTES (val); |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
6147 |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
6148 /* Count the number of $ characters. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
6149 for (n = osize, count = 0, old = SDATA (val); n > 0; n--) |
5647
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6150 if (*old++ == '$') count++; |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6151 if (count > 0) |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6152 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
6153 old = SDATA (val); |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
6154 val = make_uninit_multibyte_string (SCHARS (val) + count, |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
6155 osize + count); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
6156 new = SDATA (val); |
5647
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6157 for (n = osize; n > 0; n--) |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6158 if (*old != '$') |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6159 *new++ = *old++; |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6160 else |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6161 { |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6162 *new++ = '$'; |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6163 *new++ = '$'; |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6164 old++; |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6165 } |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6166 } |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6167 return val; |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6168 } |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6169 |
45544
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6170 static Lisp_Object |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6171 read_file_name_cleanup (arg) |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6172 Lisp_Object arg; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6173 { |
46020
9c590b35c6cf
(read_file_name_cleanup): Add missing return.
Juanma Barranquero <lekktu@gmail.com>
parents:
45640
diff
changeset
|
6174 return (current_buffer->directory = arg); |
45544
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6175 } |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6176 |
230 | 6177 DEFUN ("read-file-name-internal", Fread_file_name_internal, Sread_file_name_internal, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6178 3, 3, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6179 doc: /* Internal subroutine for read-file-name. Do not call this. */) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6180 (string, dir, action) |
230 | 6181 Lisp_Object string, dir, action; |
6182 /* action is nil for complete, t for return list of completions, | |
6183 lambda for verify final value */ | |
6184 { | |
6185 Lisp_Object name, specdir, realdir, val, orig_string; | |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6186 int changed; |
9955
dfb5d7e86733
(Fread_file_name_internal): Protect orig_string.
Richard M. Stallman <rms@gnu.org>
parents:
9921
diff
changeset
|
6187 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5; |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6188 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
6189 CHECK_STRING (string); |
16651
e7449d679e72
(Fread_file_name_internal): Verify STRING is a string.
Richard M. Stallman <rms@gnu.org>
parents:
16534
diff
changeset
|
6190 |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6191 realdir = dir; |
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6192 name = string; |
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6193 orig_string = Qnil; |
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6194 specdir = Qnil; |
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6195 changed = 0; |
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6196 /* No need to protect ACTION--we only compare it with t and nil. */ |
9955
dfb5d7e86733
(Fread_file_name_internal): Protect orig_string.
Richard M. Stallman <rms@gnu.org>
parents:
9921
diff
changeset
|
6197 GCPRO5 (string, realdir, name, specdir, orig_string); |
230 | 6198 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
6199 if (SCHARS (string) == 0) |
230 | 6200 { |
6201 if (EQ (action, Qlambda)) | |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6202 { |
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6203 UNGCPRO; |
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6204 return Qnil; |
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6205 } |
230 | 6206 } |
6207 else | |
6208 { | |
6209 orig_string = string; | |
6210 string = Fsubstitute_in_file_name (string); | |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6211 changed = NILP (Fstring_equal (string, orig_string)); |
230 | 6212 name = Ffile_name_nondirectory (string); |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6213 val = Ffile_name_directory (string); |
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6214 if (! NILP (val)) |
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6215 realdir = Fexpand_file_name (val, realdir); |
230 | 6216 } |
6217 | |
485 | 6218 if (NILP (action)) |
230 | 6219 { |
6220 specdir = Ffile_name_directory (string); | |
74687
9354f251fbae
(Fread_file_name_internal): Pass Vread_file_name_predicate
Richard M. Stallman <rms@gnu.org>
parents:
74398
diff
changeset
|
6221 val = Ffile_name_completion (name, realdir, Vread_file_name_predicate); |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6222 UNGCPRO; |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
6223 if (!STRINGP (val)) |
230 | 6224 { |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6225 if (changed) |
8454
b09c4b7a4729
(Fread_file_name_internal): Call double_dollars when `changed' is set.
Richard M. Stallman <rms@gnu.org>
parents:
8317
diff
changeset
|
6226 return double_dollars (string); |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6227 return val; |
230 | 6228 } |
6229 | |
485 | 6230 if (!NILP (specdir)) |
230 | 6231 val = concat2 (specdir, val); |
6232 #ifndef VMS | |
5647
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6233 return double_dollars (val); |
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6234 #else /* not VMS */ |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6235 return val; |
5647
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6236 #endif /* not VMS */ |
230 | 6237 } |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6238 UNGCPRO; |
230 | 6239 |
6240 if (EQ (action, Qt)) | |
45544
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6241 { |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6242 Lisp_Object all = Ffile_name_all_completions (name, realdir); |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6243 Lisp_Object comp; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6244 int count; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6245 |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6246 if (NILP (Vread_file_name_predicate) |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6247 || EQ (Vread_file_name_predicate, Qfile_exists_p)) |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6248 return all; |
45551
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6249 |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6250 #ifndef VMS |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6251 if (EQ (Vread_file_name_predicate, Qfile_directory_p)) |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6252 { |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
6253 /* Brute-force speed up for directory checking: |
45551
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6254 Discard strings which don't end in a slash. */ |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6255 for (comp = Qnil; CONSP (all); all = XCDR (all)) |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6256 { |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6257 Lisp_Object tem = XCAR (all); |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6258 int len; |
74108
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
6259 if (STRINGP (tem) |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
6260 && (len = SBYTES (tem), len > 0) |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
6261 && IS_DIRECTORY_SEP (SREF (tem, len-1))) |
45551
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6262 comp = Fcons (tem, comp); |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6263 } |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6264 } |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6265 else |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6266 #endif |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6267 { |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6268 /* Must do it the hard (and slow) way. */ |
67337
2fdf240a514d
(internal_delete_file, Fread_file_name_internal): Avoid dangerous side effects in NILP argument.
Ken Raeburn <raeburn@raeburn.org>
parents:
66795
diff
changeset
|
6269 Lisp_Object tem; |
45551
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6270 GCPRO3 (all, comp, specdir); |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
6271 count = SPECPDL_INDEX (); |
45551
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6272 record_unwind_protect (read_file_name_cleanup, current_buffer->directory); |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6273 current_buffer->directory = realdir; |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6274 for (comp = Qnil; CONSP (all); all = XCDR (all)) |
67337
2fdf240a514d
(internal_delete_file, Fread_file_name_internal): Avoid dangerous side effects in NILP argument.
Ken Raeburn <raeburn@raeburn.org>
parents:
66795
diff
changeset
|
6275 { |
2fdf240a514d
(internal_delete_file, Fread_file_name_internal): Avoid dangerous side effects in NILP argument.
Ken Raeburn <raeburn@raeburn.org>
parents:
66795
diff
changeset
|
6276 tem = call1 (Vread_file_name_predicate, XCAR (all)); |
2fdf240a514d
(internal_delete_file, Fread_file_name_internal): Avoid dangerous side effects in NILP argument.
Ken Raeburn <raeburn@raeburn.org>
parents:
66795
diff
changeset
|
6277 if (!NILP (tem)) |
2fdf240a514d
(internal_delete_file, Fread_file_name_internal): Avoid dangerous side effects in NILP argument.
Ken Raeburn <raeburn@raeburn.org>
parents:
66795
diff
changeset
|
6278 comp = Fcons (XCAR (all), comp); |
2fdf240a514d
(internal_delete_file, Fread_file_name_internal): Avoid dangerous side effects in NILP argument.
Ken Raeburn <raeburn@raeburn.org>
parents:
66795
diff
changeset
|
6279 } |
45551
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6280 unbind_to (count, Qnil); |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6281 UNGCPRO; |
811d06e337cb
(Fread_file_name_internal): Added brute-force
Kim F. Storm <storm@cua.dk>
parents:
45544
diff
changeset
|
6282 } |
45544
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6283 return Fnreverse (comp); |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6284 } |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6285 |
230 | 6286 /* Only other case actually used is ACTION = lambda */ |
6287 #ifdef VMS | |
6288 /* Supposedly this helps commands such as `cd' that read directory names, | |
6289 but can someone explain how it helps them? -- RMS */ | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
6290 if (SCHARS (name) == 0) |
230 | 6291 return Qt; |
6292 #endif /* VMS */ | |
53764
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6293 string = Fexpand_file_name (string, dir); |
45544
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6294 if (!NILP (Vread_file_name_predicate)) |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6295 return call1 (Vread_file_name_predicate, string); |
230 | 6296 return Ffile_exists_p (string); |
6297 } | |
6298 | |
57942
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6299 DEFUN ("next-read-file-uses-dialog-p", Fnext_read_file_uses_dialog_p, |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6300 Snext_read_file_uses_dialog_p, 0, 0, 0, |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6301 doc: /* Return t if a call to `read-file-name' will use a dialog. |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6302 The return value is only relevant for a call to `read-file-name' that happens |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6303 before any other event (mouse or keypress) is handeled. */) |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6304 () |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6305 { |
59146
9bde7721ad0f
* dispextern.h: Change HAVE_CARBON to MAC_OS.
Steven Tamm <steventamm@mac.com>
parents:
59050
diff
changeset
|
6306 #if defined (USE_MOTIF) || defined (HAVE_NTGUI) || defined (USE_GTK) || defined (HAVE_CARBON) |
57942
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6307 if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event)) |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6308 && use_dialog_box |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6309 && use_file_dialog |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6310 && have_menus_p ()) |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6311 return Qt; |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6312 #endif |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6313 return Qnil; |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6314 } |
57955 | 6315 |
45544
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6316 DEFUN ("read-file-name", Fread_file_name, Sread_file_name, 1, 6, 0, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6317 doc: /* Read file name, prompting with PROMPT and completing in directory DIR. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6318 Value is not expanded---you must call `expand-file-name' yourself. |
53764
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6319 Default name to DEFAULT-FILENAME if user exits the minibuffer with |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6320 the same non-empty string that was inserted by this function. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6321 (If DEFAULT-FILENAME is omitted, the visited file name is used, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6322 except that if INITIAL is specified, that combined with DIR is used.) |
53764
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6323 If the user exits with an empty minibuffer, this function returns |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6324 an empty string. (This can only happen if the user erased the |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6325 pre-inserted contents or if `insert-default-directory' is nil.) |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6326 Fourth arg MUSTMATCH non-nil means require existing file's name. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6327 Non-nil and non-t means also require confirmation after completion. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6328 Fifth arg INITIAL specifies text to start with. |
53764
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6329 If optional sixth arg PREDICATE is non-nil, possible completions and |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6330 the resulting file name must satisfy (funcall PREDICATE NAME). |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6331 DIR should be an absolute directory name. It defaults to the value of |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6332 `default-directory'. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6333 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6334 If this command was invoked with the mouse, use a file dialog box if |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6335 `use-dialog-box' is non-nil, and the window system or X toolkit in use |
56667
00e5170987b5
(Fread_file_name): Doc fix.
John Paul Wallington <jpw@pobox.com>
parents:
56615
diff
changeset
|
6336 provides a file dialog box. |
00e5170987b5
(Fread_file_name): Doc fix.
John Paul Wallington <jpw@pobox.com>
parents:
56615
diff
changeset
|
6337 |
00e5170987b5
(Fread_file_name): Doc fix.
John Paul Wallington <jpw@pobox.com>
parents:
56615
diff
changeset
|
6338 See also `read-file-name-completion-ignore-case' |
00e5170987b5
(Fread_file_name): Doc fix.
John Paul Wallington <jpw@pobox.com>
parents:
56615
diff
changeset
|
6339 and `read-file-name-function'. */) |
45544
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6340 (prompt, dir, default_filename, mustmatch, initial, predicate) |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6341 Lisp_Object prompt, dir, default_filename, mustmatch, initial, predicate; |
230 | 6342 { |
24712
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6343 Lisp_Object val, insdef, tem; |
230 | 6344 struct gcpro gcpro1, gcpro2; |
6345 register char *homedir; | |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6346 Lisp_Object decoded_homedir; |
20897
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6347 int replace_in_history = 0; |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6348 int add_to_history = 0; |
230 | 6349 int count; |
6350 | |
485 | 6351 if (NILP (dir)) |
230 | 6352 dir = current_buffer->directory; |
55741
6433313b236b
(Fread_file_name): Expand DIR if not absolute.
Richard M. Stallman <rms@gnu.org>
parents:
55488
diff
changeset
|
6353 if (NILP (Ffile_name_absolute_p (dir))) |
6433313b236b
(Fread_file_name): Expand DIR if not absolute.
Richard M. Stallman <rms@gnu.org>
parents:
55488
diff
changeset
|
6354 dir = Fexpand_file_name (dir, Qnil); |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
6355 if (NILP (default_filename)) |
55741
6433313b236b
(Fread_file_name): Expand DIR if not absolute.
Richard M. Stallman <rms@gnu.org>
parents:
55488
diff
changeset
|
6356 default_filename |
6433313b236b
(Fread_file_name): Expand DIR if not absolute.
Richard M. Stallman <rms@gnu.org>
parents:
55488
diff
changeset
|
6357 = (!NILP (initial) |
6433313b236b
(Fread_file_name): Expand DIR if not absolute.
Richard M. Stallman <rms@gnu.org>
parents:
55488
diff
changeset
|
6358 ? Fexpand_file_name (initial, dir) |
6433313b236b
(Fread_file_name): Expand DIR if not absolute.
Richard M. Stallman <rms@gnu.org>
parents:
55488
diff
changeset
|
6359 : current_buffer->filename); |
230 | 6360 |
6361 /* If dir starts with user's homedir, change that to ~. */ | |
6362 homedir = (char *) egetenv ("HOME"); | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
6363 #ifdef DOS_NT |
83425
c82829d08b89
Fix semantics of let-binding `process-environment'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83414
diff
changeset
|
6364 /* homedir can be NULL in temacs, since Vglobal_environment is not |
34104
c9980ec72766
(Fread_file_name) [DOS_NT]: Don't crash if homedir is NULL.
Eli Zaretskii <eliz@gnu.org>
parents:
33249
diff
changeset
|
6365 yet set up. We shouldn't crash in that case. */ |
c9980ec72766
(Fread_file_name) [DOS_NT]: Don't crash if homedir is NULL.
Eli Zaretskii <eliz@gnu.org>
parents:
33249
diff
changeset
|
6366 if (homedir != 0) |
c9980ec72766
(Fread_file_name) [DOS_NT]: Don't crash if homedir is NULL.
Eli Zaretskii <eliz@gnu.org>
parents:
33249
diff
changeset
|
6367 { |
c9980ec72766
(Fread_file_name) [DOS_NT]: Don't crash if homedir is NULL.
Eli Zaretskii <eliz@gnu.org>
parents:
33249
diff
changeset
|
6368 homedir = strcpy (alloca (strlen (homedir) + 1), homedir); |
c9980ec72766
(Fread_file_name) [DOS_NT]: Don't crash if homedir is NULL.
Eli Zaretskii <eliz@gnu.org>
parents:
33249
diff
changeset
|
6369 CORRECT_DIR_SEPS (homedir); |
c9980ec72766
(Fread_file_name) [DOS_NT]: Don't crash if homedir is NULL.
Eli Zaretskii <eliz@gnu.org>
parents:
33249
diff
changeset
|
6370 } |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
6371 #endif |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6372 if (homedir != 0) |
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6373 decoded_homedir |
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6374 = DECODE_FILE (make_unibyte_string (homedir, strlen (homedir))); |
230 | 6375 if (homedir != 0 |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
6376 && STRINGP (dir) |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6377 && !strncmp (SDATA (decoded_homedir), SDATA (dir), |
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6378 SBYTES (decoded_homedir)) |
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6379 && IS_DIRECTORY_SEP (SREF (dir, SBYTES (decoded_homedir)))) |
230 | 6380 { |
50199
2e56eaaf925b
(Fread_file_name): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
50196
diff
changeset
|
6381 dir = Fsubstring (dir, make_number (SCHARS (decoded_homedir)), Qnil); |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6382 dir = concat2 (build_string ("~"), dir); |
230 | 6383 } |
24712
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6384 /* Likewise for default_filename. */ |
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6385 if (homedir != 0 |
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6386 && STRINGP (default_filename) |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6387 && !strncmp (SDATA (decoded_homedir), SDATA (default_filename), |
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6388 SBYTES (decoded_homedir)) |
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6389 && IS_DIRECTORY_SEP (SREF (default_filename, SBYTES (decoded_homedir)))) |
24712
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6390 { |
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6391 default_filename |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6392 = Fsubstring (default_filename, |
50199
2e56eaaf925b
(Fread_file_name): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
50196
diff
changeset
|
6393 make_number (SCHARS (decoded_homedir)), Qnil); |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
6394 default_filename = concat2 (build_string ("~"), default_filename); |
24712
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6395 } |
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6396 if (!NILP (default_filename)) |
24909
804955a16819
(Fread_file_name): Check type of DEFAULT_FILENAME.
Richard M. Stallman <rms@gnu.org>
parents:
24877
diff
changeset
|
6397 { |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
6398 CHECK_STRING (default_filename); |
24909
804955a16819
(Fread_file_name): Check type of DEFAULT_FILENAME.
Richard M. Stallman <rms@gnu.org>
parents:
24877
diff
changeset
|
6399 default_filename = double_dollars (default_filename); |
804955a16819
(Fread_file_name): Check type of DEFAULT_FILENAME.
Richard M. Stallman <rms@gnu.org>
parents:
24877
diff
changeset
|
6400 } |
230 | 6401 |
16651
e7449d679e72
(Fread_file_name_internal): Verify STRING is a string.
Richard M. Stallman <rms@gnu.org>
parents:
16534
diff
changeset
|
6402 if (insert_default_directory && STRINGP (dir)) |
230 | 6403 { |
6404 insdef = dir; | |
485 | 6405 if (!NILP (initial)) |
230 | 6406 { |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6407 Lisp_Object args[2], pos; |
230 | 6408 |
6409 args[0] = insdef; | |
6410 args[1] = initial; | |
6411 insdef = Fconcat (2, args); | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
6412 pos = make_number (SCHARS (double_dollars (dir))); |
24712
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6413 insdef = Fcons (double_dollars (insdef), pos); |
230 | 6414 } |
5647
7bd40f51b9e9
(double_dollars): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5616
diff
changeset
|
6415 else |
24712
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6416 insdef = double_dollars (insdef); |
230 | 6417 } |
16651
e7449d679e72
(Fread_file_name_internal): Verify STRING is a string.
Richard M. Stallman <rms@gnu.org>
parents:
16534
diff
changeset
|
6418 else if (STRINGP (initial)) |
24712
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6419 insdef = Fcons (double_dollars (initial), make_number (0)); |
230 | 6420 else |
24712
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6421 insdef = Qnil; |
230 | 6422 |
45544
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6423 if (!NILP (Vread_file_name_function)) |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6424 { |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6425 Lisp_Object args[7]; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6426 |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6427 GCPRO2 (insdef, default_filename); |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6428 args[0] = Vread_file_name_function; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6429 args[1] = prompt; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6430 args[2] = dir; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6431 args[3] = default_filename; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6432 args[4] = mustmatch; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6433 args[5] = initial; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6434 args[6] = predicate; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6435 RETURN_UNGCPRO (Ffuncall (7, args)); |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6436 } |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6437 |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
6438 count = SPECPDL_INDEX (); |
79110
29f6806df351
(Qcompletion_ignore_case): New external Lisp_Object.
Glenn Morris <rgm@gnu.org>
parents:
78980
diff
changeset
|
6439 specbind (Qcompletion_ignore_case, |
56340
56b3ebd82889
(read_file_name_completion_ignore_case): New variable.
John Paul Wallington <jpw@pobox.com>
parents:
55741
diff
changeset
|
6440 read_file_name_completion_ignore_case ? Qt : Qnil); |
22658
9f320d762e2f
(Faccess_file): Check type of second argument STRING.
Richard M. Stallman <rms@gnu.org>
parents:
22613
diff
changeset
|
6441 specbind (intern ("minibuffer-completing-file-name"), Qt); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
6442 specbind (intern ("read-file-name-predicate"), |
45544
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6443 (NILP (predicate) ? Qfile_exists_p : predicate)); |
22658
9f320d762e2f
(Faccess_file): Check type of second argument STRING.
Richard M. Stallman <rms@gnu.org>
parents:
22613
diff
changeset
|
6444 |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
6445 GCPRO2 (insdef, default_filename); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49445
diff
changeset
|
6446 |
59146
9bde7721ad0f
* dispextern.h: Change HAVE_CARBON to MAC_OS.
Steven Tamm <steventamm@mac.com>
parents:
59050
diff
changeset
|
6447 #if defined (USE_MOTIF) || defined (HAVE_NTGUI) || defined (USE_GTK) || defined (HAVE_CARBON) |
57942
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6448 if (! NILP (Fnext_read_file_uses_dialog_p ())) |
25006
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
6449 { |
28117
9fa9af3f0ca7
(Fread_file_name): Handle case that DIR contains a
Gerd Moellmann <gerd@gnu.org>
parents:
27925
diff
changeset
|
6450 /* If DIR contains a file name, split it. */ |
9fa9af3f0ca7
(Fread_file_name): Handle case that DIR contains a
Gerd Moellmann <gerd@gnu.org>
parents:
27925
diff
changeset
|
6451 Lisp_Object file; |
9fa9af3f0ca7
(Fread_file_name): Handle case that DIR contains a
Gerd Moellmann <gerd@gnu.org>
parents:
27925
diff
changeset
|
6452 file = Ffile_name_nondirectory (dir); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
6453 if (SCHARS (file) && NILP (default_filename)) |
28117
9fa9af3f0ca7
(Fread_file_name): Handle case that DIR contains a
Gerd Moellmann <gerd@gnu.org>
parents:
27925
diff
changeset
|
6454 { |
9fa9af3f0ca7
(Fread_file_name): Handle case that DIR contains a
Gerd Moellmann <gerd@gnu.org>
parents:
27925
diff
changeset
|
6455 default_filename = file; |
9fa9af3f0ca7
(Fread_file_name): Handle case that DIR contains a
Gerd Moellmann <gerd@gnu.org>
parents:
27925
diff
changeset
|
6456 dir = Ffile_name_directory (dir); |
9fa9af3f0ca7
(Fread_file_name): Handle case that DIR contains a
Gerd Moellmann <gerd@gnu.org>
parents:
27925
diff
changeset
|
6457 } |
29312
8b6842c36473
(Fread_file_name) [HAVE_NTGUI]: Use file dialog.
Jason Rumney <jasonr@gnu.org>
parents:
29152
diff
changeset
|
6458 if (!NILP(default_filename)) |
8b6842c36473
(Fread_file_name) [HAVE_NTGUI]: Use file dialog.
Jason Rumney <jasonr@gnu.org>
parents:
29152
diff
changeset
|
6459 default_filename = Fexpand_file_name (default_filename, dir); |
57868
c955f6add62a
* fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents:
57303
diff
changeset
|
6460 val = Fx_file_dialog (prompt, dir, default_filename, mustmatch, |
c955f6add62a
* fileio.c (Fread_file_name): Pass Qt as fifth parameter to
Jan Djärv <jan.h.d@swipnet.se>
parents:
57303
diff
changeset
|
6461 EQ (predicate, Qfile_directory_p) ? Qt : Qnil); |
25006
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
6462 add_to_history = 1; |
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
6463 } |
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
6464 else |
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
6465 #endif |
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
6466 val = Fcompleting_read (prompt, intern ("read-file-name-internal"), |
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
6467 dir, mustmatch, insdef, |
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
6468 Qfile_name_history, default_filename, Qnil); |
20897
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6469 |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6470 tem = Fsymbol_value (Qfile_name_history); |
25662
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
6471 if (CONSP (tem) && EQ (XCAR (tem), val)) |
20897
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6472 replace_in_history = 1; |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6473 |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6474 /* If Fcompleting_read returned the inserted default string itself |
18861
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
6475 (rather than a new string with the same contents), |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
6476 it has to mean that the user typed RET with the minibuffer empty. |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
6477 In that case, we really want to return "" |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
6478 so that commands such as set-visited-file-name can distinguish. */ |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
6479 if (EQ (val, default_filename)) |
20897
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6480 { |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6481 /* In this case, Fcompleting_read has not added an element |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6482 to the history. Maybe we should. */ |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6483 if (! replace_in_history) |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6484 add_to_history = 1; |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6485 |
81284
61b6704f4b26
(Fread_file_name): Use empty_unibyte_string.
Juanma Barranquero <lekktu@gmail.com>
parents:
76664
diff
changeset
|
6486 val = empty_unibyte_string; |
20897
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6487 } |
230 | 6488 |
6489 unbind_to (count, Qnil); | |
6490 UNGCPRO; | |
485 | 6491 if (NILP (val)) |
230 | 6492 error ("No file name specified"); |
20897
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6493 |
24712
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6494 tem = Fstring_equal (val, CONSP (insdef) ? XCAR (insdef) : insdef); |
20897
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6495 |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
6496 if (!NILP (tem) && !NILP (default_filename)) |
20897
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6497 val = default_filename; |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6498 val = Fsubstitute_in_file_name (val); |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6499 |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6500 if (replace_in_history) |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6501 /* Replace what Fcompleting_read added to the history |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6502 with what we will actually return. */ |
59050
1ee6d4f5d727
(Fread_file_name): Delete duplicates in
Richard M. Stallman <rms@gnu.org>
parents:
58014
diff
changeset
|
6503 { |
1ee6d4f5d727
(Fread_file_name): Delete duplicates in
Richard M. Stallman <rms@gnu.org>
parents:
58014
diff
changeset
|
6504 Lisp_Object val1 = double_dollars (val); |
1ee6d4f5d727
(Fread_file_name): Delete duplicates in
Richard M. Stallman <rms@gnu.org>
parents:
58014
diff
changeset
|
6505 tem = Fsymbol_value (Qfile_name_history); |
60354
b9a43f92b898
(FILE_SYSTEM_CASE): Define macro if not already defined.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
59671
diff
changeset
|
6506 if (history_delete_duplicates) |
59050
1ee6d4f5d727
(Fread_file_name): Delete duplicates in
Richard M. Stallman <rms@gnu.org>
parents:
58014
diff
changeset
|
6507 XSETCDR (tem, Fdelete (val1, XCDR(tem))); |
1ee6d4f5d727
(Fread_file_name): Delete duplicates in
Richard M. Stallman <rms@gnu.org>
parents:
58014
diff
changeset
|
6508 XSETCAR (tem, val1); |
1ee6d4f5d727
(Fread_file_name): Delete duplicates in
Richard M. Stallman <rms@gnu.org>
parents:
58014
diff
changeset
|
6509 } |
20897
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6510 else if (add_to_history) |
230 | 6511 { |
20897
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6512 /* Add the value to the history--but not if it matches |
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6513 the last value already there. */ |
24712
31a648f12180
(Fread_file_name): Correct handling of dollars in file
Andreas Schwab <schwab@suse.de>
parents:
24651
diff
changeset
|
6514 Lisp_Object val1 = double_dollars (val); |
20897
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6515 tem = Fsymbol_value (Qfile_name_history); |
25662
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
6516 if (! CONSP (tem) || NILP (Fequal (XCAR (tem), val1))) |
59050
1ee6d4f5d727
(Fread_file_name): Delete duplicates in
Richard M. Stallman <rms@gnu.org>
parents:
58014
diff
changeset
|
6517 { |
1ee6d4f5d727
(Fread_file_name): Delete duplicates in
Richard M. Stallman <rms@gnu.org>
parents:
58014
diff
changeset
|
6518 if (history_delete_duplicates) tem = Fdelete (val1, tem); |
1ee6d4f5d727
(Fread_file_name): Delete duplicates in
Richard M. Stallman <rms@gnu.org>
parents:
58014
diff
changeset
|
6519 Fset (Qfile_name_history, Fcons (val1, tem)); |
1ee6d4f5d727
(Fread_file_name): Delete duplicates in
Richard M. Stallman <rms@gnu.org>
parents:
58014
diff
changeset
|
6520 } |
230 | 6521 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
6522 |
20897
77deec174f57
(Fread_file_name): Alter the history
Richard M. Stallman <rms@gnu.org>
parents:
20790
diff
changeset
|
6523 return val; |
230 | 6524 } |
25006
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
6525 |
230 | 6526 |
21514 | 6527 void |
23569
b1255c3676c7
fileio.c (init_fileio_once): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22977
diff
changeset
|
6528 init_fileio_once () |
b1255c3676c7
fileio.c (init_fileio_once): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22977
diff
changeset
|
6529 { |
b1255c3676c7
fileio.c (init_fileio_once): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22977
diff
changeset
|
6530 /* Must be set before any path manipulation is performed. */ |
b1255c3676c7
fileio.c (init_fileio_once): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22977
diff
changeset
|
6531 XSETFASTINT (Vdirectory_sep_char, '/'); |
b1255c3676c7
fileio.c (init_fileio_once): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22977
diff
changeset
|
6532 } |
b1255c3676c7
fileio.c (init_fileio_once): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22977
diff
changeset
|
6533 |
25006
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
6534 |
23569
b1255c3676c7
fileio.c (init_fileio_once): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22977
diff
changeset
|
6535 void |
230 | 6536 syms_of_fileio () |
6537 { | |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
6538 Qoperations = intern ("operations"); |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
6539 Qexpand_file_name = intern ("expand-file-name"); |
10719
40ae63b409f4
(Fexpand_file_name): Look for a handler for defalt.
Richard M. Stallman <rms@gnu.org>
parents:
10499
diff
changeset
|
6540 Qsubstitute_in_file_name = intern ("substitute-in-file-name"); |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
6541 Qdirectory_file_name = intern ("directory-file-name"); |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
6542 Qfile_name_directory = intern ("file-name-directory"); |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
6543 Qfile_name_nondirectory = intern ("file-name-nondirectory"); |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
6544 Qunhandled_file_name_directory = intern ("unhandled-file-name-directory"); |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
6545 Qfile_name_as_directory = intern ("file-name-as-directory"); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6546 Qcopy_file = intern ("copy-file"); |
8227
0e6b7eeedc3b
(Fmake_directory_internal): Use Qmake_directory_internal.
Richard M. Stallman <rms@gnu.org>
parents:
8185
diff
changeset
|
6547 Qmake_directory_internal = intern ("make-directory-internal"); |
28697
7d587a158d1f
(Fdo_auto_save): Create directories for auto-save
Gerd Moellmann <gerd@gnu.org>
parents:
28673
diff
changeset
|
6548 Qmake_directory = intern ("make-directory"); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6549 Qdelete_directory = intern ("delete-directory"); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6550 Qdelete_file = intern ("delete-file"); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6551 Qrename_file = intern ("rename-file"); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6552 Qadd_name_to_file = intern ("add-name-to-file"); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6553 Qmake_symbolic_link = intern ("make-symbolic-link"); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6554 Qfile_exists_p = intern ("file-exists-p"); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6555 Qfile_executable_p = intern ("file-executable-p"); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6556 Qfile_readable_p = intern ("file-readable-p"); |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
6557 Qfile_writable_p = intern ("file-writable-p"); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6558 Qfile_symlink_p = intern ("file-symlink-p"); |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
6559 Qaccess_file = intern ("access-file"); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6560 Qfile_directory_p = intern ("file-directory-p"); |
11599
51bc10be0dc7
(Ffile_regular_p): Use Qfile_regular_p.
Richard M. Stallman <rms@gnu.org>
parents:
11426
diff
changeset
|
6561 Qfile_regular_p = intern ("file-regular-p"); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6562 Qfile_accessible_directory_p = intern ("file-accessible-directory-p"); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6563 Qfile_modes = intern ("file-modes"); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6564 Qset_file_modes = intern ("set-file-modes"); |
55194
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
6565 Qset_file_times = intern ("set-file-times"); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6566 Qfile_newer_than_file_p = intern ("file-newer-than-file-p"); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6567 Qinsert_file_contents = intern ("insert-file-contents"); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6568 Qwrite_region = intern ("write-region"); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6569 Qverify_visited_file_modtime = intern ("verify-visited-file-modtime"); |
3560
95021dcb923b
(syms_of_fileio): Set up Qset_visited_file_modtime.
Richard M. Stallman <rms@gnu.org>
parents:
3415
diff
changeset
|
6570 Qset_visited_file_modtime = intern ("set-visited-file-modtime"); |
51357
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
6571 Qauto_save_coding = intern ("auto-save-coding"); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
6572 |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
6573 staticpro (&Qoperations); |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
6574 staticpro (&Qexpand_file_name); |
10719
40ae63b409f4
(Fexpand_file_name): Look for a handler for defalt.
Richard M. Stallman <rms@gnu.org>
parents:
10499
diff
changeset
|
6575 staticpro (&Qsubstitute_in_file_name); |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
6576 staticpro (&Qdirectory_file_name); |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
6577 staticpro (&Qfile_name_directory); |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
6578 staticpro (&Qfile_name_nondirectory); |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
6579 staticpro (&Qunhandled_file_name_directory); |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
6580 staticpro (&Qfile_name_as_directory); |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6581 staticpro (&Qcopy_file); |
8243
bf7b3b969ab5
(syms_of_fileio): Finish previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8227
diff
changeset
|
6582 staticpro (&Qmake_directory_internal); |
28697
7d587a158d1f
(Fdo_auto_save): Create directories for auto-save
Gerd Moellmann <gerd@gnu.org>
parents:
28673
diff
changeset
|
6583 staticpro (&Qmake_directory); |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6584 staticpro (&Qdelete_directory); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6585 staticpro (&Qdelete_file); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6586 staticpro (&Qrename_file); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6587 staticpro (&Qadd_name_to_file); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6588 staticpro (&Qmake_symbolic_link); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6589 staticpro (&Qfile_exists_p); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6590 staticpro (&Qfile_executable_p); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6591 staticpro (&Qfile_readable_p); |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
6592 staticpro (&Qfile_writable_p); |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
6593 staticpro (&Qaccess_file); |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6594 staticpro (&Qfile_symlink_p); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6595 staticpro (&Qfile_directory_p); |
11599
51bc10be0dc7
(Ffile_regular_p): Use Qfile_regular_p.
Richard M. Stallman <rms@gnu.org>
parents:
11426
diff
changeset
|
6596 staticpro (&Qfile_regular_p); |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6597 staticpro (&Qfile_accessible_directory_p); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6598 staticpro (&Qfile_modes); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6599 staticpro (&Qset_file_modes); |
55194
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
6600 staticpro (&Qset_file_times); |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6601 staticpro (&Qfile_newer_than_file_p); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6602 staticpro (&Qinsert_file_contents); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6603 staticpro (&Qwrite_region); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6604 staticpro (&Qverify_visited_file_modtime); |
16226
a70ec9baba1a
(syms_of_fileio): staticpro Qset_visited_file_modtime.
Erik Naggum <erik@naggum.no>
parents:
16167
diff
changeset
|
6605 staticpro (&Qset_visited_file_modtime); |
51357
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
6606 staticpro (&Qauto_save_coding); |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
6607 |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
6608 Qfile_name_history = intern ("file-name-history"); |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
6609 Fset (Qfile_name_history, Qnil); |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6610 staticpro (&Qfile_name_history); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
6611 |
230 | 6612 Qfile_error = intern ("file-error"); |
6613 staticpro (&Qfile_error); | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
6614 Qfile_already_exists = intern ("file-already-exists"); |
230 | 6615 staticpro (&Qfile_already_exists); |
17271
e34a30952e14
(Fcopy_file): Use Qfile_date_error if can't set file date.
Richard M. Stallman <rms@gnu.org>
parents:
17114
diff
changeset
|
6616 Qfile_date_error = intern ("file-date-error"); |
e34a30952e14
(Fcopy_file): Use Qfile_date_error if can't set file date.
Richard M. Stallman <rms@gnu.org>
parents:
17114
diff
changeset
|
6617 staticpro (&Qfile_date_error); |
25595 | 6618 Qexcl = intern ("excl"); |
6619 staticpro (&Qexcl); | |
230 | 6620 |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
6621 #ifdef DOS_NT |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
6622 Qfind_buffer_file_type = intern ("find-buffer-file-type"); |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
6623 staticpro (&Qfind_buffer_file_type); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
6624 #endif /* DOS_NT */ |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
6625 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
6626 DEFVAR_LISP ("file-name-coding-system", &Vfile_name_coding_system, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6627 doc: /* *Coding system for encoding file names. |
41661
8151a2b431d0
(file-name-coding-system, default-file-name-coding-system): Doc fix (links
Pavel Janík <Pavel@Janik.cz>
parents:
41655
diff
changeset
|
6628 If it is nil, `default-file-name-coding-system' (which see) is used. */); |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
6629 Vfile_name_coding_system = Qnil; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
6630 |
21048
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
6631 DEFVAR_LISP ("default-file-name-coding-system", |
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
6632 &Vdefault_file_name_coding_system, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6633 doc: /* Default coding system for encoding file names. |
41661
8151a2b431d0
(file-name-coding-system, default-file-name-coding-system): Doc fix (links
Pavel Janík <Pavel@Janik.cz>
parents:
41655
diff
changeset
|
6634 This variable is used only when `file-name-coding-system' is nil. |
8151a2b431d0
(file-name-coding-system, default-file-name-coding-system): Doc fix (links
Pavel Janík <Pavel@Janik.cz>
parents:
41655
diff
changeset
|
6635 |
8151a2b431d0
(file-name-coding-system, default-file-name-coding-system): Doc fix (links
Pavel Janík <Pavel@Janik.cz>
parents:
41655
diff
changeset
|
6636 This variable is set/changed by the command `set-language-environment'. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6637 User should not set this variable manually, |
41661
8151a2b431d0
(file-name-coding-system, default-file-name-coding-system): Doc fix (links
Pavel Janík <Pavel@Janik.cz>
parents:
41655
diff
changeset
|
6638 instead use `file-name-coding-system' to get a constant encoding |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6639 of file names regardless of the current language environment. */); |
21048
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
6640 Vdefault_file_name_coding_system = Qnil; |
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
6641 |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
6642 Qformat_decode = intern ("format-decode"); |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
6643 staticpro (&Qformat_decode); |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
6644 Qformat_annotate_function = intern ("format-annotate-function"); |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
6645 staticpro (&Qformat_annotate_function); |
50546
4a06e3332577
(Vafter_insert_file_adjust_coding_function): Delete
Kenichi Handa <handa@m17n.org>
parents:
50530
diff
changeset
|
6646 Qafter_insert_file_set_coding = intern ("after-insert-file-set-coding"); |
4a06e3332577
(Vafter_insert_file_adjust_coding_function): Delete
Kenichi Handa <handa@m17n.org>
parents:
50530
diff
changeset
|
6647 staticpro (&Qafter_insert_file_set_coding); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
6648 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
6649 Qcar_less_than_car = intern ("car-less-than-car"); |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
6650 staticpro (&Qcar_less_than_car); |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
6651 |
230 | 6652 Fput (Qfile_error, Qerror_conditions, |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
6653 list2 (Qfile_error, Qerror)); |
230 | 6654 Fput (Qfile_error, Qerror_message, |
6655 build_string ("File error")); | |
6656 | |
6657 Fput (Qfile_already_exists, Qerror_conditions, | |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
6658 list3 (Qfile_already_exists, Qfile_error, Qerror)); |
230 | 6659 Fput (Qfile_already_exists, Qerror_message, |
6660 build_string ("File already exists")); | |
6661 | |
17271
e34a30952e14
(Fcopy_file): Use Qfile_date_error if can't set file date.
Richard M. Stallman <rms@gnu.org>
parents:
17114
diff
changeset
|
6662 Fput (Qfile_date_error, Qerror_conditions, |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
6663 list3 (Qfile_date_error, Qfile_error, Qerror)); |
17271
e34a30952e14
(Fcopy_file): Use Qfile_date_error if can't set file date.
Richard M. Stallman <rms@gnu.org>
parents:
17114
diff
changeset
|
6664 Fput (Qfile_date_error, Qerror_message, |
e34a30952e14
(Fcopy_file): Use Qfile_date_error if can't set file date.
Richard M. Stallman <rms@gnu.org>
parents:
17114
diff
changeset
|
6665 build_string ("Cannot set file date")); |
e34a30952e14
(Fcopy_file): Use Qfile_date_error if can't set file date.
Richard M. Stallman <rms@gnu.org>
parents:
17114
diff
changeset
|
6666 |
45544
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6667 DEFVAR_LISP ("read-file-name-function", &Vread_file_name_function, |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6668 doc: /* If this is non-nil, `read-file-name' does its work by calling this function. */); |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6669 Vread_file_name_function = Qnil; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6670 |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6671 DEFVAR_LISP ("read-file-name-predicate", &Vread_file_name_predicate, |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6672 doc: /* Current predicate used by `read-file-name-internal'. */); |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6673 Vread_file_name_predicate = Qnil; |
b8f71d4c359f
(Vread_file_name_function, Vread_file_name_predicate):
Kim F. Storm <storm@cua.dk>
parents:
45485
diff
changeset
|
6674 |
56340
56b3ebd82889
(read_file_name_completion_ignore_case): New variable.
John Paul Wallington <jpw@pobox.com>
parents:
55741
diff
changeset
|
6675 DEFVAR_BOOL ("read-file-name-completion-ignore-case", &read_file_name_completion_ignore_case, |
56b3ebd82889
(read_file_name_completion_ignore_case): New variable.
John Paul Wallington <jpw@pobox.com>
parents:
55741
diff
changeset
|
6676 doc: /* *Non-nil means when reading a file name completion ignores case. */); |
56b3ebd82889
(read_file_name_completion_ignore_case): New variable.
John Paul Wallington <jpw@pobox.com>
parents:
55741
diff
changeset
|
6677 #if defined VMS || defined DOS_NT || defined MAC_OS |
56b3ebd82889
(read_file_name_completion_ignore_case): New variable.
John Paul Wallington <jpw@pobox.com>
parents:
55741
diff
changeset
|
6678 read_file_name_completion_ignore_case = 1; |
56b3ebd82889
(read_file_name_completion_ignore_case): New variable.
John Paul Wallington <jpw@pobox.com>
parents:
55741
diff
changeset
|
6679 #else |
56b3ebd82889
(read_file_name_completion_ignore_case): New variable.
John Paul Wallington <jpw@pobox.com>
parents:
55741
diff
changeset
|
6680 read_file_name_completion_ignore_case = 0; |
56b3ebd82889
(read_file_name_completion_ignore_case): New variable.
John Paul Wallington <jpw@pobox.com>
parents:
55741
diff
changeset
|
6681 #endif |
56b3ebd82889
(read_file_name_completion_ignore_case): New variable.
John Paul Wallington <jpw@pobox.com>
parents:
55741
diff
changeset
|
6682 |
230 | 6683 DEFVAR_BOOL ("insert-default-directory", &insert_default_directory, |
53764
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6684 doc: /* *Non-nil means when reading a filename start with default dir in minibuffer. |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6685 If the initial minibuffer contents are non-empty, you can usually |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6686 request a default filename by typing RETURN without editing. For some |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6687 commands, exiting with an empty minibuffer has a special meaning, |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6688 such as making the current buffer visit no file in the case of |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6689 `set-visited-file-name'. |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6690 If this variable is non-nil, the minibuffer contents are always |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6691 initially non-empty and typing RETURN without editing will fetch the |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6692 default name, if one is provided. Note however that this default name |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6693 is not necessarily the name originally inserted in the minibuffer, if |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6694 that is just the default directory. |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6695 If this variable is nil, the minibuffer often starts out empty. In |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6696 that case you may have to explicitly fetch the next history element to |
0505a2aecd0a
(Fread_file_name_internal): Correctly handle the case where
Luc Teirlinck <teirllm@auburn.edu>
parents:
53363
diff
changeset
|
6697 request the default name. */); |
230 | 6698 insert_default_directory = 1; |
6699 | |
6700 DEFVAR_BOOL ("vms-stmlf-recfm", &vms_stmlf_recfm, | |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6701 doc: /* *Non-nil means write new files with record format `stmlf'. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6702 nil means use format `var'. This variable is meaningful only on VMS. */); |
230 | 6703 vms_stmlf_recfm = 0; |
6704 | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
6705 DEFVAR_LISP ("directory-sep-char", &Vdirectory_sep_char, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6706 doc: /* Directory separator character for built-in functions that return file names. |
49191
9b836b1dabe5
(syms_of_fileio) <directory-sep-char>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
48876
diff
changeset
|
6707 The value is always ?/. Don't use this variable, just use `/'. */); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
6708 |
850
0bc61321ba50
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
848
diff
changeset
|
6709 DEFVAR_LISP ("file-name-handler-alist", &Vfile_name_handler_alist, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6710 doc: /* *Alist of elements (REGEXP . HANDLER) for file names handled specially. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6711 If a file name matches REGEXP, then all I/O on that file is done by calling |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6712 HANDLER. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6713 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6714 The first argument given to HANDLER is the name of the I/O primitive |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6715 to be handled; the remaining arguments are the arguments that were |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6716 passed to that primitive. For example, if you do |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6717 (file-exists-p FILENAME) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6718 and FILENAME is handled by HANDLER, then HANDLER is called like this: |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6719 (funcall HANDLER 'file-exists-p FILENAME) |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6720 The function `find-file-name-handler' checks this list for a handler |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6721 for its argument. */); |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6722 Vfile_name_handler_alist = Qnil; |
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
6723 |
19641
d7f2d75a09d3
(Vset_auto_coding_function): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
19572
diff
changeset
|
6724 DEFVAR_LISP ("set-auto-coding-function", |
d7f2d75a09d3
(Vset_auto_coding_function): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
19572
diff
changeset
|
6725 &Vset_auto_coding_function, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6726 doc: /* If non-nil, a function to call to decide a coding system of file. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6727 Two arguments are passed to this function: the file name |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6728 and the length of a file contents following the point. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6729 This function should return a coding system to decode the file contents. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6730 It should check the file name against `auto-coding-alist'. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6731 If no coding system is decided, it should check a coding system |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6732 specified in the heading lines with the format: |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6733 -*- ... coding: CODING-SYSTEM; ... -*- |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6734 or local variable spec of the tailing lines with `coding:' tag. */); |
19641
d7f2d75a09d3
(Vset_auto_coding_function): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
19572
diff
changeset
|
6735 Vset_auto_coding_function = Qnil; |
19448
950a178e8783
(Vauto_file_coding_system_function): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19437
diff
changeset
|
6736 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
6737 DEFVAR_LISP ("after-insert-file-functions", &Vafter_insert_file_functions, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6738 doc: /* A list of functions to be called at the end of `insert-file-contents'. |
81642
8565334360b3
(syms_of_fileio) <after-insert-file-functions>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
81284
diff
changeset
|
6739 Each is passed one argument, the number of characters inserted, |
8565334360b3
(syms_of_fileio) <after-insert-file-functions>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
81284
diff
changeset
|
6740 with point at the start of the inserted text. Each function |
8565334360b3
(syms_of_fileio) <after-insert-file-functions>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
81284
diff
changeset
|
6741 should leave point the same, and return the new character count. |
50491
15f94db27199
(Finsert_file_contents): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
50340
diff
changeset
|
6742 If `insert-file-contents' is intercepted by a handler from |
15f94db27199
(Finsert_file_contents): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
50340
diff
changeset
|
6743 `file-name-handler-alist', that handler is responsible for calling the |
15f94db27199
(Finsert_file_contents): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
50340
diff
changeset
|
6744 functions in `after-insert-file-functions' if appropriate. */); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
6745 Vafter_insert_file_functions = Qnil; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
6746 |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
6747 DEFVAR_LISP ("write-region-annotate-functions", &Vwrite_region_annotate_functions, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6748 doc: /* A list of functions to be called at the start of `write-region'. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6749 Each is passed two arguments, START and END as for `write-region'. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6750 These are usually two numbers but not always; see the documentation |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6751 for `write-region'. The function should return a list of pairs |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6752 of the form (POSITION . STRING), consisting of strings to be effectively |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6753 inserted at the specified positions of the file being written (1 means to |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6754 insert before the first byte written). The POSITIONs must be sorted into |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6755 increasing order. If there are several functions in the list, the several |
45485
08b14b8f7bc2
(read_non_regular, Finsert_file_contents): Use BEG_BYTE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44563
diff
changeset
|
6756 lists are merged destructively. Alternatively, the function can return |
50829
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
6757 with a different buffer current; in that case it should pay attention |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
6758 to the annotations returned by previous functions and listed in |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
6759 `write-region-annotations-so-far'.*/); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
6760 Vwrite_region_annotate_functions = Qnil; |
50829
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
6761 staticpro (&Qwrite_region_annotate_functions); |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
6762 Qwrite_region_annotate_functions |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
6763 = intern ("write-region-annotate-functions"); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
6764 |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
6765 DEFVAR_LISP ("write-region-annotations-so-far", |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
6766 &Vwrite_region_annotations_so_far, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6767 doc: /* When an annotation function is called, this holds the previous annotations. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6768 These are the annotations made by other annotation functions |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6769 that were already called. See also `write-region-annotate-functions'. */); |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
6770 Vwrite_region_annotations_so_far = Qnil; |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
6771 |
6678
e29adbacde1d
(Fdo_auto_save): Don't turn off auto save mode.
Richard M. Stallman <rms@gnu.org>
parents:
6498
diff
changeset
|
6772 DEFVAR_LISP ("inhibit-file-name-handlers", &Vinhibit_file_name_handlers, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6773 doc: /* A list of file name handlers that temporarily should not be used. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6774 This applies only to the operation `inhibit-file-name-operation'. */); |
6678
e29adbacde1d
(Fdo_auto_save): Don't turn off auto save mode.
Richard M. Stallman <rms@gnu.org>
parents:
6498
diff
changeset
|
6775 Vinhibit_file_name_handlers = Qnil; |
e29adbacde1d
(Fdo_auto_save): Don't turn off auto save mode.
Richard M. Stallman <rms@gnu.org>
parents:
6498
diff
changeset
|
6776 |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
6777 DEFVAR_LISP ("inhibit-file-name-operation", &Vinhibit_file_name_operation, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6778 doc: /* The operation for which `inhibit-file-name-handlers' is applicable. */); |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
6779 Vinhibit_file_name_operation = Qnil; |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
6780 |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
6781 DEFVAR_LISP ("auto-save-list-file-name", &Vauto_save_list_file_name, |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6782 doc: /* File name in which we write a list of all auto save file names. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6783 This variable is initialized automatically from `auto-save-list-file-prefix' |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6784 shortly after Emacs reads your `.emacs' file, if you have not yet given it |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
6785 a non-nil value. */); |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
6786 Vauto_save_list_file_name = Qnil; |
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
6787 |
65513
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
6788 #ifdef HAVE_FSYNC |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
6789 DEFVAR_BOOL ("write-region-inhibit-fsync", &write_region_inhibit_fsync, |
65547
da6fcded2062
(syms_of_fileio): Clarify docstring of `write-region-inhibit-fsync'.
Romain Francoise <romain@orebokech.com>
parents:
65513
diff
changeset
|
6790 doc: /* *Non-nil means don't call fsync in `write-region'. |
da6fcded2062
(syms_of_fileio): Clarify docstring of `write-region-inhibit-fsync'.
Romain Francoise <romain@orebokech.com>
parents:
65513
diff
changeset
|
6791 This variable affects calls to `write-region' as well as save commands. |
da6fcded2062
(syms_of_fileio): Clarify docstring of `write-region-inhibit-fsync'.
Romain Francoise <romain@orebokech.com>
parents:
65513
diff
changeset
|
6792 A non-nil value may result in data loss! */); |
65513
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
6793 write_region_inhibit_fsync = 0; |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
6794 #endif |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
6795 |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
6796 defsubr (&Sfind_file_name_handler); |
230 | 6797 defsubr (&Sfile_name_directory); |
6798 defsubr (&Sfile_name_nondirectory); | |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
6799 defsubr (&Sunhandled_file_name_directory); |
230 | 6800 defsubr (&Sfile_name_as_directory); |
6801 defsubr (&Sdirectory_file_name); | |
6802 defsubr (&Smake_temp_name); | |
6803 defsubr (&Sexpand_file_name); | |
6804 defsubr (&Ssubstitute_in_file_name); | |
6805 defsubr (&Scopy_file); | |
1533
b86ef0432100
(Fmake_directory_internal): Renamed from Fmake_directory.
Richard M. Stallman <rms@gnu.org>
parents:
1377
diff
changeset
|
6806 defsubr (&Smake_directory_internal); |
686
bd3068742807
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
648
diff
changeset
|
6807 defsubr (&Sdelete_directory); |
230 | 6808 defsubr (&Sdelete_file); |
6809 defsubr (&Srename_file); | |
6810 defsubr (&Sadd_name_to_file); | |
6811 #ifdef S_IFLNK | |
6812 defsubr (&Smake_symbolic_link); | |
6813 #endif /* S_IFLNK */ | |
6814 #ifdef VMS | |
6815 defsubr (&Sdefine_logical_name); | |
6816 #endif /* VMS */ | |
6817 #ifdef HPUX_NET | |
6818 defsubr (&Ssysnetunam); | |
6819 #endif /* HPUX_NET */ | |
6820 defsubr (&Sfile_name_absolute_p); | |
6821 defsubr (&Sfile_exists_p); | |
6822 defsubr (&Sfile_executable_p); | |
6823 defsubr (&Sfile_readable_p); | |
6824 defsubr (&Sfile_writable_p); | |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
6825 defsubr (&Saccess_file); |
230 | 6826 defsubr (&Sfile_symlink_p); |
6827 defsubr (&Sfile_directory_p); | |
536 | 6828 defsubr (&Sfile_accessible_directory_p); |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
6829 defsubr (&Sfile_regular_p); |
230 | 6830 defsubr (&Sfile_modes); |
6831 defsubr (&Sset_file_modes); | |
55194
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
6832 defsubr (&Sset_file_times); |
1763
65e858c07a8b
(Fset_default_file_modes, Fdefault_file_modes): Renamed from .._mode.
Richard M. Stallman <rms@gnu.org>
parents:
1762
diff
changeset
|
6833 defsubr (&Sset_default_file_modes); |
65e858c07a8b
(Fset_default_file_modes, Fdefault_file_modes): Renamed from .._mode.
Richard M. Stallman <rms@gnu.org>
parents:
1762
diff
changeset
|
6834 defsubr (&Sdefault_file_modes); |
230 | 6835 defsubr (&Sfile_newer_than_file_p); |
6836 defsubr (&Sinsert_file_contents); | |
6837 defsubr (&Swrite_region); | |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
6838 defsubr (&Scar_less_than_car); |
230 | 6839 defsubr (&Sverify_visited_file_modtime); |
6840 defsubr (&Sclear_visited_file_modtime); | |
2257
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
6841 defsubr (&Svisited_file_modtime); |
230 | 6842 defsubr (&Sset_visited_file_modtime); |
6843 defsubr (&Sdo_auto_save); | |
6844 defsubr (&Sset_buffer_auto_saved); | |
5553
22a65d8c0b9a
(Fdo_auto_save): If auto save times out, don't try again for 20 minutes.
Richard M. Stallman <rms@gnu.org>
parents:
5529
diff
changeset
|
6845 defsubr (&Sclear_buffer_auto_save_failure); |
230 | 6846 defsubr (&Srecent_auto_save_p); |
6847 | |
6848 defsubr (&Sread_file_name_internal); | |
6849 defsubr (&Sread_file_name); | |
57942
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
6850 defsubr (&Snext_read_file_uses_dialog_p); |
689
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
6851 |
74398
48c50a37cc14
[__NetBSD__]: Don't define `unix'.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74108
diff
changeset
|
6852 #ifdef HAVE_SYNC |
689
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
6853 defsubr (&Sunix_sync); |
1204
567860ca77e0
* fileio.c (syms_of_fileio): Don't try to defsubr Sunix_sync
Jim Blandy <jimb@redhat.com>
parents:
1178
diff
changeset
|
6854 #endif |
230 | 6855 } |
52401 | 6856 |
6857 /* arch-tag: 64ba3fd7-f844-4fb2-ba4b-427eb928786c | |
6858 (do not change this comment) */ |