aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorJan Djärv2004-11-07 09:13:26 +0000
committerJan Djärv2004-11-07 09:13:26 +0000
commit238a44a8657ff8cf0feee84619262255b354c55d (patch)
tree44f6518f9b376d8267b62eb1c2bc29b1f574be31 /src
parent21acf124651cdcfd76317649236a25254f57de1b (diff)
downloademacs-238a44a8657ff8cf0feee84619262255b354c55d.tar.gz
emacs-238a44a8657ff8cf0feee84619262255b354c55d.zip
* dosfns.c (Fdos_memget, Fdos_memput): Use integer variable offs in
comparisons with integers instead of Lisp_Object address. (Fmsdos_set_keyboard): Declare argument allkeys. * msdos.c (IT_set_frame_parameters): Use EQ, not ==, for Lisp_Object:s. * dired.c: extern declare Fmsdos_downcase_filename on MSDOS to avoid int/Lisp_Object mixup. * fileio.c: Ditto.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog13
-rw-r--r--src/dired.c4
-rw-r--r--src/dosfns.c6
-rw-r--r--src/fileio.c1
-rw-r--r--src/msdos.c2
5 files changed, 22 insertions, 4 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 0e3870669c0..e73fbe12775 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,16 @@
12004-11-07 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
2
3 * dosfns.c (Fdos_memget, Fdos_memput): Use integer variable offs in
4 comparisons with integers instead of Lisp_Object address.
5 (Fmsdos_set_keyboard): Declare argument allkeys.
6
7 * msdos.c (IT_set_frame_parameters): Use EQ, not ==, for Lisp_Object:s.
8
9 * dired.c: extern declare Fmsdos_downcase_filename on MSDOS to avoid
10 int/Lisp_Object mixup.
11
12 * fileio.c: Ditto.
13
12004-11-06 Steven Tamm <steventamm@mac.com> 142004-11-06 Steven Tamm <steventamm@mac.com>
2 15
3 * editfns.c: Need to include sys/time.h before resource.h on darwin. 16 * editfns.c: Need to include sys/time.h before resource.h on darwin.
diff --git a/src/dired.c b/src/dired.c
index e833ceb216b..97df606bb29 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -116,6 +116,10 @@ extern int completion_ignore_case;
116extern Lisp_Object Vcompletion_regexp_list; 116extern Lisp_Object Vcompletion_regexp_list;
117extern Lisp_Object Vfile_name_coding_system, Vdefault_file_name_coding_system; 117extern Lisp_Object Vfile_name_coding_system, Vdefault_file_name_coding_system;
118 118
119#ifdef MSDOS
120extern Lisp_Object Fmsdos_downcase_filename P_ ((Lisp_Object));
121#endif
122
119Lisp_Object Vcompletion_ignored_extensions; 123Lisp_Object Vcompletion_ignored_extensions;
120Lisp_Object Qcompletion_ignore_case; 124Lisp_Object Qcompletion_ignore_case;
121Lisp_Object Qdirectory_files; 125Lisp_Object Qdirectory_files;
diff --git a/src/dosfns.c b/src/dosfns.c
index d9714693507..bd62147ad48 100644
--- a/src/dosfns.c
+++ b/src/dosfns.c
@@ -110,7 +110,7 @@ Return the updated VECTOR. */)
110 offs = (unsigned long) XINT (address); 110 offs = (unsigned long) XINT (address);
111 CHECK_VECTOR (vector); 111 CHECK_VECTOR (vector);
112 len = XVECTOR (vector)-> size; 112 len = XVECTOR (vector)-> size;
113 if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len) 113 if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len)
114 return Qnil; 114 return Qnil;
115 buf = alloca (len); 115 buf = alloca (len);
116 dosmemget (offs, len, buf); 116 dosmemget (offs, len, buf);
@@ -135,7 +135,7 @@ DEFUN ("msdos-memput", Fdos_memput, Sdos_memput, 2, 2, 0,
135 offs = (unsigned long) XINT (address); 135 offs = (unsigned long) XINT (address);
136 CHECK_VECTOR (vector); 136 CHECK_VECTOR (vector);
137 len = XVECTOR (vector)-> size; 137 len = XVECTOR (vector)-> size;
138 if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len) 138 if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len)
139 return Qnil; 139 return Qnil;
140 buf = alloca (len); 140 buf = alloca (len);
141 141
@@ -155,7 +155,7 @@ If the optional argument ALLKEYS is non-nil, the keyboard is mapped for
155all keys; otherwise it is only used when the ALT key is pressed. 155all keys; otherwise it is only used when the ALT key is pressed.
156The current keyboard layout is available in dos-keyboard-code. */) 156The current keyboard layout is available in dos-keyboard-code. */)
157 (country_code, allkeys) 157 (country_code, allkeys)
158 Lisp_Object country_code; 158 Lisp_Object country_code, allkeys;
159{ 159{
160 CHECK_NUMBER (country_code); 160 CHECK_NUMBER (country_code);
161 if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys))) 161 if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
diff --git a/src/fileio.c b/src/fileio.c
index aa37c296eb3..1fd0030a4f7 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -89,6 +89,7 @@ extern int errno;
89#ifdef MSDOS 89#ifdef MSDOS
90#include "msdos.h" 90#include "msdos.h"
91#include <sys/param.h> 91#include <sys/param.h>
92extern Lisp_Object Fmsdos_downcase_filename P_ ((Lisp_Object));
92#if __DJGPP__ >= 2 93#if __DJGPP__ >= 2
93#include <fcntl.h> 94#include <fcntl.h>
94#include <string.h> 95#include <string.h>
diff --git a/src/msdos.c b/src/msdos.c
index e0f4527e5ae..d75ea18ea97 100644
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -2320,7 +2320,7 @@ IT_set_frame_parameters (f, alist)
2320 2320
2321 /* If we are creating a new frame, begin with the original screen colors 2321 /* If we are creating a new frame, begin with the original screen colors
2322 used for the initial frame. */ 2322 used for the initial frame. */
2323 if (alist == Vdefault_frame_alist 2323 if (EQ (alist, Vdefault_frame_alist)
2324 && initial_screen_colors[0] != -1 && initial_screen_colors[1] != -1) 2324 && initial_screen_colors[0] != -1 && initial_screen_colors[1] != -1)
2325 { 2325 {
2326 FRAME_FOREGROUND_PIXEL (f) = initial_screen_colors[0]; 2326 FRAME_FOREGROUND_PIXEL (f) = initial_screen_colors[0];