diff options
| author | Andreas Schwab | 2011-07-12 23:17:39 +0200 |
|---|---|---|
| committer | Andreas Schwab | 2011-07-12 23:17:39 +0200 |
| commit | bc985c877c5b4d8cc87976a834cede666edc0ed5 (patch) | |
| tree | 6cd3df1c4bbbf9beaa9603b7625610d1e3dfd776 /src/character.c | |
| parent | b3dadd7683d3d66630d5be72b222f3931381dad0 (diff) | |
| download | emacs-bc985c877c5b4d8cc87976a834cede666edc0ed5.tar.gz emacs-bc985c877c5b4d8cc87976a834cede666edc0ed5.zip | |
* src/character.c (Fcharacterp): Don't advertise optional ignored
argument. (Bug#4026)
Diffstat (limited to 'src/character.c')
| -rw-r--r-- | src/character.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/character.c b/src/character.c index 7fc5d647ff5..8e9b3e3775e 100644 --- a/src/character.c +++ b/src/character.c | |||
| @@ -258,7 +258,8 @@ multibyte_char_to_unibyte_safe (int c) | |||
| 258 | } | 258 | } |
| 259 | 259 | ||
| 260 | DEFUN ("characterp", Fcharacterp, Scharacterp, 1, 2, 0, | 260 | DEFUN ("characterp", Fcharacterp, Scharacterp, 1, 2, 0, |
| 261 | doc: /* Return non-nil if OBJECT is a character. */) | 261 | doc: /* Return non-nil if OBJECT is a character. |
| 262 | usage: (characterp OBJECT) */) | ||
| 262 | (Lisp_Object object, Lisp_Object ignore) | 263 | (Lisp_Object object, Lisp_Object ignore) |
| 263 | { | 264 | { |
| 264 | return (CHARACTERP (object) ? Qt : Qnil); | 265 | return (CHARACTERP (object) ? Qt : Qnil); |