/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

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

revision 1.185.2.9 by fx, Thu Jun 27 18:39:54 2002 UTC revision 1.185.2.10 by fx, Thu Jul 4 23:04:39 2002 UTC
# Line 275  wrong, use this command again to toggle Line 275  wrong, use this command again to toggle
275                       cmd (key-binding keyseq t))                       cmd (key-binding keyseq t))
276                 (not (eq cmd 'universal-argument-other-key)))                 (not (eq cmd 'universal-argument-other-key)))
277          (let ((current-prefix-arg prefix-arg)          (let ((current-prefix-arg prefix-arg)
278                ;; Have to bind `last-command-char' here so that                ;; Have to bind `last-command-char' here so that
279                ;; `digit-argument', for isntance, can compute the                ;; `digit-argument', for isntance, can compute the
280                ;; prefix arg.                ;; prefix arg.
281                (last-command-char (aref keyseq 0)))                (last-command-char (aref keyseq 0)))
# Line 303  This sets the following coding systems: Line 303  This sets the following coding systems:
303    o coding system of a newly created buffer    o coding system of a newly created buffer
304    o default coding system for subprocess I/O    o default coding system for subprocess I/O
305  This also sets the following values:  This also sets the following values:
306    o default value used as file-name-coding-system for converting file names.    o default value used as `file-name-coding-system' for converting file names.
307    o default value for the command `set-terminal-coding-system' (not on MSDOS)    o default value for the command `set-terminal-coding-system' (not on MSDOS)
308    o default value for the command `set-keyboard-coding-system'."    o default value for the command `set-keyboard-coding-system'."
309    (check-coding-system coding-system)    (check-coding-system coding-system)
# Line 412  non-nil, it is used to sort CODINGS in t Line 412  non-nil, it is used to sort CODINGS in t
412    
413  (defun find-coding-systems-region (from to)  (defun find-coding-systems-region (from to)
414    "Return a list of proper coding systems to encode a text between FROM and TO.    "Return a list of proper coding systems to encode a text between FROM and TO.
415    If FROM is a string, find coding systems in that instead of the buffer.
416  All coding systems in the list can safely encode any multibyte characters  All coding systems in the list can safely encode any multibyte characters
417  in the text.  in the text.
418    
# Line 727  Meaningful values for KEY include Line 728  Meaningful values for KEY include
728                          is meant for, and how to use it.                          is meant for, and how to use it.
729    charset            value is a list of the character sets used by this    charset            value is a list of the character sets used by this
730                          language environment.                          language environment.
731    sample-text        value is one line of text,    sample-text        value is an expression which is evalled to generate
732                          written using those character sets,                          a line of text written using characters appropriate
733                          appropriate for this language environment.                          for this language environment.
734    setup-function     value is a function to call to switch to this    setup-function     value is a function to call to switch to this
735                          language environment.                          language environment.
736    exit-function      value is a function to call to leave this    exit-function      value is a function to call to leave this
# Line 806  ALIST is an alist of KEY and INFO values Line 807  ALIST is an alist of KEY and INFO values
807  `language-info-alist' for the meanings of KEY and INFO.  `language-info-alist' for the meanings of KEY and INFO.
808    
809  Optional arg PARENTS is a list of parent menu names; it specifies  Optional arg PARENTS is a list of parent menu names; it specifies
810  where to put this language environment in the  where to put this language environment in the
811  Describe Language Environment and Set Language Environment menus.  Describe Language Environment and Set Language Environment menus.
812  For example, (\"European\") means to put this language environment  For example, (\"European\") means to put this language environment
813  in the European submenu in each of those two menus."  in the European submenu in each of those two menus."
# Line 873  This returns a language environment name Line 874  This returns a language environment name
874          name)))          name)))
875    
876  ;;; Multilingual input methods.  ;;; Multilingual input methods.
877  (defgroup leim nil  (defgroup leim nil
878    "LEIM: Libraries of Emacs Input Methods."    "LEIM: Libraries of Emacs Input Methods."
879    :group 'mule)    :group 'mule)
880    
# Line 1126  and enable that one.  The default is the Line 1127  and enable that one.  The default is the
1127                default t))                default t))
1128           default))           default))
1129        (unless default-input-method        (unless default-input-method
1130          (prog1          (prog1
1131              (setq default-input-method current-input-method)              (setq default-input-method current-input-method)
1132            (when (interactive-p)            (when (interactive-p)
1133              (customize-mark-as-set 'default-input-method)))))))              (customize-mark-as-set 'default-input-method)))))))
# Line 1153  and enable that one.  The default is the Line 1154  and enable that one.  The default is the
1154                (activate-input-method input-method)                (activate-input-method input-method)
1155                (describe-current-input-method))                (describe-current-input-method))
1156              (activate-input-method current))              (activate-input-method current))
1157          (error          (error
1158           (activate-input-method current)           (activate-input-method current)
1159           (help-setup-xref (list #'describe-input-method input-method)           (help-setup-xref (list #'describe-input-method input-method)
1160                            (interactive-p))                            (interactive-p))
# Line 1219  guidance, but simple input methods give Line 1220  guidance, but simple input methods give
1220  the minibuffer.  the minibuffer.
1221    
1222  See also the variable `input-method-highlight-flag'."  See also the variable `input-method-highlight-flag'."
1223    :type '(choice (const t) (const nil) (const complex-only) (const default))    :type '(choice (const :tag "Always" t) (const :tag "Never" nil)
1224                     (const complex-only) (const default))
1225    :group 'mule)    :group 'mule)
1226    
1227  (defcustom input-method-highlight-flag t  (defcustom input-method-highlight-flag t
# Line 1324  to using the function `set-language-envi Line 1326  to using the function `set-language-envi
1326    
1327  The default status is as follows:  The default status is as follows:
1328    
1329    The default value of buffer-file-coding-system is nil.    The default value of `buffer-file-coding-system' is nil.
1330    The default coding system for process I/O is nil.    The default coding system for process I/O is nil.
1331    The default value for the command `set-terminal-coding-system' is nil.    The default value for the command `set-terminal-coding-system' is nil.
1332    The default value for the command `set-keyboard-coding-system' is nil.    The default value for the command `set-keyboard-coding-system' is nil.
# Line 1500  of buffer-file-coding-system set by this Line 1502  of buffer-file-coding-system set by this
1502        (setq default-sendmail-coding-system default-coding)        (setq default-sendmail-coding-system default-coding)
1503        (apply 'set-coding-system-priority priority))))        (apply 'set-coding-system-priority priority))))
1504    
 ;; Print all arguments with `princ', then print "\n".  
1505  (defsubst princ-list (&rest args)  (defsubst princ-list (&rest args)
1506      "Print all arguments with `princ', then print \"\n\"."
1507    (while args (princ (car args)) (setq args (cdr args)))    (while args (princ (car args)) (setq args (cdr args)))
1508    (princ "\n"))    (princ "\n"))
1509    
# Line 1868  XX is a country, and CODE specifies a ch Line 1870  XX is a country, and CODE specifies a ch
1870  For example, the locale name \"ja_JP.EUC\" might name a locale  For example, the locale name \"ja_JP.EUC\" might name a locale
1871  for Japanese in Japan using the `japanese-iso-8bit' coding-system.  for Japanese in Japan using the `japanese-iso-8bit' coding-system.
1872    
1873  If LOCALE-NAME is nil, its value is looked up via `locale-codeset'  If LOCALE-NAME is nil, its value is taken from the environment
1874  using nl_langinfo(3), if that function is available in the system's  variables LC_ALL, LC_CTYPE and LANG (the first one that is set).
 library, otherwise it is simply taken from the environment variables  
 LC_ALL, LC_CTYPE and LANG \(the first one that is set).  
1875    
1876  The locale names supported by your system can typically be found in a  The locale names supported by your system can typically be found in a
1877  directory named `/usr/share/locale' or `/usr/lib/locale'.  LOCALE-NAME  directory named `/usr/share/locale' or `/usr/lib/locale'.  LOCALE-NAME
# Line 1898  See also `locale-charset-language-names' Line 1898  See also `locale-charset-language-names'
1898              (setq files (cdr files)))              (setq files (cdr files)))
1899            (car files)))            (car files)))
1900    
1901    (let ((locale (or locale-name (locale-codeset))))    (let ((locale locale-name))
1902    
1903      (unless locale      (unless locale
1904        ;; Use the first of these three environment variables        ;; Use the first of these three environment variables

Legend:
Removed from v.1.185.2.9  
changed lines
  Added in v.1.185.2.10

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