diff options
| author | Jan Djärv | 2004-11-07 09:13:26 +0000 |
|---|---|---|
| committer | Jan Djärv | 2004-11-07 09:13:26 +0000 |
| commit | 238a44a8657ff8cf0feee84619262255b354c55d (patch) | |
| tree | 44f6518f9b376d8267b62eb1c2bc29b1f574be31 /src | |
| parent | 21acf124651cdcfd76317649236a25254f57de1b (diff) | |
| download | emacs-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/ChangeLog | 13 | ||||
| -rw-r--r-- | src/dired.c | 4 | ||||
| -rw-r--r-- | src/dosfns.c | 6 | ||||
| -rw-r--r-- | src/fileio.c | 1 | ||||
| -rw-r--r-- | src/msdos.c | 2 |
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 @@ | |||
| 1 | 2004-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 | |||
| 1 | 2004-11-06 Steven Tamm <steventamm@mac.com> | 14 | 2004-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; | |||
| 116 | extern Lisp_Object Vcompletion_regexp_list; | 116 | extern Lisp_Object Vcompletion_regexp_list; |
| 117 | extern Lisp_Object Vfile_name_coding_system, Vdefault_file_name_coding_system; | 117 | extern Lisp_Object Vfile_name_coding_system, Vdefault_file_name_coding_system; |
| 118 | 118 | ||
| 119 | #ifdef MSDOS | ||
| 120 | extern Lisp_Object Fmsdos_downcase_filename P_ ((Lisp_Object)); | ||
| 121 | #endif | ||
| 122 | |||
| 119 | Lisp_Object Vcompletion_ignored_extensions; | 123 | Lisp_Object Vcompletion_ignored_extensions; |
| 120 | Lisp_Object Qcompletion_ignore_case; | 124 | Lisp_Object Qcompletion_ignore_case; |
| 121 | Lisp_Object Qdirectory_files; | 125 | Lisp_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 | |||
| 155 | all keys; otherwise it is only used when the ALT key is pressed. | 155 | all keys; otherwise it is only used when the ALT key is pressed. |
| 156 | The current keyboard layout is available in dos-keyboard-code. */) | 156 | The 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> |
| 92 | extern 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]; |