/[emacs]/emacs/src/coding.c
ViewVC logotype

Diff of /emacs/src/coding.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.239.2.20 by fx, Fri May 24 15:33:29 2002 UTC revision 1.239.2.21 by fx, Sun May 26 17:07:35 2002 UTC
# Line 7176  usage: (find-operation-coding-system OPE Line 7176  usage: (find-operation-coding-system OPE
7176    
7177  DEFUN ("set-coding-system-priority", Fset_coding_system_priority,  DEFUN ("set-coding-system-priority", Fset_coding_system_priority,
7178         Sset_coding_system_priority, 1, MANY, 0,         Sset_coding_system_priority, 1, MANY, 0,
7179         doc: /* Assign higher priority to coding systems given as arguments.         doc: /* Assign higher priority to the coding systems given as arguments.
7180  usage: (set-coding-system-priority CODING-SYSTEM ...)  */)  usage: (set-coding-system-priority CODING-SYSTEM ...)  */)
7181       (nargs, args)       (nargs, args)
7182       int nargs;       int nargs;
# Line 7226  usage: (set-coding-system-priority CODIN Line 7226  usage: (set-coding-system-priority CODIN
7226    
7227  DEFUN ("coding-system-priority-list", Fcoding_system_priority_list,  DEFUN ("coding-system-priority-list", Fcoding_system_priority_list,
7228         Scoding_system_priority_list, 0, 1, 0,         Scoding_system_priority_list, 0, 1, 0,
7229         doc: /* Return a list of coding systems ordered by their priorities.  */)         doc: /* Return a list of coding systems ordered by their priorities.
7230    HIGHESTP non-nil means just return the highest priority one.  */)
7231       (highestp)       (highestp)
7232       Lisp_Object highestp;       Lisp_Object highestp;
7233  {  {
# Line 7717  usage: (define-coding-system-internal .. Line 7718  usage: (define-coding-system-internal ..
7718                           make_number (nargs)));                           make_number (nargs)));
7719  }  }
7720    
7721    /* Fixme: should this record the alias relationships for
7722       diagnostics?  */
7723  DEFUN ("define-coding-system-alias", Fdefine_coding_system_alias,  DEFUN ("define-coding-system-alias", Fdefine_coding_system_alias,
7724         Sdefine_coding_system_alias, 2, 2, 0,         Sdefine_coding_system_alias, 2, 2, 0,
7725         doc: /* Define ALIAS as an alias for CODING-SYSTEM.  */)         doc: /* Define ALIAS as an alias for CODING-SYSTEM.  */)
# Line 7756  DEFUN ("define-coding-system-alias", Fde Line 7759  DEFUN ("define-coding-system-alias", Fde
7759  DEFUN ("coding-system-base", Fcoding_system_base, Scoding_system_base,  DEFUN ("coding-system-base", Fcoding_system_base, Scoding_system_base,
7760         1, 1, 0,         1, 1, 0,
7761         doc: /* Return the base of CODING-SYSTEM.         doc: /* Return the base of CODING-SYSTEM.
7762  Any alias or subsidiary coding systems are not base coding system.  */)  Any alias or subsidiary coding system is not a base coding system.  */)
7763    (coding_system)    (coding_system)
7764       Lisp_Object coding_system;       Lisp_Object coding_system;
7765  {  {
# Line 7787  DEFUN ("coding-system-plist", Fcoding_sy Line 7790  DEFUN ("coding-system-plist", Fcoding_sy
7790    
7791  DEFUN ("coding-system-aliases", Fcoding_system_aliases, Scoding_system_aliases,  DEFUN ("coding-system-aliases", Fcoding_system_aliases, Scoding_system_aliases,
7792         1, 1, 0,         1, 1, 0,
7793         doc: /* Return the list of aliases of CODING-SYSTEM.         doc: /* Return the list of aliases of CODING-SYSTEM.  */)
 A base coding system is what made by `define-coding-system'.  
 Any alias nor subsidiary coding systems are not base coding system.  */)  
7794       (coding_system)       (coding_system)
7795       Lisp_Object coding_system;       Lisp_Object coding_system;
7796  {  {
# Line 7798  Any alias nor subsidiary coding systems Line 7799  Any alias nor subsidiary coding systems
7799    if (NILP (coding_system))    if (NILP (coding_system))
7800      coding_system = Qno_conversion;      coding_system = Qno_conversion;
7801    CHECK_CODING_SYSTEM_GET_SPEC (coding_system, spec);    CHECK_CODING_SYSTEM_GET_SPEC (coding_system, spec);
7802    return AREF (spec, 2);    return AREF (spec, 1);
7803  }  }
7804    
7805  DEFUN ("coding-system-eol-type", Fcoding_system_eol_type,  DEFUN ("coding-system-eol-type", Fcoding_system_eol_type,

Legend:
Removed from v.1.239.2.20  
changed lines
  Added in v.1.239.2.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26