diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-13 22:04:02 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-13 22:04:02 -0700 |
| commit | a7ca3326c4740ed3ed118b794d35d235de49f346 (patch) | |
| tree | 5d38e0eac8e839c84a4ccb6e8a07c3c7858fff54 /src/coding.c | |
| parent | e87b6180b08c60a256dd8557945321ce2354a3a9 (diff) | |
| download | emacs-a7ca3326c4740ed3ed118b794d35d235de49f346.tar.gz | |
Undo the DEFUN->DEFUE change.
Diffstat (limited to 'src/coding.c')
| -rw-r--r-- | src/coding.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/coding.c b/src/coding.c index c29713a5c0c..b49070e5e16 100644 --- a/src/coding.c +++ b/src/coding.c @@ -7970,7 +7970,7 @@ preferred_coding_system (void) #ifdef emacs /*** 8. Emacs Lisp library functions ***/ -DEFUE ("coding-system-p", Fcoding_system_p, Scoding_system_p, 1, 1, 0, +DEFUN ("coding-system-p", Fcoding_system_p, Scoding_system_p, 1, 1, 0, doc: /* Return t if OBJECT is nil or a coding-system. See the documentation of `define-coding-system' for information about coding-system objects. */) @@ -7985,7 +7985,7 @@ about coding-system objects. */) return Qt; } -DEFUE ("read-non-nil-coding-system", Fread_non_nil_coding_system, +DEFUN ("read-non-nil-coding-system", Fread_non_nil_coding_system, Sread_non_nil_coding_system, 1, 1, 0, doc: /* Read a coding system from the minibuffer, prompting with string PROMPT. */) (Lisp_Object prompt) @@ -8000,7 +8000,7 @@ DEFUE ("read-non-nil-coding-system", Fread_non_nil_coding_system, return (Fintern (val, Qnil)); } -DEFUE ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 2, 0, +DEFUN ("read-coding-system", Fread_coding_system, Sread_coding_system, 1, 2, 0, doc: /* Read a coding system from the minibuffer, prompting with string PROMPT. If the user enters null input, return second argument DEFAULT-CODING-SYSTEM. Ignores case when completing coding systems (all Emacs coding systems @@ -8020,7 +8020,7 @@ are lower-case). */) return (SCHARS (val) == 0 ? Qnil : Fintern (val, Qnil)); } -DEFUE ("check-coding-system", Fcheck_coding_system, Scheck_coding_system, +DEFUN ("check-coding-system", Fcheck_coding_system, Scheck_coding_system, 1, 1, 0, doc: /* Check validity of CODING-SYSTEM. If valid, return CODING-SYSTEM, else signal a `coding-system-error' error. @@ -8955,7 +8955,7 @@ code_convert_string_norecord (Lisp_Object string, Lisp_Object coding_system, } -DEFUE ("decode-coding-string", Fdecode_coding_string, Sdecode_coding_string, +DEFUN ("decode-coding-string", Fdecode_coding_string, Sdecode_coding_string, 2, 4, 0, doc: /* Decode STRING which is encoded in CODING-SYSTEM, and return the result. @@ -9229,7 +9229,7 @@ DEFUN ("keyboard-coding-system", } -DEFUE ("find-operation-coding-system", Ffind_operation_coding_system, +DEFUN ("find-operation-coding-system", Ffind_operation_coding_system, Sfind_operation_coding_system, 1, MANY, 0, doc: /* Choose a coding system for an operation based on the target name. The value names a pair of coding systems: (DECODING-SYSTEM . ENCODING-SYSTEM). @@ -10072,7 +10072,7 @@ DEFUN ("define-coding-system-alias", Fdefine_coding_system_alias, return Qnil; } -DEFUE ("coding-system-base", Fcoding_system_base, Scoding_system_base, +DEFUN ("coding-system-base", Fcoding_system_base, Scoding_system_base, 1, 1, 0, doc: /* Return the base of CODING-SYSTEM. Any alias or subsidiary coding system is not a base coding system. */) @@ -10115,7 +10115,7 @@ DEFUN ("coding-system-aliases", Fcoding_system_aliases, Scoding_system_aliases, return AREF (spec, 1); } -DEFUE ("coding-system-eol-type", Fcoding_system_eol_type, +DEFUN ("coding-system-eol-type", Fcoding_system_eol_type, Scoding_system_eol_type, 1, 1, 0, doc: /* Return eol-type of CODING-SYSTEM. An eol-type is an integer 0, 1, 2, or a vector of coding systems. |