Mercurial > emacs
annotate src/fileio.c @ 110743:9efd09876018
* src/fileio.c (Vdirectory_sep_char): Remove.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sun, 03 Oct 2010 14:27:04 -0700 |
parents | 72f46bad930c |
children | 2b72330aa98a |
rev | line source |
---|---|
230 | 1 /* File IO for GNU Emacs. |
110743
9efd09876018
* src/fileio.c (Vdirectory_sep_char): Remove.
Glenn Morris <rgm@gnu.org>
parents:
110734
diff
changeset
|
2 |
9efd09876018
* src/fileio.c (Vdirectory_sep_char): Remove.
Glenn Morris <rgm@gnu.org>
parents:
110734
diff
changeset
|
3 Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996, 1997, |
9efd09876018
* src/fileio.c (Vdirectory_sep_char): Remove.
Glenn Morris <rgm@gnu.org>
parents:
110734
diff
changeset
|
4 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, |
9efd09876018
* src/fileio.c (Vdirectory_sep_char): Remove.
Glenn Morris <rgm@gnu.org>
parents:
110734
diff
changeset
|
5 2009, 2010 Free Software Foundation, Inc. |
230 | 6 |
7 This file is part of GNU Emacs. | |
8 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94885
diff
changeset
|
9 GNU Emacs is free software: you can redistribute it and/or modify |
230 | 10 it under the terms of the GNU General Public License as published by |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94885
diff
changeset
|
11 the Free Software Foundation, either version 3 of the License, or |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94885
diff
changeset
|
12 (at your option) any later version. |
230 | 13 |
14 GNU Emacs is distributed in the hope that it will be useful, | |
15 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 GNU General Public License for more details. | |
18 | |
19 You should have received a copy of the GNU General Public License | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94885
diff
changeset
|
20 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
230 | 21 |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
4483
diff
changeset
|
22 #include <config.h> |
87302
591bf917aa89
(Finsert_file_contents): Fix overflow check to not
Andreas Schwab <schwab@suse.de>
parents:
85506
diff
changeset
|
23 #include <limits.h> |
16534
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
24 #include <fcntl.h> |
18270
fd2ccbdc5660
(Fdo_auto_save): Use stdio to write the save-list file.
Richard M. Stallman <rms@gnu.org>
parents:
18210
diff
changeset
|
25 #include <stdio.h> |
230 | 26 #include <sys/types.h> |
27 #include <sys/stat.h> | |
105669
68dd71358159
* alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105348
diff
changeset
|
28 #include <setjmp.h> |
372 | 29 |
6862
653504b6b5dd
[HAVE_UNISTD_H]: Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents:
6678
diff
changeset
|
30 #ifdef HAVE_UNISTD_H |
653504b6b5dd
[HAVE_UNISTD_H]: Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents:
6678
diff
changeset
|
31 #include <unistd.h> |
653504b6b5dd
[HAVE_UNISTD_H]: Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents:
6678
diff
changeset
|
32 #endif |
653504b6b5dd
[HAVE_UNISTD_H]: Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents:
6678
diff
changeset
|
33 |
4879
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
34 #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
|
35 # 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
|
36 #endif |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
37 |
16534
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
38 #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
|
39 # 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
|
40 #endif |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
41 |
4879
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
42 #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
|
43 # 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
|
44 #endif |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
45 |
61700
8a54ce1fae6a
Remove reference to defunct vms-pwd.h.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
61151
diff
changeset
|
46 #ifdef HAVE_PWD_H |
230 | 47 #include <pwd.h> |
372 | 48 #endif |
49 | |
230 | 50 #include <ctype.h> |
51 #include <errno.h> | |
52 | |
108011 | 53 #ifdef HAVE_LIBSELINUX |
54 #include <selinux/selinux.h> | |
55 #include <selinux/context.h> | |
31095
e19d38e14720
[USE_CRT_DLL]: Remove unnecessary extern, which screws
Andrew Innes <andrewi@gnu.org>
parents:
30927
diff
changeset
|
56 #endif |
230 | 57 |
58 #include "lisp.h" | |
1299
b8337cdf2e8b
* fileio.c (Finsert_file_contents): Call offset_intervals() if
Joseph Arceneaux <jla@gnu.org>
parents:
1240
diff
changeset
|
59 #include "intervals.h" |
230 | 60 #include "buffer.h" |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
61 #include "character.h" |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
62 #include "coding.h" |
230 | 63 #include "window.h" |
71818
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
64 #include "blockinput.h" |
83100
4970ad4995f5
Eliminated updating_frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
54895
diff
changeset
|
65 #include "frame.h" |
4970ad4995f5
Eliminated updating_frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
54895
diff
changeset
|
66 #include "dispextern.h" |
230 | 67 |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
68 #ifdef WINDOWSNT |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
69 #define NOMINMAX 1 |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
70 #include <windows.h> |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
71 #include <fcntl.h> |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
72 #endif /* not WINDOWSNT */ |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
73 |
21787
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
74 #ifdef MSDOS |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
75 #include "msdos.h" |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
76 #include <sys/param.h> |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
77 #include <fcntl.h> |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
78 #endif |
ee3aed578b1d
Include msdos.h after lisp.h.
Eli Zaretskii <eliz@gnu.org>
parents:
21739
diff
changeset
|
79 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
80 #ifdef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
81 /* 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
|
82 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
|
83 #ifdef MSDOS |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
84 #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
|
85 #endif |
69c516d109e7
(DRIVE_LETTER) [WINDOWSNT]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15587
diff
changeset
|
86 #ifdef WINDOWSNT |
69c516d109e7
(DRIVE_LETTER) [WINDOWSNT]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15587
diff
changeset
|
87 #define IS_DRIVE(x) isalpha (x) |
69c516d109e7
(DRIVE_LETTER) [WINDOWSNT]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15587
diff
changeset
|
88 #endif |
15587
515819688789
(DRIVE_LETTER) [MSDOS]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15533
diff
changeset
|
89 /* 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
|
90 filenames will sometimes compare inequal, because |
515819688789
(DRIVE_LETTER) [MSDOS]: Lower-case drive letters.
Miles Bader <miles@gnu.org>
parents:
15533
diff
changeset
|
91 `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
|
92 #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
|
93 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
94 |
564 | 95 #include "systime.h" |
230 | 96 |
97 #ifdef HPUX | |
98 #include <netio.h> | |
3410
47b51faf6c4e
[HPUX9]: Don't include errnet.h.
Richard M. Stallman <rms@gnu.org>
parents:
3032
diff
changeset
|
99 #endif |
230 | 100 |
25006
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
101 #include "commands.h" |
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
102 |
230 | 103 #ifndef O_WRONLY |
104 #define O_WRONLY 1 | |
105 #endif | |
106 | |
8597 | 107 #ifndef O_RDONLY |
108 #define O_RDONLY 0 | |
109 #endif | |
110 | |
24367
f9d5fff966f0
(lstat) [!S_ISLNK]: Use stat instead of lstat.
Eli Zaretskii <eliz@gnu.org>
parents:
24313
diff
changeset
|
111 #ifndef S_ISLNK |
f9d5fff966f0
(lstat) [!S_ISLNK]: Use stat instead of lstat.
Eli Zaretskii <eliz@gnu.org>
parents:
24313
diff
changeset
|
112 # define lstat stat |
f9d5fff966f0
(lstat) [!S_ISLNK]: Use stat instead of lstat.
Eli Zaretskii <eliz@gnu.org>
parents:
24313
diff
changeset
|
113 #endif |
f9d5fff966f0
(lstat) [!S_ISLNK]: Use stat instead of lstat.
Eli Zaretskii <eliz@gnu.org>
parents:
24313
diff
changeset
|
114 |
60354
b9a43f92b898
(FILE_SYSTEM_CASE): Define macro if not already defined.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
59671
diff
changeset
|
115 #ifndef FILE_SYSTEM_CASE |
b9a43f92b898
(FILE_SYSTEM_CASE): Define macro if not already defined.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
59671
diff
changeset
|
116 #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
|
117 #endif |
b9a43f92b898
(FILE_SYSTEM_CASE): Define macro if not already defined.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
59671
diff
changeset
|
118 |
230 | 119 /* Nonzero during writing of auto-save files */ |
120 int auto_saving; | |
121 | |
122 /* Set by auto_save_1 to mode of original file so Fwrite_region will create | |
123 a new file with the same mode as the original */ | |
124 int auto_save_mode_bits; | |
125 | |
80405
c7ecb287a9ca
(auto_save_error_occurred): New var.
Chong Yidong <cyd@stupidchicken.com>
parents:
80312
diff
changeset
|
126 /* Set by auto_save_1 if an error occurred during the last auto-save. */ |
c7ecb287a9ca
(auto_save_error_occurred): New var.
Chong Yidong <cyd@stupidchicken.com>
parents:
80312
diff
changeset
|
127 int auto_save_error_occurred; |
c7ecb287a9ca
(auto_save_error_occurred): New var.
Chong Yidong <cyd@stupidchicken.com>
parents:
80312
diff
changeset
|
128 |
51357
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
129 /* 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
|
130 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
|
131 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
|
132 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
|
133 auto saving and recovering a file. */ |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
134 Lisp_Object Qauto_save_coding; |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
135 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
136 /* Coding system for file names, or nil if none. */ |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
137 Lisp_Object Vfile_name_coding_system; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
138 |
21048
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
139 /* 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
|
140 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
|
141 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
|
142 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
143 /* Alist of elements (REGEXP . HANDLER) for file names |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
144 whose I/O is done with a special handler. */ |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
145 Lisp_Object Vfile_name_handler_alist; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
146 |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
147 /* 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
|
148 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
|
149 Lisp_Object Qoperations; |
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
150 |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
151 /* Lisp functions for translating file formats */ |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
152 Lisp_Object Qformat_decode, Qformat_annotate_function; |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
153 |
19448
950a178e8783
(Vauto_file_coding_system_function): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19437
diff
changeset
|
154 /* 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
|
155 Lisp_Object Vset_auto_coding_function; |
19448
950a178e8783
(Vauto_file_coding_system_function): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19437
diff
changeset
|
156 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
157 /* 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
|
158 Lisp_Object Vafter_insert_file_functions; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
159 |
50546
4a06e3332577
(Vafter_insert_file_adjust_coding_function): Delete
Kenichi Handa <handa@m17n.org>
parents:
50530
diff
changeset
|
160 /* 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
|
161 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
|
162 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
|
163 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
164 /* 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
|
165 Lisp_Object Vwrite_region_annotate_functions; |
50829
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
166 Lisp_Object Qwrite_region_annotate_functions; |
101335
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
167 Lisp_Object Vwrite_region_post_annotation_function; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
168 |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
169 /* 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
|
170 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
|
171 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
|
172 |
101335
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
173 /* Each time an annotation function changes the buffer, the new buffer |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
174 is added here. */ |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
175 Lisp_Object Vwrite_region_annotation_buffers; |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
176 |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
177 /* 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
|
178 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
|
179 |
80684
0122e7498e18
(Vauto_save_list_file_name): Move here from file.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
80664
diff
changeset
|
180 /* Whether or not files are auto-saved into themselves. */ |
0122e7498e18
(Vauto_save_list_file_name): Move here from file.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
80664
diff
changeset
|
181 Lisp_Object Vauto_save_visited_file_name; |
0122e7498e18
(Vauto_save_list_file_name): Move here from file.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
80664
diff
changeset
|
182 |
104015
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
183 /* Whether or not to continue auto-saving after a large deletion. */ |
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
184 Lisp_Object Vauto_save_include_big_deletions; |
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
185 |
65513
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
186 #ifdef HAVE_FSYNC |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
187 /* 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
|
188 int write_region_inhibit_fsync; |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
189 #endif |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
190 |
96489
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
191 /* Non-zero means call move-file-to-trash in Fdelete_file or |
105348
1aa50e5c7523
* fileio.c (Fdelete_directory_internal): Renamed from
Michael Albinus <michael.albinus@gmx.de>
parents:
104015
diff
changeset
|
192 Fdelete_directory_internal. */ |
96489
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
193 int delete_by_moving_to_trash; |
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
194 |
98284
29ea4287708c
(Qdelete_by_moving_to_trash): New Lisp_Object.
Glenn Morris <rgm@gnu.org>
parents:
98276
diff
changeset
|
195 Lisp_Object Qdelete_by_moving_to_trash; |
29ea4287708c
(Qdelete_by_moving_to_trash): New Lisp_Object.
Glenn Morris <rgm@gnu.org>
parents:
98276
diff
changeset
|
196 |
96489
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
197 /* Lisp function for moving files to trash. */ |
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
198 Lisp_Object Qmove_file_to_trash; |
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
199 |
106994
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
200 /* Lisp function for recursively copying directories. */ |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
201 Lisp_Object Qcopy_directory; |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
202 |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
203 /* Lisp function for recursively deleting directories. */ |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
204 Lisp_Object Qdelete_directory; |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
205 |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
206 #ifdef WINDOWSNT |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
207 extern Lisp_Object Vw32_get_true_file_attributes; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
208 #endif |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
209 |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
210 /* 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
|
211 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
|
212 |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
213 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
|
214 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
|
215 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
|
216 |
6678
e29adbacde1d
(Fdo_auto_save): Don't turn off auto save mode.
Richard M. Stallman <rms@gnu.org>
parents:
6498
diff
changeset
|
217 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
|
218 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
|
219 |
17271
e34a30952e14
(Fcopy_file): Use Qfile_date_error if can't set file date.
Richard M. Stallman <rms@gnu.org>
parents:
17114
diff
changeset
|
220 Lisp_Object Qfile_error, Qfile_already_exists, Qfile_date_error; |
25595 | 221 Lisp_Object Qexcl; |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
222 Lisp_Object Qfile_name_history; |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
223 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
224 Lisp_Object Qcar_less_than_car; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
225 |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
108888
diff
changeset
|
226 static int a_write (int, Lisp_Object, int, int, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
108888
diff
changeset
|
227 Lisp_Object *, struct coding_system *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
108888
diff
changeset
|
228 static int e_write (int, Lisp_Object, int, int, struct coding_system *); |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
229 |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
230 |
20370
7e443cd9a63a
(report_file_error): Declare it as void.
Kenichi Handa <handa@m17n.org>
parents:
20313
diff
changeset
|
231 void |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
232 report_file_error (const char *string, Lisp_Object data) |
230 | 233 { |
234 Lisp_Object errstring; | |
25595 | 235 int errorno = errno; |
89987
d7211599ad16
(report_file_error): Make a unibyte string from
Kenichi Handa <handa@m17n.org>
parents:
89978
diff
changeset
|
236 char *str; |
230 | 237 |
26526
b7438760079b
* callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents:
26088
diff
changeset
|
238 synchronize_system_messages_locale (); |
89987
d7211599ad16
(report_file_error): Make a unibyte string from
Kenichi Handa <handa@m17n.org>
parents:
89978
diff
changeset
|
239 str = strerror (errorno); |
d7211599ad16
(report_file_error): Make a unibyte string from
Kenichi Handa <handa@m17n.org>
parents:
89978
diff
changeset
|
240 errstring = code_convert_string_norecord (make_unibyte_string (str, |
d7211599ad16
(report_file_error): Make a unibyte string from
Kenichi Handa <handa@m17n.org>
parents:
89978
diff
changeset
|
241 strlen (str)), |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
242 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
|
243 |
230 | 244 while (1) |
25595 | 245 switch (errorno) |
246 { | |
247 case EEXIST: | |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
248 xsignal (Qfile_already_exists, Fcons (errstring, data)); |
25595 | 249 break; |
250 default: | |
251 /* System error messages are capitalized. Downcase the initial | |
97852
951870b6c085
(report_file_error): Clarify the case of slash defeating downcasing.
Eli Zaretskii <eliz@gnu.org>
parents:
97845
diff
changeset
|
252 unless it is followed by a slash. (The slash case caters to |
951870b6c085
(report_file_error): Clarify the case of slash defeating downcasing.
Eli Zaretskii <eliz@gnu.org>
parents:
97845
diff
changeset
|
253 error messages that begin with "I/O" or, in German, "E/A".) */ |
97845
6a486cee0621
(report_file_error): Don't downcase the first character
Kenichi Handa <handa@m17n.org>
parents:
97747
diff
changeset
|
254 if (STRING_MULTIBYTE (errstring) |
6a486cee0621
(report_file_error): Don't downcase the first character
Kenichi Handa <handa@m17n.org>
parents:
97747
diff
changeset
|
255 && ! EQ (Faref (errstring, make_number (1)), make_number ('/'))) |
97747
0d66ae50dc4e
(report_file_error): Fix handling of multibyte error string.
Kenichi Handa <handa@m17n.org>
parents:
97297
diff
changeset
|
256 { |
0d66ae50dc4e
(report_file_error): Fix handling of multibyte error string.
Kenichi Handa <handa@m17n.org>
parents:
97297
diff
changeset
|
257 int c; |
0d66ae50dc4e
(report_file_error): Fix handling of multibyte error string.
Kenichi Handa <handa@m17n.org>
parents:
97297
diff
changeset
|
258 |
0d66ae50dc4e
(report_file_error): Fix handling of multibyte error string.
Kenichi Handa <handa@m17n.org>
parents:
97297
diff
changeset
|
259 str = (char *) SDATA (errstring); |
106185
f2cea199b0c4
* character.h (STRING_CHAR, STRING_CHAR_AND_LENGTH): Remove
Andreas Schwab <schwab@linux-m68k.org>
parents:
105959
diff
changeset
|
260 c = STRING_CHAR (str); |
97887
cff62eaa08c4
* font.h (font_range):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
97852
diff
changeset
|
261 Faset (errstring, make_number (0), make_number (DOWNCASE (c))); |
97747
0d66ae50dc4e
(report_file_error): Fix handling of multibyte error string.
Kenichi Handa <handa@m17n.org>
parents:
97297
diff
changeset
|
262 } |
25595 | 263 |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
264 xsignal (Qfile_error, |
25595 | 265 Fcons (build_string (string), Fcons (errstring, data))); |
266 } | |
230 | 267 } |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
268 |
20313
36bbb5e0a687
(close_file_unwind): Fix return type and return nil.
Andreas Schwab <schwab@suse.de>
parents:
20224
diff
changeset
|
269 Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
270 close_file_unwind (Lisp_Object fd) |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
271 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
272 emacs_close (XFASTINT (fd)); |
20313
36bbb5e0a687
(close_file_unwind): Fix return type and return nil.
Andreas Schwab <schwab@suse.de>
parents:
20224
diff
changeset
|
273 return Qnil; |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
274 } |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
275 |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
276 /* 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
|
277 |
108361 | 278 Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
279 restore_point_unwind (Lisp_Object location) |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
280 { |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
281 Fgoto_char (location); |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
282 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
|
283 return Qnil; |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
284 } |
89440
06b495fd070a
(kill_workbuf_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents:
89401
diff
changeset
|
285 |
230 | 286 |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
287 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
|
288 Lisp_Object Qsubstitute_in_file_name; |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
289 Lisp_Object Qdirectory_file_name; |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
290 Lisp_Object Qfile_name_directory; |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
291 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
|
292 Lisp_Object Qunhandled_file_name_directory; |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
293 Lisp_Object Qfile_name_as_directory; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
294 Lisp_Object Qcopy_file; |
8227
0e6b7eeedc3b
(Fmake_directory_internal): Use Qmake_directory_internal.
Richard M. Stallman <rms@gnu.org>
parents:
8185
diff
changeset
|
295 Lisp_Object Qmake_directory_internal; |
28697
7d587a158d1f
(Fdo_auto_save): Create directories for auto-save
Gerd Moellmann <gerd@gnu.org>
parents:
28673
diff
changeset
|
296 Lisp_Object Qmake_directory; |
105348
1aa50e5c7523
* fileio.c (Fdelete_directory_internal): Renamed from
Michael Albinus <michael.albinus@gmx.de>
parents:
104015
diff
changeset
|
297 Lisp_Object Qdelete_directory_internal; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
298 Lisp_Object Qdelete_file; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
299 Lisp_Object Qrename_file; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
300 Lisp_Object Qadd_name_to_file; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
301 Lisp_Object Qmake_symbolic_link; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
302 Lisp_Object Qfile_exists_p; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
303 Lisp_Object Qfile_executable_p; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
304 Lisp_Object Qfile_readable_p; |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
305 Lisp_Object Qfile_writable_p; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
306 Lisp_Object Qfile_symlink_p; |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
307 Lisp_Object Qaccess_file; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
308 Lisp_Object Qfile_directory_p; |
11599
51bc10be0dc7
(Ffile_regular_p): Use Qfile_regular_p.
Richard M. Stallman <rms@gnu.org>
parents:
11426
diff
changeset
|
309 Lisp_Object Qfile_regular_p; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
310 Lisp_Object Qfile_accessible_directory_p; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
311 Lisp_Object Qfile_modes; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
312 Lisp_Object Qset_file_modes; |
55194
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
313 Lisp_Object Qset_file_times; |
108011 | 314 Lisp_Object Qfile_selinux_context; |
315 Lisp_Object Qset_file_selinux_context; | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
316 Lisp_Object Qfile_newer_than_file_p; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
317 Lisp_Object Qinsert_file_contents; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
318 Lisp_Object Qwrite_region; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
319 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
|
320 Lisp_Object Qset_visited_file_modtime; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
321 |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
322 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
|
323 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
|
324 Otherwise, return nil. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
325 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
|
326 `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
|
327 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
328 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
|
329 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
|
330 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
|
331 use the standard functions without calling themselves recursively. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
332 (Lisp_Object filename, Lisp_Object operation) |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
333 { |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
334 /* 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
|
335 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
|
336 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
|
337 |
41655
fccc74affd73
(Ffind_file_name_handler): Avoid initializer for `result'.
Richard M. Stallman <rms@gnu.org>
parents:
41595
diff
changeset
|
338 result = Qnil; |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
339 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
|
340 |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
341 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
|
342 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
|
343 else |
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
344 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
|
345 |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
346 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
|
347 chain = XCDR (chain)) |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
348 { |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
349 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
|
350 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
|
351 if (CONSP (elt)) |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
352 { |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
353 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
|
354 int match_pos; |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
355 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
|
356 Lisp_Object operations = Qnil; |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
357 |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
358 if (SYMBOLP (handler)) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
359 operations = Fget (handler, Qoperations); |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
360 |
41595
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
361 if (STRINGP (string) |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
362 && (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
|
363 && (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
|
364 { |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
365 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
|
366 |
25662
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
367 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
|
368 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
|
369 if (NILP (tem)) |
41595
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
370 { |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
371 result = handler; |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
372 pos = match_pos; |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
373 } |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
374 } |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
375 } |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
376 |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
377 QUIT; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
378 } |
41595
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
379 return result; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
380 } |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
381 |
230 | 382 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
|
383 1, 1, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
384 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
|
385 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
|
386 Otherwise return a directory name. |
97142 | 387 Given a Unix syntax file name, returns a string ending in slash. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
388 (Lisp_Object filename) |
230 | 389 { |
46948
f2225c68b0a8
(Ffile_name_directory) [DOS_NT]: Don't declare `beg'
Eli Zaretskii <eliz@gnu.org>
parents:
46566
diff
changeset
|
390 #ifndef DOS_NT |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
391 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
|
392 #else |
f2225c68b0a8
(Ffile_name_directory) [DOS_NT]: Don't declare `beg'
Eli Zaretskii <eliz@gnu.org>
parents:
46566
diff
changeset
|
393 register unsigned char *beg; |
f2225c68b0a8
(Ffile_name_directory) [DOS_NT]: Don't declare `beg'
Eli Zaretskii <eliz@gnu.org>
parents:
46566
diff
changeset
|
394 #endif |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
395 register const unsigned char *p; |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
396 Lisp_Object handler; |
230 | 397 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
398 CHECK_STRING (filename); |
230 | 399 |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
400 /* 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
|
401 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
|
402 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
|
403 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
404 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
|
405 |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
406 filename = FILE_SYSTEM_CASE (filename); |
103756
41dca7756517
* fileio.c (Fsubstitute_in_file_name, Ffile_name_directory)
Chong Yidong <cyd@stupidchicken.com>
parents:
102973
diff
changeset
|
407 #ifdef DOS_NT |
41dca7756517
* fileio.c (Fsubstitute_in_file_name, Ffile_name_directory)
Chong Yidong <cyd@stupidchicken.com>
parents:
102973
diff
changeset
|
408 beg = (unsigned char *) alloca (SBYTES (filename) + 1); |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109139
diff
changeset
|
409 memcpy (beg, SDATA (filename), SBYTES (filename) + 1); |
103756
41dca7756517
* fileio.c (Fsubstitute_in_file_name, Ffile_name_directory)
Chong Yidong <cyd@stupidchicken.com>
parents:
102973
diff
changeset
|
410 #else |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
411 beg = SDATA (filename); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
412 #endif |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
413 p = beg + SBYTES (filename); |
230 | 414 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
415 while (p != beg && !IS_DIRECTORY_SEP (p[-1]) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
416 #ifdef DOS_NT |
22172
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
417 /* only recognise drive specifier at the beginning */ |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
418 && !(p[-1] == ':' |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
419 /* 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
|
420 && ((p == beg + 2 && !IS_DIRECTORY_SEP (*beg)) |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
421 || (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
|
422 #endif |
230 | 423 ) p--; |
424 | |
425 if (p == beg) | |
426 return Qnil; | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
427 #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
|
428 /* 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
|
429 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
|
430 { |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
431 /* 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
|
432 unsigned char *res = alloca (MAXPATHLEN + 1); |
22172
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
433 unsigned char *r = res; |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
434 |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
435 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
|
436 { |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
437 strncpy (res, beg, 2); |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
438 beg += 2; |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
439 r += 2; |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
440 } |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
441 |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
442 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
|
443 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
444 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
|
445 strcat (res, "/"); |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
446 beg = res; |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
447 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
|
448 } |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
449 } |
108888
c2ac5cece5ea
Turn `directory-sep-char' into a noop.
Juanma Barranquero <lekktu@gmail.com>
parents:
108818
diff
changeset
|
450 dostounix_filename (beg); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
451 #endif /* DOS_NT */ |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
452 |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
453 return make_specified_string (beg, -1, p - beg, STRING_MULTIBYTE (filename)); |
230 | 454 } |
455 | |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
456 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
|
457 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
|
458 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
|
459 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
|
460 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
|
461 or the entire name if it contains no slash. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
462 (Lisp_Object filename) |
230 | 463 { |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
464 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
|
465 Lisp_Object handler; |
230 | 466 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
467 CHECK_STRING (filename); |
230 | 468 |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
469 /* 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
|
470 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
|
471 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
|
472 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
473 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
|
474 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
475 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
|
476 end = p = beg + SBYTES (filename); |
230 | 477 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
478 while (p != beg && !IS_DIRECTORY_SEP (p[-1]) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
479 #ifdef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
480 /* only recognise drive specifier at beginning */ |
22172
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
481 && !(p[-1] == ':' |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
482 /* handle the "/:d:foo" case correctly */ |
e0f5d2438001
(Ffile_name_directory, Ffile_name_nondirectory)
Richard M. Stallman <rms@gnu.org>
parents:
22113
diff
changeset
|
483 && (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
|
484 #endif |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
485 ) |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
486 p--; |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
487 |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
488 return make_specified_string (p, -1, end - p, STRING_MULTIBYTE (filename)); |
230 | 489 } |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
490 |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
491 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
|
492 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
|
493 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
|
494 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
|
495 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
|
496 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
|
497 \(file-name-directory FILENAME). |
91551
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
498 If FILENAME refers to a file which is not accessible from a local process, |
f14242124fd7
* process.c (Fstart_process):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91367
diff
changeset
|
499 then this should return nil. |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
500 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
|
501 get a current directory to run processes in. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
502 (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
|
503 { |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
504 Lisp_Object handler; |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
505 |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
506 /* 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
|
507 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
|
508 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
|
509 if (!NILP (handler)) |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
510 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
|
511 |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
512 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
|
513 } |
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
514 |
230 | 515 |
516 char * | |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
517 file_name_as_directory (char *out, char *in) |
230 | 518 { |
519 int size = strlen (in) - 1; | |
520 | |
20790
7fd6ce99f389
(file_name_as_directory): For an empty name, return "/".
Richard M. Stallman <rms@gnu.org>
parents:
20748
diff
changeset
|
521 strcpy (out, in); |
7fd6ce99f389
(file_name_as_directory): For an empty name, return "/".
Richard M. Stallman <rms@gnu.org>
parents:
20748
diff
changeset
|
522 |
20651
0de9f45a1db6
(Finsert_file_contents): When not decoding,
Richard M. Stallman <rms@gnu.org>
parents:
20621
diff
changeset
|
523 if (size < 0) |
20790
7fd6ce99f389
(file_name_as_directory): For an empty name, return "/".
Richard M. Stallman <rms@gnu.org>
parents:
20748
diff
changeset
|
524 { |
21543
55865851fd69
(file_name_as_directory): For empty arg, return `./'.
Karl Heuer <kwzh@gnu.org>
parents:
21522
diff
changeset
|
525 out[0] = '.'; |
55865851fd69
(file_name_as_directory): For empty arg, return `./'.
Karl Heuer <kwzh@gnu.org>
parents:
21522
diff
changeset
|
526 out[1] = '/'; |
55865851fd69
(file_name_as_directory): For empty arg, return `./'.
Karl Heuer <kwzh@gnu.org>
parents:
21522
diff
changeset
|
527 out[2] = 0; |
20790
7fd6ce99f389
(file_name_as_directory): For an empty name, return "/".
Richard M. Stallman <rms@gnu.org>
parents:
20748
diff
changeset
|
528 return out; |
7fd6ce99f389
(file_name_as_directory): For an empty name, return "/".
Richard M. Stallman <rms@gnu.org>
parents:
20748
diff
changeset
|
529 } |
230 | 530 |
531 /* 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
|
532 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
|
533 { |
108888
c2ac5cece5ea
Turn `directory-sep-char' into a noop.
Juanma Barranquero <lekktu@gmail.com>
parents:
108818
diff
changeset
|
534 out[size + 1] = DIRECTORY_SEP; |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
535 out[size + 2] = '\0'; |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
536 } |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
537 #ifdef DOS_NT |
108888
c2ac5cece5ea
Turn `directory-sep-char' into a noop.
Juanma Barranquero <lekktu@gmail.com>
parents:
108818
diff
changeset
|
538 dostounix_filename (out); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
539 #endif |
230 | 540 return out; |
541 } | |
542 | |
543 DEFUN ("file-name-as-directory", Ffile_name_as_directory, | |
544 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
|
545 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
|
546 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
|
547 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
|
548 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
|
549 or passed as second argument to `expand-file-name'. |
97142 | 550 For a Unix-syntax file name, just appends a slash. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
551 (Lisp_Object file) |
230 | 552 { |
553 char *buf; | |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
554 Lisp_Object handler; |
230 | 555 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
556 CHECK_STRING (file); |
485 | 557 if (NILP (file)) |
230 | 558 return Qnil; |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
559 |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
560 /* 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
|
561 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
|
562 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
|
563 if (!NILP (handler)) |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
564 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
|
565 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
566 buf = (char *) alloca (SBYTES (file) + 10); |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
567 file_name_as_directory (buf, SDATA (file)); |
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
568 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
|
569 STRING_MULTIBYTE (file)); |
230 | 570 } |
571 | |
572 /* | |
573 * Convert from directory name to filename. | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
574 * On UNIX, it's simple: just make sure there isn't a terminating / |
230 | 575 |
576 * Value is nonzero if the string output is different from the input. | |
577 */ | |
578 | |
21514 | 579 int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
580 directory_file_name (char *src, char *dst) |
230 | 581 { |
582 long slen; | |
583 | |
584 slen = strlen (src); | |
97142 | 585 |
230 | 586 /* Process as Unix format: just remove any final slash. |
587 But leave "/" unchanged; do not change it to "". */ | |
588 strcpy (dst, src); | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
589 if (slen > 1 |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
590 && 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
|
591 #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
|
592 && !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
|
593 #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
|
594 ) |
230 | 595 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
|
596 #ifdef DOS_NT |
108888
c2ac5cece5ea
Turn `directory-sep-char' into a noop.
Juanma Barranquero <lekktu@gmail.com>
parents:
108818
diff
changeset
|
597 dostounix_filename (dst); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
598 #endif |
230 | 599 return 1; |
600 } | |
601 | |
602 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
|
603 1, 1, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
604 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
|
605 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
|
606 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
|
607 a directory is different from its name as a file. |
97142 | 608 In Unix-syntax, this function just removes the final slash. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
609 (Lisp_Object directory) |
230 | 610 { |
611 char *buf; | |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
612 Lisp_Object handler; |
230 | 613 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
614 CHECK_STRING (directory); |
230 | 615 |
485 | 616 if (NILP (directory)) |
230 | 617 return Qnil; |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
618 |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
619 /* 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
|
620 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
|
621 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
|
622 if (!NILP (handler)) |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
623 return call2 (handler, Qdirectory_file_name, directory); |
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
624 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
625 buf = (char *) alloca (SBYTES (directory) + 20); |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
626 directory_file_name (SDATA (directory), buf); |
50196
320721ae5978
(Ffile_name_directory): Reconstruct file name by
Kenichi Handa <handa@m17n.org>
parents:
49557
diff
changeset
|
627 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
|
628 STRING_MULTIBYTE (directory)); |
230 | 629 } |
630 | |
105959
ba3ffbd9c422
* process.c (ifflag_def): Make flag_sym constant.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105877
diff
changeset
|
631 static const char make_temp_name_tbl[64] = |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
632 { |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
633 'A','B','C','D','E','F','G','H', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
634 'I','J','K','L','M','N','O','P', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
635 'Q','R','S','T','U','V','W','X', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
636 'Y','Z','a','b','c','d','e','f', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
637 'g','h','i','j','k','l','m','n', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
638 'o','p','q','r','s','t','u','v', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
639 'w','x','y','z','0','1','2','3', |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
640 '4','5','6','7','8','9','-','_' |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
641 }; |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
642 |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
643 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
|
644 |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
645 /* 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
|
646 |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
647 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
|
648 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
|
649 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
|
650 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
|
651 an absolute file name. |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
652 |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
653 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
|
654 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
|
655 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
|
656 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
|
657 |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
658 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
|
659 generated. */ |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
660 |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
661 Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
662 make_temp_name (Lisp_Object prefix, int base64_p) |
230 | 663 { |
664 Lisp_Object val; | |
56615
c0f488e9cb26
(make_temp_name): Handle multibyte prefixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56525
diff
changeset
|
665 int len, clen; |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
666 int pid; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
667 unsigned char *p, *data; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
668 char pidbuf[20]; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
669 int pidlen; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
670 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
671 CHECK_STRING (prefix); |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
672 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
673 /* 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
|
674 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
|
675 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
|
676 262144 unique file names per PID per PREFIX. */ |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
677 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
678 pid = (int) getpid (); |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
679 |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
680 if (base64_p) |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
681 { |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
682 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
|
683 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
|
684 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
|
685 pidlen = 3; |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
686 } |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
687 else |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
688 { |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
689 #ifdef HAVE_LONG_FILE_NAMES |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
690 sprintf (pidbuf, "%d", pid); |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
691 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
|
692 #else |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
693 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
|
694 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
|
695 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
|
696 pidlen = 3; |
14519
7efdb933356e
(Fmake_temp_name) [MS-DOS]: Allow upto 8 characters in
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
697 #endif |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
698 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
699 |
56615
c0f488e9cb26
(make_temp_name): Handle multibyte prefixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56525
diff
changeset
|
700 len = SBYTES (prefix); clen = SCHARS (prefix); |
c0f488e9cb26
(make_temp_name): Handle multibyte prefixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56525
diff
changeset
|
701 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
|
702 if (!STRING_MULTIBYTE (prefix)) |
c0f488e9cb26
(make_temp_name): Handle multibyte prefixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56525
diff
changeset
|
703 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
|
704 data = SDATA (val); |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109139
diff
changeset
|
705 memcpy (data, SDATA (prefix), len); |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
706 p = data + len; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
707 |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109139
diff
changeset
|
708 memcpy (p, pidbuf, pidlen); |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
709 p += pidlen; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
710 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
711 /* 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
|
712 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
|
713 this by initializing count to a random value, and incrementing it |
21917 | 714 afterwards. |
715 | |
716 We don't want make-temp-name to be called while dumping, | |
717 because then make_temp_name_count_initialized_p would get set | |
718 and then make_temp_name_count would not be set when Emacs starts. */ | |
719 | |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
720 if (!make_temp_name_count_initialized_p) |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
721 { |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
722 make_temp_name_count = (unsigned) time (NULL); |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
723 make_temp_name_count_initialized_p = 1; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
724 } |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
725 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
726 while (1) |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
727 { |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
728 struct stat ignored; |
21900
fd8b439fd6c9
(Fmake_temp_name): Improve randomness of generated file names.
Richard M. Stallman <rms@gnu.org>
parents:
21787
diff
changeset
|
729 unsigned num = make_temp_name_count; |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
730 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
731 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
|
732 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
|
733 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
|
734 |
21900
fd8b439fd6c9
(Fmake_temp_name): Improve randomness of generated file names.
Richard M. Stallman <rms@gnu.org>
parents:
21787
diff
changeset
|
735 /* 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
|
736 ++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
|
737 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
|
738 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
|
739 |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
740 if (stat (data, &ignored) < 0) |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
741 { |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
742 /* 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
|
743 if (errno == ENOENT) |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
744 return val; |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
745 else |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
746 /* 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
|
747 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
|
748 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
|
749 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
|
750 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
|
751 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
|
752 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
|
753 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
|
754 Fcons (prefix, Qnil)); |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
755 /* not reached */ |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
756 } |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
757 } |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
758 |
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
759 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
|
760 SDATA (prefix)); |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
761 return Qnil; |
230 | 762 } |
21684
89e327fdea93
(Fmake_temp_name): Complete rewrite.
Richard M. Stallman <rms@gnu.org>
parents:
21543
diff
changeset
|
763 |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
764 |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
765 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
|
766 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
|
767 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
|
768 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
|
769 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
770 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
|
771 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
|
772 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
|
773 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
774 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
|
775 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
|
776 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
|
777 |
d12db931f164
(Fmake_temp_name): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
43564
diff
changeset
|
778 * 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
|
779 * 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
|
780 * If you are taking special precautions as `make-temp-file' does. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
781 (Lisp_Object prefix) |
28928
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
782 { |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
783 return make_temp_name (prefix, 0); |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
784 } |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
785 |
242cad59b698
(make_temp_name): New function, extracted from
Gerd Moellmann <gerd@gnu.org>
parents:
28846
diff
changeset
|
786 |
230 | 787 |
788 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
|
789 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
|
790 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
|
791 \(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
|
792 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
|
793 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
|
794 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
|
795 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
|
796 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
|
797 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
|
798 An initial `~USER/' expands to USER's home directory. |
98782
05eaa923b9eb
(Fexpand_file_name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
98284
diff
changeset
|
799 See also the function `substitute-in-file-name'. |
05eaa923b9eb
(Fexpand_file_name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
98284
diff
changeset
|
800 |
05eaa923b9eb
(Fexpand_file_name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
98284
diff
changeset
|
801 For technical reasons, this function can return correct but |
05eaa923b9eb
(Fexpand_file_name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
98284
diff
changeset
|
802 non-intuitive results for the root directory; for instance, |
05eaa923b9eb
(Fexpand_file_name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
98284
diff
changeset
|
803 \(expand-file-name ".." "/") returns "/..". For this reason, use |
05eaa923b9eb
(Fexpand_file_name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
98284
diff
changeset
|
804 (directory-file-name (file-name-directory dirname)) to traverse a |
05eaa923b9eb
(Fexpand_file_name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
98284
diff
changeset
|
805 filesystem tree, not (expand-file-name ".." dirname). */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
806 (Lisp_Object name, Lisp_Object default_directory) |
230 | 807 { |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
808 /* These point to SDATA and need to be careful with string-relocation |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
809 during GC (via DECODE_FILE). */ |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
810 unsigned char *nm, *newdir; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
811 /* This should only point to alloca'd data. */ |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
812 unsigned char *target; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
813 |
230 | 814 int tlen; |
815 struct passwd *pw; | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
816 #ifdef DOS_NT |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
817 int drive = 0; |
15109
b801c02f3e92
(Fexpand_file_name) [DOS_NT]: Keep dir sep following ~
Richard M. Stallman <rms@gnu.org>
parents:
15097
diff
changeset
|
818 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
|
819 int is_escaped = 0; |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
820 #endif /* DOS_NT */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
821 int length; |
50340
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
822 Lisp_Object handler, result; |
65504
85da96d43f19
(Fexpand_file_name): Check multibyteness of
Kenichi Handa <handa@m17n.org>
parents:
65466
diff
changeset
|
823 int multibyte; |
80664
4aa666fb6103
(Fexpand_file_name): Convert the value of $HOME to a multibyte string.
Eli Zaretskii <eliz@gnu.org>
parents:
80488
diff
changeset
|
824 Lisp_Object hdir; |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
825 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
826 CHECK_STRING (name); |
230 | 827 |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
828 /* 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
|
829 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
|
830 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
|
831 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
832 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
|
833 |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
834 /* 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
|
835 if (NILP (default_directory)) |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
836 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
|
837 if (! STRINGP (default_directory)) |
42191
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
838 { |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
839 #ifdef DOS_NT |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
840 /* "/" 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
|
841 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
|
842 |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
843 (let (default-directory) |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
844 (expand-file-name "a")) |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
845 |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
846 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
|
847 current drive. */ |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
848 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
|
849 #else |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
850 default_directory = build_string ("/"); |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
851 #endif |
12131c06473a
(Fexpand_file_name) [DOS_NT]: Use the root directory
Eli Zaretskii <eliz@gnu.org>
parents:
41993
diff
changeset
|
852 } |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
853 |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
854 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
|
855 { |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
856 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
|
857 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
858 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
|
859 } |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
860 |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
861 { |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
862 unsigned char *o = SDATA (default_directory); |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
863 |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
864 /* Make sure DEFAULT_DIRECTORY is properly expanded. |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
865 It would be better to do this down below where we actually use |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
866 default_directory. Unfortunately, calling Fexpand_file_name recursively |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
867 could invoke GC, and the strings might be relocated. This would |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
868 be annoying because we have pointers into strings lying around |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
869 that would need adjusting, and people would add new pointers to |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
870 the code and forget to adjust them, resulting in intermittent bugs. |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
871 Putting this call here avoids all that crud. |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
872 |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
873 The EQ test avoids infinite recursion. */ |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
874 if (! NILP (default_directory) && !EQ (default_directory, name) |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
875 /* Save time in some common cases - as long as default_directory |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
876 is not relative, it can be canonicalized with name below (if it |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
877 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
|
878 #ifdef DOS_NT |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
879 /* Detect MSDOS file names with drive specifiers. */ |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
880 && ! (IS_DRIVE (o[0]) && IS_DEVICE_SEP (o[1]) |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
881 && 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
|
882 #ifdef WINDOWSNT |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
883 /* Detect Windows file names in UNC format. */ |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
884 && ! (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
|
885 #endif |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
886 #else /* not DOS_NT */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
887 /* 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
|
888 DOS or Windows). */ |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
889 && ! (IS_DIRECTORY_SEP (o[0])) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
890 #endif /* not DOS_NT */ |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
891 ) |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
892 { |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
893 struct gcpro gcpro1; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
894 |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
895 GCPRO1 (name); |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
896 default_directory = Fexpand_file_name (default_directory, Qnil); |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
897 UNGCPRO; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
898 } |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
899 } |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
900 name = FILE_SYSTEM_CASE (name); |
91078
2a54f2cb1b4b
(Fexpand_file_name): Adjust multibyteness of directory
Kenichi Handa <handa@m17n.org>
parents:
91073
diff
changeset
|
901 multibyte = STRING_MULTIBYTE (name); |
2a54f2cb1b4b
(Fexpand_file_name): Adjust multibyteness of directory
Kenichi Handa <handa@m17n.org>
parents:
91073
diff
changeset
|
902 if (multibyte != STRING_MULTIBYTE (default_directory)) |
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
|
903 { |
91078
2a54f2cb1b4b
(Fexpand_file_name): Adjust multibyteness of directory
Kenichi Handa <handa@m17n.org>
parents:
91073
diff
changeset
|
904 if (multibyte) |
2a54f2cb1b4b
(Fexpand_file_name): Adjust multibyteness of directory
Kenichi Handa <handa@m17n.org>
parents:
91073
diff
changeset
|
905 default_directory = string_to_multibyte (default_directory); |
2a54f2cb1b4b
(Fexpand_file_name): Adjust multibyteness of directory
Kenichi Handa <handa@m17n.org>
parents:
91073
diff
changeset
|
906 else |
2a54f2cb1b4b
(Fexpand_file_name): Adjust multibyteness of directory
Kenichi Handa <handa@m17n.org>
parents:
91073
diff
changeset
|
907 { |
2a54f2cb1b4b
(Fexpand_file_name): Adjust multibyteness of directory
Kenichi Handa <handa@m17n.org>
parents:
91073
diff
changeset
|
908 name = string_to_multibyte (name); |
2a54f2cb1b4b
(Fexpand_file_name): Adjust multibyteness of directory
Kenichi Handa <handa@m17n.org>
parents:
91073
diff
changeset
|
909 multibyte = 1; |
2a54f2cb1b4b
(Fexpand_file_name): Adjust multibyteness of directory
Kenichi Handa <handa@m17n.org>
parents:
91073
diff
changeset
|
910 } |
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
|
911 } |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
912 |
80773
c37da6340b74
(Fexpand_file_name): Copy argument `name' into local storage on all platforms,
Eli Zaretskii <eliz@gnu.org>
parents:
80684
diff
changeset
|
913 /* Make a local copy of nm[] to protect it from GC in DECODE_FILE below. */ |
103756
41dca7756517
* fileio.c (Fsubstitute_in_file_name, Ffile_name_directory)
Chong Yidong <cyd@stupidchicken.com>
parents:
102973
diff
changeset
|
914 nm = (unsigned char *) alloca (SBYTES (name) + 1); |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109139
diff
changeset
|
915 memcpy (nm, SDATA (name), SBYTES (name) + 1); |
80773
c37da6340b74
(Fexpand_file_name): Copy argument `name' into local storage on all platforms,
Eli Zaretskii <eliz@gnu.org>
parents:
80684
diff
changeset
|
916 |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
917 #ifdef DOS_NT |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
918 /* 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
|
919 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
|
920 { |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
921 is_escaped = 1; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
922 nm += 2; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
923 } |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
924 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
925 /* 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
|
926 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
|
927 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
|
928 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
|
929 { |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
930 drive = nm[0]; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
931 nm += 2; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
932 } |
19695
d28bbba0fcd0
(Fexpand_file_name) [WINDOWSNT]: When stripping
Geoff Voelker <voelker@cs.washington.edu>
parents:
19664
diff
changeset
|
933 |
d28bbba0fcd0
(Fexpand_file_name) [WINDOWSNT]: When stripping
Geoff Voelker <voelker@cs.washington.edu>
parents:
19664
diff
changeset
|
934 #ifdef WINDOWSNT |
d28bbba0fcd0
(Fexpand_file_name) [WINDOWSNT]: When stripping
Geoff Voelker <voelker@cs.washington.edu>
parents:
19664
diff
changeset
|
935 /* 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
|
936 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
|
937 "//somedir". */ |
d28bbba0fcd0
(Fexpand_file_name) [WINDOWSNT]: When stripping
Geoff Voelker <voelker@cs.washington.edu>
parents:
19664
diff
changeset
|
938 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
|
939 nm++; |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
940 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
941 /* 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
|
942 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
|
943 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
944 drive = 0; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
945 } |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
946 #endif /* WINDOWSNT */ |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
947 #endif /* DOS_NT */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
948 |
36482
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
949 /* 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
|
950 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
|
951 allocating a new string if name is already fully expanded. */ |
230 | 952 if ( |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
953 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
|
954 #ifdef MSDOS |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
955 && drive && !is_escaped |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
956 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
957 #ifdef WINDOWSNT |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
958 && (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
|
959 #endif |
230 | 960 ) |
961 { | |
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
|
962 /* 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
|
963 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
|
964 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
|
965 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
|
966 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
|
967 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
|
968 int lose = 0; |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
969 unsigned char *p = nm; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
970 |
230 | 971 while (*p) |
972 { | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
973 /* 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
|
974 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
|
975 |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
976 /* "." and ".." are hairy. */ |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
977 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
|
978 && p[1] == '.' |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
979 && (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
|
980 || p[2] == 0 |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
981 || (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
|
982 || p[3] == 0)))) |
230 | 983 lose = 1; |
36482
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
984 /* 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
|
985 slash. */ |
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
986 else if (p > nm |
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
987 && IS_DIRECTORY_SEP (p[0]) |
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
988 && IS_DIRECTORY_SEP (p[1])) |
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
989 lose = 1; |
230 | 990 p++; |
991 } | |
992 if (!lose) | |
993 { | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
994 #ifdef DOS_NT |
108888
c2ac5cece5ea
Turn `directory-sep-char' into a noop.
Juanma Barranquero <lekktu@gmail.com>
parents:
108818
diff
changeset
|
995 /* Make sure directories are all separated with /, but |
c2ac5cece5ea
Turn `directory-sep-char' into a noop.
Juanma Barranquero <lekktu@gmail.com>
parents:
108818
diff
changeset
|
996 avoid allocation of a new string when not required. */ |
c2ac5cece5ea
Turn `directory-sep-char' into a noop.
Juanma Barranquero <lekktu@gmail.com>
parents:
108818
diff
changeset
|
997 dostounix_filename (nm); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
998 #ifdef WINDOWSNT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
999 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
|
1000 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1001 if (strcmp (nm, SDATA (name)) != 0) |
65504
85da96d43f19
(Fexpand_file_name): Check multibyteness of
Kenichi Handa <handa@m17n.org>
parents:
65466
diff
changeset
|
1002 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
|
1003 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1004 else |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1005 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1006 /* 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
|
1007 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
|
1008 { |
50213
f72d2bd8118d
(Fexpand_file_name): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
50212
diff
changeset
|
1009 char temp[] = " :"; |
f72d2bd8118d
(Fexpand_file_name): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
50212
diff
changeset
|
1010 |
65504
85da96d43f19
(Fexpand_file_name): Check multibyteness of
Kenichi Handa <handa@m17n.org>
parents:
65466
diff
changeset
|
1011 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
|
1012 temp[0] = DRIVE_LETTER (drive); |
f72d2bd8118d
(Fexpand_file_name): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
50212
diff
changeset
|
1013 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
|
1014 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1015 return name; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1016 #else /* not DOS_NT */ |
80773
c37da6340b74
(Fexpand_file_name): Copy argument `name' into local storage on all platforms,
Eli Zaretskii <eliz@gnu.org>
parents:
80684
diff
changeset
|
1017 if (strcmp (nm, SDATA (name)) == 0) |
230 | 1018 return name; |
65504
85da96d43f19
(Fexpand_file_name): Check multibyteness of
Kenichi Handa <handa@m17n.org>
parents:
65466
diff
changeset
|
1019 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
|
1020 #endif /* not DOS_NT */ |
230 | 1021 } |
1022 } | |
1023 | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1024 /* 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
|
1025 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
|
1026 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
|
1027 and /foo/../ sequences. |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1028 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1029 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
|
1030 - 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
|
1031 - 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
|
1032 start with / |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1033 - 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
|
1034 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1035 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
|
1036 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
|
1037 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
|
1038 append it to the current working directory. */ |
230 | 1039 |
1040 newdir = 0; | |
1041 | |
1042 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
|
1043 { |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1044 if (IS_DIRECTORY_SEP (nm[1]) |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1045 || 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
|
1046 { |
80664
4aa666fb6103
(Fexpand_file_name): Convert the value of $HOME to a multibyte string.
Eli Zaretskii <eliz@gnu.org>
parents:
80488
diff
changeset
|
1047 Lisp_Object tem; |
4aa666fb6103
(Fexpand_file_name): Convert the value of $HOME to a multibyte string.
Eli Zaretskii <eliz@gnu.org>
parents:
80488
diff
changeset
|
1048 |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1049 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
|
1050 newdir = (unsigned char *) ""; |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1051 nm++; |
80664
4aa666fb6103
(Fexpand_file_name): Convert the value of $HOME to a multibyte string.
Eli Zaretskii <eliz@gnu.org>
parents:
80488
diff
changeset
|
1052 /* egetenv may return a unibyte string, which will bite us since |
4aa666fb6103
(Fexpand_file_name): Convert the value of $HOME to a multibyte string.
Eli Zaretskii <eliz@gnu.org>
parents:
80488
diff
changeset
|
1053 we expect the directory to be multibyte. */ |
4aa666fb6103
(Fexpand_file_name): Convert the value of $HOME to a multibyte string.
Eli Zaretskii <eliz@gnu.org>
parents:
80488
diff
changeset
|
1054 tem = build_string (newdir); |
4aa666fb6103
(Fexpand_file_name): Convert the value of $HOME to a multibyte string.
Eli Zaretskii <eliz@gnu.org>
parents:
80488
diff
changeset
|
1055 if (!STRING_MULTIBYTE (tem)) |
4aa666fb6103
(Fexpand_file_name): Convert the value of $HOME to a multibyte string.
Eli Zaretskii <eliz@gnu.org>
parents:
80488
diff
changeset
|
1056 { |
4aa666fb6103
(Fexpand_file_name): Convert the value of $HOME to a multibyte string.
Eli Zaretskii <eliz@gnu.org>
parents:
80488
diff
changeset
|
1057 hdir = DECODE_FILE (tem); |
4aa666fb6103
(Fexpand_file_name): Convert the value of $HOME to a multibyte string.
Eli Zaretskii <eliz@gnu.org>
parents:
80488
diff
changeset
|
1058 newdir = SDATA (hdir); |
4aa666fb6103
(Fexpand_file_name): Convert the value of $HOME to a multibyte string.
Eli Zaretskii <eliz@gnu.org>
parents:
80488
diff
changeset
|
1059 } |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1060 #ifdef DOS_NT |
15109
b801c02f3e92
(Fexpand_file_name) [DOS_NT]: Keep dir sep following ~
Richard M. Stallman <rms@gnu.org>
parents:
15097
diff
changeset
|
1061 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
|
1062 #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
|
1063 } |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1064 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
|
1065 { |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1066 unsigned char *o, *p; |
97142 | 1067 for (p = nm; *p && (!IS_DIRECTORY_SEP (*p)); p++); |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1068 o = alloca (p - nm + 1); |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109139
diff
changeset
|
1069 memcpy (o, nm, p - nm); |
1589
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1070 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
|
1071 |
71818
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
1072 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
|
1073 pw = (struct passwd *) getpwnam (o + 1); |
71818
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
1074 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
|
1075 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
|
1076 { |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1077 newdir = (unsigned char *) pw -> pw_dir; |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1078 nm = p; |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1079 #ifdef DOS_NT |
15109
b801c02f3e92
(Fexpand_file_name) [DOS_NT]: Keep dir sep following ~
Richard M. Stallman <rms@gnu.org>
parents:
15097
diff
changeset
|
1080 collapse_newdir = 0; |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1081 #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
|
1082 } |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1083 |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1084 /* 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
|
1085 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
|
1086 } |
6168f42d716c
* fileio.c (Fexpand_file_name): Don't fiddle with "/." if it's the
Jim Blandy <jimb@redhat.com>
parents:
1536
diff
changeset
|
1087 } |
230 | 1088 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1089 #ifdef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1090 /* 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
|
1091 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
|
1092 if (!newdir && drive) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1093 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1094 /* 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
|
1095 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
|
1096 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1097 newdir = alloca (MAXPATHLEN + 1); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1098 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
|
1099 newdir = NULL; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1100 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1101 if (!newdir) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1102 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1103 /* 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
|
1104 newdir = alloca (4); |
15324
6fd4e01fd332
(DRIVE_LETTER): [DOS_NT] New macro.
Richard M. Stallman <rms@gnu.org>
parents:
15313
diff
changeset
|
1105 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
|
1106 newdir[1] = ':'; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1107 newdir[2] = '/'; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1108 newdir[3] = 0; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1109 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1110 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1111 #endif /* DOS_NT */ |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1112 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1113 /* 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
|
1114 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
|
1115 |
15124
b2c682fcd3ef
(Fexpand_file_name) [DOS_NT]: Correct the `if' clause
Richard M. Stallman <rms@gnu.org>
parents:
15109
diff
changeset
|
1116 if (1 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1117 #ifndef DOS_NT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1118 /* /... 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
|
1119 && !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
|
1120 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1121 #ifdef WINDOWSNT |
15124
b2c682fcd3ef
(Fexpand_file_name) [DOS_NT]: Correct the `if' clause
Richard M. Stallman <rms@gnu.org>
parents:
15109
diff
changeset
|
1122 && !(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
|
1123 #endif |
230 | 1124 && !newdir) |
1125 { | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1126 newdir = SDATA (default_directory); |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1127 #ifdef DOS_NT |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1128 /* 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
|
1129 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
|
1130 { |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1131 is_escaped = 1; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1132 newdir += 2; |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1133 } |
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1134 #endif |
230 | 1135 } |
1136 | |
9789
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 if (newdir) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1139 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1140 /* 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
|
1141 if ( |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1142 /* 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
|
1143 ! (IS_DRIVE (newdir[0]) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1144 && 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
|
1145 #ifdef WINDOWSNT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1146 /* 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
|
1147 && ! (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
|
1148 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1149 ) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1150 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1151 /* 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
|
1152 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
|
1153 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
|
1154 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
|
1155 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
|
1156 |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1157 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
|
1158 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1159 drive = newdir[0]; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1160 newdir += 2; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1161 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1162 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
|
1163 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1164 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
|
1165 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
|
1166 strcat (tmp, nm); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1167 nm = tmp; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1168 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1169 newdir = alloca (MAXPATHLEN + 1); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1170 if (drive) |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1171 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1172 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
|
1173 newdir = "/"; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1174 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1175 else |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1176 getwd (newdir); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1177 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1178 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1179 /* 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
|
1180 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
|
1181 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1182 drive = newdir[0]; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1183 newdir += 2; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1184 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1185 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1186 /* 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
|
1187 (//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
|
1188 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
|
1189 { |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1190 #ifdef WINDOWSNT |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1191 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
|
1192 { |
94038
a66451222c6a
(Fexpand_file_name): Add declaration for `p' missing in previous change.
Juanma Barranquero <lekktu@gmail.com>
parents:
94037
diff
changeset
|
1193 unsigned char *p; |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1194 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
|
1195 p = newdir + 2; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1196 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
|
1197 p++; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1198 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
|
1199 *p = 0; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1200 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1201 else |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1202 #endif |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1203 newdir = ""; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1204 } |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1205 } |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1206 #endif /* DOS_NT */ |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1207 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1208 if (newdir) |
372 | 1209 { |
15313
0fad77a676b7
(Fexpand_file_name) [WINDOWSNT]: Don't strip trailing /
Richard M. Stallman <rms@gnu.org>
parents:
15124
diff
changeset
|
1210 /* 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
|
1211 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
|
1212 length = strlen (newdir); |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1213 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
|
1214 #ifdef WINDOWSNT |
0fad77a676b7
(Fexpand_file_name) [WINDOWSNT]: Don't strip trailing /
Richard M. Stallman <rms@gnu.org>
parents:
15124
diff
changeset
|
1215 && !(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
|
1216 #endif |
0fad77a676b7
(Fexpand_file_name) [WINDOWSNT]: Don't strip trailing /
Richard M. Stallman <rms@gnu.org>
parents:
15124
diff
changeset
|
1217 ) |
372 | 1218 { |
1219 unsigned char *temp = (unsigned char *) alloca (length); | |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109139
diff
changeset
|
1220 memcpy (temp, newdir, length - 1); |
372 | 1221 temp[length - 1] = 0; |
1222 newdir = temp; | |
1223 } | |
1224 tlen = length + 1; | |
1225 } | |
1226 else | |
1227 tlen = 0; | |
230 | 1228 |
372 | 1229 /* Now concatenate the directory and name to new space in the stack frame */ |
1230 tlen += strlen (nm) + 1; | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1231 #ifdef DOS_NT |
21987
cd7ff97f3b05
(Fexpand_file_name) [DOS_NT]: Note when special escape
Richard M. Stallman <rms@gnu.org>
parents:
21949
diff
changeset
|
1232 /* 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
|
1233 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
|
1234 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
|
1235 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
|
1236 target += 4; |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1237 #else /* not DOS_NT */ |
230 | 1238 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
|
1239 #endif /* not DOS_NT */ |
230 | 1240 *target = 0; |
1241 | |
1242 if (newdir) | |
1243 { | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1244 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
|
1245 { |
22113
be43fb8acb62
(Fexpand_file_name): Change conditional
Richard M. Stallman <rms@gnu.org>
parents:
22106
diff
changeset
|
1246 #ifdef DOS_NT |
22106
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1247 /* 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
|
1248 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
|
1249 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
|
1250 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
|
1251 this case (keeping the drive letter). */ |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
1252 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
|
1253 && newdir[1] == '\0')) |
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1254 #endif |
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1255 strcpy (target, newdir); |
f4a52ea42920
(Fexpand_file_name) [WINDOWSNT]: Be careful not to
Richard M. Stallman <rms@gnu.org>
parents:
22056
diff
changeset
|
1256 } |
230 | 1257 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
|
1258 file_name_as_directory (target, newdir); |
230 | 1259 } |
1260 | |
1261 strcat (target, nm); | |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1262 |
36482
3df7026fc965
(Fexpand_file_name): Collapse sequences of slashes
Gerd Moellmann <gerd@gnu.org>
parents:
35175
diff
changeset
|
1263 /* 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
|
1264 appear. */ |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1265 { |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1266 unsigned char *p = target; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1267 unsigned char *o = target; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1268 |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1269 while (*p) |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1270 { |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1271 if (!IS_DIRECTORY_SEP (*p)) |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1272 { |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1273 *o++ = *p++; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1274 } |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1275 else if (p[1] == '.' |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1276 && (IS_DIRECTORY_SEP (p[2]) |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1277 || p[2] == 0)) |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1278 { |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1279 /* If "/." is the entire filename, keep the "/". Otherwise, |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1280 just delete the whole "/.". */ |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1281 if (o == target && p[2] == '\0') |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1282 *o++ = *p; |
230 | 1283 p += 2; |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1284 } |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1285 else if (p[1] == '.' && p[2] == '.' |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1286 /* `/../' is the "superroot" on certain file systems. |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1287 Turned off on DOS_NT systems because they have no |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1288 "superroot" and because this causes us to produce |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1289 file names like "d:/../foo" which fail file-related |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1290 functions of the underlying OS. (To reproduce, try a |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1291 long series of "../../" in default_directory, longer |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1292 than the number of levels from the root.) */ |
62589
12b3cd6b8467
(Fexpand_file_name) [DOS_NT]: Don't try to support "superroot"
Eli Zaretskii <eliz@gnu.org>
parents:
62299
diff
changeset
|
1293 #ifndef DOS_NT |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1294 && o != target |
62589
12b3cd6b8467
(Fexpand_file_name) [DOS_NT]: Don't try to support "superroot"
Eli Zaretskii <eliz@gnu.org>
parents:
62299
diff
changeset
|
1295 #endif |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1296 && (IS_DIRECTORY_SEP (p[3]) || p[3] == 0)) |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1297 { |
100610
ee0ea39bc6a3
(Fexpand_file_name): Do not allow ../ to go beyond the server name in
Jason Rumney <jasonr@gnu.org>
parents:
99554
diff
changeset
|
1298 #ifdef WINDOWSNT |
ee0ea39bc6a3
(Fexpand_file_name): Do not allow ../ to go beyond the server name in
Jason Rumney <jasonr@gnu.org>
parents:
99554
diff
changeset
|
1299 unsigned char *prev_o = o; |
ee0ea39bc6a3
(Fexpand_file_name): Do not allow ../ to go beyond the server name in
Jason Rumney <jasonr@gnu.org>
parents:
99554
diff
changeset
|
1300 #endif |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1301 while (o != target && (--o) && !IS_DIRECTORY_SEP (*o)) |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1302 ; |
100610
ee0ea39bc6a3
(Fexpand_file_name): Do not allow ../ to go beyond the server name in
Jason Rumney <jasonr@gnu.org>
parents:
99554
diff
changeset
|
1303 #ifdef WINDOWSNT |
ee0ea39bc6a3
(Fexpand_file_name): Do not allow ../ to go beyond the server name in
Jason Rumney <jasonr@gnu.org>
parents:
99554
diff
changeset
|
1304 /* Don't go below server level in UNC filenames. */ |
ee0ea39bc6a3
(Fexpand_file_name): Do not allow ../ to go beyond the server name in
Jason Rumney <jasonr@gnu.org>
parents:
99554
diff
changeset
|
1305 if (o == target + 1 && IS_DIRECTORY_SEP (*o) |
ee0ea39bc6a3
(Fexpand_file_name): Do not allow ../ to go beyond the server name in
Jason Rumney <jasonr@gnu.org>
parents:
99554
diff
changeset
|
1306 && IS_DIRECTORY_SEP (*target)) |
ee0ea39bc6a3
(Fexpand_file_name): Do not allow ../ to go beyond the server name in
Jason Rumney <jasonr@gnu.org>
parents:
99554
diff
changeset
|
1307 o = prev_o; |
ee0ea39bc6a3
(Fexpand_file_name): Do not allow ../ to go beyond the server name in
Jason Rumney <jasonr@gnu.org>
parents:
99554
diff
changeset
|
1308 else |
ee0ea39bc6a3
(Fexpand_file_name): Do not allow ../ to go beyond the server name in
Jason Rumney <jasonr@gnu.org>
parents:
99554
diff
changeset
|
1309 #endif |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1310 /* Keep initial / only if this is the whole name. */ |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1311 if (o == target && IS_ANY_SEP (*o) && p[3] == 0) |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1312 ++o; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1313 p += 3; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1314 } |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1315 else if (p > target && IS_DIRECTORY_SEP (p[1])) |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1316 /* Collapse multiple `/' in a row. */ |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1317 p++; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1318 else |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1319 { |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1320 *o++ = *p++; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1321 } |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1322 } |
230 | 1323 |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1324 #ifdef DOS_NT |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1325 /* 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
|
1326 #ifdef WINDOWSNT |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1327 /* Except for network file name. */ |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1328 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
|
1329 #endif /* WINDOWSNT */ |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1330 { |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1331 if (!drive) abort (); |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1332 target -= 2; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1333 target[0] = DRIVE_LETTER (drive); |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1334 target[1] = ':'; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1335 } |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1336 /* Reinsert the escape prefix if required. */ |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1337 if (is_escaped) |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1338 { |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1339 target -= 2; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1340 target[0] = '/'; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1341 target[1] = ':'; |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1342 } |
108888
c2ac5cece5ea
Turn `directory-sep-char' into a noop.
Juanma Barranquero <lekktu@gmail.com>
parents:
108818
diff
changeset
|
1343 dostounix_filename (target); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1344 #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
|
1345 |
94037
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1346 result = make_specified_string (target, -1, o - target, multibyte); |
d864a5e618e0
(Fexpand_file_name): Tighten the scope of `p' and `o' vars.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93981
diff
changeset
|
1347 } |
50340
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1348 |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1349 /* 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
|
1350 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
|
1351 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
|
1352 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
|
1353 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
|
1354 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
|
1355 if (!NILP (handler)) |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1356 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
|
1357 |
810c2ac4b064
(Fexpand_file_name): In the no-handler case, after
Kai Großjohann <kgrossjo@eu.uu.net>
parents:
50213
diff
changeset
|
1358 return result; |
230 | 1359 } |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1360 |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1361 #if 0 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1362 /* 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
|
1363 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
|
1364 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
|
1365 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
|
1366 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
|
1367 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
|
1368 |
107184 | 1369 Don't remove this code: it's true that it will be accessible |
1370 from the repository, but a few years from deletion, people will | |
1371 forget it is there. */ | |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1372 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1373 /* 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
|
1374 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
|
1375 "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
|
1376 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
|
1377 \(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
|
1378 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
|
1379 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
|
1380 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
|
1381 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
|
1382 (name, defalt) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1383 Lisp_Object name, defalt; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1384 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1385 unsigned char *nm; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1386 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1387 register unsigned char *newdir, *p, *o; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1388 int tlen; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1389 unsigned char *target; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1390 struct passwd *pw; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1391 int lose; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1392 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
1393 CHECK_STRING (name); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1394 nm = SDATA (name); |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1395 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1396 /* 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
|
1397 If no /./ or /../ we can return right away. */ |
97142 | 1398 if (nm[0] == '/') |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1399 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1400 p = nm; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1401 lose = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1402 while (*p) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1403 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1404 if (p[0] == '/' && p[1] == '/' |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1405 ) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1406 nm = p + 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1407 if (p[0] == '/' && p[1] == '~') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1408 nm = p + 1, lose = 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1409 if (p[0] == '/' && p[1] == '.' |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1410 && (p[2] == '/' || p[2] == 0 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1411 || (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
|
1412 lose = 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1413 p++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1414 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1415 if (!lose) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1416 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1417 if (nm == SDATA (name)) |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1418 return name; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1419 return build_string (nm); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1420 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1421 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1422 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1423 /* 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
|
1424 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1425 newdir = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1426 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1427 if (nm[0] == '~') /* prefix ~ */ |
97142 | 1428 if (nm[1] == '/' || nm[1] == 0)/* ~/filename */ |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1429 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1430 if (!(newdir = (unsigned char *) egetenv ("HOME"))) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1431 newdir = (unsigned char *) ""; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1432 nm++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1433 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1434 else /* ~user/filename */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1435 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1436 /* Get past ~ to user */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1437 unsigned char *user = nm + 1; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1438 /* Find end of name. */ |
109315
8f3464b85afb
Use strchr, strrchr instead of index, rindex
Andreas Schwab <schwab@linux-m68k.org>
parents:
109179
diff
changeset
|
1439 unsigned char *ptr = (unsigned char *) strchr (user, '/'); |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1440 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
|
1441 /* 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
|
1442 o = (unsigned char *) alloca (len + 1); |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109139
diff
changeset
|
1443 memcpy (o, user, len); |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1444 o[len] = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1445 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1446 /* Look up the user name. */ |
71818
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
1447 BLOCK_INPUT; |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1448 pw = (struct passwd *) getpwnam (o + 1); |
71818
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
1449 UNBLOCK_INPUT; |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1450 if (!pw) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1451 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
|
1452 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1453 newdir = (unsigned char *) pw->pw_dir; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1454 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1455 /* Discard the user name from NM. */ |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1456 nm += len; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1457 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1458 |
97142 | 1459 if (nm[0] != '/' && !newdir) |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1460 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1461 if (NILP (defalt)) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1462 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
|
1463 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
|
1464 newdir = SDATA (defalt); |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1465 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1466 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1467 /* 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
|
1468 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1469 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
|
1470 target = (unsigned char *) alloca (tlen); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1471 *target = 0; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1472 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1473 if (newdir) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1474 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1475 if (nm[0] == 0 || nm[0] == '/') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1476 strcpy (target, newdir); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1477 else |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1478 file_name_as_directory (target, newdir); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1479 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1480 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1481 strcat (target, nm); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1482 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1483 /* 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
|
1484 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1485 p = target; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1486 o = target; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1487 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1488 while (*p) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1489 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1490 if (*p != '/') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1491 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1492 *o++ = *p++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1493 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1494 else if (!strncmp (p, "//", 2) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1495 ) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1496 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1497 o = target; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1498 p++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1499 } |
74108
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1500 else if (p[0] == '/' && p[1] == '.' |
cb533833bfb7
Break line before &&, not after.
Richard M. Stallman <rms@gnu.org>
parents:
74097
diff
changeset
|
1501 && (p[2] == '/' || p[2] == 0)) |
40306
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1502 p += 2; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1503 else if (!strncmp (p, "/..", 3) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1504 /* `/../' 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
|
1505 && o != target |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1506 && (p[3] == '/' || p[3] == 0)) |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1507 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1508 while (o != target && *--o != '/') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1509 ; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1510 if (o == target && *o == '/') |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1511 ++o; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1512 p += 3; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1513 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1514 else |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1515 { |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1516 *o++ = *p++; |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1517 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1518 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1519 |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1520 return make_string (target, o - target); |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1521 } |
f4cf12231193
Revert last change (which removed old commented-out
Eli Zaretskii <eliz@gnu.org>
parents:
40168
diff
changeset
|
1522 #endif |
230 | 1523 |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1524 /* 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
|
1525 static int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
1526 file_name_absolute_p (const unsigned char *filename) |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1527 { |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1528 return |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1529 (IS_DIRECTORY_SEP (*filename) || *filename == '~' |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1530 #ifdef DOS_NT |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1531 || (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
|
1532 && IS_DIRECTORY_SEP (filename[2])) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1533 #endif |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1534 ); |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1535 } |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1536 |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1537 static unsigned char * |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
1538 search_embedded_absfilename (unsigned char *nm, unsigned char *endp) |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1539 { |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1540 unsigned char *p, *s; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1541 |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1542 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
|
1543 { |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1544 if ((0 |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1545 || IS_DIRECTORY_SEP (p[-1])) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1546 && file_name_absolute_p (p) |
87730 | 1547 #if defined (WINDOWSNT) || defined(CYGWIN) |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1548 /* // 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
|
1549 WindowsNT and Cygwin systems. */ |
61151
be58652085b8
(search_embedded_absfilename): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
61060
diff
changeset
|
1550 && !(IS_DIRECTORY_SEP (p[0]) && p - 1 == nm) |
87730 | 1551 #endif /* not (WINDOWSNT || CYGWIN) */ |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1552 ) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1553 { |
97142 | 1554 for (s = p; *s && (!IS_DIRECTORY_SEP (*s)); s++); |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1555 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
|
1556 { |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1557 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
|
1558 struct passwd *pw; |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109139
diff
changeset
|
1559 memcpy (o, p, s - p); |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1560 o [s - p] = 0; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1561 |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1562 /* 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
|
1563 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
|
1564 ~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
|
1565 BLOCK_INPUT; |
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
1566 pw = getpwnam (o + 1); |
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
1567 UNBLOCK_INPUT; |
086c76517b02
Include blockinput.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
71799
diff
changeset
|
1568 if (pw) |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1569 return p; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1570 } |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1571 else |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1572 return p; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1573 } |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1574 } |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1575 return NULL; |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1576 } |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1577 |
230 | 1578 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
|
1579 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
|
1580 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
|
1581 `$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
|
1582 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
|
1583 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
|
1584 the entire variable name in braces. |
102653
eaf39e07d5ea
(Fsubstitute_in_file_name): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
102284
diff
changeset
|
1585 |
eaf39e07d5ea
(Fsubstitute_in_file_name): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
102284
diff
changeset
|
1586 If `/~' appears, all of FILENAME through that `/' is discarded. |
eaf39e07d5ea
(Fsubstitute_in_file_name): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
102284
diff
changeset
|
1587 If `//' appears, everything up to and including the first of |
eaf39e07d5ea
(Fsubstitute_in_file_name): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
102284
diff
changeset
|
1588 those `/' is discarded. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
1589 (Lisp_Object filename) |
230 | 1590 { |
1591 unsigned char *nm; | |
1592 | |
1593 register unsigned char *s, *p, *o, *x, *endp; | |
31829
43566b0aec59
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31775
diff
changeset
|
1594 unsigned char *target = NULL; |
230 | 1595 int total = 0; |
1596 int substituted = 0; | |
102714
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1597 int multibyte; |
230 | 1598 unsigned char *xnm; |
9955
dfb5d7e86733
(Fread_file_name_internal): Protect orig_string.
Richard M. Stallman <rms@gnu.org>
parents:
9921
diff
changeset
|
1599 Lisp_Object handler; |
230 | 1600 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
1601 CHECK_STRING (filename); |
230 | 1602 |
102714
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1603 multibyte = STRING_MULTIBYTE (filename); |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1604 |
9955
dfb5d7e86733
(Fread_file_name_internal): Protect orig_string.
Richard M. Stallman <rms@gnu.org>
parents:
9921
diff
changeset
|
1605 /* 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
|
1606 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
|
1607 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
|
1608 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1609 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
|
1610 |
102714
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1611 /* Always work on a copy of the string, in case GC happens during |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1612 decode of environment variables, causing the original Lisp_String |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1613 data to be relocated. */ |
103756
41dca7756517
* fileio.c (Fsubstitute_in_file_name, Ffile_name_directory)
Chong Yidong <cyd@stupidchicken.com>
parents:
102973
diff
changeset
|
1614 nm = (unsigned char *) alloca (SBYTES (filename) + 1); |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109139
diff
changeset
|
1615 memcpy (nm, SDATA (filename), SBYTES (filename) + 1); |
103756
41dca7756517
* fileio.c (Fsubstitute_in_file_name, Ffile_name_directory)
Chong Yidong <cyd@stupidchicken.com>
parents:
102973
diff
changeset
|
1616 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1617 #ifdef DOS_NT |
108888
c2ac5cece5ea
Turn `directory-sep-char' into a noop.
Juanma Barranquero <lekktu@gmail.com>
parents:
108818
diff
changeset
|
1618 dostounix_filename (nm); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1619 substituted = (strcmp (nm, SDATA (filename)) != 0); |
8185
b5cc015a3698
(Ffile_name_directory, Ffile_name_nondirectory,
Richard M. Stallman <rms@gnu.org>
parents:
8079
diff
changeset
|
1620 #endif |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
1621 endp = nm + SBYTES (filename); |
230 | 1622 |
19754
380cbf03df01
(Fexpand_file_name): If default dir isn't string, use `/'.
Richard M. Stallman <rms@gnu.org>
parents:
19695
diff
changeset
|
1623 /* 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
|
1624 p = search_embedded_absfilename (nm, endp); |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1625 if (p) |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1626 /* 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
|
1627 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
|
1628 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
|
1629 return Fsubstitute_in_file_name |
102714
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1630 (make_specified_string (p, -1, endp - p, multibyte)); |
230 | 1631 |
1632 /* See if any variables are substituted into the string | |
1633 and find the total length of their values in `total' */ | |
1634 | |
1635 for (p = nm; p != endp;) | |
1636 if (*p != '$') | |
1637 p++; | |
1638 else | |
1639 { | |
1640 p++; | |
1641 if (p == endp) | |
1642 goto badsubst; | |
1643 else if (*p == '$') | |
1644 { | |
1645 /* "$$" means a single "$" */ | |
1646 p++; | |
1647 total -= 1; | |
1648 substituted = 1; | |
1649 continue; | |
1650 } | |
1651 else if (*p == '{') | |
1652 { | |
1653 o = ++p; | |
1654 while (p != endp && *p != '}') p++; | |
1655 if (*p != '}') goto missingclose; | |
1656 s = p; | |
1657 } | |
1658 else | |
1659 { | |
1660 o = p; | |
1661 while (p != endp && (isalnum (*p) || *p == '_')) p++; | |
1662 s = p; | |
1663 } | |
1664 | |
1665 /* Copy out the variable name */ | |
1666 target = (unsigned char *) alloca (s - o + 1); | |
1667 strncpy (target, o, s - o); | |
1668 target[s - o] = 0; | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1669 #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
|
1670 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
|
1671 #endif /* DOS_NT */ |
230 | 1672 |
1673 /* Get variable value */ | |
1674 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
|
1675 if (o) |
102714
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1676 { |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1677 /* Don't try to guess a maximum length - UTF8 can use up to |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1678 four bytes per character. This code is unlikely to run |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1679 in a situation that requires performance, so decoding the |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1680 env variables twice should be acceptable. Note that |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1681 decoding may cause a garbage collect. */ |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1682 Lisp_Object orig, decoded; |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1683 orig = make_unibyte_string (o, strlen (o)); |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1684 decoded = DECODE_FILE (orig); |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1685 total += SBYTES (decoded); |
41595
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
1686 substituted = 1; |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
1687 } |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
1688 else if (*p == '}') |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
1689 goto badvar; |
230 | 1690 } |
1691 | |
1692 if (!substituted) | |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1693 return filename; |
230 | 1694 |
1695 /* If substitution required, recopy the string and do it */ | |
1696 /* 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
|
1697 xnm = (unsigned char *) alloca (SBYTES (filename) + total + 1); |
230 | 1698 x = xnm; |
1699 | |
1700 /* Copy the rest of the name through, replacing $ constructs with values */ | |
1701 for (p = nm; *p;) | |
1702 if (*p != '$') | |
1703 *x++ = *p++; | |
1704 else | |
1705 { | |
1706 p++; | |
1707 if (p == endp) | |
1708 goto badsubst; | |
1709 else if (*p == '$') | |
1710 { | |
1711 *x++ = *p++; | |
1712 continue; | |
1713 } | |
1714 else if (*p == '{') | |
1715 { | |
1716 o = ++p; | |
1717 while (p != endp && *p != '}') p++; | |
1718 if (*p != '}') goto missingclose; | |
1719 s = p++; | |
1720 } | |
1721 else | |
1722 { | |
1723 o = p; | |
1724 while (p != endp && (isalnum (*p) || *p == '_')) p++; | |
1725 s = p; | |
1726 } | |
1727 | |
1728 /* Copy out the variable name */ | |
1729 target = (unsigned char *) alloca (s - o + 1); | |
1730 strncpy (target, o, s - o); | |
1731 target[s - o] = 0; | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1732 #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
|
1733 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
|
1734 #endif /* DOS_NT */ |
230 | 1735 |
1736 /* Get variable value */ | |
1737 o = (unsigned char *) egetenv (target); | |
1738 if (!o) | |
41595
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
1739 { |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
1740 *x++ = '$'; |
3a10e73aa1c1
(Ffind_file_name_handler): Give precedence to handlers
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41288
diff
changeset
|
1741 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
|
1742 } |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
1743 else |
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
1744 { |
102714
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1745 Lisp_Object orig, decoded; |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1746 int orig_length, decoded_length; |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1747 orig_length = strlen (o); |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1748 orig = make_unibyte_string (o, orig_length); |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1749 decoded = DECODE_FILE (orig); |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1750 decoded_length = SBYTES (decoded); |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1751 strncpy (x, SDATA (decoded), decoded_length); |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1752 x += decoded_length; |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1753 |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1754 /* If environment variable needed decoding, return value |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1755 needs to be multibyte. */ |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1756 if (decoded_length != orig_length |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1757 || strncmp (SDATA (decoded), o, orig_length)) |
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1758 multibyte = 1; |
20621
ee017970042d
(Fdo_auto_save): Save and restore multibyteness of minibuffer.
Richard M. Stallman <rms@gnu.org>
parents:
20560
diff
changeset
|
1759 } |
230 | 1760 } |
1761 | |
1762 *x = 0; | |
1763 | |
19754
380cbf03df01
(Fexpand_file_name): If default dir isn't string, use `/'.
Richard M. Stallman <rms@gnu.org>
parents:
19695
diff
changeset
|
1764 /* 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
|
1765 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
|
1766 /* 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
|
1767 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
|
1768 need to quote some $ to $$ first. */ |
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
1769 xnm = p; |
230 | 1770 |
102714
f6d9599ddae1
(Fsubstitute_in_file_name): Always work on a copy.
Jason Rumney <jasonr@gnu.org>
parents:
102653
diff
changeset
|
1771 return make_specified_string (xnm, -1, x - xnm, multibyte); |
230 | 1772 |
1773 badsubst: | |
1774 error ("Bad format environment-variable substitution"); | |
1775 missingclose: | |
1776 error ("Missing \"}\" in environment-variable substitution"); | |
1777 badvar: | |
1778 error ("Substituting nonexistent environment variable \"%s\"", target); | |
1779 | |
1780 /* NOTREACHED */ | |
31829
43566b0aec59
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31775
diff
changeset
|
1781 return Qnil; |
230 | 1782 } |
1783 | |
853 | 1784 /* 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
|
1785 (directory-file-name (expand-file-name FOO)). */ |
853 | 1786 |
230 | 1787 Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
1788 expand_and_dir_to_file (Lisp_Object filename, Lisp_Object defdir) |
230 | 1789 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1790 register Lisp_Object absname; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1791 |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1792 absname = Fexpand_file_name (filename, defdir); |
97142 | 1793 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1794 /* Remove final slash, if any (unless this is the root dir). |
230 | 1795 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
|
1796 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
|
1797 && 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
|
1798 && !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
|
1799 /* 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
|
1800 absname = Fdirectory_file_name (absname); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
1801 return absname; |
230 | 1802 } |
1803 | |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
1804 /* 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
|
1805 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
|
1806 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
|
1807 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
|
1808 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
|
1809 |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
1810 *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
|
1811 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
|
1812 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
|
1813 |
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
1814 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
|
1815 |
8846
6bf0ce964319
(barf_or_query_if_file_exists): Fix declaration.
Karl Heuer <kwzh@gnu.org>
parents:
8808
diff
changeset
|
1816 void |
109726
64732fa6188a
Use const char* instead of char*.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109668
diff
changeset
|
1817 barf_or_query_if_file_exists (Lisp_Object absname, const unsigned char *querystring, int interactive, struct stat *statptr, int quick) |
230 | 1818 { |
21949
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
1819 register Lisp_Object tem, encoded_filename; |
8597 | 1820 struct stat statbuf; |
230 | 1821 struct gcpro gcpro1; |
1822 | |
21949
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
1823 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
|
1824 |
8597 | 1825 /* stat is a good way to tell whether the file exists, |
1826 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
|
1827 if (lstat (SDATA (encoded_filename), &statbuf) >= 0) |
230 | 1828 { |
1829 if (! interactive) | |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
1830 xsignal2 (Qfile_already_exists, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
1831 build_string ("File already exists"), absname); |
230 | 1832 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
|
1833 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
|
1834 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
|
1835 if (quick) |
110314
405e3949f580
* lisp/subr.el (y-or-n-p): New function, moved from src/fns.c. Use read-key.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
109726
diff
changeset
|
1836 tem = call1 (intern ("y-or-n-p"), tem); |
21304
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
1837 else |
1c2b68b607c8
(barf_or_query_if_file_exists): New arg QUICK. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents:
21244
diff
changeset
|
1838 tem = do_yes_or_no_p (tem); |
230 | 1839 UNGCPRO; |
485 | 1840 if (NILP (tem)) |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
1841 xsignal2 (Qfile_already_exists, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
1842 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
|
1843 if (statptr) |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
1844 *statptr = statbuf; |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
1845 } |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
1846 else |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
1847 { |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
1848 if (statptr) |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
1849 statptr->st_mode = 0; |
230 | 1850 } |
1851 return; | |
1852 } | |
1853 | |
108011 | 1854 DEFUN ("copy-file", Fcopy_file, Scopy_file, 2, 6, |
60682
3f5458d947ec
(Fcopy_file, Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60574
diff
changeset
|
1855 "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
|
1856 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
|
1857 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
|
1858 |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
1859 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
|
1860 the input file. |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
1861 |
d876c40c06dd
* fileio.c (Fcopy_file): Delete argument MUSTBENEW. Incorporate
Chong Yidong <cyd@stupidchicken.com>
parents:
70578
diff
changeset
|
1862 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
|
1863 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
|
1864 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
|
1865 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
|
1866 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
|
1867 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
|
1868 existing file. |
61756
f53a54e241e5
(Fcopy_file): New arg MUSTBENEW.
Richard M. Stallman <rms@gnu.org>
parents:
61700
diff
changeset
|
1869 |
59671 | 1870 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
|
1871 last-modified time as the old one. (This works on only some systems.) |
61789 | 1872 |
1873 A prefix arg makes KEEP-TIME non-nil. | |
1874 | |
63773
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
1875 If PRESERVE-UID-GID is non-nil, we try to transfer the |
108011 | 1876 uid and gid of FILE to NEWNAME. |
1877 | |
108818
6515310887ec
* fileio.c (Fdelete_file): Pass TRASH arg to handler call.
Michael Albinus <michael.albinus@gmx.de>
parents:
108806
diff
changeset
|
1878 If PRESERVE-SELINUX-CONTEXT is non-nil and SELinux is enabled |
108011 | 1879 on the system, we copy the SELinux context of FILE to NEWNAME. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
1880 (Lisp_Object file, Lisp_Object newname, Lisp_Object ok_if_already_exists, Lisp_Object keep_time, Lisp_Object preserve_uid_gid, Lisp_Object preserve_selinux_context) |
230 | 1881 { |
1882 int ifd, ofd, n; | |
1883 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
|
1884 struct stat st, out_st; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
1885 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
1886 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
1887 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
|
1888 int input_file_statable_p; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
1889 Lisp_Object encoded_file, encoded_newname; |
108011 | 1890 #if HAVE_LIBSELINUX |
1891 security_context_t con; | |
1892 int fail, conlength = 0; | |
1893 #endif | |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
1894 |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
1895 encoded_file = encoded_newname = Qnil; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
1896 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
|
1897 CHECK_STRING (file); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
1898 CHECK_STRING (newname); |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
1899 |
39603
5d5957da979a
(Fcopy_file): If NEWNAME is a directory copy FILE there.
Gerd Moellmann <gerd@gnu.org>
parents:
39457
diff
changeset
|
1900 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
|
1901 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
|
1902 else |
5d5957da979a
(Fcopy_file): If NEWNAME is a directory copy FILE there.
Gerd Moellmann <gerd@gnu.org>
parents:
39457
diff
changeset
|
1903 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
|
1904 |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1905 file = Fexpand_file_name (file, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
1906 |
1105
80ad8d0704ba
(Ffile_name_directory, Ffile_name_nondirectory):
Richard M. Stallman <rms@gnu.org>
parents:
1071
diff
changeset
|
1907 /* 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
|
1908 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
|
1909 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
|
1910 /* 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
|
1911 if (NILP (handler)) |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
1912 handler = Ffind_file_name_handler (newname, Qcopy_file); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
1913 if (!NILP (handler)) |
108011 | 1914 RETURN_UNGCPRO (call7 (handler, Qcopy_file, file, newname, |
1915 ok_if_already_exists, keep_time, preserve_uid_gid, | |
1916 preserve_selinux_context)); | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
1917 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
1918 encoded_file = ENCODE_FILE (file); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
1919 encoded_newname = ENCODE_FILE (newname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
1920 |
485 | 1921 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
|
1922 || 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
|
1923 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
|
1924 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
|
1925 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
|
1926 out_st.st_mode = 0; |
230 | 1927 |
37292
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
1928 #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
|
1929 if (!CopyFile (SDATA (encoded_file), |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
1930 SDATA (encoded_newname), |
37292
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
1931 FALSE)) |
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
1932 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
|
1933 /* CopyFile retains the timestamp by default. */ |
8fbfb61ab3f4
(Fcopy_file) [WINDOWSNT]: Reverse logic for setting
Jason Rumney <jasonr@gnu.org>
parents:
49549
diff
changeset
|
1934 else if (NILP (keep_time)) |
37292
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
1935 { |
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
1936 EMACS_TIME now; |
43792
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
1937 DWORD attributes; |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
1938 char * filename; |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
1939 |
37292
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
1940 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
|
1941 filename = SDATA (encoded_newname); |
43792
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
1942 |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
1943 /* 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
|
1944 attributes = GetFileAttributes (filename); |
43799
b1abfedc2e1d
(Fcopy_file): Fix last change.
Jason Rumney <jasonr@gnu.org>
parents:
43792
diff
changeset
|
1945 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
|
1946 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
|
1947 { |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
1948 /* Restore original attributes. */ |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
1949 SetFileAttributes (filename, attributes); |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
1950 xsignal2 (Qfile_date_error, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
1951 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
|
1952 } |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
1953 /* Restore original attributes. */ |
8bb81d691271
(Fcopy_file) [WINDOWS_NT]: Ensure file is not
Jason Rumney <jasonr@gnu.org>
parents:
43680
diff
changeset
|
1954 SetFileAttributes (filename, attributes); |
37292
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
1955 } |
80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
Gerd Moellmann <gerd@gnu.org>
parents:
37063
diff
changeset
|
1956 #else /* not WINDOWSNT */ |
48725
279d729bd941
(Fcopy_file): Set immediate_quit around emacs_open call.
Richard M. Stallman <rms@gnu.org>
parents:
48652
diff
changeset
|
1957 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
|
1958 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
|
1959 immediate_quit = 0; |
279d729bd941
(Fcopy_file): Set immediate_quit around emacs_open call.
Richard M. Stallman <rms@gnu.org>
parents:
48652
diff
changeset
|
1960 |
230 | 1961 if (ifd < 0) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1962 report_file_error ("Opening input file", Fcons (file, Qnil)); |
230 | 1963 |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
1964 record_unwind_protect (close_file_unwind, make_number (ifd)); |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
1965 |
4879
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
1966 /* 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
|
1967 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
|
1968 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
|
1969 |
108011 | 1970 #if HAVE_LIBSELINUX |
1971 if (!NILP (preserve_selinux_context) && is_selinux_enabled ()) | |
1972 { | |
1973 conlength = fgetfilecon (ifd, &con); | |
1974 if (conlength == -1) | |
1975 report_file_error ("Doing fgetfilecon", Fcons (file, Qnil)); | |
1976 } | |
1977 #endif | |
1978 | |
13098
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
1979 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
|
1980 && 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
|
1981 { |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
1982 errno = 0; |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
1983 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
|
1984 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
|
1985 } |
e1d400bc526e
(barf_or_query_if_file_exists): New arg STATPTR. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
12985
diff
changeset
|
1986 |
4879
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
1987 #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
|
1988 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
|
1989 { |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
1990 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
|
1991 { |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
1992 #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
|
1993 /* 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
|
1994 errno = EISDIR; |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
1995 #endif /* EISDIR */ |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
1996 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
|
1997 } |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
1998 } |
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
1999 #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
|
2000 |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
2001 #ifdef MSDOS |
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
2002 /* 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
|
2003 ofd = emacs_open (SDATA (encoded_newname), |
61789 | 2004 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
|
2005 | (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
|
2006 S_IREAD | S_IWRITE); |
f53a54e241e5
(Fcopy_file): New arg MUSTBENEW.
Richard M. Stallman <rms@gnu.org>
parents:
61700
diff
changeset
|
2007 #else /* not MSDOS */ |
f53a54e241e5
(Fcopy_file): New arg MUSTBENEW.
Richard M. Stallman <rms@gnu.org>
parents:
61700
diff
changeset
|
2008 ofd = emacs_open (SDATA (encoded_newname), |
f53a54e241e5
(Fcopy_file): New arg MUSTBENEW.
Richard M. Stallman <rms@gnu.org>
parents:
61700
diff
changeset
|
2009 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
|
2010 | (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
|
2011 0666); |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
2012 #endif /* not MSDOS */ |
230 | 2013 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
|
2014 report_file_error ("Opening output file", Fcons (newname, Qnil)); |
230 | 2015 |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2016 record_unwind_protect (close_file_unwind, make_number (ofd)); |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2017 |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2018 immediate_quit = 1; |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2019 QUIT; |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
2020 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
|
2021 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
|
2022 report_file_error ("I/O error", Fcons (newname, Qnil)); |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2023 immediate_quit = 0; |
230 | 2024 |
63907
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2025 #ifndef MSDOS |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2026 /* 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
|
2027 owner and group. */ |
63773
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2028 if (input_file_statable_p) |
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2029 { |
63907
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2030 if (! NILP (preserve_uid_gid)) |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2031 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
|
2032 fchmod (ofd, st.st_mode & 07777); |
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2033 } |
63907
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2034 #endif /* not MSDOS */ |
63773
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2035 |
108011 | 2036 #if HAVE_LIBSELINUX |
2037 if (conlength > 0) | |
2038 { | |
2039 /* Set the modified context back to the file. */ | |
2040 fail = fsetfilecon (ofd, con); | |
2041 if (fail) | |
2042 report_file_error ("Doing fsetfilecon", Fcons (newname, Qnil)); | |
2043 | |
2044 freecon (con); | |
2045 } | |
2046 #endif | |
2047 | |
7493
f4fb8b913c5d
(Fcopy_file): Close output before setting its times.
Richard M. Stallman <rms@gnu.org>
parents:
7445
diff
changeset
|
2048 /* 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
|
2049 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
|
2050 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
|
2051 |
4879
1774c84aca2e
(Fcopy_file): Don't allow the copying of anything other than regular
Brian Fox <bfox@gnu.org>
parents:
4853
diff
changeset
|
2052 if (input_file_statable_p) |
230 | 2053 { |
34633
3a16306fdadf
(Fcopy_file): Rename the last argument to keep_time, to
Eli Zaretskii <eliz@gnu.org>
parents:
34176
diff
changeset
|
2054 if (!NILP (keep_time)) |
230 | 2055 { |
564 | 2056 EMACS_TIME atime, mtime; |
2057 EMACS_SET_SECS_USECS (atime, st.st_atime, 0); | |
2058 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
|
2059 if (set_file_times (SDATA (encoded_newname), |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2060 atime, mtime)) |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2061 xsignal2 (Qfile_date_error, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2062 build_string ("Cannot set file date"), newname); |
230 | 2063 } |
2064 } | |
2065 | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
2066 emacs_close (ifd); |
63907
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2067 |
107733
84b961690802
Remove support for DJGPP v1.x (bug#5813).
Eli Zaretskii <eliz@gnu.org>
parents:
107184
diff
changeset
|
2068 #ifdef MSDOS |
63907
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2069 if (input_file_statable_p) |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2070 { |
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2071 /* 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
|
2072 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
|
2073 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
|
2074 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
|
2075 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
|
2076 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
|
2077 } |
107733
84b961690802
Remove support for DJGPP v1.x (bug#5813).
Eli Zaretskii <eliz@gnu.org>
parents:
107184
diff
changeset
|
2078 #endif /* MSDOS */ |
63907
2e6177253f28
(Fcopy_file): Rearrange the code that calls fchown and
Eli Zaretskii <eliz@gnu.org>
parents:
63773
diff
changeset
|
2079 #endif /* not WINDOWSNT */ |
7493
f4fb8b913c5d
(Fcopy_file): Close output before setting its times.
Richard M. Stallman <rms@gnu.org>
parents:
7445
diff
changeset
|
2080 |
592
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2081 /* Discard the unwind protects. */ |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2082 specpdl_ptr = specpdl + count; |
e65af468dcc2
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
564
diff
changeset
|
2083 |
230 | 2084 UNGCPRO; |
2085 return Qnil; | |
2086 } | |
10084
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2087 |
1533
b86ef0432100
(Fmake_directory_internal): Renamed from Fmake_directory.
Richard M. Stallman <rms@gnu.org>
parents:
1377
diff
changeset
|
2088 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
|
2089 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
|
2090 doc: /* Create a new directory named DIRECTORY. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2091 (Lisp_Object directory) |
230 | 2092 { |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
2093 const unsigned char *dir; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2094 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2095 Lisp_Object encoded_dir; |
230 | 2096 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2097 CHECK_STRING (directory); |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2098 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
|
2099 |
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2100 handler = Ffind_file_name_handler (directory, Qmake_directory_internal); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2101 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2102 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
|
2103 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2104 encoded_dir = ENCODE_FILE (directory); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2105 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2106 dir = SDATA (encoded_dir); |
230 | 2107 |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2108 #ifdef WINDOWSNT |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2109 if (mkdir (dir) != 0) |
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2110 #else |
230 | 2111 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
|
2112 #endif |
72530
dc615ff0529f
(Fmake_directory_internal, Fdelete_directory)
Kim F. Storm <storm@cua.dk>
parents:
72405
diff
changeset
|
2113 report_file_error ("Creating directory", list1 (directory)); |
230 | 2114 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2115 return Qnil; |
230 | 2116 } |
2117 | |
105348
1aa50e5c7523
* fileio.c (Fdelete_directory_internal): Renamed from
Michael Albinus <michael.albinus@gmx.de>
parents:
104015
diff
changeset
|
2118 DEFUN ("delete-directory-internal", Fdelete_directory_internal, |
1aa50e5c7523
* fileio.c (Fdelete_directory_internal): Renamed from
Michael Albinus <michael.albinus@gmx.de>
parents:
104015
diff
changeset
|
2119 Sdelete_directory_internal, 1, 1, 0, |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2120 doc: /* Delete the directory named DIRECTORY. Does not follow symlinks. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2121 (Lisp_Object directory) |
230 | 2122 { |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
2123 const unsigned char *dir; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2124 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2125 Lisp_Object encoded_dir; |
230 | 2126 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2127 CHECK_STRING (directory); |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2128 directory = Fdirectory_file_name (Fexpand_file_name (directory, Qnil)); |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2129 encoded_dir = ENCODE_FILE (directory); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2130 dir = SDATA (encoded_dir); |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2131 |
230 | 2132 if (rmdir (dir) != 0) |
72530
dc615ff0529f
(Fmake_directory_internal, Fdelete_directory)
Kim F. Storm <storm@cua.dk>
parents:
72405
diff
changeset
|
2133 report_file_error ("Removing directory", list1 (directory)); |
230 | 2134 |
2135 return Qnil; | |
2136 } | |
2137 | |
108723
0f1244b4539c
* fileio.c (Fdelete_file): Change interative spec to use
Juri Linkov <juri@jurta.org>
parents:
108375
diff
changeset
|
2138 DEFUN ("delete-file", Fdelete_file, Sdelete_file, 1, 2, |
108806
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2139 "(list (read-file-name \ |
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2140 (if (and delete-by-moving-to-trash (null current-prefix-arg)) \ |
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2141 \"Move file to trash: \" \"Delete file: \") \ |
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2142 nil default-directory (confirm-nonexistent-file-or-buffer)) \ |
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2143 (null current-prefix-arg))", |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2144 doc: /* Delete file named FILENAME. If it is a symlink, remove the symlink. |
108223
261591829d04
Add optional arg to delete-file to force deletion (Bug#6070).
Chong Yidong <cyd@stupidchicken.com>
parents:
108184
diff
changeset
|
2145 If file has multiple names, it continues to exist with the other names. |
108806
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2146 TRASH non-nil means to trash the file instead of deleting, provided |
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2147 `delete-by-moving-to-trash' is non-nil. |
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2148 |
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2149 When called interactively, TRASH is t if no prefix argument is given. |
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2150 With a prefix argument, TRASH is nil. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2151 (Lisp_Object filename, Lisp_Object trash) |
230 | 2152 { |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2153 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2154 Lisp_Object encoded_file; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2155 struct gcpro gcpro1; |
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2156 |
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2157 GCPRO1 (filename); |
51022
66b3b1b70da3
(Fdelete_file): Handle symlinks pointing to directories.
Richard M. Stallman <rms@gnu.org>
parents:
50886
diff
changeset
|
2158 if (!NILP (Ffile_directory_p (filename)) |
66b3b1b70da3
(Fdelete_file): Handle symlinks pointing to directories.
Richard M. Stallman <rms@gnu.org>
parents:
50886
diff
changeset
|
2159 && NILP (Ffile_symlink_p (filename))) |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2160 xsignal2 (Qfile_error, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2161 build_string ("Removing old name: is a directory"), |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
2162 filename); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2163 UNGCPRO; |
230 | 2164 filename = Fexpand_file_name (filename, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2165 |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
2166 handler = Ffind_file_name_handler (filename, Qdelete_file); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2167 if (!NILP (handler)) |
108818
6515310887ec
* fileio.c (Fdelete_file): Pass TRASH arg to handler call.
Michael Albinus <michael.albinus@gmx.de>
parents:
108806
diff
changeset
|
2168 return call3 (handler, Qdelete_file, filename, trash); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2169 |
108806
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2170 if (delete_by_moving_to_trash && !NILP (trash)) |
96489
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
2171 return call1 (Qmove_file_to_trash, filename); |
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
2172 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2173 encoded_file = ENCODE_FILE (filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2174 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2175 if (0 > unlink (SDATA (encoded_file))) |
72530
dc615ff0529f
(Fmake_directory_internal, Fdelete_directory)
Kim F. Storm <storm@cua.dk>
parents:
72405
diff
changeset
|
2176 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
|
2177 return Qnil; |
230 | 2178 } |
2179 | |
10084
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2180 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
2181 internal_delete_file_1 (Lisp_Object ignore) |
10084
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2182 { |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2183 return Qt; |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2184 } |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2185 |
108223
261591829d04
Add optional arg to delete-file to force deletion (Bug#6070).
Chong Yidong <cyd@stupidchicken.com>
parents:
108184
diff
changeset
|
2186 /* Delete file FILENAME, returning 1 if successful and 0 if failed. |
108806
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2187 This ignores `delete-by-moving-to-trash'. */ |
10084
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2188 |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2189 int |
108806
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2190 internal_delete_file (Lisp_Object filename) |
10084
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2191 { |
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
|
2192 Lisp_Object tem; |
108223
261591829d04
Add optional arg to delete-file to force deletion (Bug#6070).
Chong Yidong <cyd@stupidchicken.com>
parents:
108184
diff
changeset
|
2193 |
108806
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2194 tem = internal_condition_case_2 (Fdelete_file, filename, Qnil, |
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
|
2195 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
|
2196 return NILP (tem); |
10084
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2197 } |
e930bf84753c
(internal_delete_file, internal_delete_file_1): New functions.
Richard M. Stallman <rms@gnu.org>
parents:
9962
diff
changeset
|
2198 |
230 | 2199 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
|
2200 "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
|
2201 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
|
2202 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
|
2203 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
|
2204 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
|
2205 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
|
2206 This is what happens in interactive use with M-x. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2207 (Lisp_Object file, Lisp_Object newname, Lisp_Object ok_if_already_exists) |
230 | 2208 { |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2209 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
|
2210 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
|
2211 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
|
2212 |
1d5e786cd260
* fileio.c (barf_or_query_if_file_exists): Use lstat.
Jan Djärv <jan.h.d@swipnet.se>
parents:
55194
diff
changeset
|
2213 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
|
2214 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
|
2215 CHECK_STRING (file); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2216 CHECK_STRING (newname); |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2217 file = Fexpand_file_name (file, Qnil); |
60572
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2218 |
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
|
2219 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
|
2220 #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
|
2221 /* 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
|
2222 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
|
2223 && (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
|
2224 #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
|
2225 ) |
106994
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
2226 { |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
2227 Lisp_Object fname = NILP (Ffile_directory_p (file)) |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
2228 ? file : Fdirectory_file_name (file); |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
2229 newname = Fexpand_file_name (Ffile_name_nondirectory (fname), newname); |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
2230 } |
60572
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2231 else |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2232 newname = Fexpand_file_name (newname, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2233 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2234 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2235 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
|
2236 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
|
2237 if (NILP (handler)) |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
2238 handler = Ffind_file_name_handler (newname, Qrename_file); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2239 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
|
2240 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
|
2241 file, newname, ok_if_already_exists)); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2242 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2243 encoded_file = ENCODE_FILE (file); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2244 encoded_newname = ENCODE_FILE (newname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2245 |
30376
a931186f35fa
(syms_of_coding): Doc fix for inhibit-iso-escape-detection.
Eli Zaretskii <eliz@gnu.org>
parents:
29813
diff
changeset
|
2246 #ifdef DOS_NT |
a931186f35fa
(syms_of_coding): Doc fix for inhibit-iso-escape-detection.
Eli Zaretskii <eliz@gnu.org>
parents:
29813
diff
changeset
|
2247 /* 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
|
2248 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
|
2249 file name. */ |
a931186f35fa
(syms_of_coding): Doc fix for inhibit-iso-escape-detection.
Eli Zaretskii <eliz@gnu.org>
parents:
29813
diff
changeset
|
2250 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
|
2251 #endif |
485 | 2252 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
|
2253 || 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
|
2254 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
|
2255 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
|
2256 if (0 > rename (SDATA (encoded_file), SDATA (encoded_newname))) |
230 | 2257 { |
2258 if (errno == EXDEV) | |
2259 { | |
98276
75edb944833f
(Frename_file): Avoid copying to trash if a rename involves a delete. (Bug#964).
Glenn Morris <rgm@gnu.org>
parents:
98168
diff
changeset
|
2260 int count; |
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
|
2261 #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
|
2262 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
|
2263 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
|
2264 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
|
2265 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
|
2266 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
|
2267 #endif |
107037
6e7738cc419f
* fileio.c (Frename_file): Fix last change (Bug#5487).
Chong Yidong <cyd@stupidchicken.com>
parents:
106994
diff
changeset
|
2268 if (!NILP (Ffile_directory_p (file))) |
106994
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
2269 call4 (Qcopy_directory, file, newname, Qt, Qnil); |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
2270 else |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
2271 /* We have already prompted if it was an integer, so don't |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
2272 have copy-file prompt again. */ |
63773
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2273 Fcopy_file (file, newname, |
acc7aebbc70e
(Fcopy_file): New arg PRESERVE_UID_GID.
Richard M. Stallman <rms@gnu.org>
parents:
63745
diff
changeset
|
2274 NILP (ok_if_already_exists) ? Qnil : Qt, |
108011 | 2275 Qt, Qt, Qt); |
63719
c3da886cec72
(Frename_file): Preserve owner and group, if possible.
Richard M. Stallman <rms@gnu.org>
parents:
62937
diff
changeset
|
2276 |
98276
75edb944833f
(Frename_file): Avoid copying to trash if a rename involves a delete. (Bug#964).
Glenn Morris <rgm@gnu.org>
parents:
98168
diff
changeset
|
2277 count = SPECPDL_INDEX (); |
98284
29ea4287708c
(Qdelete_by_moving_to_trash): New Lisp_Object.
Glenn Morris <rgm@gnu.org>
parents:
98276
diff
changeset
|
2278 specbind (Qdelete_by_moving_to_trash, Qnil); |
107060
56607edb3cea
* fileio.c (Frename_file): Correctly rename symlinks to directories (Bug#5496).
Chong Yidong <cyd@stupidchicken.com>
parents:
107037
diff
changeset
|
2279 |
56607edb3cea
* fileio.c (Frename_file): Correctly rename symlinks to directories (Bug#5496).
Chong Yidong <cyd@stupidchicken.com>
parents:
107037
diff
changeset
|
2280 if (!NILP (Ffile_directory_p (file)) |
56607edb3cea
* fileio.c (Frename_file): Correctly rename symlinks to directories (Bug#5496).
Chong Yidong <cyd@stupidchicken.com>
parents:
107037
diff
changeset
|
2281 #ifdef S_IFLNK |
56607edb3cea
* fileio.c (Frename_file): Correctly rename symlinks to directories (Bug#5496).
Chong Yidong <cyd@stupidchicken.com>
parents:
107037
diff
changeset
|
2282 && NILP (symlink_target) |
56607edb3cea
* fileio.c (Frename_file): Correctly rename symlinks to directories (Bug#5496).
Chong Yidong <cyd@stupidchicken.com>
parents:
107037
diff
changeset
|
2283 #endif |
56607edb3cea
* fileio.c (Frename_file): Correctly rename symlinks to directories (Bug#5496).
Chong Yidong <cyd@stupidchicken.com>
parents:
107037
diff
changeset
|
2284 ) |
106994
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
2285 call2 (Qdelete_directory, file, Qt); |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
2286 else |
108806
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
2287 Fdelete_file (file, Qnil); |
98276
75edb944833f
(Frename_file): Avoid copying to trash if a rename involves a delete. (Bug#964).
Glenn Morris <rgm@gnu.org>
parents:
98168
diff
changeset
|
2288 unbind_to (count, Qnil); |
230 | 2289 } |
2290 else | |
72530
dc615ff0529f
(Fmake_directory_internal, Fdelete_directory)
Kim F. Storm <storm@cua.dk>
parents:
72405
diff
changeset
|
2291 report_file_error ("Renaming", list2 (file, newname)); |
230 | 2292 } |
2293 UNGCPRO; | |
2294 return Qnil; | |
2295 } | |
2296 | |
2297 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
|
2298 "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
|
2299 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
|
2300 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
|
2301 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
|
2302 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
|
2303 This is what happens in interactive use with M-x. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2304 (Lisp_Object file, Lisp_Object newname, Lisp_Object ok_if_already_exists) |
230 | 2305 { |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2306 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2307 Lisp_Object encoded_file, encoded_newname; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2308 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2309 |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2310 GCPRO4 (file, newname, encoded_file, encoded_newname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2311 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
|
2312 CHECK_STRING (file); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2313 CHECK_STRING (newname); |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2314 file = Fexpand_file_name (file, Qnil); |
60572
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2315 |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2316 if (!NILP (Ffile_directory_p (newname))) |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2317 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
|
2318 else |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2319 newname = Fexpand_file_name (newname, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2320 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2321 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2322 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
|
2323 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
|
2324 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2325 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
|
2326 newname, ok_if_already_exists)); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2327 |
12985
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2328 /* 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
|
2329 call the corresponding file handler. */ |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2330 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
|
2331 if (!NILP (handler)) |
14074
f15db8536fdd
(Ffile_name_directory, Ffile_name_nondirectory, Ffile_name_as_directory,
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
2332 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
|
2333 newname, ok_if_already_exists)); |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2334 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2335 encoded_file = ENCODE_FILE (file); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2336 encoded_newname = ENCODE_FILE (newname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2337 |
485 | 2338 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
|
2339 || 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
|
2340 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
|
2341 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
|
2342 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2343 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
|
2344 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
|
2345 report_file_error ("Adding new name", list2 (file, newname)); |
230 | 2346 |
2347 UNGCPRO; | |
2348 return Qnil; | |
2349 } | |
2350 | |
2351 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
|
2352 "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
|
2353 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
|
2354 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
|
2355 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
|
2356 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
|
2357 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
|
2358 This happens for interactive use with M-x. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2359 (Lisp_Object filename, Lisp_Object linkname, Lisp_Object ok_if_already_exists) |
230 | 2360 { |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2361 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2362 Lisp_Object encoded_filename, encoded_linkname; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2363 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2364 |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2365 GCPRO4 (filename, linkname, encoded_filename, encoded_linkname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2366 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
|
2367 CHECK_STRING (filename); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2368 CHECK_STRING (linkname); |
5245
4a9b93b0eac3
(Fmake_symbolic_link): Do expand FILENAME if starts with ~.
Richard M. Stallman <rms@gnu.org>
parents:
5129
diff
changeset
|
2369 /* 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
|
2370 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
|
2371 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
|
2372 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
|
2373 filename = Fexpand_file_name (filename, Qnil); |
60572
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2374 |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2375 if (!NILP (Ffile_directory_p (linkname))) |
60574
f5607c3ce8fd
(Fmake_symbolic_link): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60572
diff
changeset
|
2376 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
|
2377 else |
d19eab3028e2
(Frename_file, Fadd_name_to_file)
Richard M. Stallman <rms@gnu.org>
parents:
60563
diff
changeset
|
2378 linkname = Fexpand_file_name (linkname, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2379 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2380 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2381 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
|
2382 handler = Ffind_file_name_handler (filename, Qmake_symbolic_link); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2383 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
|
2384 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
|
2385 linkname, ok_if_already_exists)); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2386 |
12985
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2387 /* 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
|
2388 call the corresponding file handler. */ |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2389 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
|
2390 if (!NILP (handler)) |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2391 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
|
2392 linkname, ok_if_already_exists)); |
3adacdaa1d3f
(Fmake_symbolic_link, Fadd_name_to_file):
Richard M. Stallman <rms@gnu.org>
parents:
12853
diff
changeset
|
2393 |
80488
df2738e4f7ad
* fileio.c (Fmake_symbolic_link): Surround code by #ifdef S_IFLNK
Michael Albinus <michael.albinus@gmx.de>
parents:
80405
diff
changeset
|
2394 #ifdef S_IFLNK |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2395 encoded_filename = ENCODE_FILE (filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2396 encoded_linkname = ENCODE_FILE (linkname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2397 |
485 | 2398 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
|
2399 || 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
|
2400 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
|
2401 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
|
2402 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
|
2403 SDATA (encoded_linkname))) |
230 | 2404 { |
2405 /* If we didn't complain already, silently delete existing file. */ | |
2406 if (errno == EEXIST) | |
2407 { | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2408 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
|
2409 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
|
2410 SDATA (encoded_linkname))) |
8602
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
2411 { |
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
2412 UNGCPRO; |
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
2413 return Qnil; |
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
2414 } |
230 | 2415 } |
2416 | |
72530
dc615ff0529f
(Fmake_directory_internal, Fdelete_directory)
Kim F. Storm <storm@cua.dk>
parents:
72405
diff
changeset
|
2417 report_file_error ("Making symbolic link", list2 (filename, linkname)); |
230 | 2418 } |
2419 UNGCPRO; | |
2420 return Qnil; | |
80488
df2738e4f7ad
* fileio.c (Fmake_symbolic_link): Surround code by #ifdef S_IFLNK
Michael Albinus <michael.albinus@gmx.de>
parents:
80405
diff
changeset
|
2421 |
df2738e4f7ad
* fileio.c (Fmake_symbolic_link): Surround code by #ifdef S_IFLNK
Michael Albinus <michael.albinus@gmx.de>
parents:
80405
diff
changeset
|
2422 #else |
df2738e4f7ad
* fileio.c (Fmake_symbolic_link): Surround code by #ifdef S_IFLNK
Michael Albinus <michael.albinus@gmx.de>
parents:
80405
diff
changeset
|
2423 UNGCPRO; |
df2738e4f7ad
* fileio.c (Fmake_symbolic_link): Surround code by #ifdef S_IFLNK
Michael Albinus <michael.albinus@gmx.de>
parents:
80405
diff
changeset
|
2424 xsignal1 (Qfile_error, build_string ("Symbolic links are not supported")); |
df2738e4f7ad
* fileio.c (Fmake_symbolic_link): Surround code by #ifdef S_IFLNK
Michael Albinus <michael.albinus@gmx.de>
parents:
80405
diff
changeset
|
2425 |
df2738e4f7ad
* fileio.c (Fmake_symbolic_link): Surround code by #ifdef S_IFLNK
Michael Albinus <michael.albinus@gmx.de>
parents:
80405
diff
changeset
|
2426 #endif /* S_IFLNK */ |
230 | 2427 } |
2428 | |
2429 | |
2430 DEFUN ("file-name-absolute-p", Ffile_name_absolute_p, Sfile_name_absolute_p, | |
2431 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
|
2432 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
|
2433 On Unix, this is a name starting with a `/' or a `~'. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2434 (Lisp_Object filename) |
230 | 2435 { |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2436 CHECK_STRING (filename); |
61060
dda21af85684
(Fexpand_file_name): Use IS_DEVICE_SEP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60682
diff
changeset
|
2437 return file_name_absolute_p (SDATA (filename)) ? Qt : Qnil; |
230 | 2438 } |
9078
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2439 |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2440 /* 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
|
2441 |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2442 static int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
2443 check_executable (char *filename) |
9078
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2444 { |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2445 #ifdef DOS_NT |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2446 int len = strlen (filename); |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2447 char *suffix; |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2448 struct stat st; |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2449 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
|
2450 return 0; |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2451 return ((st.st_mode & S_IEXEC) != 0); |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2452 #else /* not DOS_NT */ |
15533
a749d414efbb
(check_executable): Use euidaccess, not eaccess.
Richard M. Stallman <rms@gnu.org>
parents:
15427
diff
changeset
|
2453 #ifdef HAVE_EUIDACCESS |
a749d414efbb
(check_executable): Use euidaccess, not eaccess.
Richard M. Stallman <rms@gnu.org>
parents:
15427
diff
changeset
|
2454 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
|
2455 #else |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2456 /* 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
|
2457 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
|
2458 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
|
2459 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
|
2460 #endif |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2461 #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
|
2462 } |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2463 |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2464 /* 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
|
2465 |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2466 static int |
109726
64732fa6188a
Use const char* instead of char*.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109668
diff
changeset
|
2467 check_writable (const char *filename) |
9078
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2468 { |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2469 #ifdef MSDOS |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2470 struct stat st; |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2471 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
|
2472 return 0; |
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2473 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
|
2474 #else /* not MSDOS */ |
15738
4ccf88623c95
(check_writable): Use euidaccess, not eaccess.
Karl Heuer <kwzh@gnu.org>
parents:
15625
diff
changeset
|
2475 #ifdef HAVE_EUIDACCESS |
4ccf88623c95
(check_writable): Use euidaccess, not eaccess.
Karl Heuer <kwzh@gnu.org>
parents:
15625
diff
changeset
|
2476 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
|
2477 #else |
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2478 /* 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
|
2479 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
|
2480 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
|
2481 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
|
2482 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
|
2483 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
|
2484 #endif |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
2485 #endif /* not MSDOS */ |
9078
283534a85f5a
(Ffile_writable_p): Use stat to test for existence.
Richard M. Stallman <rms@gnu.org>
parents:
8885
diff
changeset
|
2486 } |
230 | 2487 |
2488 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
|
2489 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
|
2490 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
|
2491 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
|
2492 Use `file-symlink-p' to test for such links. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2493 (Lisp_Object filename) |
230 | 2494 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2495 Lisp_Object absname; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2496 Lisp_Object handler; |
8597 | 2497 struct stat statbuf; |
230 | 2498 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2499 CHECK_STRING (filename); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2500 absname = Fexpand_file_name (filename, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2501 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2502 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2503 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
|
2504 handler = Ffind_file_name_handler (absname, Qfile_exists_p); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2505 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2506 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
|
2507 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2508 absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2509 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2510 return (stat (SDATA (absname), &statbuf) >= 0) ? Qt : Qnil; |
230 | 2511 } |
2512 | |
2513 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
|
2514 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
|
2515 For a directory, this means you can access files in that directory. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2516 (Lisp_Object filename) |
230 | 2517 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2518 Lisp_Object absname; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2519 Lisp_Object handler; |
230 | 2520 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2521 CHECK_STRING (filename); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2522 absname = Fexpand_file_name (filename, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2523 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2524 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2525 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
|
2526 handler = Ffind_file_name_handler (absname, Qfile_executable_p); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2527 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2528 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
|
2529 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2530 absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2531 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2532 return (check_executable (SDATA (absname)) ? Qt : Qnil); |
230 | 2533 } |
2534 | |
2535 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
|
2536 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
|
2537 See also `file-exists-p' and `file-attributes'. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2538 (Lisp_Object filename) |
230 | 2539 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2540 Lisp_Object absname; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2541 Lisp_Object handler; |
8597 | 2542 int desc; |
16534
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
2543 int flags; |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
2544 struct stat statbuf; |
230 | 2545 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2546 CHECK_STRING (filename); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2547 absname = Fexpand_file_name (filename, Qnil); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2548 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2549 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2550 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
|
2551 handler = Ffind_file_name_handler (absname, Qfile_readable_p); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2552 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2553 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
|
2554 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2555 absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2556 |
38929
ffa8f910b5f1
2001-08-24 Andrew Choi <akochoi@cse.cuhk.edu.hk>
Andrew Choi <akochoi@shaw.ca>
parents:
38924
diff
changeset
|
2557 #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
|
2558 /* 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
|
2559 directories. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2560 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
|
2561 return Qt; |
31e37f3d8ccd
(Ffile_readable_p) [MSDOS]: Use access rather than open.
Richard M. Stallman <rms@gnu.org>
parents:
13769
diff
changeset
|
2562 return Qnil; |
38929
ffa8f910b5f1
2001-08-24 Andrew Choi <akochoi@cse.cuhk.edu.hk>
Andrew Choi <akochoi@shaw.ca>
parents:
38924
diff
changeset
|
2563 #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
|
2564 flags = O_RDONLY; |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
2565 #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
|
2566 /* 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
|
2567 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
|
2568 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
|
2569 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
|
2570 if (desc < 0) |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
2571 return Qnil; |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
2572 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
|
2573 flags |= O_NONBLOCK; |
21aae8d73ddd
(USG5 or BSD_SYSTEM or LINUX): Include fcntl.h.
Richard M. Stallman <rms@gnu.org>
parents:
16474
diff
changeset
|
2574 #endif |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2575 desc = emacs_open (SDATA (absname), flags, 0); |
8597 | 2576 if (desc < 0) |
2577 return Qnil; | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
2578 emacs_close (desc); |
8597 | 2579 return Qt; |
38929
ffa8f910b5f1
2001-08-24 Andrew Choi <akochoi@cse.cuhk.edu.hk>
Andrew Choi <akochoi@shaw.ca>
parents:
38924
diff
changeset
|
2580 #endif /* not DOS_NT and not macintosh */ |
230 | 2581 } |
2582 | |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2583 /* 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
|
2584 on the RT/PC. */ |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2585 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
|
2586 doc: /* Return t if file FILENAME can be written or created by you. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2587 (Lisp_Object filename) |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2588 { |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2589 Lisp_Object absname, dir, encoded; |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2590 Lisp_Object handler; |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2591 struct stat statbuf; |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2592 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2593 CHECK_STRING (filename); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2594 absname = Fexpand_file_name (filename, Qnil); |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2595 |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2596 /* 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
|
2597 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
|
2598 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
|
2599 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2600 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
|
2601 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2602 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
|
2603 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
|
2604 return (check_writable (SDATA (encoded)) |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2605 ? Qt : Qnil); |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2606 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2607 dir = Ffile_name_directory (absname); |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2608 #ifdef MSDOS |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2609 if (!NILP (dir)) |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2610 dir = Fdirectory_file_name (dir); |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2611 #endif /* MSDOS */ |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2612 |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2613 dir = ENCODE_FILE (dir); |
28673
55c84ae4d634
(Ffile_writable_p) [WINDOWSNT]: Return nil if parent
Gerd Moellmann <gerd@gnu.org>
parents:
28561
diff
changeset
|
2614 #ifdef WINDOWSNT |
55c84ae4d634
(Ffile_writable_p) [WINDOWSNT]: Return nil if parent
Gerd Moellmann <gerd@gnu.org>
parents:
28561
diff
changeset
|
2615 /* 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
|
2616 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
|
2617 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
|
2618 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
|
2619 return Qnil; |
55c84ae4d634
(Ffile_writable_p) [WINDOWSNT]: Return nil if parent
Gerd Moellmann <gerd@gnu.org>
parents:
28561
diff
changeset
|
2620 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
|
2621 #else |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2622 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
|
2623 ? Qt : Qnil); |
28673
55c84ae4d634
(Ffile_writable_p) [WINDOWSNT]: Return nil if parent
Gerd Moellmann <gerd@gnu.org>
parents:
28561
diff
changeset
|
2624 #endif |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2625 } |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2626 |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
2627 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
|
2628 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
|
2629 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
|
2630 If there is no error, returns nil. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2631 (Lisp_Object filename, Lisp_Object string) |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
2632 { |
40354
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
2633 Lisp_Object handler, encoded_filename, absname; |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
2634 int fd; |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
2635 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2636 CHECK_STRING (filename); |
40354
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
2637 absname = Fexpand_file_name (filename, Qnil); |
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
2638 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2639 CHECK_STRING (string); |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
2640 |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
2641 /* If the file name has special constructs in it, |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
2642 call the corresponding file handler. */ |
40354
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
2643 handler = Ffind_file_name_handler (absname, Qaccess_file); |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
2644 if (!NILP (handler)) |
40354
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
2645 return call3 (handler, Qaccess_file, absname, string); |
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
2646 |
3f7dedbea4ea
(Faccess_file): Run the argument filename through
Eli Zaretskii <eliz@gnu.org>
parents:
40306
diff
changeset
|
2647 encoded_filename = ENCODE_FILE (absname); |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2648 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2649 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
|
2650 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
|
2651 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
|
2652 emacs_close (fd); |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
2653 |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
2654 return Qnil; |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
2655 } |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
2656 |
230 | 2657 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
|
2658 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
|
2659 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
|
2660 Otherwise it returns nil. |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
2661 |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
2662 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
|
2663 points to a nonexistent file. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2664 (Lisp_Object filename) |
230 | 2665 { |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2666 Lisp_Object handler; |
230 | 2667 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
2668 CHECK_STRING (filename); |
230 | 2669 filename = Fexpand_file_name (filename, Qnil); |
2670 | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2671 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2672 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
|
2673 handler = Ffind_file_name_handler (filename, Qfile_symlink_p); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2674 if (!NILP (handler)) |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2675 return call2 (handler, Qfile_symlink_p, filename); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2676 |
50886
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
2677 #ifdef S_IFLNK |
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
2678 { |
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
2679 char *buf; |
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
2680 int bufsize; |
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
2681 int valsize; |
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
2682 Lisp_Object val; |
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
2683 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2684 filename = ENCODE_FILE (filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2685 |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
2686 bufsize = 50; |
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
2687 buf = NULL; |
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
2688 do |
230 | 2689 { |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
2690 bufsize *= 2; |
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
2691 buf = (char *) xrealloc (buf, bufsize); |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109139
diff
changeset
|
2692 memset (buf, 0, bufsize); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2693 |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
2694 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
|
2695 valsize = readlink (SDATA (filename), buf, bufsize); |
39291
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
2696 if (valsize == -1) |
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
2697 { |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
2698 #ifdef ERANGE |
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
2699 /* 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
|
2700 if (errno == ERANGE) |
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
2701 valsize = bufsize; |
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
2702 else |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
2703 #endif |
39291
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
2704 { |
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
2705 xfree (buf); |
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
2706 return Qnil; |
f9c8c910fe9a
(Ffile_symlink_p): Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents:
39281
diff
changeset
|
2707 } |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
2708 } |
230 | 2709 } |
39281
269a01a4ee76
(Ffile_symlink_p): If readlink returns ERANGE, take
Gerd Moellmann <gerd@gnu.org>
parents:
39023
diff
changeset
|
2710 while (valsize >= bufsize); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
2711 |
230 | 2712 val = make_string (buf, valsize); |
109315
8f3464b85afb
Use strchr, strrchr instead of index, rindex
Andreas Schwab <schwab@linux-m68k.org>
parents:
109179
diff
changeset
|
2713 if (buf[0] == '/' && strchr (buf, ':')) |
27870
a36c3e02f43b
(Ffile_symlink_p): If result starts with a `/'
Gerd Moellmann <gerd@gnu.org>
parents:
27789
diff
changeset
|
2714 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
|
2715 xfree (buf); |
21048
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
2716 val = DECODE_FILE (val); |
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
2717 return val; |
50886
85431fbc6ac5
(Ffile_symlink_p): Let handlers handle symlinks even
Jason Rumney <jasonr@gnu.org>
parents:
50829
diff
changeset
|
2718 } |
230 | 2719 #else /* not S_IFLNK */ |
2720 return Qnil; | |
2721 #endif /* not S_IFLNK */ | |
2722 } | |
2723 | |
2724 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
|
2725 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
|
2726 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
|
2727 See `file-symlink-p' to distinguish symlinks. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2728 (Lisp_Object filename) |
230 | 2729 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2730 register Lisp_Object absname; |
230 | 2731 struct stat st; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2732 Lisp_Object handler; |
230 | 2733 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2734 absname = expand_and_dir_to_file (filename, current_buffer->directory); |
230 | 2735 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2736 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2737 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
|
2738 handler = Ffind_file_name_handler (absname, Qfile_directory_p); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2739 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2740 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
|
2741 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2742 absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2743 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2744 if (stat (SDATA (absname), &st) < 0) |
230 | 2745 return Qnil; |
2746 return (st.st_mode & S_IFMT) == S_IFDIR ? Qt : Qnil; | |
2747 } | |
2748 | |
536 | 2749 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
|
2750 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
|
2751 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
|
2752 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
|
2753 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
|
2754 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
|
2755 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
|
2756 searchable directory. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2757 (Lisp_Object filename) |
536 | 2758 { |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2759 Lisp_Object handler; |
8602
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
2760 int tem; |
8703
aaa0730f8b1e
(Ffile_accessible_directory_p): Put back the gcpro.
Karl Heuer <kwzh@gnu.org>
parents:
8662
diff
changeset
|
2761 struct gcpro gcpro1; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2762 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2763 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2764 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
|
2765 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
|
2766 if (!NILP (handler)) |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2767 return call2 (handler, Qfile_accessible_directory_p, filename); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2768 |
8703
aaa0730f8b1e
(Ffile_accessible_directory_p): Put back the gcpro.
Karl Heuer <kwzh@gnu.org>
parents:
8662
diff
changeset
|
2769 GCPRO1 (filename); |
8602
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
2770 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
|
2771 || NILP (Ffile_executable_p (filename))); |
8703
aaa0730f8b1e
(Ffile_accessible_directory_p): Put back the gcpro.
Karl Heuer <kwzh@gnu.org>
parents:
8662
diff
changeset
|
2772 UNGCPRO; |
8602
99f6ae4160f5
(Fmake_symbolic_link, Ffile_accessible_directory_p, Finsert_file_contents,
Karl Heuer <kwzh@gnu.org>
parents:
8597
diff
changeset
|
2773 return tem ? Qnil : Qt; |
536 | 2774 } |
2775 | |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2776 DEFUN ("file-regular-p", Ffile_regular_p, Sfile_regular_p, 1, 1, 0, |
66795 | 2777 doc: /* Return t if FILENAME names a regular file. |
2778 This is the sort of file that holds an ordinary stream of data bytes. | |
2779 Symbolic links to regular files count as regular files. | |
2780 See `file-symlink-p' to distinguish symlinks. */) | |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2781 (Lisp_Object filename) |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2782 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2783 register Lisp_Object absname; |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2784 struct stat st; |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2785 Lisp_Object handler; |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2786 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2787 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
|
2788 |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2789 /* 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
|
2790 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
|
2791 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
|
2792 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2793 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
|
2794 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2795 absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2796 |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
2797 #ifdef WINDOWSNT |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
2798 { |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
2799 int result; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
2800 Lisp_Object tem = Vw32_get_true_file_attributes; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
2801 |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
2802 /* 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
|
2803 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
|
2804 result = stat (SDATA (absname), &st); |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
2805 Vw32_get_true_file_attributes = tem; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
2806 |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
2807 if (result < 0) |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
2808 return Qnil; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
2809 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
|
2810 } |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
2811 #else |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2812 if (stat (SDATA (absname), &st) < 0) |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2813 return Qnil; |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2814 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
|
2815 #endif |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2816 } |
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
2817 |
108011 | 2818 DEFUN ("file-selinux-context", Ffile_selinux_context, |
2819 Sfile_selinux_context, 1, 1, 0, | |
2820 doc: /* Return SELinux context of file named FILENAME, | |
2821 as a list ("user", "role", "type", "range"). Return (nil, nil, nil, nil) | |
2822 if file does not exist, is not accessible, or SELinux is disabled */) | |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2823 (Lisp_Object filename) |
108011 | 2824 { |
2825 Lisp_Object absname; | |
2826 Lisp_Object values[4]; | |
2827 Lisp_Object handler; | |
2828 #if HAVE_LIBSELINUX | |
2829 security_context_t con; | |
2830 int conlength; | |
2831 context_t context; | |
2832 #endif | |
2833 | |
2834 absname = expand_and_dir_to_file (filename, current_buffer->directory); | |
2835 | |
2836 /* If the file name has special constructs in it, | |
2837 call the corresponding file handler. */ | |
2838 handler = Ffind_file_name_handler (absname, Qfile_selinux_context); | |
2839 if (!NILP (handler)) | |
2840 return call2 (handler, Qfile_selinux_context, absname); | |
2841 | |
2842 absname = ENCODE_FILE (absname); | |
2843 | |
2844 values[0] = Qnil; | |
2845 values[1] = Qnil; | |
2846 values[2] = Qnil; | |
2847 values[3] = Qnil; | |
2848 #if HAVE_LIBSELINUX | |
2849 if (is_selinux_enabled ()) | |
2850 { | |
2851 conlength = lgetfilecon (SDATA (absname), &con); | |
2852 if (conlength > 0) | |
2853 { | |
2854 context = context_new (con); | |
108184
f4b0e5358091
* src/fileio.c (Ffile_selinux_context): Context functions may return null.
Glenn Morris <rgm@gnu.org>
parents:
108011
diff
changeset
|
2855 if (context_user_get (context)) |
f4b0e5358091
* src/fileio.c (Ffile_selinux_context): Context functions may return null.
Glenn Morris <rgm@gnu.org>
parents:
108011
diff
changeset
|
2856 values[0] = build_string (context_user_get (context)); |
f4b0e5358091
* src/fileio.c (Ffile_selinux_context): Context functions may return null.
Glenn Morris <rgm@gnu.org>
parents:
108011
diff
changeset
|
2857 if (context_role_get (context)) |
f4b0e5358091
* src/fileio.c (Ffile_selinux_context): Context functions may return null.
Glenn Morris <rgm@gnu.org>
parents:
108011
diff
changeset
|
2858 values[1] = build_string (context_role_get (context)); |
f4b0e5358091
* src/fileio.c (Ffile_selinux_context): Context functions may return null.
Glenn Morris <rgm@gnu.org>
parents:
108011
diff
changeset
|
2859 if (context_type_get (context)) |
f4b0e5358091
* src/fileio.c (Ffile_selinux_context): Context functions may return null.
Glenn Morris <rgm@gnu.org>
parents:
108011
diff
changeset
|
2860 values[2] = build_string (context_type_get (context)); |
f4b0e5358091
* src/fileio.c (Ffile_selinux_context): Context functions may return null.
Glenn Morris <rgm@gnu.org>
parents:
108011
diff
changeset
|
2861 if (context_range_get (context)) |
f4b0e5358091
* src/fileio.c (Ffile_selinux_context): Context functions may return null.
Glenn Morris <rgm@gnu.org>
parents:
108011
diff
changeset
|
2862 values[3] = build_string (context_range_get (context)); |
108011 | 2863 context_free (context); |
2864 } | |
2865 if (con) | |
2866 freecon (con); | |
2867 } | |
2868 #endif | |
2869 | |
2870 return Flist (sizeof(values) / sizeof(values[0]), values); | |
2871 } | |
2872 | |
2873 DEFUN ("set-file-selinux-context", Fset_file_selinux_context, | |
2874 Sset_file_selinux_context, 2, 2, 0, | |
2875 doc: /* Set SELinux context of file named FILENAME to CONTEXT | |
2876 as a list ("user", "role", "type", "range"). Has no effect if SELinux | |
2877 is disabled. */) | |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2878 (Lisp_Object filename, Lisp_Object context) |
108011 | 2879 { |
2880 Lisp_Object absname, encoded_absname; | |
2881 Lisp_Object handler; | |
2882 Lisp_Object user = CAR_SAFE (context); | |
2883 Lisp_Object role = CAR_SAFE (CDR_SAFE (context)); | |
2884 Lisp_Object type = CAR_SAFE (CDR_SAFE (CDR_SAFE (context))); | |
2885 Lisp_Object range = CAR_SAFE (CDR_SAFE (CDR_SAFE (CDR_SAFE (context)))); | |
2886 #if HAVE_LIBSELINUX | |
2887 security_context_t con; | |
2888 int fail, conlength; | |
2889 context_t parsed_con; | |
2890 #endif | |
2891 | |
2892 absname = Fexpand_file_name (filename, current_buffer->directory); | |
2893 | |
2894 /* If the file name has special constructs in it, | |
2895 call the corresponding file handler. */ | |
2896 handler = Ffind_file_name_handler (absname, Qset_file_selinux_context); | |
2897 if (!NILP (handler)) | |
2898 return call3 (handler, Qset_file_selinux_context, absname, context); | |
2899 | |
2900 encoded_absname = ENCODE_FILE (absname); | |
2901 | |
2902 #if HAVE_LIBSELINUX | |
2903 if (is_selinux_enabled ()) | |
2904 { | |
2905 /* Get current file context. */ | |
2906 conlength = lgetfilecon (SDATA (encoded_absname), &con); | |
2907 if (conlength > 0) | |
2908 { | |
2909 parsed_con = context_new (con); | |
2910 /* Change the parts defined in the parameter.*/ | |
2911 if (STRINGP (user)) | |
2912 { | |
2913 if (context_user_set (parsed_con, SDATA (user))) | |
2914 error ("Doing context_user_set"); | |
2915 } | |
2916 if (STRINGP (role)) | |
2917 { | |
2918 if (context_role_set (parsed_con, SDATA (role))) | |
2919 error ("Doing context_role_set"); | |
2920 } | |
2921 if (STRINGP (type)) | |
2922 { | |
2923 if (context_type_set (parsed_con, SDATA (type))) | |
2924 error ("Doing context_type_set"); | |
2925 } | |
2926 if (STRINGP (range)) | |
2927 { | |
2928 if (context_range_set (parsed_con, SDATA (range))) | |
2929 error ("Doing context_range_set"); | |
2930 } | |
2931 | |
2932 /* Set the modified context back to the file. */ | |
2933 fail = lsetfilecon (SDATA (encoded_absname), context_str (parsed_con)); | |
2934 if (fail) | |
2935 report_file_error ("Doing lsetfilecon", Fcons (absname, Qnil)); | |
2936 | |
2937 context_free (parsed_con); | |
2938 } | |
2939 else | |
2940 report_file_error("Doing lgetfilecon", Fcons (absname, Qnil)); | |
2941 | |
2942 if (con) | |
2943 freecon (con); | |
2944 } | |
2945 #endif | |
2946 | |
2947 return Qnil; | |
2948 } | |
2949 | |
230 | 2950 DEFUN ("file-modes", Ffile_modes, Sfile_modes, 1, 1, 0, |
57955 | 2951 doc: /* Return mode bits of file named FILENAME, as an integer. |
2952 Return nil, if file does not exist or is not accessible. */) | |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2953 (Lisp_Object filename) |
230 | 2954 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2955 Lisp_Object absname; |
230 | 2956 struct stat st; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2957 Lisp_Object handler; |
230 | 2958 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2959 absname = expand_and_dir_to_file (filename, current_buffer->directory); |
230 | 2960 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2961 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2962 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
|
2963 handler = Ffind_file_name_handler (absname, Qfile_modes); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2964 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2965 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
|
2966 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2967 absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2968 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2969 if (stat (SDATA (absname), &st) < 0) |
230 | 2970 return Qnil; |
6383
62db5566c287
(Ffile_modes) [MSDOS]: set exec-bit based on file suffix.
Karl Heuer <kwzh@gnu.org>
parents:
6370
diff
changeset
|
2971 |
230 | 2972 return make_number (st.st_mode & 07777); |
2973 } | |
2974 | |
84442
480b9674f921
(Fset_file_modes): Add an interactive spec that reads a file
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents:
83676
diff
changeset
|
2975 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
|
2976 "(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
|
2977 (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
|
2978 doc: /* Set mode bits of file named FILENAME to MODE (an integer). |
98834 | 2979 Only the 12 low bits of MODE are used. |
2980 | |
2981 Interactively, mode bits are read by `read-file-modes', which accepts | |
98929 | 2982 symbolic notation, like the `chmod' command from GNU Coreutils. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
2983 (Lisp_Object filename, Lisp_Object mode) |
230 | 2984 { |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2985 Lisp_Object absname, encoded_absname; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2986 Lisp_Object handler; |
230 | 2987 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2988 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
|
2989 CHECK_NUMBER (mode); |
230 | 2990 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2991 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2992 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
|
2993 handler = Ffind_file_name_handler (absname, Qset_file_modes); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
2994 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
2995 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
|
2996 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2997 encoded_absname = ENCODE_FILE (absname); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
2998 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
2999 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
|
3000 report_file_error ("Doing chmod", Fcons (absname, Qnil)); |
230 | 3001 |
3002 return Qnil; | |
3003 } | |
3004 | |
1763
65e858c07a8b
(Fset_default_file_modes, Fdefault_file_modes): Renamed from .._mode.
Richard M. Stallman <rms@gnu.org>
parents:
1762
diff
changeset
|
3005 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
|
3006 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
|
3007 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
|
3008 This setting is inherited by subprocesses. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
3009 (Lisp_Object mode) |
550 | 3010 { |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3011 CHECK_NUMBER (mode); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3012 |
1762
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3013 umask ((~ XINT (mode)) & 0777); |
550 | 3014 |
3015 return Qnil; | |
3016 } | |
3017 | |
1763
65e858c07a8b
(Fset_default_file_modes, Fdefault_file_modes): Renamed from .._mode.
Richard M. Stallman <rms@gnu.org>
parents:
1762
diff
changeset
|
3018 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
|
3019 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
|
3020 The value is an integer. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
3021 (void) |
550 | 3022 { |
1762
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3023 int realmask; |
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3024 Lisp_Object value; |
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3025 |
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3026 realmask = umask (0); |
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3027 umask (realmask); |
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3028 |
9266
811ad893828b
(Fdefault_file_modes, Finsert_file_contents, Fdo_auto_save): Use new accessor
Karl Heuer <kwzh@gnu.org>
parents:
9241
diff
changeset
|
3029 XSETINT (value, (~ realmask) & 0777); |
1762
d70878f22be4
(Fset_default_file_mode, Fdefault_file_mode):
Richard M. Stallman <rms@gnu.org>
parents:
1761
diff
changeset
|
3030 return value; |
550 | 3031 } |
55194
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3032 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3033 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3034 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
|
3035 doc: /* Set times of file FILENAME to TIME. |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3036 Set both access and modification times. |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3037 Return t on success, else nil. |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3038 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
|
3039 `current-time'. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
3040 (Lisp_Object filename, Lisp_Object time) |
55194
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3041 { |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3042 Lisp_Object absname, encoded_absname; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3043 Lisp_Object handler; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3044 time_t sec; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3045 int usec; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3046 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3047 if (! lisp_time_argument (time, &sec, &usec)) |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3048 error ("Invalid time specification"); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3049 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3050 absname = Fexpand_file_name (filename, current_buffer->directory); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3051 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3052 /* If the file name has special constructs in it, |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3053 call the corresponding file handler. */ |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3054 handler = Ffind_file_name_handler (absname, Qset_file_times); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3055 if (!NILP (handler)) |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3056 return call3 (handler, Qset_file_times, absname, time); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3057 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3058 encoded_absname = ENCODE_FILE (absname); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3059 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3060 { |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3061 EMACS_TIME t; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3062 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3063 EMACS_SET_SECS (t, sec); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3064 EMACS_SET_USECS (t, usec); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3065 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3066 if (set_file_times (SDATA (encoded_absname), t, t)) |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3067 { |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3068 #ifdef DOS_NT |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3069 struct stat st; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3070 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3071 /* Setting times on a directory always fails. */ |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3072 if (stat (SDATA (encoded_absname), &st) == 0 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3073 && (st.st_mode & S_IFMT) == S_IFDIR) |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3074 return Qnil; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3075 #endif |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3076 report_file_error ("Setting file times", Fcons (absname, Qnil)); |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3077 return Qnil; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3078 } |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3079 } |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3080 |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3081 return Qt; |
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
3082 } |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
3083 |
74398
48c50a37cc14
[__NetBSD__]: Don't define `unix'.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74108
diff
changeset
|
3084 #ifdef HAVE_SYNC |
689
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3085 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
|
3086 doc: /* Tell Unix to finish all pending disk updates. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
3087 (void) |
689
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3088 { |
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3089 sync (); |
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3090 return Qnil; |
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3091 } |
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3092 |
74398
48c50a37cc14
[__NetBSD__]: Don't define `unix'.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74108
diff
changeset
|
3093 #endif /* HAVE_SYNC */ |
689
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
3094 |
230 | 3095 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
|
3096 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
|
3097 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
|
3098 otherwise, if FILE2 does not exist, the answer is t. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
3099 (Lisp_Object file1, Lisp_Object file2) |
230 | 3100 { |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3101 Lisp_Object absname1, absname2; |
230 | 3102 struct stat st; |
3103 int mtime1; | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3104 Lisp_Object handler; |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
3105 struct gcpro gcpro1, gcpro2; |
230 | 3106 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3107 CHECK_STRING (file1); |
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3108 CHECK_STRING (file2); |
230 | 3109 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3110 absname1 = Qnil; |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3111 GCPRO2 (absname1, file2); |
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3112 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
|
3113 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
|
3114 UNGCPRO; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3115 |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3116 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3117 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
|
3118 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
|
3119 if (NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3120 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
|
3121 if (!NILP (handler)) |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
3122 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
|
3123 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3124 GCPRO2 (absname1, absname2); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3125 absname1 = ENCODE_FILE (absname1); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3126 absname2 = ENCODE_FILE (absname2); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3127 UNGCPRO; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3128 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3129 if (stat (SDATA (absname1), &st) < 0) |
230 | 3130 return Qnil; |
3131 | |
3132 mtime1 = st.st_mtime; | |
3133 | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3134 if (stat (SDATA (absname2), &st) < 0) |
230 | 3135 return Qt; |
3136 | |
3137 return (mtime1 > st.st_mtime) ? Qt : Qnil; | |
3138 } | |
3139 | |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3140 #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
|
3141 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
|
3142 #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
|
3143 |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3144 #ifndef READ_BUF_SIZE |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3145 #define READ_BUF_SIZE (64 << 10) |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3146 #endif |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3147 |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3148 /* 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
|
3149 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
|
3150 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
|
3151 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
|
3152 insertion). |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3153 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3154 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
|
3155 alter the buffer contents, change the current buffer. |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3156 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3157 Here, we reset all those changes by: |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3158 o set back the current buffer. |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3159 o move all markers and overlays to BEG. |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3160 o remove all text properties. |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3161 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
|
3162 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3163 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
3164 decide_coding_unwind (Lisp_Object unwind_data) |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3165 { |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3166 Lisp_Object multibyte, undo_list, buffer; |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3167 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3168 multibyte = XCAR (unwind_data); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3169 unwind_data = XCDR (unwind_data); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3170 undo_list = XCAR (unwind_data); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3171 buffer = XCDR (unwind_data); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3172 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3173 if (current_buffer != XBUFFER (buffer)) |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3174 set_buffer_internal (XBUFFER (buffer)); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3175 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
|
3176 adjust_overlays_for_delete (BEG, Z - BEG); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3177 BUF_INTERVALS (current_buffer) = 0; |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3178 TEMP_SET_PT_BOTH (BEG, BEG_BYTE); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3179 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3180 /* 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
|
3181 current_buffer->enable_multibyte_characters = multibyte; |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
3182 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
|
3183 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3184 return Qnil; |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3185 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3186 |
38364
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3187 |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3188 /* 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
|
3189 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3190 static int non_regular_fd; |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3191 static EMACS_INT non_regular_inserted; |
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3192 static EMACS_INT non_regular_nbytes; |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3193 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3194 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3195 /* Read from a non-regular file. |
109129 | 3196 Read non_regular_nbytes bytes max from non_regular_fd. |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3197 Non_regular_inserted specifies where to put the read bytes. |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3198 Value is the number of bytes read. */ |
38364
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3199 |
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3200 static Lisp_Object |
109138
b2c0bf061382
* fileio.c (read_non_regular, read_non_regular_quit): Rename arg.
Juanma Barranquero <lekktu@gmail.com>
parents:
109129
diff
changeset
|
3201 read_non_regular (Lisp_Object ignore) |
38364
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3202 { |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3203 EMACS_INT nbytes; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3204 |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3205 immediate_quit = 1; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3206 QUIT; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3207 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
|
3208 BEG_ADDR + PT_BYTE - BEG_BYTE + non_regular_inserted, |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3209 non_regular_nbytes); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3210 immediate_quit = 0; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3211 return make_number (nbytes); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3212 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3213 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3214 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3215 /* Condition-case handler used when reading from non-regular files |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3216 in insert-file-contents. */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3217 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3218 static Lisp_Object |
109138
b2c0bf061382
* fileio.c (read_non_regular, read_non_regular_quit): Rename arg.
Juanma Barranquero <lekktu@gmail.com>
parents:
109129
diff
changeset
|
3219 read_non_regular_quit (Lisp_Object ignore) |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3220 { |
38364
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3221 return Qnil; |
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3222 } |
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3223 |
835bdb0887ed
(unwind_read): New function.
Gerd Moellmann <gerd@gnu.org>
parents:
37961
diff
changeset
|
3224 |
230 | 3225 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
|
3226 1, 5, 0, |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
3227 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
|
3228 Returns list of absolute file name and number of characters inserted. |
87304 | 3229 If second argument VISIT is non-nil, the buffer's visited filename and |
3230 last save file modtime are set, and it is marked unmodified. If | |
3231 visiting and the file does not exist, visiting is completed before the | |
3232 error is signaled. | |
3233 | |
3234 The optional third and fourth arguments BEG and END specify what portion | |
3235 of the file to insert. These arguments count bytes in the file, not | |
3236 characters in the buffer. If VISIT is non-nil, BEG and END must be nil. | |
3237 | |
3238 If optional fifth argument REPLACE is non-nil, replace the current | |
3239 buffer contents (in the accessible portion) with the file contents. | |
3240 This is better than simply deleting and inserting the whole thing | |
3241 because (1) it preserves some marker positions and (2) it puts less data | |
3242 in the undo list. When REPLACE is non-nil, the second return value is | |
3243 the number of characters that replace previous buffer contents. | |
3244 | |
3245 This function does code conversion according to the value of | |
3246 `coding-system-for-read' or `file-coding-system-alist', and sets the | |
3247 variable `last-coding-system-used' to the coding system actually used. */) | |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
3248 (Lisp_Object filename, Lisp_Object visit, Lisp_Object beg, Lisp_Object end, Lisp_Object replace) |
230 | 3249 { |
3250 struct stat st; | |
3251 register int fd; | |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3252 EMACS_INT inserted = 0; |
92243
c03d2269686e
(Finsert_file_contents): Don't reset undo_list if no change
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92148
diff
changeset
|
3253 int nochange = 0; |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3254 register EMACS_INT how_much; |
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3255 register EMACS_INT unprocessed; |
46285
3f111801efb4
Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46020
diff
changeset
|
3256 int count = SPECPDL_INDEX (); |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
3257 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
3258 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
|
3259 Lisp_Object p; |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3260 EMACS_INT total = 0; |
9921
62392796a691
(Finsert_file_contents): Init not_regular at the beginning.
Richard M. Stallman <rms@gnu.org>
parents:
9915
diff
changeset
|
3261 int not_regular = 0; |
22053
8697087ea026
(Finsert_file_contents): Check that a -*- coding: -*- spec
Richard M. Stallman <rms@gnu.org>
parents:
22042
diff
changeset
|
3262 unsigned char read_buf[READ_BUF_SIZE]; |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3263 struct coding_system coding; |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3264 unsigned char buffer[1 << 14]; |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3265 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
|
3266 int set_coding_system = 0; |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3267 Lisp_Object coding_system; |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3268 int read_quit = 0; |
62937
23f332ae21c8
(Finsert_file_contents): Lisp_Object/int mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
62589
diff
changeset
|
3269 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
|
3270 int we_locked_file = 0; |
99554
ae79259858c8
(Finsert_file_contents): Decrement specpdl_ptr to avoid double file
Chong Yidong <cyd@stupidchicken.com>
parents:
98929
diff
changeset
|
3271 int deferred_remove_unwind_protect = 0; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3272 |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
3273 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
|
3274 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
|
3275 |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
3276 if (!NILP (current_buffer->read_only)) |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
3277 Fbarf_if_buffer_read_only (); |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
3278 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3279 val = Qnil; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
3280 p = Qnil; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3281 orig_filename = Qnil; |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
3282 old_undo = Qnil; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
3283 |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
3284 GCPRO5 (filename, val, p, orig_filename, old_undo); |
230 | 3285 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3286 CHECK_STRING (filename); |
230 | 3287 filename = Fexpand_file_name (filename, Qnil); |
3288 | |
88431
d5ba4152bd1b
(Finsert_file_contents): Set coding_system to Qnil
Kenichi Handa <handa@m17n.org>
parents:
88374
diff
changeset
|
3289 /* The value Qnil means that the coding system is not yet |
d5ba4152bd1b
(Finsert_file_contents): Set coding_system to Qnil
Kenichi Handa <handa@m17n.org>
parents:
88374
diff
changeset
|
3290 decided. */ |
d5ba4152bd1b
(Finsert_file_contents): Set coding_system to Qnil
Kenichi Handa <handa@m17n.org>
parents:
88374
diff
changeset
|
3291 coding_system = Qnil; |
d5ba4152bd1b
(Finsert_file_contents): Set coding_system to Qnil
Kenichi Handa <handa@m17n.org>
parents:
88374
diff
changeset
|
3292 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3293 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3294 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
|
3295 handler = Ffind_file_name_handler (filename, Qinsert_file_contents); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3296 if (!NILP (handler)) |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3297 { |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3298 val = call6 (handler, Qinsert_file_contents, filename, |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3299 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
|
3300 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
|
3301 inserted = XINT (XCAR (XCDR (val))); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3302 goto handled; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3303 } |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
3304 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3305 orig_filename = filename; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3306 filename = ENCODE_FILE (filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3307 |
230 | 3308 fd = -1; |
3309 | |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3310 #ifdef WINDOWSNT |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3311 { |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3312 Lisp_Object tem = Vw32_get_true_file_attributes; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3313 |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3314 /* 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
|
3315 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
|
3316 total = stat (SDATA (filename), &st); |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3317 Vw32_get_true_file_attributes = tem; |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3318 } |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3319 if (total < 0) |
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3320 #else |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
3321 if (stat (SDATA (filename), &st) < 0) |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
3322 #endif /* WINDOWSNT */ |
230 | 3323 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3324 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
|
3325 badopen: |
485 | 3326 if (NILP (visit)) |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3327 report_file_error ("Opening input file", Fcons (orig_filename, Qnil)); |
230 | 3328 st.st_mtime = -1; |
3329 how_much = 0; | |
19925
31b8e0e60e2d
(Finsert_file_contents): If a coding system is
Richard M. Stallman <rms@gnu.org>
parents:
19861
diff
changeset
|
3330 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
|
3331 Fset (Qbuffer_file_coding_system, Vcoding_system_for_read); |
230 | 3332 goto notfound; |
3333 } | |
3334 | |
8047
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3335 #ifdef S_IFREG |
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3336 /* 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
|
3337 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
|
3338 least signal an error. */ |
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3339 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
|
3340 { |
17286
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3341 not_regular = 1; |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3342 |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3343 if (! NILP (visit)) |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3344 goto notfound; |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3345 |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3346 if (! NILP (replace) || ! NILP (beg) || ! NILP (end)) |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
3347 xsignal2 (Qfile_error, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
3348 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
|
3349 } |
8047
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3350 #endif |
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3351 |
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3352 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
|
3353 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
|
3354 goto badopen; |
fb950b66d754
(Finsert_file_contents): Fix check for non-regular files.
Karl Heuer <kwzh@gnu.org>
parents:
7695
diff
changeset
|
3355 |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
3356 /* 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
|
3357 if (!NILP (replace)) |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
3358 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
|
3359 |
230 | 3360 record_unwind_protect (close_file_unwind, make_number (fd)); |
3361 | |
48562
b3e8e8c5face
(Finsert_file_contents): Give a more appropriate error
Jason Rumney <jasonr@gnu.org>
parents:
48423
diff
changeset
|
3362 /* Can happen on any platform that uses long as type of off_t, but allows |
97142 | 3363 file sizes to exceed 2Gb, so give a suitable message. */ |
17286
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3364 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
|
3365 error ("Maximum buffer size exceeded"); |
752 | 3366 |
25006
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
3367 /* Prevent redisplay optimizations. */ |
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
3368 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
|
3369 |
27134
ac336ecd19ff
(Finsert_file_contents): Signal error if visiting file
Kenichi Handa <handa@m17n.org>
parents:
26855
diff
changeset
|
3370 if (!NILP (visit)) |
ac336ecd19ff
(Finsert_file_contents): Signal error if visiting file
Kenichi Handa <handa@m17n.org>
parents:
26855
diff
changeset
|
3371 { |
ac336ecd19ff
(Finsert_file_contents): Signal error if visiting file
Kenichi Handa <handa@m17n.org>
parents:
26855
diff
changeset
|
3372 if (!NILP (beg) || !NILP (end)) |
ac336ecd19ff
(Finsert_file_contents): Signal error if visiting file
Kenichi Handa <handa@m17n.org>
parents:
26855
diff
changeset
|
3373 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
|
3374 if (BEG < Z && NILP (replace)) |
ac336ecd19ff
(Finsert_file_contents): Signal error if visiting file
Kenichi Handa <handa@m17n.org>
parents:
26855
diff
changeset
|
3375 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
|
3376 } |
3787
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3377 |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3378 if (!NILP (beg)) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3379 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
|
3380 else |
9307
44d6fc4b638b
(Finsert_file_contents, Fwrite_region, Fdo_auto_save, Fset_buffer_auto_saved):
Karl Heuer <kwzh@gnu.org>
parents:
9291
diff
changeset
|
3381 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
|
3382 |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3383 if (!NILP (end)) |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
3384 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
|
3385 else |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3386 { |
17286
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3387 if (! not_regular) |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3388 { |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3389 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
|
3390 |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3391 /* 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
|
3392 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
|
3393 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
|
3394 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
|
3395 if (XINT (end) != st.st_size |
102752
9e5b3ff07060
(Finsert_file_contents): Don't limit size to INT_MAX/4.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102714
diff
changeset
|
3396 /* Actually, it should test either INT_MAX or LONG_MAX |
9e5b3ff07060
(Finsert_file_contents): Don't limit size to INT_MAX/4.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102714
diff
changeset
|
3397 depending on which one is used for EMACS_INT. But in |
9e5b3ff07060
(Finsert_file_contents): Don't limit size to INT_MAX/4.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102714
diff
changeset
|
3398 any case, in practice, this test is redundant with the |
9e5b3ff07060
(Finsert_file_contents): Don't limit size to INT_MAX/4.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102714
diff
changeset
|
3399 one above. |
9e5b3ff07060
(Finsert_file_contents): Don't limit size to INT_MAX/4.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102714
diff
changeset
|
3400 || 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
|
3401 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
|
3402 |
2db1b1bb1d18
(Finsert_file_contents): If the file size returned from
Gerd Moellmann <gerd@gnu.org>
parents:
37292
diff
changeset
|
3403 /* 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
|
3404 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
|
3405 file in the /proc filesystem. */ |
2db1b1bb1d18
(Finsert_file_contents): If the file size returned from
Gerd Moellmann <gerd@gnu.org>
parents:
37292
diff
changeset
|
3406 if (st.st_size == 0) |
2db1b1bb1d18
(Finsert_file_contents): If the file size returned from
Gerd Moellmann <gerd@gnu.org>
parents:
37292
diff
changeset
|
3407 XSETINT (end, READ_BUF_SIZE); |
17286
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3408 } |
3787
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3409 } |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3410 |
51357
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3411 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
|
3412 { |
90588
3cc17c82c7df
(Finsert_file_contents): On recovering a file, assume
Kenichi Handa <handa@m17n.org>
parents:
90533
diff
changeset
|
3413 coding_system = coding_inherit_eol_type (Qutf_8_emacs, Qunix); |
89504
e1159b1e5142
(Finsert_file_contents): Call setup_coding_system in
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
3414 setup_coding_system (coding_system, &coding); |
e1159b1e5142
(Finsert_file_contents): Call setup_coding_system in
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
3415 /* Ensure we set Vlast_coding_system_used. */ |
e1159b1e5142
(Finsert_file_contents): Call setup_coding_system in
Kenichi Handa <handa@m17n.org>
parents:
89483
diff
changeset
|
3416 set_coding_system = 1; |
51357
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3417 } |
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
3418 else if (BEG < Z) |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3419 { |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3420 /* 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
|
3421 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
|
3422 `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
|
3423 if (!NILP (Vcoding_system_for_read)) |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3424 coding_system = Vcoding_system_for_read; |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3425 else |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3426 { |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3427 /* 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
|
3428 specification if it is not seekable. */ |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3429 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
|
3430 { |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3431 /* 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
|
3432 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
|
3433 We assume that the 1K-byte and 3K-byte for heading |
24651 | 3434 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
|
3435 purpose. */ |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3436 EMACS_INT nread; |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3437 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3438 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
|
3439 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
|
3440 else |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3441 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3442 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
|
3443 if (nread >= 0) |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3444 { |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3445 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
|
3446 report_file_error ("Setting file position", |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3447 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
|
3448 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
|
3449 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3450 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3451 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3452 if (nread < 0) |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3453 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
|
3454 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
|
3455 else if (nread > 0) |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3456 { |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3457 struct buffer *prev = current_buffer; |
44563
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3458 Lisp_Object buffer; |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3459 struct buffer *buf; |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3460 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3461 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
|
3462 |
44563
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3463 buffer = Fget_buffer_create (build_string (" *code-converting-work*")); |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3464 buf = XBUFFER (buffer); |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3465 |
52018
76a99003b377
(Finsert_file_contents): Use delete_all_overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51839
diff
changeset
|
3466 delete_all_overlays (buf); |
44563
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3467 buf->directory = current_buffer->directory; |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3468 buf->read_only = Qnil; |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3469 buf->filename = Qnil; |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3470 buf->undo_list = Qt; |
52018
76a99003b377
(Finsert_file_contents): Use delete_all_overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51839
diff
changeset
|
3471 eassert (buf->overlays_before == NULL); |
76a99003b377
(Finsert_file_contents): Use delete_all_overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51839
diff
changeset
|
3472 eassert (buf->overlays_after == NULL); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3473 |
44563
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3474 set_buffer_internal (buf); |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3475 Ferase_buffer (); |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3476 buf->enable_multibyte_characters = Qnil; |
3f86b146a02b
(Finsert_file_contents):
Richard M. Stallman <rms@gnu.org>
parents:
43799
diff
changeset
|
3477 |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3478 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
|
3479 TEMP_SET_PT_BOTH (BEG, BEG_BYTE); |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3480 coding_system = call2 (Vset_auto_coding_function, |
89483 | 3481 filename, make_number (nread)); |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3482 set_buffer_internal (prev); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3483 |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3484 /* 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
|
3485 current buffer. */ |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3486 specpdl_ptr--; |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3487 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3488 /* 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
|
3489 if (lseek (fd, 0, 0) < 0) |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3490 report_file_error ("Setting file position", |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3491 Fcons (orig_filename, Qnil)); |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3492 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3493 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3494 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3495 if (NILP (coding_system)) |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3496 { |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3497 /* 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
|
3498 file-coding-system-alist. */ |
89483 | 3499 Lisp_Object args[6]; |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3500 |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3501 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
|
3502 args[2] = visit, args[3] = beg, args[4] = end, args[5] = replace; |
89483 | 3503 coding_system = Ffind_operation_coding_system (6, args); |
3504 if (CONSP (coding_system)) | |
3505 coding_system = XCAR (coding_system); | |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3506 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3507 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3508 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3509 if (NILP (coding_system)) |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3510 coding_system = Qundecided; |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3511 else |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3512 CHECK_CODING_SYSTEM (coding_system); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3513 |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3514 if (NILP (current_buffer->enable_multibyte_characters)) |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3515 /* We must suppress all character code conversion except for |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3516 end-of-line conversion. */ |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3517 coding_system = raw_text_coding_system (coding_system); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3518 |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3519 setup_coding_system (coding_system, &coding); |
29152
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
3520 /* 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
|
3521 set_coding_system = 1; |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3522 } |
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3523 |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3524 /* 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
|
3525 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
|
3526 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
|
3527 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
|
3528 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3529 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
|
3530 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
|
3531 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
|
3532 in a less optimal way. |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3533 |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3534 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
|
3535 method and hope for the best. |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3536 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
|
3537 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
|
3538 if (!NILP (replace) |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3539 && BEGV < ZV |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3540 && (NILP (coding_system) |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3541 || ! CODING_REQUIRE_DECODING (&coding))) |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
3542 { |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
3543 /* 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
|
3544 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
|
3545 and BEG and END count bytes. */ |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3546 EMACS_INT same_at_start = BEGV_BYTE; |
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3547 EMACS_INT same_at_end = ZV_BYTE; |
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3548 EMACS_INT overlap; |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3549 /* 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
|
3550 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
|
3551 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
|
3552 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
|
3553 |
16695
7df45948d2d8
(Finsert_file_contents): Handle BEG and END non-nil
Richard M. Stallman <rms@gnu.org>
parents:
16662
diff
changeset
|
3554 if (XINT (beg) != 0) |
7df45948d2d8
(Finsert_file_contents): Handle BEG and END non-nil
Richard M. Stallman <rms@gnu.org>
parents:
16662
diff
changeset
|
3555 { |
7df45948d2d8
(Finsert_file_contents): Handle BEG and END non-nil
Richard M. Stallman <rms@gnu.org>
parents:
16662
diff
changeset
|
3556 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
|
3557 report_file_error ("Setting file position", |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3558 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
|
3559 } |
7df45948d2d8
(Finsert_file_contents): Handle BEG and END non-nil
Richard M. Stallman <rms@gnu.org>
parents:
16662
diff
changeset
|
3560 |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3561 immediate_quit = 1; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3562 QUIT; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3563 /* 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
|
3564 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
|
3565 while (1) |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3566 { |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3567 EMACS_INT nread, bufpos; |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3568 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3569 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
|
3570 if (nread < 0) |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3571 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
|
3572 SDATA (orig_filename), emacs_strerror (errno)); |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3573 else if (nread == 0) |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3574 break; |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3575 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3576 if (CODING_REQUIRE_DETECTION (&coding)) |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3577 { |
89667
20a59c5d1d55
(kill_workbuf_unwind): Delete this function.
Kenichi Handa <handa@m17n.org>
parents:
89579
diff
changeset
|
3578 coding_system = detect_coding_system (buffer, nread, nread, 1, 0, |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3579 coding_system); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3580 setup_coding_system (coding_system, &coding); |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3581 } |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3582 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3583 if (CODING_REQUIRE_DECODING (&coding)) |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3584 /* We found that the file should be decoded somehow. |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3585 Let's give up here. */ |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3586 { |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3587 giveup_match_end = 1; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3588 break; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3589 } |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3590 |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3591 bufpos = 0; |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
3592 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
|
3593 && 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
|
3594 same_at_start++, bufpos++; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3595 /* If we found a discrepancy, stop the scan. |
14036 | 3596 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
|
3597 if (bufpos != nread) |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3598 break; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3599 } |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3600 immediate_quit = 0; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3601 /* If the file matches the buffer completely, |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3602 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
|
3603 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
|
3604 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3605 emacs_close (fd); |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
3606 specpdl_ptr--; |
7595
9f0893928a4d
(Finsert_file_contents): Declare buffer as unsigned
Richard M. Stallman <rms@gnu.org>
parents:
7551
diff
changeset
|
3607 /* 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
|
3608 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
|
3609 goto handled; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3610 } |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3611 immediate_quit = 1; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3612 QUIT; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3613 /* 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
|
3614 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
|
3615 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
|
3616 while (!giveup_match_end) |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3617 { |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3618 EMACS_INT total_read, nread, bufpos, curpos, trial; |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3619 |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3620 /* 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
|
3621 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
|
3622 /* 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
|
3623 if (curpos == 0) |
aba3ffcc8f51
(Finsert_file_contents): Check for beginning of file.
Karl Heuer <kwzh@gnu.org>
parents:
7611
diff
changeset
|
3624 break; |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3625 /* 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
|
3626 trial = min (curpos, sizeof buffer); |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3627 if (lseek (fd, curpos - trial, 0) < 0) |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3628 report_file_error ("Setting file position", |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3629 Fcons (orig_filename, Qnil)); |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3630 |
39457
dbb9a3969094
(Finsert_file_contents): If REPLACE is non-nil, stop
Gerd Moellmann <gerd@gnu.org>
parents:
39291
diff
changeset
|
3631 total_read = nread = 0; |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3632 while (total_read < trial) |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3633 { |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
3634 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
|
3635 if (nread < 0) |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3636 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
|
3637 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
|
3638 else if (nread == 0) |
879c6b736b9f
(Finsert_file_contents): Don't treat a return value
Gerd Moellmann <gerd@gnu.org>
parents:
38450
diff
changeset
|
3639 break; |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3640 total_read += nread; |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3641 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3642 |
14036 | 3643 /* 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
|
3644 the Emacs buffer. */ |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3645 bufpos = total_read; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3646 |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3647 /* 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
|
3648 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
|
3649 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
|
3650 && 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
|
3651 same_at_end--, bufpos--; |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3652 |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3653 /* If we found a discrepancy, stop the scan. |
14036 | 3654 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
|
3655 if (bufpos != 0) |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3656 { |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3657 /* 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
|
3658 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
|
3659 if (same_at_end > same_at_start |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3660 && 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
|
3661 && ! NILP (current_buffer->enable_multibyte_characters) |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
3662 && (CODING_MAY_REQUIRE_DECODING (&coding))) |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3663 giveup_match_end = 1; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3664 break; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3665 } |
39457
dbb9a3969094
(Finsert_file_contents): If REPLACE is non-nil, stop
Gerd Moellmann <gerd@gnu.org>
parents:
39291
diff
changeset
|
3666 |
dbb9a3969094
(Finsert_file_contents): If REPLACE is non-nil, stop
Gerd Moellmann <gerd@gnu.org>
parents:
39291
diff
changeset
|
3667 if (nread == 0) |
dbb9a3969094
(Finsert_file_contents): If REPLACE is non-nil, stop
Gerd Moellmann <gerd@gnu.org>
parents:
39291
diff
changeset
|
3668 break; |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3669 } |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3670 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
|
3671 |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3672 if (! giveup_match_end) |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3673 { |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3674 EMACS_INT temp; |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
3675 |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3676 /* 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
|
3677 |
22753
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
3678 /* 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
|
3679 character boundary. */ |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
3680 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
|
3681 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
|
3682 && ! 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
|
3683 same_at_start--; |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
3684 |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
3685 /* 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
|
3686 character boundary. */ |
554594d88cd3
(Finsert_file_contents): Give up match-end only if
Richard M. Stallman <rms@gnu.org>
parents:
18647
diff
changeset
|
3687 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
|
3688 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
|
3689 && ! 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
|
3690 same_at_end++; |
554594d88cd3
(Finsert_file_contents): Give up match-end only if
Richard M. Stallman <rms@gnu.org>
parents:
18647
diff
changeset
|
3691 |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3692 /* 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
|
3693 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
|
3694 - (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
|
3695 if (overlap > 0) |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3696 same_at_end += overlap; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3697 |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3698 /* 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
|
3699 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
|
3700 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
|
3701 |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
3702 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
|
3703 /* 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
|
3704 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
|
3705 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
|
3706 |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3707 /* 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
|
3708 keep it that way. */ |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3709 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
|
3710 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
|
3711 |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3712 replace_handled = 1; |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3713 } |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3714 } |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3715 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3716 /* 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
|
3717 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
|
3718 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
|
3719 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
|
3720 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3721 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
|
3722 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
|
3723 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
|
3724 in a more optimized way. */ |
22492
241ac6fe2983
(Finsert_file_contents): Redo the change for handling
Kenichi Handa <handa@m17n.org>
parents:
22478
diff
changeset
|
3725 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
|
3726 { |
91807
507bcfb4342c
* coding.c (coding_set_destination): Use BEG_BYTE rather than hardcoding 1.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91551
diff
changeset
|
3727 EMACS_INT same_at_start = BEGV_BYTE; |
507bcfb4342c
* coding.c (coding_set_destination): Use BEG_BYTE rather than hardcoding 1.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91551
diff
changeset
|
3728 EMACS_INT same_at_end = ZV_BYTE; |
507bcfb4342c
* coding.c (coding_set_destination): Use BEG_BYTE rather than hardcoding 1.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91551
diff
changeset
|
3729 EMACS_INT same_at_start_charpos; |
507bcfb4342c
* coding.c (coding_set_destination): Use BEG_BYTE rather than hardcoding 1.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91551
diff
changeset
|
3730 EMACS_INT inserted_chars; |
507bcfb4342c
* coding.c (coding_set_destination): Use BEG_BYTE rather than hardcoding 1.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91551
diff
changeset
|
3731 EMACS_INT overlap; |
507bcfb4342c
* coding.c (coding_set_destination): Use BEG_BYTE rather than hardcoding 1.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91551
diff
changeset
|
3732 EMACS_INT bufpos; |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3733 unsigned char *decoded; |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3734 EMACS_INT temp; |
89483 | 3735 int this_count = SPECPDL_INDEX (); |
89440
06b495fd070a
(kill_workbuf_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents:
89401
diff
changeset
|
3736 int multibyte = ! NILP (current_buffer->enable_multibyte_characters); |
89667
20a59c5d1d55
(kill_workbuf_unwind): Delete this function.
Kenichi Handa <handa@m17n.org>
parents:
89579
diff
changeset
|
3737 Lisp_Object conversion_buffer; |
20a59c5d1d55
(kill_workbuf_unwind): Delete this function.
Kenichi Handa <handa@m17n.org>
parents:
89579
diff
changeset
|
3738 |
20a59c5d1d55
(kill_workbuf_unwind): Delete this function.
Kenichi Handa <handa@m17n.org>
parents:
89579
diff
changeset
|
3739 conversion_buffer = code_conversion_save (1, multibyte); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3740 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3741 /* 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
|
3742 CONVERSION_BUFFER. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3743 |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3744 if (lseek (fd, XINT (beg), 0) < 0) |
89483 | 3745 report_file_error ("Setting file position", |
3746 Fcons (orig_filename, Qnil)); | |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3747 |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3748 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
|
3749 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
|
3750 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
|
3751 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
|
3752 |
89401
28e6174b4119
(Finsert_file_contents): On replacing, before decoding the file into
Kenichi Handa <handa@m17n.org>
parents:
88457
diff
changeset
|
3753 GCPRO1 (conversion_buffer); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3754 while (how_much < total) |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3755 { |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3756 /* We read one bunch by one (READ_BUF_SIZE bytes) to allow |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3757 quitting while reading a huge while. */ |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3758 /* try is reserved in some compilers (Microsoft C) */ |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3759 EMACS_INT trytry = min (total - how_much, |
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3760 READ_BUF_SIZE - unprocessed); |
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3761 EMACS_INT this; |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3762 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3763 /* 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
|
3764 immediate_quit = 1; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3765 QUIT; |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3766 this = emacs_read (fd, read_buf + unprocessed, trytry); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3767 immediate_quit = 0; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3768 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3769 if (this <= 0) |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3770 { |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3771 if (this < 0) |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3772 how_much = this; |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3773 break; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3774 } |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3775 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3776 how_much += this; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3777 |
93110
6d11337f1ad8
* fileio.c (Finsert_file_contents):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92692
diff
changeset
|
3778 BUF_TEMP_SET_PT (XBUFFER (conversion_buffer), |
6d11337f1ad8
* fileio.c (Finsert_file_contents):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92692
diff
changeset
|
3779 BUF_Z (XBUFFER (conversion_buffer))); |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3780 decode_coding_c_string (&coding, read_buf, unprocessed + this, |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3781 conversion_buffer); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3782 unprocessed = coding.carryover_bytes; |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3783 if (coding.carryover_bytes > 0) |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109139
diff
changeset
|
3784 memcpy (read_buf, coding.carryover, unprocessed); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3785 } |
89401
28e6174b4119
(Finsert_file_contents): On replacing, before decoding the file into
Kenichi Handa <handa@m17n.org>
parents:
88457
diff
changeset
|
3786 UNGCPRO; |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3787 emacs_close (fd); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3788 |
99554
ae79259858c8
(Finsert_file_contents): Decrement specpdl_ptr to avoid double file
Chong Yidong <cyd@stupidchicken.com>
parents:
98929
diff
changeset
|
3789 /* We should remove the unwind_protect calling |
ae79259858c8
(Finsert_file_contents): Decrement specpdl_ptr to avoid double file
Chong Yidong <cyd@stupidchicken.com>
parents:
98929
diff
changeset
|
3790 close_file_unwind, but other stuff has been added the stack, |
ae79259858c8
(Finsert_file_contents): Decrement specpdl_ptr to avoid double file
Chong Yidong <cyd@stupidchicken.com>
parents:
98929
diff
changeset
|
3791 so defer the removal till we reach the `handled' label. */ |
ae79259858c8
(Finsert_file_contents): Decrement specpdl_ptr to avoid double file
Chong Yidong <cyd@stupidchicken.com>
parents:
98929
diff
changeset
|
3792 deferred_remove_unwind_protect = 1; |
ae79259858c8
(Finsert_file_contents): Decrement specpdl_ptr to avoid double file
Chong Yidong <cyd@stupidchicken.com>
parents:
98929
diff
changeset
|
3793 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3794 /* At this point, HOW_MUCH should equal TOTAL, or should be <= 0 |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3795 if we couldn't read the file. */ |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3796 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3797 if (how_much < 0) |
90399 | 3798 error ("IO error reading %s: %s", |
3799 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
|
3800 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3801 if (unprocessed > 0) |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3802 { |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3803 coding.mode |= CODING_MODE_LAST_BLOCK; |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3804 decode_coding_c_string (&coding, read_buf, unprocessed, |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3805 conversion_buffer); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3806 coding.mode &= ~CODING_MODE_LAST_BLOCK; |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3807 } |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3808 |
100940
24b031f24662
(Finsert_file_contents): In the case of replace,
Kenichi Handa <handa@m17n.org>
parents:
100610
diff
changeset
|
3809 coding_system = CODING_ID_NAME (coding.id); |
105862
b2666b729b94
(Finsert_file_contents): Be sure set coding-system of
Kenichi Handa <handa@m17n.org>
parents:
105726
diff
changeset
|
3810 set_coding_system = 1; |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3811 decoded = BUF_BEG_ADDR (XBUFFER (conversion_buffer)); |
88445
51e9e2d876e1
(Finsert_file_contents): Fix calculation of `inserted'.
Kenichi Handa <handa@m17n.org>
parents:
88431
diff
changeset
|
3812 inserted = (BUF_Z_BYTE (XBUFFER (conversion_buffer)) |
51e9e2d876e1
(Finsert_file_contents): Fix calculation of `inserted'.
Kenichi Handa <handa@m17n.org>
parents:
88431
diff
changeset
|
3813 - BUF_BEG_BYTE (XBUFFER (conversion_buffer))); |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3814 |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3815 /* Compare the beginning of the converted string with the buffer |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3816 text. */ |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3817 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3818 bufpos = 0; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3819 while (bufpos < inserted && same_at_start < same_at_end |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3820 && FETCH_BYTE (same_at_start) == decoded[bufpos]) |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3821 same_at_start++, bufpos++; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3822 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3823 /* If the file matches the head of buffer completely, |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3824 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
|
3825 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3826 if (bufpos == inserted) |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3827 { |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3828 /* Truncate the buffer to the size of the file. */ |
92243
c03d2269686e
(Finsert_file_contents): Don't reset undo_list if no change
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92148
diff
changeset
|
3829 if (same_at_start == same_at_end) |
c03d2269686e
(Finsert_file_contents): Don't reset undo_list if no change
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92148
diff
changeset
|
3830 nochange = 1; |
c03d2269686e
(Finsert_file_contents): Don't reset undo_list if no change
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92148
diff
changeset
|
3831 else |
c03d2269686e
(Finsert_file_contents): Don't reset undo_list if no change
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92148
diff
changeset
|
3832 del_range_byte (same_at_start, same_at_end, 0); |
24877
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
3833 inserted = 0; |
89871
da890d4130ce
(Finsert_file_contents): Be sure to call unbind_to
Kenichi Handa <handa@m17n.org>
parents:
89781
diff
changeset
|
3834 |
da890d4130ce
(Finsert_file_contents): Be sure to call unbind_to
Kenichi Handa <handa@m17n.org>
parents:
89781
diff
changeset
|
3835 unbind_to (this_count, Qnil); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3836 goto handled; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3837 } |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3838 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3839 /* Extend the start of non-matching text area to the previous |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3840 multibyte character boundary. */ |
22753
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
3841 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
|
3842 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
|
3843 && ! 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
|
3844 same_at_start--; |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
3845 |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3846 /* 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
|
3847 the Emacs buffer. */ |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3848 bufpos = inserted; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3849 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3850 /* 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
|
3851 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
|
3852 while (bufpos > 0 && same_at_end > same_at_start |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3853 && FETCH_BYTE (same_at_end - 1) == decoded[bufpos - 1]) |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3854 same_at_end--, bufpos--; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3855 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3856 /* Extend the end of non-matching text area to the next |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3857 multibyte character boundary. */ |
22753
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
3858 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
|
3859 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
|
3860 && ! 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
|
3861 same_at_end++; |
4f555df67270
(Finsert_file_contents): When replacing, in multibyte bfr,
Richard M. Stallman <rms@gnu.org>
parents:
22697
diff
changeset
|
3862 |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3863 /* 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
|
3864 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
|
3865 if (overlap > 0) |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3866 same_at_end += overlap; |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3867 |
17285
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3868 /* 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
|
3869 keep it that way. */ |
b065ab2a2e22
(Finsert_file_contents): When handling REPLACE,
Richard M. Stallman <rms@gnu.org>
parents:
17273
diff
changeset
|
3870 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
|
3871 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
|
3872 |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3873 /* 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
|
3874 and update INSERTED to equal the number of bytes |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3875 we are taking from the decoded string. */ |
57112
4c14357ffc27
(Finsert_file_contents): Fix case of replacement in a narrowed buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
56977
diff
changeset
|
3876 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
|
3877 |
21949
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
3878 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
|
3879 { |
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
3880 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
|
3881 temp = GPT; |
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
3882 same_at_start = GPT_BYTE; |
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
3883 } |
21949
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
3884 else |
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
3885 { |
a2166fb22606
(barf_or_query_if_file_exists): Encode file name.
Richard M. Stallman <rms@gnu.org>
parents:
21917
diff
changeset
|
3886 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
|
3887 } |
24877
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
3888 /* 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
|
3889 SET_PT_BOTH (temp, same_at_start); |
88445
51e9e2d876e1
(Finsert_file_contents): Fix calculation of `inserted'.
Kenichi Handa <handa@m17n.org>
parents:
88431
diff
changeset
|
3890 same_at_start_charpos |
51e9e2d876e1
(Finsert_file_contents): Fix calculation of `inserted'.
Kenichi Handa <handa@m17n.org>
parents:
88431
diff
changeset
|
3891 = buf_bytepos_to_charpos (XBUFFER (conversion_buffer), |
91848
75f72cab9771
(Finsert_file_contents): Adjust offsets when replacing
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91807
diff
changeset
|
3892 same_at_start - BEGV_BYTE |
75f72cab9771
(Finsert_file_contents): Adjust offsets when replacing
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91807
diff
changeset
|
3893 + BUF_BEG_BYTE (XBUFFER (conversion_buffer))); |
88445
51e9e2d876e1
(Finsert_file_contents): Fix calculation of `inserted'.
Kenichi Handa <handa@m17n.org>
parents:
88431
diff
changeset
|
3894 inserted_chars |
51e9e2d876e1
(Finsert_file_contents): Fix calculation of `inserted'.
Kenichi Handa <handa@m17n.org>
parents:
88431
diff
changeset
|
3895 = (buf_bytepos_to_charpos (XBUFFER (conversion_buffer), |
91848
75f72cab9771
(Finsert_file_contents): Adjust offsets when replacing
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91807
diff
changeset
|
3896 same_at_start + inserted - BEGV_BYTE |
75f72cab9771
(Finsert_file_contents): Adjust offsets when replacing
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91807
diff
changeset
|
3897 + BUF_BEG_BYTE (XBUFFER (conversion_buffer))) |
88445
51e9e2d876e1
(Finsert_file_contents): Fix calculation of `inserted'.
Kenichi Handa <handa@m17n.org>
parents:
88431
diff
changeset
|
3898 - same_at_start_charpos); |
90631
b14bb2d35e4f
(Finsert_file_contents): On replacing, temporarily bind
Kenichi Handa <handa@m17n.org>
parents:
90596
diff
changeset
|
3899 /* This binding is to avoid ask-user-about-supersession-threat |
b14bb2d35e4f
(Finsert_file_contents): On replacing, temporarily bind
Kenichi Handa <handa@m17n.org>
parents:
90596
diff
changeset
|
3900 being called in insert_from_buffer (via in |
b14bb2d35e4f
(Finsert_file_contents): On replacing, temporarily bind
Kenichi Handa <handa@m17n.org>
parents:
90596
diff
changeset
|
3901 prepare_to_modify_buffer). */ |
b14bb2d35e4f
(Finsert_file_contents): On replacing, temporarily bind
Kenichi Handa <handa@m17n.org>
parents:
90596
diff
changeset
|
3902 specbind (intern ("buffer-file-name"), Qnil); |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3903 insert_from_buffer (XBUFFER (conversion_buffer), |
88445
51e9e2d876e1
(Finsert_file_contents): Fix calculation of `inserted'.
Kenichi Handa <handa@m17n.org>
parents:
88431
diff
changeset
|
3904 same_at_start_charpos, inserted_chars, 0); |
24877
f0aa6266cd12
(Finsert_file_contents): In the case of REPALCE, call
Kenichi Handa <handa@m17n.org>
parents:
24712
diff
changeset
|
3905 /* 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
|
3906 inserted = PT - temp; |
69136
ebfcb70d92d2
(Finsert_file_contents): When a text is replaced
Kenichi Handa <handa@m17n.org>
parents:
68118
diff
changeset
|
3907 /* Set point before the inserted characters. */ |
ebfcb70d92d2
(Finsert_file_contents): When a text is replaced
Kenichi Handa <handa@m17n.org>
parents:
68118
diff
changeset
|
3908 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
|
3909 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3910 unbind_to (this_count, Qnil); |
17273
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3911 |
214a5cc55c56
(Finsert_file_contents): Determine the character coding
Richard M. Stallman <rms@gnu.org>
parents:
17271
diff
changeset
|
3912 goto handled; |
5975
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3913 } |
c766d816b07e
(Finsert_file_contents): New arg REPLACE.
Richard M. Stallman <rms@gnu.org>
parents:
5908
diff
changeset
|
3914 |
17286
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3915 if (! not_regular) |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3916 { |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3917 register Lisp_Object temp; |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3918 |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3919 total = XINT (end) - XINT (beg); |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3920 |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3921 /* 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
|
3922 XSETINT (temp, total); |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3923 if (total != XINT (temp)) |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3924 error ("Maximum buffer size exceeded"); |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3925 } |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3926 else |
4ee0f02eff87
(Finsert_file_contents): Handle non-regular files.
Richard M. Stallman <rms@gnu.org>
parents:
17285
diff
changeset
|
3927 /* 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
|
3928 total = READ_BUF_SIZE; |
230 | 3929 |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3930 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
|
3931 { |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3932 #ifdef CLASH_DETECTION |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3933 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
|
3934 /* 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
|
3935 && !NILP (current_buffer->filename) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3936 && SAVE_MODIFF >= MODIFF) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3937 we_locked_file = 1; |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3938 #endif /* CLASH_DETECTION */ |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
3939 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
|
3940 } |
16167
651ee074f8b0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
16155
diff
changeset
|
3941 |
651ee074f8b0
Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents:
16155
diff
changeset
|
3942 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
|
3943 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
|
3944 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
|
3945 |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
3946 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
|
3947 { |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3948 if (lseek (fd, XINT (beg), 0) < 0) |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3949 report_file_error ("Setting file position", |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
3950 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
|
3951 } |
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
3952 |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3953 /* 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
|
3954 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
|
3955 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
|
3956 error occurs. */ |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
3957 how_much = 0; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3958 |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3959 /* Total bytes inserted. */ |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
3960 inserted = 0; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3961 |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
3962 /* Here, we don't do code conversion in the loop. It is done by |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
3963 decode_coding_gap after all data are read into the buffer. */ |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3964 { |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3965 EMACS_INT gap_size = GAP_SIZE; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
3966 |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3967 while (how_much < total) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3968 { |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3969 /* try is reserved in some compilers (Microsoft C) */ |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3970 EMACS_INT trytry = min (total - how_much, READ_BUF_SIZE); |
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
3971 EMACS_INT this; |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3972 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3973 if (not_regular) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3974 { |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3975 Lisp_Object val; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3976 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3977 /* Maybe make more room. */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3978 if (gap_size < trytry) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3979 { |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3980 make_gap (total - gap_size); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3981 gap_size = GAP_SIZE; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3982 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3983 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3984 /* Read from the file, capturing `quit'. When an |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3985 error occurs, end the loop, and arrange for a quit |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3986 to be signaled after decoding the text we read. */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3987 non_regular_fd = fd; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3988 non_regular_inserted = inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3989 non_regular_nbytes = trytry; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3990 val = internal_condition_case_1 (read_non_regular, Qnil, Qerror, |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3991 read_non_regular_quit); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3992 if (NILP (val)) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3993 { |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3994 read_quit = 1; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3995 break; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3996 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3997 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3998 this = XINT (val); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
3999 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4000 else |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4001 { |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4002 /* 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
|
4003 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
|
4004 here doesn't do any harm. */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4005 immediate_quit = 1; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4006 QUIT; |
45485
08b14b8f7bc2
(read_non_regular, Finsert_file_contents): Use BEG_BYTE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44563
diff
changeset
|
4007 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
|
4008 immediate_quit = 0; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4009 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4010 |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4011 if (this <= 0) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4012 { |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4013 how_much = this; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4014 break; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4015 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4016 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4017 gap_size -= this; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4018 |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4019 /* For a regular file, where TOTAL is the real size, |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4020 count HOW_MUCH to compare with it. |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4021 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
|
4022 so don't bother counting in HOW_MUCH. |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4023 (INSERTED is where we count the number of characters inserted.) */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4024 if (! not_regular) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4025 how_much += this; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4026 inserted += this; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4027 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4028 } |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4029 |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4030 /* 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
|
4031 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
|
4032 |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4033 if (inserted == 0) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4034 { |
62299
3fa6e7b9d397
(Finsert_file_contents): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
62296
diff
changeset
|
4035 #ifdef CLASH_DETECTION |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4036 if (we_locked_file) |
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4037 unlock_file (current_buffer->file_truename); |
62299
3fa6e7b9d397
(Finsert_file_contents): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
62296
diff
changeset
|
4038 #endif |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4039 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
|
4040 } |
67495
5a3907cc23fc
(Finsert_file_contents): Set Vdeactivate_mark when we change the buffer.
Richard M. Stallman <rms@gnu.org>
parents:
67337
diff
changeset
|
4041 else |
5a3907cc23fc
(Finsert_file_contents): Set Vdeactivate_mark when we change the buffer.
Richard M. Stallman <rms@gnu.org>
parents:
67337
diff
changeset
|
4042 Vdeactivate_mark = Qt; |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
4043 |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4044 /* Make the text read part of the buffer. */ |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4045 GAP_SIZE -= inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4046 GPT += inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4047 GPT_BYTE += inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4048 ZV += inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4049 ZV_BYTE += inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4050 Z += inserted; |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4051 Z_BYTE += inserted; |
230 | 4052 |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4053 if (GAP_SIZE > 0) |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4054 /* 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
|
4055 *GPT_ADDR = 0; |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4056 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25934
diff
changeset
|
4057 emacs_close (fd); |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4058 |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4059 /* Discard the unwind protect for closing the file. */ |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4060 specpdl_ptr--; |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4061 |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4062 if (how_much < 0) |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4063 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
|
4064 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
|
4065 |
29152
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4066 notfound: |
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4067 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4068 if (NILP (coding_system)) |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4069 { |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4070 /* The coding system is not yet decided. Decide it by an |
26638 | 4071 optimized method for handling `coding:' tag. |
4072 | |
4073 Note that we can get here only if the buffer was empty | |
4074 before the insertion. */ | |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4075 |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4076 if (!NILP (Vcoding_system_for_read)) |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4077 coding_system = Vcoding_system_for_read; |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4078 else |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4079 { |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4080 /* 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
|
4081 before the insertion, we can toggle |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4082 enable-multibyte-characters directly here without taking |
89781
71b7464faec1
(Finsert_file_contents): Avoid detecting a code twice.
Kenichi Handa <handa@m17n.org>
parents:
89667
diff
changeset
|
4083 care of marker adjustment. By this way, we can run Lisp |
71b7464faec1
(Finsert_file_contents): Avoid detecting a code twice.
Kenichi Handa <handa@m17n.org>
parents:
89667
diff
changeset
|
4084 program safely before decoding the inserted text. */ |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4085 Lisp_Object unwind_data; |
60563
ca116ec246d7
(Finsert_file_contents): Call Fcheck_coding_system
Kenichi Handa <handa@m17n.org>
parents:
60387
diff
changeset
|
4086 int count = SPECPDL_INDEX (); |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4087 |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4088 unwind_data = Fcons (current_buffer->enable_multibyte_characters, |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4089 Fcons (current_buffer->undo_list, |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4090 Fcurrent_buffer ())); |
60563
ca116ec246d7
(Finsert_file_contents): Call Fcheck_coding_system
Kenichi Handa <handa@m17n.org>
parents:
60387
diff
changeset
|
4091 current_buffer->enable_multibyte_characters = Qnil; |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4092 current_buffer->undo_list = Qt; |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4093 record_unwind_protect (decide_coding_unwind, unwind_data); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4094 |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4095 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
|
4096 { |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4097 coding_system = call2 (Vset_auto_coding_function, |
89483 | 4098 filename, make_number (inserted)); |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4099 } |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4100 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4101 if (NILP (coding_system)) |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4102 { |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4103 /* 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
|
4104 file-coding-system-alist. */ |
89483 | 4105 Lisp_Object args[6]; |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4106 |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4107 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
|
4108 args[2] = visit, args[3] = beg, args[4] = end, args[5] = Qnil; |
89483 | 4109 coding_system = Ffind_operation_coding_system (6, args); |
4110 if (CONSP (coding_system)) | |
4111 coding_system = XCAR (coding_system); | |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4112 } |
26714
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4113 unbind_to (count, Qnil); |
7dff939f49fe
(decide_coding_unwind): Renamed from
Kenichi Handa <handa@m17n.org>
parents:
26638
diff
changeset
|
4114 inserted = Z_BYTE - BEG_BYTE; |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4115 } |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4116 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4117 if (NILP (coding_system)) |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4118 coding_system = Qundecided; |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4119 else |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4120 CHECK_CODING_SYSTEM (coding_system); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4121 |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4122 if (NILP (current_buffer->enable_multibyte_characters)) |
24932
27a1d7a4c444
(Finsert_file_contents): If reading into a unibyte
Richard M. Stallman <rms@gnu.org>
parents:
24909
diff
changeset
|
4123 /* 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
|
4124 end-of-line conversion. */ |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4125 coding_system = raw_text_coding_system (coding_system); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4126 setup_coding_system (coding_system, &coding); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4127 /* Ensure we set Vlast_coding_system_used. */ |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4128 set_coding_system = 1; |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4129 } |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4130 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4131 if (!NILP (visit)) |
1240
7365d006d0a0
(Finsert_file_contents): Do record_insert, then inc MODIFF.
Richard M. Stallman <rms@gnu.org>
parents:
1204
diff
changeset
|
4132 { |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4133 /* When we visit a file by raw-text, we change the buffer to |
89781
71b7464faec1
(Finsert_file_contents): Avoid detecting a code twice.
Kenichi Handa <handa@m17n.org>
parents:
89667
diff
changeset
|
4134 unibyte. */ |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4135 if (CODING_FOR_UNIBYTE (&coding) |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4136 /* Can't do this if part of the buffer might be preserved. */ |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4137 && NILP (replace)) |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4138 /* Visiting a file with these coding system makes the buffer |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4139 unibyte. */ |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4140 current_buffer->enable_multibyte_characters = Qnil; |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4141 } |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4142 |
89483 | 4143 coding.dst_multibyte = ! NILP (current_buffer->enable_multibyte_characters); |
89667
20a59c5d1d55
(kill_workbuf_unwind): Delete this function.
Kenichi Handa <handa@m17n.org>
parents:
89579
diff
changeset
|
4144 if (CODING_MAY_REQUIRE_DECODING (&coding) |
88431
d5ba4152bd1b
(Finsert_file_contents): Set coding_system to Qnil
Kenichi Handa <handa@m17n.org>
parents:
88374
diff
changeset
|
4145 && (inserted > 0 || CODING_REQUIRE_FLUSHING (&coding))) |
1240
7365d006d0a0
(Finsert_file_contents): Do record_insert, then inc MODIFF.
Richard M. Stallman <rms@gnu.org>
parents:
1204
diff
changeset
|
4146 { |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4147 move_gap_both (PT, PT_BYTE); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4148 GAP_SIZE += inserted; |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4149 ZV_BYTE -= inserted; |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4150 Z_BYTE -= inserted; |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4151 ZV -= inserted; |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4152 Z -= inserted; |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4153 decode_coding_gap (&coding, inserted, inserted); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4154 inserted = coding.produced_char; |
89667
20a59c5d1d55
(kill_workbuf_unwind): Delete this function.
Kenichi Handa <handa@m17n.org>
parents:
89579
diff
changeset
|
4155 coding_system = CODING_ID_NAME (coding.id); |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4156 } |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4157 else if (inserted > 0) |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4158 adjust_after_insert (PT, PT_BYTE, PT + inserted, PT_BYTE + inserted, |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4159 inserted); |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4160 |
50491
15f94db27199
(Finsert_file_contents): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
50340
diff
changeset
|
4161 /* Now INSERTED is measured in characters. */ |
15f94db27199
(Finsert_file_contents): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
50340
diff
changeset
|
4162 |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4163 #ifdef DOS_NT |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4164 /* 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
|
4165 (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
|
4166 conversion). */ |
89579
f15c12edaf6d
(Finsert_file_contents) [DOS_NT]: Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89577
diff
changeset
|
4167 if ((VECTORP (CODING_ID_EOL_TYPE (coding.id)) |
89577
804bc2c39305
(Finsert_file_contents) [DOS_NT]: Use the macro CODING_ID_EOL_TYPE..
Kenichi Handa <handa@m17n.org>
parents:
89548
diff
changeset
|
4168 || EQ (CODING_ID_EOL_TYPE (coding.id), Qunix)) |
22697
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4169 && ! CODING_REQUIRE_DECODING (&coding)) |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4170 current_buffer->buffer_file_type = Qt; |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4171 else |
578f11200ed5
(Finsert_file_contents): Cancel previous change. Setup
Kenichi Handa <handa@m17n.org>
parents:
22681
diff
changeset
|
4172 current_buffer->buffer_file_type = Qnil; |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4173 #endif |
230 | 4174 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4175 handled: |
230 | 4176 |
99554
ae79259858c8
(Finsert_file_contents): Decrement specpdl_ptr to avoid double file
Chong Yidong <cyd@stupidchicken.com>
parents:
98929
diff
changeset
|
4177 if (deferred_remove_unwind_protect) |
ae79259858c8
(Finsert_file_contents): Decrement specpdl_ptr to avoid double file
Chong Yidong <cyd@stupidchicken.com>
parents:
98929
diff
changeset
|
4178 /* If requested above, discard the unwind protect for closing the |
ae79259858c8
(Finsert_file_contents): Decrement specpdl_ptr to avoid double file
Chong Yidong <cyd@stupidchicken.com>
parents:
98929
diff
changeset
|
4179 file. */ |
ae79259858c8
(Finsert_file_contents): Decrement specpdl_ptr to avoid double file
Chong Yidong <cyd@stupidchicken.com>
parents:
98929
diff
changeset
|
4180 specpdl_ptr--; |
ae79259858c8
(Finsert_file_contents): Decrement specpdl_ptr to avoid double file
Chong Yidong <cyd@stupidchicken.com>
parents:
98929
diff
changeset
|
4181 |
485 | 4182 if (!NILP (visit)) |
230 | 4183 { |
92243
c03d2269686e
(Finsert_file_contents): Don't reset undo_list if no change
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92148
diff
changeset
|
4184 if (!EQ (current_buffer->undo_list, Qt) && !nochange) |
6177
ac2ef13dca1b
(Finsert_file_contents): If undo_list was t, leave it t.
Richard M. Stallman <rms@gnu.org>
parents:
6036
diff
changeset
|
4185 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
|
4186 |
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
|
4187 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
|
4188 { |
e11486a64dab
(Finsert_file_contents): Avoid setting buffer-file-name field if ran a handler.
Richard M. Stallman <rms@gnu.org>
parents:
5390
diff
changeset
|
4189 current_buffer->modtime = st.st_mtime; |
107845
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
4190 current_buffer->modtime_size = st.st_size; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4191 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
|
4192 } |
5390
d9c81d7079f3
(Finsert_file_contents): Don't run after change hook
Richard M. Stallman <rms@gnu.org>
parents:
5351
diff
changeset
|
4193 |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
4194 SAVE_MODIFF = MODIFF; |
106813
4040ecb0c904
Try to fix bug#5314. This is probably not the final word, tho.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106185
diff
changeset
|
4195 BUF_AUTOSAVE_MODIFF (current_buffer) = MODIFF; |
9307
44d6fc4b638b
(Finsert_file_contents, Fwrite_region, Fdo_auto_save, Fset_buffer_auto_saved):
Karl Heuer <kwzh@gnu.org>
parents:
9291
diff
changeset
|
4196 XSETFASTINT (current_buffer->save_length, Z - BEG); |
230 | 4197 #ifdef CLASH_DETECTION |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4198 if (NILP (handler)) |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4199 { |
11658
304577bc9b51
(Finsert_file_contents): Use file_truename for unlocking.
Richard M. Stallman <rms@gnu.org>
parents:
11632
diff
changeset
|
4200 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
|
4201 unlock_file (current_buffer->file_truename); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4202 unlock_file (filename); |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4203 } |
230 | 4204 #endif /* CLASH_DETECTION */ |
9915
ec185bc66071
(Finsert_file_contents): If VISIT, set the buffer components
Richard M. Stallman <rms@gnu.org>
parents:
9872
diff
changeset
|
4205 if (not_regular) |
71977
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
4206 xsignal2 (Qfile_error, |
6299774acc49
(report_file_error): Use xsignal.
Kim F. Storm <storm@cua.dk>
parents:
71818
diff
changeset
|
4207 build_string ("not a regular file"), orig_filename); |
230 | 4208 } |
4209 | |
50530
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4210 if (set_coding_system) |
89483 | 4211 Vlast_coding_system_used = coding_system; |
50530
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4212 |
50546
4a06e3332577
(Vafter_insert_file_adjust_coding_function): Delete
Kenichi Handa <handa@m17n.org>
parents:
50530
diff
changeset
|
4213 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
|
4214 { |
59207
3912575fcded
(Finsert_file_contents): Don't use
Kenichi Handa <handa@m17n.org>
parents:
59146
diff
changeset
|
4215 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
|
4216 visit); |
50530
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4217 if (! NILP (insval)) |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4218 { |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4219 CHECK_NUMBER (insval); |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4220 inserted = XFASTINT (insval); |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4221 } |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4222 } |
987ee3ecc0a8
* fileio.c (Vafter_insert_file_adjust_coding_function): New
Kenichi Handa <handa@m17n.org>
parents:
50500
diff
changeset
|
4223 |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4224 /* Decode file format. */ |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4225 if (inserted > 0) |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4226 { |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4227 /* Don't run point motion or modification hooks when decoding. */ |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4228 int count = SPECPDL_INDEX (); |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
4229 EMACS_INT old_inserted = inserted; |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4230 specbind (Qinhibit_point_motion_hooks, Qt); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4231 specbind (Qinhibit_modification_hooks, Qt); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4232 |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4233 /* Save old undo list and don't record undo for decoding. */ |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4234 old_undo = current_buffer->undo_list; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4235 current_buffer->undo_list = Qt; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4236 |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4237 if (NILP (replace)) |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4238 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4239 insval = call3 (Qformat_decode, |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4240 Qnil, make_number (inserted), visit); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4241 CHECK_NUMBER (insval); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4242 inserted = XFASTINT (insval); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4243 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4244 else |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4245 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4246 /* If REPLACE is non-nil and we succeeded in not replacing the |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4247 beginning or end of the buffer text with the file's contents, |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4248 call format-decode with `point' positioned at the beginning |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4249 of the buffer and `inserted' equalling the number of |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4250 characters in the buffer. Otherwise, format-decode might |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4251 fail to correctly analyze the beginning or end of the buffer. |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4252 Hence we temporarily save `point' and `inserted' here and |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4253 restore `point' iff format-decode did not insert or delete |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4254 any text. Otherwise we leave `point' at point-min. */ |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
4255 EMACS_INT opoint = PT; |
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
4256 EMACS_INT opoint_byte = PT_BYTE; |
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
4257 EMACS_INT oinserted = ZV - BEGV; |
82809
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4258 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
|
4259 |
b31c7731df51
* fileio.c (Fcopy_file): Call file name handler with preserve_uid_gid.
Michael Albinus <michael.albinus@gmx.de>
parents:
85335
diff
changeset
|
4260 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
|
4261 insval = call3 (Qformat_decode, |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4262 Qnil, make_number (oinserted), visit); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4263 CHECK_NUMBER (insval); |
82809
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4264 if (ochars_modiff == CHARS_MODIFF) |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4265 /* 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
|
4266 point back to position before inserted text and leave |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4267 value of inserted alone. */ |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4268 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
|
4269 else |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4270 /* format_decode modified buffer's characters => consider |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4271 entire buffer changed and leave point at point-min. */ |
82809
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4272 inserted = XFASTINT (insval); |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4273 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4274 |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4275 /* For consistency with format-decode call these now iff inserted > 0 |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4276 (martin 2007-06-28). */ |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4277 p = Vafter_insert_file_functions; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4278 while (CONSP (p)) |
34167
ce6d3ca84e6d
(Finsert_file_contents): When VISIT is t, don't
Gerd Moellmann <gerd@gnu.org>
parents:
34104
diff
changeset
|
4279 { |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4280 if (NILP (replace)) |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4281 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4282 insval = call1 (XCAR (p), make_number (inserted)); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4283 if (!NILP (insval)) |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4284 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4285 CHECK_NUMBER (insval); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4286 inserted = XFASTINT (insval); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4287 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4288 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4289 else |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4290 { |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4291 /* For the rationale of this see the comment on |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4292 format-decode above. */ |
102753
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
4293 EMACS_INT opoint = PT; |
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
4294 EMACS_INT opoint_byte = PT_BYTE; |
b6116169967f
* insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
102752
diff
changeset
|
4295 EMACS_INT oinserted = ZV - BEGV; |
82809
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4296 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
|
4297 |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4298 TEMP_SET_PT_BOTH (BEGV, BEGV_BYTE); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4299 insval = call1 (XCAR (p), make_number (oinserted)); |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4300 if (!NILP (insval)) |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4301 { |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4302 CHECK_NUMBER (insval); |
82809
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4303 if (ochars_modiff == CHARS_MODIFF) |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4304 /* 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
|
4305 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
|
4306 position before inserted text and leave value of |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4307 inserted alone. */ |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4308 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
|
4309 else |
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4310 /* 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
|
4311 characters => consider entire buffer changed and |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4312 leave point at point-min. */ |
82809
496cd44c3983
(Finsert_file_contents): Consult CHARS_MODIFF to tell
Martin Rudalics <rudalics@gmx.at>
parents:
82365
diff
changeset
|
4313 inserted = XFASTINT (insval); |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4314 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4315 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4316 |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4317 QUIT; |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4318 p = XCDR (p); |
34167
ce6d3ca84e6d
(Finsert_file_contents): When VISIT is t, don't
Gerd Moellmann <gerd@gnu.org>
parents:
34104
diff
changeset
|
4319 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4320 |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4321 if (NILP (visit)) |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4322 { |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4323 current_buffer->undo_list = old_undo; |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4324 if (CONSP (old_undo) && inserted != old_inserted) |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4325 { |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4326 /* Adjust the last undo record for the size change during |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4327 the format conversion. */ |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4328 Lisp_Object tem = XCAR (old_undo); |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4329 if (CONSP (tem) && INTEGERP (XCAR (tem)) |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4330 && INTEGERP (XCDR (tem)) |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4331 && XFASTINT (XCDR (tem)) == PT + old_inserted) |
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4332 XSETCDR (tem, make_number (PT + inserted)); |
82310
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4333 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4334 } |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4335 else |
82357
70180028ad92
(Finsert_file_contents): Yet Another Int/Lisp_Object Mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82310
diff
changeset
|
4336 /* If undo_list was Qt before, keep it that way. |
96974
fa6516860909
(Finsert_file_contents): Properly adjust undo list
Andreas Schwab <schwab@suse.de>
parents:
96595
diff
changeset
|
4337 Otherwise start with an empty undo_list. */ |
82357
70180028ad92
(Finsert_file_contents): Yet Another Int/Lisp_Object Mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82310
diff
changeset
|
4338 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
|
4339 |
b9c61edbe743
(Finsert_file_contents): Run format-decode and
Martin Rudalics <rudalics@gmx.at>
parents:
82251
diff
changeset
|
4340 unbind_to (count, Qnil); |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4341 } |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4342 |
17396
7fbce3c83857
(Finsert_file_contents): Do call signal_after_change
Richard M. Stallman <rms@gnu.org>
parents:
17287
diff
changeset
|
4343 /* 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
|
4344 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
|
4345 "before" the buffer is changed. */ |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4346 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
|
4347 && (NILP (visit) || !NILP (replace))) |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4348 { |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4349 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
|
4350 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
|
4351 } |
20432
987ddd5cb6ee
(Finsert_file_contents): Set Vlast_coding_system_used
Kenichi Handa <handa@m17n.org>
parents:
20370
diff
changeset
|
4352 |
29152
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4353 if (!NILP (visit) |
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4354 && current_buffer->modtime == -1) |
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4355 { |
9e9b47b53f50
1999-06-01 Kenichi HANDA <handa@etl.go.jp>
Dave Love <fx@gnu.org>
parents:
29009
diff
changeset
|
4356 /* 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
|
4357 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
|
4358 } |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4359 |
38450
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4360 if (read_quit) |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4361 Fsignal (Qquit, Qnil); |
8416a4627a13
(unwind_read): Function removed.
Gerd Moellmann <gerd@gnu.org>
parents:
38367
diff
changeset
|
4362 |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4363 /* ??? 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
|
4364 if (NILP (val)) |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4365 val = Fcons (orig_filename, |
6036
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
4366 Fcons (make_number (inserted), |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
4367 Qnil)); |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
4368 |
7e9984c9a36e
(Finsert_file_contents): If REPLACE, always do lseek.
Richard M. Stallman <rms@gnu.org>
parents:
5978
diff
changeset
|
4369 RETURN_UNGCPRO (unbind_to (count, val)); |
230 | 4370 } |
3787
04b741620a50
* fileio.c (Finsert_file_contents): Two new args, BEG and END.
Jim Blandy <jimb@redhat.com>
parents:
3721
diff
changeset
|
4371 |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
108888
diff
changeset
|
4372 static Lisp_Object build_annotations (Lisp_Object, Lisp_Object); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4373 |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
4374 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
4375 build_annotations_unwind (Lisp_Object arg) |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4376 { |
101335
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4377 Vwrite_region_annotation_buffers = arg; |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4378 return Qnil; |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4379 } |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4380 |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4381 /* 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
|
4382 |
89478
756c32423971
(choose_write_coding_system): Return a decided coding system.
Kenichi Handa <handa@m17n.org>
parents:
89449
diff
changeset
|
4383 static Lisp_Object |
109139
c25c24812fb1
Convert declarations or definitions to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109138
diff
changeset
|
4384 choose_write_coding_system (Lisp_Object start, Lisp_Object end, Lisp_Object filename, |
c25c24812fb1
Convert declarations or definitions to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109138
diff
changeset
|
4385 Lisp_Object append, Lisp_Object visit, Lisp_Object lockname, |
c25c24812fb1
Convert declarations or definitions to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109138
diff
changeset
|
4386 struct coding_system *coding) |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4387 { |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4388 Lisp_Object val; |
90588
3cc17c82c7df
(Finsert_file_contents): On recovering a file, assume
Kenichi Handa <handa@m17n.org>
parents:
90533
diff
changeset
|
4389 Lisp_Object eol_parent = Qnil; |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4390 |
53363
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4391 if (auto_saving |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4392 && NILP (Fstring_equal (current_buffer->filename, |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4393 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
|
4394 { |
90588
3cc17c82c7df
(Finsert_file_contents): On recovering a file, assume
Kenichi Handa <handa@m17n.org>
parents:
90533
diff
changeset
|
4395 val = Qutf_8_emacs; |
3cc17c82c7df
(Finsert_file_contents): On recovering a file, assume
Kenichi Handa <handa@m17n.org>
parents:
90533
diff
changeset
|
4396 eol_parent = Qunix; |
51357
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
4397 } |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4398 else if (!NILP (Vcoding_system_for_write)) |
48876
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4399 { |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4400 val = Vcoding_system_for_write; |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4401 if (coding_system_require_warning |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4402 && !NILP (Ffboundp (Vselect_safe_coding_system_function))) |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4403 /* 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
|
4404 val = call5 (Vselect_safe_coding_system_function, |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4405 start, end, Fcons (Qt, Fcons (val, Qnil)), |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4406 Qnil, filename); |
0b4aeb4594ad
(choose_write_coding_system): Even if
Kenichi Handa <handa@m17n.org>
parents:
48725
diff
changeset
|
4407 } |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4408 else |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4409 { |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4410 /* 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
|
4411 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
|
4412 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
|
4413 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
|
4414 `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
|
4415 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4416 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
|
4417 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
|
4418 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
|
4419 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
|
4420 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
|
4421 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4422 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
|
4423 if (NILP (val) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4424 || 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
|
4425 { |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4426 val = Qnil; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4427 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
|
4428 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
|
4429 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4430 |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4431 if (NILP (val)) |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4432 { |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4433 /* 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
|
4434 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
|
4435 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4436 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
|
4437 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
|
4438 args[6] = lockname; |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4439 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
|
4440 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
|
4441 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
|
4442 } |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4443 |
89478
756c32423971
(choose_write_coding_system): Return a decided coding system.
Kenichi Handa <handa@m17n.org>
parents:
89449
diff
changeset
|
4444 if (NILP (val)) |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4445 { |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4446 /* 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
|
4447 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
|
4448 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
|
4449 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
|
4450 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4451 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4452 if (! NILP (val) && ! force_raw_text) |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4453 { |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4454 Lisp_Object spec, attrs; |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4455 |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4456 CHECK_CODING_SYSTEM_GET_SPEC (val, spec); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4457 attrs = AREF (spec, 0); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4458 if (EQ (CODING_ATTR_TYPE (attrs), Qraw_text)) |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4459 force_raw_text = 1; |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4460 } |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4461 |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4462 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
|
4463 && !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
|
4464 /* 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
|
4465 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
|
4466 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
|
4467 |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4468 /* If the decided coding-system doesn't specify end-of-line |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4469 format, we use that of |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4470 `default-buffer-file-coding-system'. */ |
89478
756c32423971
(choose_write_coding_system): Return a decided coding system.
Kenichi Handa <handa@m17n.org>
parents:
89449
diff
changeset
|
4471 if (! using_default_coding |
756c32423971
(choose_write_coding_system): Return a decided coding system.
Kenichi Handa <handa@m17n.org>
parents:
89449
diff
changeset
|
4472 && ! NILP (buffer_defaults.buffer_file_coding_system)) |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4473 val = (coding_inherit_eol_type |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4474 (val, buffer_defaults.buffer_file_coding_system)); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4475 |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4476 /* If we decide not to encode text, use `raw-text' or one of its |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4477 subsidiaries. */ |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4478 if (force_raw_text) |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4479 val = raw_text_coding_system (val); |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4480 } |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4481 |
90588
3cc17c82c7df
(Finsert_file_contents): On recovering a file, assume
Kenichi Handa <handa@m17n.org>
parents:
90533
diff
changeset
|
4482 val = coding_inherit_eol_type (val, eol_parent); |
89478
756c32423971
(choose_write_coding_system): Return a decided coding system.
Kenichi Handa <handa@m17n.org>
parents:
89449
diff
changeset
|
4483 setup_coding_system (val, coding); |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4484 |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4485 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
|
4486 coding->mode |= CODING_MODE_SELECTIVE_DISPLAY; |
89478
756c32423971
(choose_write_coding_system): Return a decided coding system.
Kenichi Handa <handa@m17n.org>
parents:
89449
diff
changeset
|
4487 return val; |
41151
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4488 } |
02fcac02955b
(choose_write_coding_system): New fun, extracted from Fwrite_region.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41032
diff
changeset
|
4489 |
21020
f7ace8487b28
(auto_save_1): Pass new arg to Fwrite_region.
Richard M. Stallman <rms@gnu.org>
parents:
20944
diff
changeset
|
4490 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
|
4491 "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
|
4492 doc: /* Write current region into specified file. |
41993
0b548ba2f6d6
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41969
diff
changeset
|
4493 When called from a program, requires three arguments: |
0b548ba2f6d6
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41969
diff
changeset
|
4494 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
|
4495 specifying the part of the buffer to write. |
0b548ba2f6d6
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41969
diff
changeset
|
4496 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
|
4497 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
|
4498 instead of any buffer contents; END is ignored. |
0b548ba2f6d6
(Fwrite_region): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41969
diff
changeset
|
4499 |
40123
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4500 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
|
4501 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
|
4502 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
|
4503 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
|
4504 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
|
4505 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
|
4506 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
|
4507 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
|
4508 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
|
4509 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
|
4510 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
|
4511 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
|
4512 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
|
4513 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
|
4514 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
|
4515 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
|
4516 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
|
4517 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
|
4518 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
|
4519 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
4520 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
|
4521 `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
|
4522 `file-coding-system-alist', and sets the variable |
101788
dc93dbd4d490
(Fwrite_region): Doc fix (mention annotate-functions).
Glenn Morris <rgm@gnu.org>
parents:
101335
diff
changeset
|
4523 `last-coding-system-used' to the coding system actually used. |
dc93dbd4d490
(Fwrite_region): Doc fix (mention annotate-functions).
Glenn Morris <rgm@gnu.org>
parents:
101335
diff
changeset
|
4524 |
dc93dbd4d490
(Fwrite_region): Doc fix (mention annotate-functions).
Glenn Morris <rgm@gnu.org>
parents:
101335
diff
changeset
|
4525 This calls `write-region-annotate-functions' at the start, and |
dc93dbd4d490
(Fwrite_region): Doc fix (mention annotate-functions).
Glenn Morris <rgm@gnu.org>
parents:
101335
diff
changeset
|
4526 `write-region-post-annotation-function' at the end. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
4527 (Lisp_Object start, Lisp_Object end, Lisp_Object filename, Lisp_Object append, Lisp_Object visit, Lisp_Object lockname, Lisp_Object mustbenew) |
230 | 4528 { |
4529 register int desc; | |
4530 int failure; | |
31829
43566b0aec59
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31775
diff
changeset
|
4531 int save_errno = 0; |
46465
5c56d4068a01
(report_file_error): String pointer args now point to
Ken Raeburn <raeburn@raeburn.org>
parents:
46424
diff
changeset
|
4532 const unsigned char *fn; |
230 | 4533 struct stat st; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
4534 int count = SPECPDL_INDEX (); |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4535 int count1; |
848 | 4536 Lisp_Object handler; |
2407
1c590cd84ab3
(Fexpand_file_name): Default DEFALT at beginning,
Richard M. Stallman <rms@gnu.org>
parents:
2280
diff
changeset
|
4537 Lisp_Object visit_file; |
41211
2e188a8c4ad8
(Fwrite_region): Avoid initializer for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
41181
diff
changeset
|
4538 Lisp_Object annotations; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4539 Lisp_Object encoded_filename; |
33249
bc4bfaca97aa
(Fwrite_region): Use `visiting' rather than `visit'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31829
diff
changeset
|
4540 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
|
4541 int quietly = !NILP (visit); |
12853
032f8aae6bbe
(Fwrite_region): New arg lockname.
Richard M. Stallman <rms@gnu.org>
parents:
12642
diff
changeset
|
4542 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
|
4543 struct buffer *given_buffer; |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
4544 #ifdef DOS_NT |
18764
2ef1d8539441
(Fwrite_region) [DOS_NT]: Always use binary mode since
Richard M. Stallman <rms@gnu.org>
parents:
18744
diff
changeset
|
4545 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
|
4546 #endif /* DOS_NT */ |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4547 struct coding_system coding; |
230 | 4548 |
33249
bc4bfaca97aa
(Fwrite_region): Use `visiting' rather than `visit'
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31829
diff
changeset
|
4549 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
|
4550 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
|
4551 |
5410
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
4552 if (!NILP (start) && !STRINGP (start)) |
230 | 4553 validate_region (&start, &end); |
4554 | |
69597
df847a0b85d2
(Fwrite_region): Set visit_file to Qnil before GCPRO
Kenichi Handa <handa@m17n.org>
parents:
69136
diff
changeset
|
4555 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
|
4556 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
|
4557 |
2407
1c590cd84ab3
(Fexpand_file_name): Default DEFALT at beginning,
Richard M. Stallman <rms@gnu.org>
parents:
2280
diff
changeset
|
4558 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
|
4559 |
41181
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4560 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
|
4561 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
|
4562 |
5410
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
4563 if (STRINGP (visit)) |
2435
b72453ad92ae
(Fwrite_region): Don't fail to set visit_file.
Richard M. Stallman <rms@gnu.org>
parents:
2407
diff
changeset
|
4564 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
|
4565 else |
1c590cd84ab3
(Fexpand_file_name): Default DEFALT at beginning,
Richard M. Stallman <rms@gnu.org>
parents:
2280
diff
changeset
|
4566 visit_file = filename; |
1c590cd84ab3
(Fexpand_file_name): Default DEFALT at beginning,
Richard M. Stallman <rms@gnu.org>
parents:
2280
diff
changeset
|
4567 |
12853
032f8aae6bbe
(Fwrite_region): New arg lockname.
Richard M. Stallman <rms@gnu.org>
parents:
12642
diff
changeset
|
4568 if (NILP (lockname)) |
032f8aae6bbe
(Fwrite_region): New arg lockname.
Richard M. Stallman <rms@gnu.org>
parents:
12642
diff
changeset
|
4569 lockname = visit_file; |
032f8aae6bbe
(Fwrite_region): New arg lockname.
Richard M. Stallman <rms@gnu.org>
parents:
12642
diff
changeset
|
4570 |
41211
2e188a8c4ad8
(Fwrite_region): Avoid initializer for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
41181
diff
changeset
|
4571 annotations = Qnil; |
2e188a8c4ad8
(Fwrite_region): Avoid initializer for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
41181
diff
changeset
|
4572 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4573 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4574 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
|
4575 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
|
4576 /* 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
|
4577 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
|
4578 handler = Ffind_file_name_handler (visit, Qwrite_region); |
848 | 4579 |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4580 if (!NILP (handler)) |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4581 { |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4582 Lisp_Object val; |
3705
309c27256ceb
(Fcopy_file): Pass all the args to the handler.
Richard M. Stallman <rms@gnu.org>
parents:
3598
diff
changeset
|
4583 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
|
4584 filename, append, visit); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4585 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4586 if (visiting) |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4587 { |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
4588 SAVE_MODIFF = MODIFF; |
104015
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
4589 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
|
4590 current_buffer->filename = visit_file; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4591 } |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
4592 UNGCPRO; |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4593 return val; |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4594 } |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
4595 |
51557
3df5bc22c5e4
(Fwrite_region): Save and restore restriction.
Kenichi Handa <handa@m17n.org>
parents:
51357
diff
changeset
|
4596 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
|
4597 |
5410
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
4598 /* 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
|
4599 if (NILP (start)) |
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
4600 { |
95362
e886c765584a
* src/fileio.c (Fwrite_region): Delay the defaulting to beg&z to after
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95210
diff
changeset
|
4601 /* Do it later, so write-region-annotate-function can work differently |
e886c765584a
* src/fileio.c (Fwrite_region): Delay the defaulting to beg&z to after
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95210
diff
changeset
|
4602 if we save "the buffer" vs "a region". |
e886c765584a
* src/fileio.c (Fwrite_region): Delay the defaulting to beg&z to after
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95210
diff
changeset
|
4603 This is useful in tar-mode. --Stef |
9307
44d6fc4b638b
(Finsert_file_contents, Fwrite_region, Fdo_auto_save, Fset_buffer_auto_saved):
Karl Heuer <kwzh@gnu.org>
parents:
9291
diff
changeset
|
4604 XSETFASTINT (start, BEG); |
95362
e886c765584a
* src/fileio.c (Fwrite_region): Delay the defaulting to beg&z to after
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95210
diff
changeset
|
4605 XSETFASTINT (end, Z); */ |
51557
3df5bc22c5e4
(Fwrite_region): Save and restore restriction.
Kenichi Handa <handa@m17n.org>
parents:
51357
diff
changeset
|
4606 Fwiden (); |
5410
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
4607 } |
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
4608 |
101335
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4609 record_unwind_protect (build_annotations_unwind, |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4610 Vwrite_region_annotation_buffers); |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4611 Vwrite_region_annotation_buffers = Fcons (Fcurrent_buffer (), Qnil); |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
4612 count1 = SPECPDL_INDEX (); |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4613 |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4614 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
|
4615 |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
4616 if (!STRINGP (start)) |
41181
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4617 { |
45561
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
4618 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
|
4619 |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
4620 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
|
4621 { |
54b933234eb4
(Fwrite_region): If START is a string, don't make any annotations.
Richard M. Stallman <rms@gnu.org>
parents:
45551
diff
changeset
|
4622 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
|
4623 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
|
4624 } |
41181
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4625 } |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4626 |
95362
e886c765584a
* src/fileio.c (Fwrite_region): Delay the defaulting to beg&z to after
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95210
diff
changeset
|
4627 if (NILP (start)) |
e886c765584a
* src/fileio.c (Fwrite_region): Delay the defaulting to beg&z to after
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95210
diff
changeset
|
4628 { |
e886c765584a
* src/fileio.c (Fwrite_region): Delay the defaulting to beg&z to after
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95210
diff
changeset
|
4629 XSETFASTINT (start, BEGV); |
e886c765584a
* src/fileio.c (Fwrite_region): Delay the defaulting to beg&z to after
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95210
diff
changeset
|
4630 XSETFASTINT (end, ZV); |
e886c765584a
* src/fileio.c (Fwrite_region): Delay the defaulting to beg&z to after
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95210
diff
changeset
|
4631 } |
e886c765584a
* src/fileio.c (Fwrite_region): Delay the defaulting to beg&z to after
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95210
diff
changeset
|
4632 |
41181
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4633 UNGCPRO; |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4634 |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4635 GCPRO5 (start, filename, annotations, visit_file, lockname); |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4636 |
41288
1d1183771c4f
(Fwrite_region): Move choose_write_coding_system to after build_annotations.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41211
diff
changeset
|
4637 /* 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
|
4638 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
|
4639 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
|
4640 unsavable chars (as was the case with X-Symbol). */ |
89478
756c32423971
(choose_write_coding_system): Return a decided coding system.
Kenichi Handa <handa@m17n.org>
parents:
89449
diff
changeset
|
4641 Vlast_coding_system_used |
756c32423971
(choose_write_coding_system): Return a decided coding system.
Kenichi Handa <handa@m17n.org>
parents:
89449
diff
changeset
|
4642 = choose_write_coding_system (start, end, filename, |
756c32423971
(choose_write_coding_system): Return a decided coding system.
Kenichi Handa <handa@m17n.org>
parents:
89449
diff
changeset
|
4643 append, visit, lockname, &coding); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4644 |
230 | 4645 #ifdef CLASH_DETECTION |
4646 if (!auto_saving) | |
101335
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4647 lock_file (lockname); |
230 | 4648 #endif /* CLASH_DETECTION */ |
4649 | |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4650 encoded_filename = ENCODE_FILE (filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4651 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
4652 fn = SDATA (encoded_filename); |
230 | 4653 desc = -1; |
485 | 4654 if (!NILP (append)) |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
4655 #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
|
4656 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
|
4657 #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
|
4658 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
|
4659 #endif /* not DOS_NT */ |
230 | 4660 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
4661 if (desc < 0 && (NILP (append) || errno == ENOENT)) |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
4662 #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
|
4663 desc = emacs_open (fn, |
36693
ca1461008b2c
(Fwrite_region) [DOS_NT]: Remove O_TRUNC from open
Gerd Moellmann <gerd@gnu.org>
parents:
36633
diff
changeset
|
4664 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
|
4665 | (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
|
4666 S_IREAD | S_IWRITE); |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
4667 #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
|
4668 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
|
4669 | (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
|
4670 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
|
4671 #endif /* not DOS_NT */ |
230 | 4672 |
4673 if (desc < 0) | |
4674 { | |
4675 #ifdef CLASH_DETECTION | |
4676 save_errno = errno; | |
12853
032f8aae6bbe
(Fwrite_region): New arg lockname.
Richard M. Stallman <rms@gnu.org>
parents:
12642
diff
changeset
|
4677 if (!auto_saving) unlock_file (lockname); |
230 | 4678 errno = save_errno; |
4679 #endif /* CLASH_DETECTION */ | |
28846
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
4680 UNGCPRO; |
230 | 4681 report_file_error ("Opening output file", Fcons (filename, Qnil)); |
4682 } | |
4683 | |
4684 record_unwind_protect (close_file_unwind, make_number (desc)); | |
4685 | |
22681
127d903d615a
(Ffile_regular_p) [WINDOWSNT]: Bind
Richard M. Stallman <rms@gnu.org>
parents:
22668
diff
changeset
|
4686 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
|
4687 { |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
4688 long ret; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4689 |
28846
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
4690 if (NUMBERP (append)) |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
4691 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
|
4692 else |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
4693 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
|
4694 if (ret < 0) |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
4695 { |
230 | 4696 #ifdef CLASH_DETECTION |
28846
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
4697 if (!auto_saving) unlock_file (lockname); |
230 | 4698 #endif /* CLASH_DETECTION */ |
28846
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
4699 UNGCPRO; |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
4700 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
|
4701 } |
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
4702 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4703 |
28846
0027ff9c083a
(Fwrite_region): If APPEND arg is an integer, seek to
Dave Love <fx@gnu.org>
parents:
28697
diff
changeset
|
4704 UNGCPRO; |
230 | 4705 |
4706 failure = 0; | |
4707 immediate_quit = 1; | |
4708 | |
5410
c96b98efb5b4
(Fwrite_region): Don't change START and END from nil
Richard M. Stallman <rms@gnu.org>
parents:
5395
diff
changeset
|
4709 if (STRINGP (start)) |
230 | 4710 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
4711 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
|
4712 &annotations, &coding); |
230 | 4713 save_errno = errno; |
4714 } | |
4715 else if (XINT (start) != XINT (end)) | |
4716 { | |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4717 failure = 0 > a_write (desc, Qnil, |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4718 XINT (start), XINT (end) - XINT (start), |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4719 &annotations, &coding); |
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4720 save_errno = errno; |
13451
3a69848f7892
(Fwrite_region): Move the code that writes annotations for empty files.
Richard M. Stallman <rms@gnu.org>
parents:
13221
diff
changeset
|
4721 } |
3a69848f7892
(Fwrite_region): Move the code that writes annotations for empty files.
Richard M. Stallman <rms@gnu.org>
parents:
13221
diff
changeset
|
4722 else |
3a69848f7892
(Fwrite_region): Move the code that writes annotations for empty files.
Richard M. Stallman <rms@gnu.org>
parents:
13221
diff
changeset
|
4723 { |
3a69848f7892
(Fwrite_region): Move the code that writes annotations for empty files.
Richard M. Stallman <rms@gnu.org>
parents:
13221
diff
changeset
|
4724 /* 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
|
4725 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
|
4726 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
|
4727 save_errno = errno; |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4728 } |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4729 |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4730 if (CODING_REQUIRE_FLUSHING (&coding) |
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4731 && !(coding.mode & CODING_MODE_LAST_BLOCK) |
20651
0de9f45a1db6
(Finsert_file_contents): When not decoding,
Richard M. Stallman <rms@gnu.org>
parents:
20621
diff
changeset
|
4732 && ! failure) |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4733 { |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4734 /* We have to flush out a data. */ |
20713
bab57112b50e
(Finsert_file_contents): Even if
Kenichi Handa <handa@m17n.org>
parents:
20707
diff
changeset
|
4735 coding.mode |= CODING_MODE_LAST_BLOCK; |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4736 failure = 0 > e_write (desc, Qnil, 1, 1, &coding); |
13451
3a69848f7892
(Fwrite_region): Move the code that writes annotations for empty files.
Richard M. Stallman <rms@gnu.org>
parents:
13221
diff
changeset
|
4737 save_errno = errno; |
230 | 4738 } |
4739 | |
4740 immediate_quit = 0; | |
4741 | |
2280
bd56d208ed22
* fileio.c (HAVE_FSYNC): Define, if appropriate.
Jim Blandy <jimb@redhat.com>
parents:
2257
diff
changeset
|
4742 #ifdef HAVE_FSYNC |
230 | 4743 /* Note fsync appears to change the modtime on BSD4.2 (both vax and sun). |
4744 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
|
4745 /* 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
|
4746 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
|
4747 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
|
4748 { |
78980
ac06b6d5fee4
(Fwrite_region): Ignore EINVAL error from fsync.
Andreas Schwab <schwab@suse.de>
parents:
78501
diff
changeset
|
4749 /* 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
|
4750 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
|
4751 file. */ |
ac06b6d5fee4
(Fwrite_region): Ignore EINVAL error from fsync.
Andreas Schwab <schwab@suse.de>
parents:
78501
diff
changeset
|
4752 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
|
4753 failure = 1, save_errno = errno; |
1a96888d82ed
(Fwrite_region): If fsync fails with EINTR, don't
Karl Heuer <kwzh@gnu.org>
parents:
12369
diff
changeset
|
4754 } |
230 | 4755 #endif |
4756 | |
4757 /* 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
|
4758 if (emacs_close (desc) < 0) |
230 | 4759 failure = 1, save_errno = errno; |
4760 | |
4761 stat (fn, &st); | |
101335
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4762 |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4763 /* 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
|
4764 specpdl_ptr = specpdl + count1; |
101335
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4765 |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4766 /* Call write-region-post-annotation-function. */ |
101935
b6d5d903f0ce
(Fwrite_region): !NILP -> CONSP.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
101788
diff
changeset
|
4767 while (CONSP (Vwrite_region_annotation_buffers)) |
101335
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4768 { |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4769 Lisp_Object buf = XCAR (Vwrite_region_annotation_buffers); |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4770 if (!NILP (Fbuffer_live_p (buf))) |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4771 { |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4772 Fset_buffer (buf); |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4773 if (FUNCTIONP (Vwrite_region_post_annotation_function)) |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4774 call0 (Vwrite_region_post_annotation_function); |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4775 } |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4776 Vwrite_region_annotation_buffers |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4777 = XCDR (Vwrite_region_annotation_buffers); |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4778 } |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4779 |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4780 unbind_to (count, Qnil); |
230 | 4781 |
4782 #ifdef CLASH_DETECTION | |
4783 if (!auto_saving) | |
12853
032f8aae6bbe
(Fwrite_region): New arg lockname.
Richard M. Stallman <rms@gnu.org>
parents:
12642
diff
changeset
|
4784 unlock_file (lockname); |
230 | 4785 #endif /* CLASH_DETECTION */ |
4786 | |
4787 /* Do this before reporting IO error | |
4788 to avoid a "file has changed on disk" warning on | |
4789 next attempt to save. */ | |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4790 if (visiting) |
107845
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
4791 { |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
4792 current_buffer->modtime = st.st_mtime; |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
4793 current_buffer->modtime_size = st.st_size; |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
4794 } |
230 | 4795 |
4796 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
|
4797 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
|
4798 emacs_strerror (save_errno)); |
230 | 4799 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4800 if (visiting) |
230 | 4801 { |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
4802 SAVE_MODIFF = MODIFF; |
104015
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
4803 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
|
4804 current_buffer->filename = visit_file; |
7551
69f20f10799a
(Fwrite_region): Set update_mode_lines.
Richard M. Stallman <rms@gnu.org>
parents:
7549
diff
changeset
|
4805 update_mode_lines++; |
230 | 4806 } |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4807 else if (quietly) |
53363
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4808 { |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4809 if (auto_saving |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4810 && ! NILP (Fstring_equal (current_buffer->filename, |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4811 current_buffer->auto_save_file_name))) |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4812 SAVE_MODIFF = MODIFF; |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4813 |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4814 return Qnil; |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
4815 } |
230 | 4816 |
4817 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
|
4818 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
|
4819 ? "Updated %s" |
758b45c47650
(Fwrite_region): Alternate messages for append and partial write.
Richard M. Stallman <rms@gnu.org>
parents:
51559
diff
changeset
|
4820 : ! NILP (append) |
758b45c47650
(Fwrite_region): Alternate messages for append and partial write.
Richard M. Stallman <rms@gnu.org>
parents:
51559
diff
changeset
|
4821 ? "Added to %s" |
758b45c47650
(Fwrite_region): Alternate messages for append and partial write.
Richard M. Stallman <rms@gnu.org>
parents:
51559
diff
changeset
|
4822 : "Wrote %s"), |
758b45c47650
(Fwrite_region): Alternate messages for append and partial write.
Richard M. Stallman <rms@gnu.org>
parents:
51559
diff
changeset
|
4823 visit_file, 1); |
230 | 4824 |
4825 return Qnil; | |
4826 } | |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4827 |
109139
c25c24812fb1
Convert declarations or definitions to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109138
diff
changeset
|
4828 Lisp_Object merge (Lisp_Object, Lisp_Object, Lisp_Object); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4829 |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4830 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
|
4831 doc: /* Return t if (car A) is numerically less than (car B). */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
4832 (Lisp_Object a, Lisp_Object b) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4833 { |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4834 return Flss (Fcar (a), Fcar (b)); |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4835 } |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4836 |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4837 /* 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
|
4838 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
|
4839 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
|
4840 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
|
4841 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
|
4842 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
|
4843 as save-excursion would do. */ |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4844 |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4845 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
4846 build_annotations (Lisp_Object start, Lisp_Object end) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4847 { |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4848 Lisp_Object annotations; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4849 Lisp_Object p, res; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4850 struct gcpro gcpro1, gcpro2; |
16044
63b85944e37b
(build_annotations): Remember original buffer that the
Richard M. Stallman <rms@gnu.org>
parents:
15738
diff
changeset
|
4851 Lisp_Object original_buffer; |
50829
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
4852 int i, used_global = 0; |
16044
63b85944e37b
(build_annotations): Remember original buffer that the
Richard M. Stallman <rms@gnu.org>
parents:
15738
diff
changeset
|
4853 |
63b85944e37b
(build_annotations): Remember original buffer that the
Richard M. Stallman <rms@gnu.org>
parents:
15738
diff
changeset
|
4854 XSETBUFFER (original_buffer, current_buffer); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4855 |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4856 annotations = Qnil; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4857 p = Vwrite_region_annotate_functions; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4858 GCPRO2 (annotations, p); |
45485
08b14b8f7bc2
(read_non_regular, Finsert_file_contents): Use BEG_BYTE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44563
diff
changeset
|
4859 while (CONSP (p)) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4860 { |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4861 struct buffer *given_buffer = current_buffer; |
50829
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
4862 if (EQ (Qt, XCAR (p)) && !used_global) |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
4863 { /* Use the global value of the hook. */ |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
4864 Lisp_Object arg[2]; |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
4865 used_global = 1; |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
4866 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
|
4867 arg[1] = XCDR (p); |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
4868 p = Fappend (2, arg); |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
4869 continue; |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
4870 } |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4871 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
|
4872 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
|
4873 /* 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
|
4874 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
|
4875 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
|
4876 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
|
4877 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
|
4878 if (current_buffer != given_buffer) |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4879 { |
101335
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4880 Vwrite_region_annotation_buffers |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4881 = Fcons (Fcurrent_buffer (), |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
4882 Vwrite_region_annotation_buffers); |
18107
7e13abad5cca
(Fwrite_region, build_annotations):
Richard M. Stallman <rms@gnu.org>
parents:
17959
diff
changeset
|
4883 XSETFASTINT (start, BEGV); |
7e13abad5cca
(Fwrite_region, build_annotations):
Richard M. Stallman <rms@gnu.org>
parents:
17959
diff
changeset
|
4884 XSETFASTINT (end, ZV); |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4885 annotations = Qnil; |
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
4886 } |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4887 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
|
4888 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
|
4889 p = XCDR (p); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4890 } |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4891 |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4892 /* 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
|
4893 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
|
4894 p = current_buffer->auto_save_file_format; |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4895 else |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4896 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
|
4897 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
|
4898 { |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4899 struct buffer *given_buffer = current_buffer; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4900 |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4901 Vwrite_region_annotations_so_far = annotations; |
30927
5c0b3d6959c4
(build_annotations): Add a comment explaining the
Gerd Moellmann <gerd@gnu.org>
parents:
30605
diff
changeset
|
4902 |
5c0b3d6959c4
(build_annotations): Add a comment explaining the
Gerd Moellmann <gerd@gnu.org>
parents:
30605
diff
changeset
|
4903 /* 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
|
4904 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
|
4905 current. */ |
45485
08b14b8f7bc2
(read_non_regular, Finsert_file_contents): Use BEG_BYTE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44563
diff
changeset
|
4906 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
|
4907 original_buffer, make_number (i)); |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4908 if (current_buffer != given_buffer) |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4909 { |
18107
7e13abad5cca
(Fwrite_region, build_annotations):
Richard M. Stallman <rms@gnu.org>
parents:
17959
diff
changeset
|
4910 XSETFASTINT (start, BEGV); |
7e13abad5cca
(Fwrite_region, build_annotations):
Richard M. Stallman <rms@gnu.org>
parents:
17959
diff
changeset
|
4911 XSETFASTINT (end, ZV); |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4912 annotations = Qnil; |
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
4913 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
4914 |
30927
5c0b3d6959c4
(build_annotations): Add a comment explaining the
Gerd Moellmann <gerd@gnu.org>
parents:
30605
diff
changeset
|
4915 if (CONSP (res)) |
5c0b3d6959c4
(build_annotations): Add a comment explaining the
Gerd Moellmann <gerd@gnu.org>
parents:
30605
diff
changeset
|
4916 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
|
4917 } |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4918 |
41181
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4919 UNGCPRO; |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4920 return annotations; |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4921 } |
00d37e30f901
(build_annotations): Split off the tail.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
41151
diff
changeset
|
4922 |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4923 |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4924 /* 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
|
4925 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
|
4926 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
|
4927 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
|
4928 each at its appropriate position. |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4929 |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4930 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
|
4931 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4932 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
|
4933 |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4934 static int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
4935 a_write (int desc, Lisp_Object string, int pos, register int nchars, Lisp_Object *annot, struct coding_system *coding) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4936 { |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4937 Lisp_Object tem; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4938 int nextpos; |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4939 int lastpos = pos + nchars; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4940 |
8079
3f543986a45a
(a_write): Loop while *ANNOT is listp, not consp. Previous code omitted
Roland McGrath <roland@gnu.org>
parents:
8068
diff
changeset
|
4941 while (NILP (*annot) || CONSP (*annot)) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4942 { |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4943 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
|
4944 nextpos = pos - 1; |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4945 if (INTEGERP (tem)) |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4946 nextpos = XFASTINT (tem); |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4947 |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4948 /* 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
|
4949 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
|
4950 if (! (nextpos >= pos && nextpos <= lastpos)) |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4951 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
|
4952 |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4953 /* 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
|
4954 if (nextpos > pos) |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4955 { |
28561
98330e399518
(a_write): Remove redundant semi-colons.
Eli Zaretskii <eliz@gnu.org>
parents:
28507
diff
changeset
|
4956 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
|
4957 return -1; |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4958 pos = nextpos; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4959 } |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4960 /* Output the annotation. */ |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4961 tem = Fcdr (Fcar (*annot)); |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4962 if (STRINGP (tem)) |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4963 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
4964 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
|
4965 return -1; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4966 } |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4967 *annot = Fcdr (*annot); |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4968 } |
21514 | 4969 return 0; |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4970 } |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
4971 |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4972 |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4973 /* 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
|
4974 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
|
4975 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
|
4976 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
|
4977 |
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
4978 static int |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
4979 e_write (int desc, Lisp_Object string, int start, int end, struct coding_system *coding) |
230 | 4980 { |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4981 if (STRINGP (string)) |
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4982 { |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
4983 start = 0; |
89483 | 4984 end = SCHARS (string); |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4985 } |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4986 |
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4987 /* 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
|
4988 now it is handled within encode_coding. */ |
89937
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
4989 |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
4990 while (start < end) |
230 | 4991 { |
89937
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
4992 if (STRINGP (string)) |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
4993 { |
89937
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
4994 coding->src_multibyte = SCHARS (string) < SBYTES (string); |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
4995 if (CODING_REQUIRE_ENCODING (coding)) |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
4996 { |
89937
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
4997 encode_coding_object (coding, string, |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
4998 start, string_char_to_byte (string, start), |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
4999 end, string_char_to_byte (string, end), Qt); |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5000 } |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5001 else |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5002 { |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5003 coding->dst_object = string; |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5004 coding->consumed_char = SCHARS (string); |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5005 coding->produced = SBYTES (string); |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5006 } |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5007 } |
88374
fa717c37ad16
Include "character.h" instead of "charset.h".
Kenichi Handa <handa@m17n.org>
parents:
43564
diff
changeset
|
5008 else |
22441
dd560c810254
(set_auto_coding_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents:
22362
diff
changeset
|
5009 { |
89937
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5010 int start_byte = CHAR_TO_BYTE (start); |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5011 int end_byte = CHAR_TO_BYTE (end); |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5012 |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5013 coding->src_multibyte = (end - start) < (end_byte - start_byte); |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5014 if (CODING_REQUIRE_ENCODING (coding)) |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5015 { |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5016 encode_coding_object (coding, Fcurrent_buffer (), |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5017 start, start_byte, end, end_byte, Qt); |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5018 } |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5019 else |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5020 { |
89937
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5021 coding->dst_object = Qnil; |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5022 coding->dst_pos_byte = start_byte; |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5023 if (start >= GPT || end <= GPT) |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5024 { |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5025 coding->consumed_char = end - start; |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5026 coding->produced = end_byte - start_byte; |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5027 } |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5028 else |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5029 { |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5030 coding->consumed_char = GPT - start; |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5031 coding->produced = GPT_BYTE - start_byte; |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5032 } |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5033 } |
22441
dd560c810254
(set_auto_coding_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents:
22362
diff
changeset
|
5034 } |
89937
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5035 |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5036 if (coding->produced > 0) |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5037 { |
89937
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5038 coding->produced -= |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5039 emacs_write (desc, |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5040 STRINGP (coding->dst_object) |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5041 ? SDATA (coding->dst_object) |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5042 : BYTE_POS_ADDR (coding->dst_pos_byte), |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5043 coding->produced); |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5044 |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5045 if (coding->produced) |
48c84a32cc68
(e_write): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
89935
diff
changeset
|
5046 return -1; |
17062
a9f1f08212ec
Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents:
16696
diff
changeset
|
5047 } |
26855
68a90068d489
(Fsubstitute_in_file_name): Adjusted for the change of
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
5048 start += coding->consumed_char; |
230 | 5049 } |
29478
01f18086f2ac
(e_write): Free composition data if stored in
Kenichi Handa <handa@m17n.org>
parents:
29312
diff
changeset
|
5050 |
89935
eed0cce8a804
(WRITE_BUF_SIZE): This macro deleted.
Kenichi Handa <handa@m17n.org>
parents:
89931
diff
changeset
|
5051 return 0; |
230 | 5052 } |
20533
60b9e88f8743
(Finsert_file_contents): Update call to CHAR_HEAD_P.
Richard M. Stallman <rms@gnu.org>
parents:
20432
diff
changeset
|
5053 |
230 | 5054 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
|
5055 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
|
5056 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
|
5057 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
|
5058 See Info node `(elisp)Modification Time' for more details. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
5059 (Lisp_Object buf) |
230 | 5060 { |
5061 struct buffer *b; | |
5062 struct stat st; | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5063 Lisp_Object handler; |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5064 Lisp_Object filename; |
230 | 5065 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40354
diff
changeset
|
5066 CHECK_BUFFER (buf); |
230 | 5067 b = XBUFFER (buf); |
5068 | |
9131
2190d1e7a69f
(Ffind_file_name_handler, Fcopy_file, Frename_file, Fadd_name_to_file,
Karl Heuer <kwzh@gnu.org>
parents:
9078
diff
changeset
|
5069 if (!STRINGP (b->filename)) return Qt; |
230 | 5070 if (b->modtime == 0) return Qt; |
5071 | |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5072 /* If the file name has special constructs in it, |
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5073 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
|
5074 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
|
5075 Qverify_visited_file_modtime); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5076 if (!NILP (handler)) |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
5077 return call2 (handler, Qverify_visited_file_modtime, buf); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5078 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5079 filename = ENCODE_FILE (b->filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5080 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5081 if (stat (SDATA (filename), &st) < 0) |
230 | 5082 { |
5083 /* If the file doesn't exist now and didn't exist before, | |
5084 we say that it isn't modified, provided the error is a tame one. */ | |
5085 if (errno == ENOENT || errno == EACCES || errno == ENOTDIR) | |
5086 st.st_mtime = -1; | |
5087 else | |
5088 st.st_mtime = 0; | |
5089 } | |
107845
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5090 if ((st.st_mtime == b->modtime |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5091 /* If both are positive, accept them if they are off by one second. */ |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5092 || (st.st_mtime > 0 && b->modtime > 0 |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5093 && (st.st_mtime == b->modtime + 1 |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5094 || st.st_mtime == b->modtime - 1))) |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5095 && (st.st_size == b->modtime_size |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5096 || b->modtime_size < 0)) |
230 | 5097 return Qt; |
5098 return Qnil; | |
5099 } | |
5100 | |
5101 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
|
5102 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
|
5103 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
|
5104 Next attempt to save will certainly not complain of a discrepancy. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
5105 (void) |
230 | 5106 { |
5107 current_buffer->modtime = 0; | |
107845
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5108 current_buffer->modtime_size = -1; |
230 | 5109 return Qnil; |
5110 } | |
5111 | |
2257
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5112 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
|
5113 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
|
5114 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
|
5115 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
|
5116 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
|
5117 file modification time, this function returns 0. |
0ea7bf2995a9
(Fverify_visited_file_modtime, Fvisited_file_modtime):
Luc Teirlinck <teirllm@auburn.edu>
parents:
54419
diff
changeset
|
5118 See Info node `(elisp)Modification Time' for more details. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
5119 (void) |
230 | 5120 { |
78402
d22d1c8033b8
(Fvisited_file_modtime): Use make_time.
Richard M. Stallman <rms@gnu.org>
parents:
78260
diff
changeset
|
5121 if (! current_buffer->modtime) |
d22d1c8033b8
(Fvisited_file_modtime): Use make_time.
Richard M. Stallman <rms@gnu.org>
parents:
78260
diff
changeset
|
5122 return make_number (0); |
d22d1c8033b8
(Fvisited_file_modtime): Use make_time.
Richard M. Stallman <rms@gnu.org>
parents:
78260
diff
changeset
|
5123 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
|
5124 } |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5125 |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5126 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
|
5127 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
|
5128 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
|
5129 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
|
5130 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
|
5131 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
|
5132 \(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
|
5133 \(HIGH . LOW) or (HIGH LOW). */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
5134 (Lisp_Object time_list) |
2257
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5135 { |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5136 if (!NILP (time_list)) |
107845
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5137 { |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5138 current_buffer->modtime = cons_to_long (time_list); |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5139 current_buffer->modtime_size = -1; |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5140 } |
2257
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5141 else |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5142 { |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5143 register Lisp_Object filename; |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5144 struct stat st; |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5145 Lisp_Object handler; |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5146 |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5147 filename = Fexpand_file_name (current_buffer->filename, Qnil); |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5148 |
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5149 /* 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
|
5150 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
|
5151 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
|
5152 if (!NILP (handler)) |
3721
4550c56785d8
(Fset_visited_file_modtime): Don't give the handler
Richard M. Stallman <rms@gnu.org>
parents:
3705
diff
changeset
|
5153 /* 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
|
5154 return call2 (handler, Qset_visited_file_modtime, Qnil); |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5155 |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5156 filename = ENCODE_FILE (filename); |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5157 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5158 if (stat (SDATA (filename), &st) >= 0) |
107845
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5159 { |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5160 current_buffer->modtime = st.st_mtime; |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5161 current_buffer->modtime_size = st.st_size; |
688679bd79f5
Try to detect file modification within the same second.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107737
diff
changeset
|
5162 } |
2257
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5163 } |
230 | 5164 |
5165 return Qnil; | |
5166 } | |
5167 | |
5168 Lisp_Object | |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
5169 auto_save_error (Lisp_Object error) |
230 | 5170 { |
34176
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5171 Lisp_Object args[3], msg; |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5172 int i, nbytes; |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5173 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
|
5174 char *msgbuf; |
1fdd6c36f42c
(auto_save_error): Pass copy of lisp string to message2.
Kim F. Storm <storm@cua.dk>
parents:
64770
diff
changeset
|
5175 USE_SAFE_ALLOCA; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5176 |
80405
c7ecb287a9ca
(auto_save_error_occurred): New var.
Chong Yidong <cyd@stupidchicken.com>
parents:
80312
diff
changeset
|
5177 auto_save_error_occurred = 1; |
c7ecb287a9ca
(auto_save_error_occurred): New var.
Chong Yidong <cyd@stupidchicken.com>
parents:
80312
diff
changeset
|
5178 |
83100
4970ad4995f5
Eliminated updating_frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
54895
diff
changeset
|
5179 ring_bell (XFRAME (selected_frame)); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5180 |
34176
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5181 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
|
5182 args[1] = current_buffer->name; |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5183 args[2] = Ferror_message_string (error); |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5184 msg = Fformat (3, args); |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5185 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
|
5186 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
|
5187 SAFE_ALLOCA (msgbuf, char *, nbytes); |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109139
diff
changeset
|
5188 memcpy (msgbuf, SDATA (msg), nbytes); |
34176
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5189 |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5190 for (i = 0; i < 3; ++i) |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5191 { |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5192 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
|
5193 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
|
5194 else |
65466
1fdd6c36f42c
(auto_save_error): Pass copy of lisp string to message2.
Kim F. Storm <storm@cua.dk>
parents:
64770
diff
changeset
|
5195 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
|
5196 Fsleep_for (make_number (1), Qnil); |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5197 } |
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5198 |
66235
60419121ec96
(auto_save_error): Call SAFE_FREE.
Kim F. Storm <storm@cua.dk>
parents:
65547
diff
changeset
|
5199 SAFE_FREE (); |
34176
2441e63b9d57
(auto_save_error): Add parameter ERROR. Show the
Gerd Moellmann <gerd@gnu.org>
parents:
34167
diff
changeset
|
5200 UNGCPRO; |
230 | 5201 return Qnil; |
5202 } | |
5203 | |
5204 Lisp_Object | |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
5205 auto_save_1 (void) |
230 | 5206 { |
5207 struct stat st; | |
57955 | 5208 Lisp_Object modes; |
5209 | |
5210 auto_save_mode_bits = 0666; | |
230 | 5211 |
5212 /* Get visited file's mode to become the auto save file's mode. */ | |
57955 | 5213 if (! NILP (current_buffer->filename)) |
5214 { | |
5215 if (stat (SDATA (current_buffer->filename), &st) >= 0) | |
5216 /* But make sure we can overwrite it later! */ | |
5217 auto_save_mode_bits = st.st_mode | 0600; | |
5218 else if ((modes = Ffile_modes (current_buffer->filename), | |
5219 INTEGERP (modes))) | |
5220 /* Remote files don't cooperate with stat. */ | |
5221 auto_save_mode_bits = XINT (modes) | 0600; | |
5222 } | |
230 | 5223 |
5224 return | |
80684
0122e7498e18
(Vauto_save_list_file_name): Move here from file.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
80664
diff
changeset
|
5225 Fwrite_region (Qnil, Qnil, current_buffer->auto_save_file_name, Qnil, |
0122e7498e18
(Vauto_save_list_file_name): Move here from file.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
80664
diff
changeset
|
5226 NILP (Vauto_save_visited_file_name) ? Qlambda : Qt, |
0122e7498e18
(Vauto_save_list_file_name): Move here from file.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
80664
diff
changeset
|
5227 Qnil, Qnil); |
230 | 5228 } |
5229 | |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5230 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
5231 do_auto_save_unwind (Lisp_Object arg) /* used as unwind-protect function */ |
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
5232 |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5233 { |
64535
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5234 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
|
5235 auto_saving = 0; |
64535
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5236 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
|
5237 { |
e0b9cd18e1b6
(do_auto_save_unwind): Add BLOCK_INPUT around fclose.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75348
diff
changeset
|
5238 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
|
5239 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
|
5240 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
|
5241 } |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5242 return Qnil; |
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5243 } |
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5244 |
18861
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5245 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
5246 do_auto_save_unwind_1 (Lisp_Object value) /* used as unwind-protect function */ |
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
5247 |
18861
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5248 { |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5249 minibuffer_auto_raise = XINT (value); |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5250 return Qnil; |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5251 } |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5252 |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5253 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
5254 do_auto_save_make_dir (Lisp_Object dir) |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5255 { |
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
|
5256 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
|
5257 |
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
|
5258 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
|
5259 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
|
5260 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
|
5261 } |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5262 |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5263 static Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
5264 do_auto_save_eh (Lisp_Object ignore) |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5265 { |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5266 return Qnil; |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5267 } |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5268 |
230 | 5269 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
|
5270 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
|
5271 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
|
5272 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
|
5273 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
|
5274 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
|
5275 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
|
5276 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
|
5277 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5278 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
|
5279 A non-nil CURRENT-ONLY argument means save only current buffer. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
5280 (Lisp_Object no_message, Lisp_Object current_only) |
230 | 5281 { |
5282 struct buffer *old = current_buffer, *b; | |
5283 Lisp_Object tail, buf; | |
5284 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
|
5285 int do_handled_files; |
4270
3ce8e11f338b
(Fdo_auto_save): Temporarily clear Vquit_flag.
Richard M. Stallman <rms@gnu.org>
parents:
3963
diff
changeset
|
5286 Lisp_Object oquit; |
64535
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5287 FILE *stream = NULL; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
5288 int count = SPECPDL_INDEX (); |
18861
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5289 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
|
5290 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
|
5291 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
|
5292 |
f2c23e762b64
(Fdo_auto_save): If NO_MESSAGE, don't call push_message.
Richard M. Stallman <rms@gnu.org>
parents:
42191
diff
changeset
|
5293 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
|
5294 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
|
5295 |
f2c23e762b64
(Fdo_auto_save): If NO_MESSAGE, don't call push_message.
Richard M. Stallman <rms@gnu.org>
parents:
42191
diff
changeset
|
5296 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
|
5297 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
|
5298 |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5299 if (NILP (no_message)) |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5300 { |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5301 old_message_p = push_message (); |
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5302 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
|
5303 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5304 |
4270
3ce8e11f338b
(Fdo_auto_save): Temporarily clear Vquit_flag.
Richard M. Stallman <rms@gnu.org>
parents:
3963
diff
changeset
|
5305 /* 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
|
5306 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
|
5307 oquit = Vquit_flag; |
3ce8e11f338b
(Fdo_auto_save): Temporarily clear Vquit_flag.
Richard M. Stallman <rms@gnu.org>
parents:
3963
diff
changeset
|
5308 Vquit_flag = Qnil; |
230 | 5309 |
5310 /* No GCPRO needed, because (when it matters) all Lisp_Object variables | |
5311 point to non-strings reached from Vbuffer_alist. */ | |
5312 | |
485 | 5313 if (!NILP (Vrun_hooks)) |
230 | 5314 call1 (Vrun_hooks, intern ("auto-save-hook")); |
5315 | |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5316 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
|
5317 { |
37961
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5318 Lisp_Object listfile; |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5319 |
11632
ddbe0702ea95
(Fdo_auto_save): Record visited file name
Richard M. Stallman <rms@gnu.org>
parents:
11599
diff
changeset
|
5320 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
|
5321 |
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5322 /* 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
|
5323 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
|
5324 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
|
5325 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
|
5326 { |
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5327 Lisp_Object dir; |
49191
9b836b1dabe5
(syms_of_fileio) <directory-sep-char>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
48876
diff
changeset
|
5328 dir = Qnil; |
9b836b1dabe5
(syms_of_fileio) <directory-sep-char>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
48876
diff
changeset
|
5329 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
|
5330 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
|
5331 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
|
5332 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
|
5333 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
|
5334 do_auto_save_eh); |
49191
9b836b1dabe5
(syms_of_fileio) <directory-sep-char>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
48876
diff
changeset
|
5335 UNGCPRO; |
37961
d95290112d89
(Fdo_auto_save): Don't try to create the directory of
Gerd Moellmann <gerd@gnu.org>
parents:
37390
diff
changeset
|
5336 } |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5337 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5338 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
|
5339 } |
64535
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5340 |
f151e7e7a4a8
(Fdo_auto_save, do_auto_save_unwind):
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
5341 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
|
5342 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
|
5343 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
|
5344 make_number (minibuffer_auto_raise)); |
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5345 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
|
5346 auto_saving = 1; |
80405
c7ecb287a9ca
(auto_save_error_occurred): New var.
Chong Yidong <cyd@stupidchicken.com>
parents:
80312
diff
changeset
|
5347 auto_save_error_occurred = 0; |
12642
cdfbcff1f22a
(do_auto_save_unwind): Set auto_saving to 0.
Richard M. Stallman <rms@gnu.org>
parents:
12540
diff
changeset
|
5348 |
53363
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5349 /* 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
|
5350 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
|
5351 |
d6ab4f5d0c6f
(choose_write_coding_system): Ignore auto_saving
Richard M. Stallman <rms@gnu.org>
parents:
53189
diff
changeset
|
5352 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
|
5353 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
|
5354 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
|
5355 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
|
5356 |
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
|
5357 for (do_handled_files = 0; do_handled_files < 2; do_handled_files++) |
90970
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90918
diff
changeset
|
5358 for (tail = Vbuffer_alist; 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
|
5359 { |
25662
0a7261c1d487
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents:
25615
diff
changeset
|
5360 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
|
5361 b = XBUFFER (buf); |
15097
32c26cb9e078
(Fexpand_file_name, Ffile_name_absolute_p): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents:
15072
diff
changeset
|
5362 |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5363 /* 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
|
5364 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
|
5365 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
|
5366 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
|
5367 && 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
|
5368 { |
76622
e0b9cd18e1b6
(do_auto_save_unwind): Add BLOCK_INPUT around fclose.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75348
diff
changeset
|
5369 BLOCK_INPUT; |
11632
ddbe0702ea95
(Fdo_auto_save): Record visited file name
Richard M. Stallman <rms@gnu.org>
parents:
11599
diff
changeset
|
5370 if (!NILP (b->filename)) |
ddbe0702ea95
(Fdo_auto_save): Record visited file name
Richard M. Stallman <rms@gnu.org>
parents:
11599
diff
changeset
|
5371 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46323
diff
changeset
|
5372 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
|
5373 SBYTES (b->filename), stream); |
11632
ddbe0702ea95
(Fdo_auto_save): Record visited file name
Richard M. Stallman <rms@gnu.org>
parents:
11599
diff
changeset
|
5374 } |
18270
fd2ccbdc5660
(Fdo_auto_save): Use stdio to write the save-list file.
Richard M. Stallman <rms@gnu.org>
parents:
18210
diff
changeset
|
5375 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
|
5376 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
|
5377 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
|
5378 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
|
5379 UNBLOCK_INPUT; |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5380 } |
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
|
5381 |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
5382 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
|
5383 && 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
|
5384 continue; |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5385 |
10304
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
5386 /* Don't auto-save indirect buffers. |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
5387 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
|
5388 if (b->base_buffer) |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
5389 continue; |
ce5ab980a14f
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10084
diff
changeset
|
5390 |
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
|
5391 /* 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
|
5392 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
|
5393 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
|
5394 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
|
5395 && BUF_SAVE_MODIFF (b) < BUF_MODIFF (b) |
106813
4040ecb0c904
Try to fix bug#5314. This is probably not the final word, tho.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106185
diff
changeset
|
5396 && BUF_AUTOSAVE_MODIFF (b) < 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
|
5397 /* -1 means we've turned off autosaving for a while--see below. */ |
104015
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
5398 && 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
|
5399 && (do_handled_files |
7029
f67c02c50e2a
(Ffind_file_name_handler): New argument OPERATION. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
6898
diff
changeset
|
5400 || 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
|
5401 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
|
5402 { |
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
|
5403 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
|
5404 |
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
|
5405 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
|
5406 |
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
|
5407 /* 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
|
5408 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
|
5409 && 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
|
5410 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
|
5411 |
104015
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
5412 set_buffer_internal (b); |
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
5413 if (NILP (Vauto_save_include_big_deletions) |
103917
aa5e8ff5a9c4
* fileio.c (Fwrite_region, Fdo_auto_save): Handle save_length = -2.
Richard M. Stallman <rms@gnu.org>
parents:
103756
diff
changeset
|
5414 && (XFASTINT (b->save_length) * 10 |
aa5e8ff5a9c4
* fileio.c (Fwrite_region, Fdo_auto_save): Handle save_length = -2.
Richard M. Stallman <rms@gnu.org>
parents:
103756
diff
changeset
|
5415 > (BUF_Z (b) - BUF_BEG (b)) * 13) |
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
|
5416 /* 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
|
5417 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
|
5418 && 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
|
5419 /* 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
|
5420 && !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
|
5421 && 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
|
5422 { |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
5423 /* 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
|
5424 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
|
5425 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
|
5426 b->name, 1); |
18861
ed1871a409c8
(Finsert_file_contents) [DOS_NT]: Use the coding
Richard M. Stallman <rms@gnu.org>
parents:
18764
diff
changeset
|
5427 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
|
5428 /* 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
|
5429 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
|
5430 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
|
5431 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
|
5432 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
|
5433 } |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
5434 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
|
5435 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
|
5436 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
|
5437 auto_saved++; |
106813
4040ecb0c904
Try to fix bug#5314. This is probably not the final word, tho.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106185
diff
changeset
|
5438 BUF_AUTOSAVE_MODIFF (b) = BUF_MODIFF (b); |
104015
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
5439 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
|
5440 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
|
5441 |
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
|
5442 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
|
5443 |
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
|
5444 /* 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
|
5445 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
|
5446 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
|
5447 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
|
5448 } |
30eb06b22ae4
* fileio.c (Fdo_auto_save): If NO_MESSAGE is non-nil, don't tell
Jim Blandy <jimb@redhat.com>
parents:
1775
diff
changeset
|
5449 } |
230 | 5450 |
1059
430923239064
(Fdo_auto_save): Always call record_auto_save.
Richard M. Stallman <rms@gnu.org>
parents:
1044
diff
changeset
|
5451 /* 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
|
5452 record_auto_save (); |
230 | 5453 |
1775
f9ac4c0d8b72
* fileio.c (Fdo_auto_save): Add CURRENT_ONLY argument, as
Jim Blandy <jimb@redhat.com>
parents:
1763
diff
changeset
|
5454 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
|
5455 { |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5456 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
|
5457 { |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5458 /* 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
|
5459 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
|
5460 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
|
5461 restore_message (); |
14616
051d6225ca90
(Fdo_auto_save): Pause before restoring old message.
Karl Heuer <kwzh@gnu.org>
parents:
14571
diff
changeset
|
5462 } |
80405
c7ecb287a9ca
(auto_save_error_occurred): New var.
Chong Yidong <cyd@stupidchicken.com>
parents:
80312
diff
changeset
|
5463 else if (!auto_save_error_occurred) |
c7ecb287a9ca
(auto_save_error_occurred): New var.
Chong Yidong <cyd@stupidchicken.com>
parents:
80312
diff
changeset
|
5464 /* Don't overwrite the error message if an error occurred. |
c7ecb287a9ca
(auto_save_error_occurred): New var.
Chong Yidong <cyd@stupidchicken.com>
parents:
80312
diff
changeset
|
5465 If we displayed a message and then restored a state |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5466 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
|
5467 message1 ("Auto-saving...done"); |
6bfcd23bfa84
(Fdo_auto_save): Save echo_area_glyphs_length.
Karl Heuer <kwzh@gnu.org>
parents:
5758
diff
changeset
|
5468 } |
230 | 5469 |
4270
3ce8e11f338b
(Fdo_auto_save): Temporarily clear Vquit_flag.
Richard M. Stallman <rms@gnu.org>
parents:
3963
diff
changeset
|
5470 Vquit_flag = oquit; |
3ce8e11f338b
(Fdo_auto_save): Temporarily clear Vquit_flag.
Richard M. Stallman <rms@gnu.org>
parents:
3963
diff
changeset
|
5471 |
47394
e48ab1d671be
(Fdo_auto_save): Catch error making directory.
Richard M. Stallman <rms@gnu.org>
parents:
46948
diff
changeset
|
5472 /* 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
|
5473 unbind_to (count, Qnil); |
230 | 5474 return Qnil; |
5475 } | |
5476 | |
5477 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
|
5478 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
|
5479 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
|
5480 No auto-save file will be written until the buffer changes again. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
5481 (void) |
230 | 5482 { |
106813
4040ecb0c904
Try to fix bug#5314. This is probably not the final word, tho.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106185
diff
changeset
|
5483 /* FIXME: This should not be called in indirect buffers, since |
4040ecb0c904
Try to fix bug#5314. This is probably not the final word, tho.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106185
diff
changeset
|
5484 they're not autosaved. */ |
4040ecb0c904
Try to fix bug#5314. This is probably not the final word, tho.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106185
diff
changeset
|
5485 BUF_AUTOSAVE_MODIFF (current_buffer) = MODIFF; |
104015
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
5486 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
|
5487 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
|
5488 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
|
5489 } |
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
|
5490 |
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
|
5491 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
|
5492 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
|
5493 doc: /* Clear any record of a recent auto-save failure in the current buffer. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
5494 (void) |
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
|
5495 { |
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
|
5496 current_buffer->auto_save_failure_time = -1; |
230 | 5497 return Qnil; |
5498 } | |
5499 | |
5500 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
|
5501 0, 0, 0, |
62296
3302236fcb60
(Ffind_file_name_handler): Handle lambda-exp as handler.
Richard M. Stallman <rms@gnu.org>
parents:
62188
diff
changeset
|
5502 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
|
5503 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
|
5504 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
|
5505 then any auto-save counts as "recent". */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
5506 (void) |
230 | 5507 { |
106813
4040ecb0c904
Try to fix bug#5314. This is probably not the final word, tho.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106185
diff
changeset
|
5508 /* FIXME: maybe we should return nil for indirect buffers since |
4040ecb0c904
Try to fix bug#5314. This is probably not the final word, tho.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106185
diff
changeset
|
5509 they're never autosaved. */ |
4040ecb0c904
Try to fix bug#5314. This is probably not the final word, tho.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
106185
diff
changeset
|
5510 return (SAVE_MODIFF < BUF_AUTOSAVE_MODIFF (current_buffer) ? Qt : Qnil); |
230 | 5511 } |
5512 | |
5513 /* Reading and completing file names */ | |
5514 | |
57942
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
5515 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
|
5516 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
|
5517 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
|
5518 The return value is only relevant for a call to `read-file-name' that happens |
102284
54ac3994d290
* fileio.c (Fnext_read_file_uses_dialog_p): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
101935
diff
changeset
|
5519 before any other event (mouse or keypress) is handled. */) |
109179
8cfee7d2955f
Convert DEFUNs to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109165
diff
changeset
|
5520 (void) |
57942
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
5521 { |
97043
9592c50233ab
Remove support for Mac Carbon.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
96974
diff
changeset
|
5522 #if defined (USE_MOTIF) || defined (HAVE_NTGUI) || defined (USE_GTK) |
57942
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
5523 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
|
5524 && 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
|
5525 && 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
|
5526 && 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
|
5527 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
|
5528 #endif |
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
5529 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
|
5530 } |
57955 | 5531 |
94300
b47239d57d36
* lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94220
diff
changeset
|
5532 Lisp_Object |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
5533 Fread_file_name (Lisp_Object prompt, Lisp_Object dir, Lisp_Object default_filename, Lisp_Object mustmatch, Lisp_Object initial, Lisp_Object predicate) |
230 | 5534 { |
5535 struct gcpro gcpro1, gcpro2; | |
94300
b47239d57d36
* lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94220
diff
changeset
|
5536 Lisp_Object args[7]; |
22658
9f320d762e2f
(Faccess_file): Check type of second argument STRING.
Richard M. Stallman <rms@gnu.org>
parents:
22613
diff
changeset
|
5537 |
94826
4d2fe01917d3
(Fread_file_name): Remove reference to insdef, deleted 2008-04-23.
Glenn Morris <rgm@gnu.org>
parents:
94300
diff
changeset
|
5538 GCPRO1 (default_filename); |
94300
b47239d57d36
* lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94220
diff
changeset
|
5539 args[0] = intern ("read-file-name"); |
b47239d57d36
* lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94220
diff
changeset
|
5540 args[1] = prompt; |
b47239d57d36
* lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94220
diff
changeset
|
5541 args[2] = dir; |
b47239d57d36
* lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94220
diff
changeset
|
5542 args[3] = default_filename; |
b47239d57d36
* lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94220
diff
changeset
|
5543 args[4] = mustmatch; |
b47239d57d36
* lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94220
diff
changeset
|
5544 args[5] = initial; |
b47239d57d36
* lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94220
diff
changeset
|
5545 args[6] = predicate; |
b47239d57d36
* lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94220
diff
changeset
|
5546 RETURN_UNGCPRO (Ffuncall (7, args)); |
230 | 5547 } |
25006
c79dc141ef5a
(Fdo_auto_save): Handle the case that echo_area_message
Gerd Moellmann <gerd@gnu.org>
parents:
24932
diff
changeset
|
5548 |
230 | 5549 |
21514 | 5550 void |
109126
aec1143e8d85
Convert (most) functions in src to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109100
diff
changeset
|
5551 syms_of_fileio (void) |
230 | 5552 { |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5553 Qoperations = intern_c_string ("operations"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5554 Qexpand_file_name = intern_c_string ("expand-file-name"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5555 Qsubstitute_in_file_name = intern_c_string ("substitute-in-file-name"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5556 Qdirectory_file_name = intern_c_string ("directory-file-name"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5557 Qfile_name_directory = intern_c_string ("file-name-directory"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5558 Qfile_name_nondirectory = intern_c_string ("file-name-nondirectory"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5559 Qunhandled_file_name_directory = intern_c_string ("unhandled-file-name-directory"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5560 Qfile_name_as_directory = intern_c_string ("file-name-as-directory"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5561 Qcopy_file = intern_c_string ("copy-file"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5562 Qmake_directory_internal = intern_c_string ("make-directory-internal"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5563 Qmake_directory = intern_c_string ("make-directory"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5564 Qdelete_directory_internal = intern_c_string ("delete-directory-internal"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5565 Qdelete_file = intern_c_string ("delete-file"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5566 Qrename_file = intern_c_string ("rename-file"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5567 Qadd_name_to_file = intern_c_string ("add-name-to-file"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5568 Qmake_symbolic_link = intern_c_string ("make-symbolic-link"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5569 Qfile_exists_p = intern_c_string ("file-exists-p"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5570 Qfile_executable_p = intern_c_string ("file-executable-p"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5571 Qfile_readable_p = intern_c_string ("file-readable-p"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5572 Qfile_writable_p = intern_c_string ("file-writable-p"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5573 Qfile_symlink_p = intern_c_string ("file-symlink-p"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5574 Qaccess_file = intern_c_string ("access-file"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5575 Qfile_directory_p = intern_c_string ("file-directory-p"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5576 Qfile_regular_p = intern_c_string ("file-regular-p"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5577 Qfile_accessible_directory_p = intern_c_string ("file-accessible-directory-p"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5578 Qfile_modes = intern_c_string ("file-modes"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5579 Qset_file_modes = intern_c_string ("set-file-modes"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5580 Qset_file_times = intern_c_string ("set-file-times"); |
108011 | 5581 Qfile_selinux_context = intern_c_string("file-selinux-context"); |
5582 Qset_file_selinux_context = intern_c_string("set-file-selinux-context"); | |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5583 Qfile_newer_than_file_p = intern_c_string ("file-newer-than-file-p"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5584 Qinsert_file_contents = intern_c_string ("insert-file-contents"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5585 Qwrite_region = intern_c_string ("write-region"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5586 Qverify_visited_file_modtime = intern_c_string ("verify-visited-file-modtime"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5587 Qset_visited_file_modtime = intern_c_string ("set-visited-file-modtime"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5588 Qauto_save_coding = intern_c_string ("auto-save-coding"); |
843
8f6ea998ad0a
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
806
diff
changeset
|
5589 |
61942
cf8e7c12c048
(Ffind_file_name_handler): Handle the `operations'
Richard M. Stallman <rms@gnu.org>
parents:
61789
diff
changeset
|
5590 staticpro (&Qoperations); |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
5591 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
|
5592 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
|
5593 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
|
5594 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
|
5595 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
|
5596 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
|
5597 staticpro (&Qfile_name_as_directory); |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5598 staticpro (&Qcopy_file); |
8243
bf7b3b969ab5
(syms_of_fileio): Finish previous change.
Richard M. Stallman <rms@gnu.org>
parents:
8227
diff
changeset
|
5599 staticpro (&Qmake_directory_internal); |
28697
7d587a158d1f
(Fdo_auto_save): Create directories for auto-save
Gerd Moellmann <gerd@gnu.org>
parents:
28673
diff
changeset
|
5600 staticpro (&Qmake_directory); |
105348
1aa50e5c7523
* fileio.c (Fdelete_directory_internal): Renamed from
Michael Albinus <michael.albinus@gmx.de>
parents:
104015
diff
changeset
|
5601 staticpro (&Qdelete_directory_internal); |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5602 staticpro (&Qdelete_file); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5603 staticpro (&Qrename_file); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5604 staticpro (&Qadd_name_to_file); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5605 staticpro (&Qmake_symbolic_link); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5606 staticpro (&Qfile_exists_p); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5607 staticpro (&Qfile_executable_p); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5608 staticpro (&Qfile_readable_p); |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
5609 staticpro (&Qfile_writable_p); |
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
5610 staticpro (&Qaccess_file); |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5611 staticpro (&Qfile_symlink_p); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5612 staticpro (&Qfile_directory_p); |
11599
51bc10be0dc7
(Ffile_regular_p): Use Qfile_regular_p.
Richard M. Stallman <rms@gnu.org>
parents:
11426
diff
changeset
|
5613 staticpro (&Qfile_regular_p); |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5614 staticpro (&Qfile_accessible_directory_p); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5615 staticpro (&Qfile_modes); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5616 staticpro (&Qset_file_modes); |
55194
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
5617 staticpro (&Qset_file_times); |
108011 | 5618 staticpro (&Qfile_selinux_context); |
5619 staticpro (&Qset_file_selinux_context); | |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5620 staticpro (&Qfile_newer_than_file_p); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5621 staticpro (&Qinsert_file_contents); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5622 staticpro (&Qwrite_region); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5623 staticpro (&Qverify_visited_file_modtime); |
16226
a70ec9baba1a
(syms_of_fileio): staticpro Qset_visited_file_modtime.
Erik Naggum <erik@naggum.no>
parents:
16167
diff
changeset
|
5624 staticpro (&Qset_visited_file_modtime); |
51357
4830e98be217
(Qauto_save_coding, auto_save_coding): New variables.
Kenichi Handa <handa@m17n.org>
parents:
51022
diff
changeset
|
5625 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
|
5626 |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5627 Qfile_name_history = intern_c_string ("file-name-history"); |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
5628 Fset (Qfile_name_history, Qnil); |
863
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5629 staticpro (&Qfile_name_history); |
427299469901
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
853
diff
changeset
|
5630 |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5631 Qfile_error = intern_c_string ("file-error"); |
230 | 5632 staticpro (&Qfile_error); |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5633 Qfile_already_exists = intern_c_string ("file-already-exists"); |
230 | 5634 staticpro (&Qfile_already_exists); |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5635 Qfile_date_error = intern_c_string ("file-date-error"); |
17271
e34a30952e14
(Fcopy_file): Use Qfile_date_error if can't set file date.
Richard M. Stallman <rms@gnu.org>
parents:
17114
diff
changeset
|
5636 staticpro (&Qfile_date_error); |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5637 Qexcl = intern_c_string ("excl"); |
25595 | 5638 staticpro (&Qexcl); |
230 | 5639 |
9789
a1e6724db219
Change explicit uses of the Unix directory separator
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5640 #ifdef DOS_NT |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5641 Qfind_buffer_file_type = intern_c_string ("find-buffer-file-type"); |
5494
1ea2b4351945
[MSDOS]: #include "msdos.h" and <sys/param.h> needed for
Richard M. Stallman <rms@gnu.org>
parents:
5410
diff
changeset
|
5642 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
|
5643 #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
|
5644 |
19861
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5645 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
|
5646 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
|
5647 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
|
5648 Vfile_name_coding_system = Qnil; |
163421a61771
(ENCODE_FILE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
19754
diff
changeset
|
5649 |
21048
4d1d3581eeb4
(ENCODE_FILE): This macro is moved to coding.h.
Kenichi Handa <handa@m17n.org>
parents:
21030
diff
changeset
|
5650 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
|
5651 &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
|
5652 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
|
5653 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
|
5654 |
8151a2b431d0
(file-name-coding-system, default-file-name-coding-system): Doc fix (links
Pavel Janík <Pavel@Janik.cz>
parents:
41655
diff
changeset
|
5655 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
|
5656 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
|
5657 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
|
5658 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
|
5659 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
|
5660 |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5661 Qformat_decode = intern_c_string ("format-decode"); |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5662 staticpro (&Qformat_decode); |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5663 Qformat_annotate_function = intern_c_string ("format-annotate-function"); |
11053
f14a518fcb33
(Finsert_file_contents): Call format-decode.
Boris Goldowsky <boris@gnu.org>
parents:
10734
diff
changeset
|
5664 staticpro (&Qformat_annotate_function); |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5665 Qafter_insert_file_set_coding = intern_c_string ("after-insert-file-set-coding"); |
50546
4a06e3332577
(Vafter_insert_file_adjust_coding_function): Delete
Kenichi Handa <handa@m17n.org>
parents:
50530
diff
changeset
|
5666 staticpro (&Qafter_insert_file_set_coding); |
49207
0064f690e77d
(Fdelete_directory, Fdelete_file): Document the
Francesco Potortì <pot@gnu.org>
parents:
49191
diff
changeset
|
5667 |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5668 Qcar_less_than_car = intern_c_string ("car-less-than-car"); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5669 staticpro (&Qcar_less_than_car); |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5670 |
230 | 5671 Fput (Qfile_error, Qerror_conditions, |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5672 Fpurecopy (list2 (Qfile_error, Qerror))); |
230 | 5673 Fput (Qfile_error, Qerror_message, |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5674 make_pure_c_string ("File error")); |
230 | 5675 |
5676 Fput (Qfile_already_exists, Qerror_conditions, | |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5677 Fpurecopy (list3 (Qfile_already_exists, Qfile_error, Qerror))); |
230 | 5678 Fput (Qfile_already_exists, Qerror_message, |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5679 make_pure_c_string ("File already exists")); |
230 | 5680 |
17271
e34a30952e14
(Fcopy_file): Use Qfile_date_error if can't set file date.
Richard M. Stallman <rms@gnu.org>
parents:
17114
diff
changeset
|
5681 Fput (Qfile_date_error, Qerror_conditions, |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5682 Fpurecopy (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
|
5683 Fput (Qfile_date_error, Qerror_message, |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5684 make_pure_c_string ("Cannot set file date")); |
17271
e34a30952e14
(Fcopy_file): Use Qfile_date_error if can't set file date.
Richard M. Stallman <rms@gnu.org>
parents:
17114
diff
changeset
|
5685 |
850
0bc61321ba50
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
848
diff
changeset
|
5686 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
|
5687 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
|
5688 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
|
5689 HANDLER. |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5690 |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5691 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
|
5692 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
|
5693 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
|
5694 (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
|
5695 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
|
5696 (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
|
5697 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
|
5698 for its argument. */); |
1178
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
5699 Vfile_name_handler_alist = Qnil; |
fb4ec23ef80f
Don't include sys/dir.h.
Richard M. Stallman <rms@gnu.org>
parents:
1105
diff
changeset
|
5700 |
19641
d7f2d75a09d3
(Vset_auto_coding_function): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
19572
diff
changeset
|
5701 DEFVAR_LISP ("set-auto-coding-function", |
d7f2d75a09d3
(Vset_auto_coding_function): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
19572
diff
changeset
|
5702 &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
|
5703 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
|
5704 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
|
5705 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
|
5706 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
|
5707 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
|
5708 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
|
5709 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
|
5710 -*- ... coding: CODING-SYSTEM; ... -*- |
e528f2adeed4
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
39973
diff
changeset
|
5711 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
|
5712 Vset_auto_coding_function = Qnil; |
19448
950a178e8783
(Vauto_file_coding_system_function): New variable.
Kenichi Handa <handa@m17n.org>
parents:
19437
diff
changeset
|
5713 |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5714 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
|
5715 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
|
5716 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
|
5717 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
|
5718 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
|
5719 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
|
5720 `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
|
5721 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
|
5722 Vafter_insert_file_functions = Qnil; |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5723 |
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5724 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
|
5725 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
|
5726 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
|
5727 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
|
5728 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
|
5729 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
|
5730 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
|
5731 insert before the first byte written). The POSITIONs must be sorted into |
101335
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5732 increasing order. |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5733 |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5734 If there are several annotation functions, the lists returned by these |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5735 functions are merged destructively. As each annotation function runs, |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5736 the variable `write-region-annotations-so-far' contains a list of all |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5737 annotations returned by previous annotation functions. |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5738 |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5739 An annotation function can return with a different buffer current. |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5740 Doing so removes the annotations returned by previous functions, and |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5741 resets START and END to `point-min' and `point-max' of the new buffer. |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5742 |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5743 After `write-region' completes, Emacs calls the function stored in |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5744 `write-region-post-annotation-function', once for each buffer that was |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5745 current when building the annotations (i.e., at least once), with that |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5746 buffer current. */); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5747 Vwrite_region_annotate_functions = Qnil; |
50829
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
5748 staticpro (&Qwrite_region_annotate_functions); |
a4f8713c4753
(Qwrite_region_annotate_functions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50546
diff
changeset
|
5749 Qwrite_region_annotate_functions |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5750 = intern_c_string ("write-region-annotate-functions"); |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5751 |
101335
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5752 DEFVAR_LISP ("write-region-post-annotation-function", |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5753 &Vwrite_region_post_annotation_function, |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5754 doc: /* Function to call after `write-region' completes. |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5755 The function is called with no arguments. If one or more of the |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5756 annotation functions in `write-region-annotate-functions' changed the |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5757 current buffer, the function stored in this variable is called for |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5758 each of those additional buffers as well, in addition to the original |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5759 buffer. The relevant buffer is current during each function call. */); |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5760 Vwrite_region_post_annotation_function = Qnil; |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5761 staticpro (&Vwrite_region_annotation_buffers); |
df6accf4cd6f
(Vwrite_region_post_annotation_function)
Chong Yidong <cyd@stupidchicken.com>
parents:
100951
diff
changeset
|
5762 |
8317
c59be9428778
(Fwrite_region): Do unwind the new unwind protect.
Richard M. Stallman <rms@gnu.org>
parents:
8243
diff
changeset
|
5763 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
|
5764 &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
|
5765 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
|
5766 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
|
5767 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
|
5768 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
|
5769 |
6678
e29adbacde1d
(Fdo_auto_save): Don't turn off auto save mode.
Richard M. Stallman <rms@gnu.org>
parents:
6498
diff
changeset
|
5770 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
|
5771 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
|
5772 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
|
5773 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
|
5774 |
7041
7b8c405c910a
(syms_of_fileio): New Lisp var inhibit-file-name-operation.
Richard M. Stallman <rms@gnu.org>
parents:
7029
diff
changeset
|
5775 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
|
5776 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
|
5777 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
|
5778 |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5779 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
|
5780 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
|
5781 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
|
5782 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
|
5783 a non-nil value. */); |
7445
c9942f71e2e9
(Finsert_file_contents) [MSDOS]: Ignore the replace feature.
Richard M. Stallman <rms@gnu.org>
parents:
7182
diff
changeset
|
5784 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
|
5785 |
80684
0122e7498e18
(Vauto_save_list_file_name): Move here from file.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
80664
diff
changeset
|
5786 DEFVAR_LISP ("auto-save-visited-file-name", &Vauto_save_visited_file_name, |
0122e7498e18
(Vauto_save_list_file_name): Move here from file.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
80664
diff
changeset
|
5787 doc: /* Non-nil says auto-save a buffer in the file it is visiting, when practical. |
0122e7498e18
(Vauto_save_list_file_name): Move here from file.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
80664
diff
changeset
|
5788 Normally auto-save files are written under other names. */); |
0122e7498e18
(Vauto_save_list_file_name): Move here from file.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
80664
diff
changeset
|
5789 Vauto_save_visited_file_name = Qnil; |
0122e7498e18
(Vauto_save_list_file_name): Move here from file.el.
Chong Yidong <cyd@stupidchicken.com>
parents:
80664
diff
changeset
|
5790 |
104015
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
5791 DEFVAR_LISP ("auto-save-include-big-deletions", &Vauto_save_include_big_deletions, |
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
5792 doc: /* If non-nil, auto-save even if a large part of the text is deleted. |
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
5793 If nil, deleting a substantial portion of the text disables auto-save |
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
5794 in the buffer; this is the default behavior, because the auto-save |
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
5795 file is usually more useful if it contains the deleted text. */); |
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
5796 Vauto_save_include_big_deletions = Qnil; |
65ac865116fc
* fileio.c: Revert 2009-07-16 changes.
Chong Yidong <cyd@stupidchicken.com>
parents:
103917
diff
changeset
|
5797 |
65513
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
5798 #ifdef HAVE_FSYNC |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
5799 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
|
5800 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
|
5801 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
|
5802 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
|
5803 write_region_inhibit_fsync = 0; |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
5804 #endif |
81577dcc6e9b
(write_region_inhibit_fsync): New variable.
Romain Francoise <romain@orebokech.com>
parents:
65504
diff
changeset
|
5805 |
96489
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
5806 DEFVAR_BOOL ("delete-by-moving-to-trash", &delete_by_moving_to_trash, |
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
5807 doc: /* Specifies whether to use the system's trash can. |
108806
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
5808 When non-nil, certain file deletion commands use the function |
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
5809 `move-file-to-trash' instead of deleting files outright. |
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
5810 This includes interactive calls to `delete-file' and |
511da81b16c5
Change delete-by-moving-to-trash so Lisp calls explicitly request trashing.
Chong Yidong <cyd@stupidchicken.com>
parents:
108723
diff
changeset
|
5811 `delete-directory' and the Dired deletion commands. */); |
96489
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
5812 delete_by_moving_to_trash = 0; |
105877
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5813 Qdelete_by_moving_to_trash = intern_c_string ("delete-by-moving-to-trash"); |
21bdda3ded62
* xterm.c (syms_of_xterm):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
105862
diff
changeset
|
5814 Qmove_file_to_trash = intern_c_string ("move-file-to-trash"); |
96489
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
5815 staticpro (&Qmove_file_to_trash); |
106994
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
5816 Qcopy_directory = intern_c_string ("copy-directory"); |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
5817 staticpro (&Qcopy_directory); |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
5818 Qdelete_directory = intern_c_string ("delete-directory"); |
8b0707b50290
Fix rename-file to handle directory renaming properly (Bug#3353).
Chong Yidong <cyd@stupidchicken.com>
parents:
106813
diff
changeset
|
5819 staticpro (&Qdelete_directory); |
96489
b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
Jason Rumney <jasonr@gnu.org>
parents:
96303
diff
changeset
|
5820 |
1679
cd48b2c1a7a4
Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents:
1589
diff
changeset
|
5821 defsubr (&Sfind_file_name_handler); |
230 | 5822 defsubr (&Sfile_name_directory); |
5823 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
|
5824 defsubr (&Sunhandled_file_name_directory); |
230 | 5825 defsubr (&Sfile_name_as_directory); |
5826 defsubr (&Sdirectory_file_name); | |
5827 defsubr (&Smake_temp_name); | |
5828 defsubr (&Sexpand_file_name); | |
5829 defsubr (&Ssubstitute_in_file_name); | |
5830 defsubr (&Scopy_file); | |
1533
b86ef0432100
(Fmake_directory_internal): Renamed from Fmake_directory.
Richard M. Stallman <rms@gnu.org>
parents:
1377
diff
changeset
|
5831 defsubr (&Smake_directory_internal); |
105348
1aa50e5c7523
* fileio.c (Fdelete_directory_internal): Renamed from
Michael Albinus <michael.albinus@gmx.de>
parents:
104015
diff
changeset
|
5832 defsubr (&Sdelete_directory_internal); |
230 | 5833 defsubr (&Sdelete_file); |
5834 defsubr (&Srename_file); | |
5835 defsubr (&Sadd_name_to_file); | |
5836 defsubr (&Smake_symbolic_link); | |
5837 defsubr (&Sfile_name_absolute_p); | |
5838 defsubr (&Sfile_exists_p); | |
5839 defsubr (&Sfile_executable_p); | |
5840 defsubr (&Sfile_readable_p); | |
5841 defsubr (&Sfile_writable_p); | |
16155
ddc7e0142964
(Faccess_file): New function.
Richard M. Stallman <rms@gnu.org>
parents:
16044
diff
changeset
|
5842 defsubr (&Saccess_file); |
230 | 5843 defsubr (&Sfile_symlink_p); |
5844 defsubr (&Sfile_directory_p); | |
536 | 5845 defsubr (&Sfile_accessible_directory_p); |
9346
fec27dfc0684
(Ffile_regular_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9307
diff
changeset
|
5846 defsubr (&Sfile_regular_p); |
230 | 5847 defsubr (&Sfile_modes); |
5848 defsubr (&Sset_file_modes); | |
55194
c4c66ff76dae
(Fset_file_times): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
54895
diff
changeset
|
5849 defsubr (&Sset_file_times); |
108011 | 5850 defsubr (&Sfile_selinux_context); |
5851 defsubr (&Sset_file_selinux_context); | |
1763
65e858c07a8b
(Fset_default_file_modes, Fdefault_file_modes): Renamed from .._mode.
Richard M. Stallman <rms@gnu.org>
parents:
1762
diff
changeset
|
5852 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
|
5853 defsubr (&Sdefault_file_modes); |
230 | 5854 defsubr (&Sfile_newer_than_file_p); |
5855 defsubr (&Sinsert_file_contents); | |
5856 defsubr (&Swrite_region); | |
4841
8800a7377ceb
(Vafter_insert_file_functions): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
5857 defsubr (&Scar_less_than_car); |
230 | 5858 defsubr (&Sverify_visited_file_modtime); |
5859 defsubr (&Sclear_visited_file_modtime); | |
2257
668491072928
(Fvisited_file_modtime): New function.
Richard M. Stallman <rms@gnu.org>
parents:
2236
diff
changeset
|
5860 defsubr (&Svisited_file_modtime); |
230 | 5861 defsubr (&Sset_visited_file_modtime); |
5862 defsubr (&Sdo_auto_save); | |
5863 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
|
5864 defsubr (&Sclear_buffer_auto_save_failure); |
230 | 5865 defsubr (&Srecent_auto_save_p); |
5866 | |
57942
3a6cc929df05
* fileio.c (Fnext_read_file_uses_dialog_p): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
57868
diff
changeset
|
5867 defsubr (&Snext_read_file_uses_dialog_p); |
689
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
5868 |
74398
48c50a37cc14
[__NetBSD__]: Don't define `unix'.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74108
diff
changeset
|
5869 #ifdef HAVE_SYNC |
689
45401d45581d
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
686
diff
changeset
|
5870 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
|
5871 #endif |
230 | 5872 } |
52401 | 5873 |
5874 /* arch-tag: 64ba3fd7-f844-4fb2-ba4b-427eb928786c | |
5875 (do not change this comment) */ |