diff options
| author | Dave Love | 2002-07-03 22:47:00 +0000 |
|---|---|---|
| committer | Dave Love | 2002-07-03 22:47:00 +0000 |
| commit | f65c6d9453c3d7ef38f8a183fddcace3c5020c34 (patch) | |
| tree | 15556bebc4d00882a54094346abd7585ed5571bc | |
| parent | 256d0feff9ae8c9e3f561186a3ef7d84c53a50b5 (diff) | |
| download | emacs-f65c6d9453c3d7ef38f8a183fddcace3c5020c34.tar.gz emacs-f65c6d9453c3d7ef38f8a183fddcace3c5020c34.zip | |
Comment.
| -rw-r--r-- | lisp/isearch.el | 1 | ||||
| -rw-r--r-- | lisp/simple.el | 1 | ||||
| -rw-r--r-- | src/character.h | 2 | ||||
| -rw-r--r-- | src/sysdep.c | 2 |
4 files changed, 5 insertions, 1 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index a3d85dd636a..446675c7b8d 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -235,6 +235,7 @@ Default value, nil, means edit the string instead." | |||
| 235 | (char-table-p (nth 1 map)) | 235 | (char-table-p (nth 1 map)) |
| 236 | (error "The initialization of isearch-mode-map must be updated")) | 236 | (error "The initialization of isearch-mode-map must be updated")) |
| 237 | ;; Make all multibyte characters search for themselves. | 237 | ;; Make all multibyte characters search for themselves. |
| 238 | ;; Fixme: is this range right? | ||
| 238 | (set-char-table-range (nth 1 map) (cons #x100 #x2FFFFF) | 239 | (set-char-table-range (nth 1 map) (cons #x100 #x2FFFFF) |
| 239 | 'isearch-printing-char) | 240 | 'isearch-printing-char) |
| 240 | ;; Make function keys, etc, exit the search. | 241 | ;; Make function keys, etc, exit the search. |
diff --git a/lisp/simple.el b/lisp/simple.el index e1d0ad7007e..36d1ce52c5e 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -532,6 +532,7 @@ in *Help* buffer. See also the command `describe-char-after'." | |||
| 532 | (if (or (not coding) | 532 | (if (or (not coding) |
| 533 | (eq (coding-system-type coding) t)) | 533 | (eq (coding-system-type coding) t)) |
| 534 | (setq coding default-buffer-file-coding-system)) | 534 | (setq coding default-buffer-file-coding-system)) |
| 535 | ;; Fixme: can we actually have invalid chars now? | ||
| 535 | (if (not (char-valid-p char)) | 536 | (if (not (char-valid-p char)) |
| 536 | (setq encoding-msg | 537 | (setq encoding-msg |
| 537 | (format "(0%o, %d, 0x%x, invalid)" char char char)) | 538 | (format "(0%o, %d, 0x%x, invalid)" char char char)) |
diff --git a/src/character.h b/src/character.h index 35e46e2ff90..969a3e801db 100644 --- a/src/character.h +++ b/src/character.h | |||
| @@ -77,7 +77,7 @@ Boston, MA 02111-1307, USA. */ | |||
| 77 | /* Nonzero iff X is a character. */ | 77 | /* Nonzero iff X is a character. */ |
| 78 | #define CHARACTERP(x) (NATNUMP (x) && XFASTINT (x) <= MAX_CHAR) | 78 | #define CHARACTERP(x) (NATNUMP (x) && XFASTINT (x) <= MAX_CHAR) |
| 79 | 79 | ||
| 80 | /* Nozero iff C is valid as a charater code. GENERICP is not used | 80 | /* Nonzero iff C is valid as a character code. GENERICP is not used |
| 81 | now. */ | 81 | now. */ |
| 82 | #define CHAR_VALID_P(c, genericp) ((unsigned) (c) <= MAX_CHAR) | 82 | #define CHAR_VALID_P(c, genericp) ((unsigned) (c) <= MAX_CHAR) |
| 83 | 83 | ||
diff --git a/src/sysdep.c b/src/sysdep.c index f560e9d7cf2..ab9398938a8 100644 --- a/src/sysdep.c +++ b/src/sysdep.c | |||
| @@ -3082,6 +3082,8 @@ seed_random (arg) | |||
| 3082 | long arg; | 3082 | long arg; |
| 3083 | { | 3083 | { |
| 3084 | #ifdef HAVE_RANDOM | 3084 | #ifdef HAVE_RANDOM |
| 3085 | /* Fixme: needs __USE_XOPEN_EXTENDED defined to be picked up from | ||
| 3086 | GNU stdlib.h. */ | ||
| 3085 | srandom ((unsigned int)arg); | 3087 | srandom ((unsigned int)arg); |
| 3086 | #else | 3088 | #else |
| 3087 | # ifdef HAVE_LRAND48 | 3089 | # ifdef HAVE_LRAND48 |