[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Juanma Barranquero]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.274 
emacs/lisp/international/mule-cmds.el:1.275
*** emacs/lisp/international/mule-cmds.el:1.274 Fri May 13 06:03:45 2005
--- emacs/lisp/international/mule-cmds.el       Fri Jun 10 14:12:17 2005
***************
*** 624,630 ****
  only if the user was explicitly asked and specified a coding system.")
  
  (defvar select-safe-coding-system-accept-default-p nil
!   "If non-nil, a function to control the behaviour of coding system selection.
  The meaning is the same as the argument ACCEPT-DEFAULT-P of the
  function `select-safe-coding-system' (which see).  This variable
  overrides that argument.")
--- 624,630 ----
  only if the user was explicitly asked and specified a coding system.")
  
  (defvar select-safe-coding-system-accept-default-p nil
!   "If non-nil, a function to control the behavior of coding system selection.
  The meaning is the same as the argument ACCEPT-DEFAULT-P of the
  function `select-safe-coding-system' (which see).  This variable
  overrides that argument.")
***************
*** 1569,1575 ****
  But, if this flag is non-nil, it displays them in echo area instead.")
  
  (defvar input-method-exit-on-invalid-key nil
!   "This flag controls the behaviour of an input method on invalid key input.
  Usually, when a user types a key which doesn't start any character
  handled by the input method, the key is handled by turning off the
  input method temporarily.  After that key, the input method is re-enabled.
--- 1569,1575 ----
  But, if this flag is non-nil, it displays them in echo area instead.")
  
  (defvar input-method-exit-on-invalid-key nil
!   "This flag controls the behavior of an input method on invalid key input.
  Usually, when a user types a key which doesn't start any character
  handled by the input method, the key is handled by turning off the
  input method temporarily.  After that key, the input method is re-enabled.
***************
*** 1846,1852 ****
    ;; Don't invoke fontset-related functions if fontsets aren't
    ;; supported in this build of Emacs.
    (when (fboundp 'fontset-list)
!     (let ((overriding-fontspec (get-language-info language-name 
                                                  'overriding-fontspec)))
        (if overriding-fontspec
          (set-overriding-fontspec-internal overriding-fontspec))))
--- 1846,1852 ----
    ;; Don't invoke fontset-related functions if fontsets aren't
    ;; supported in this build of Emacs.
    (when (fboundp 'fontset-list)
!     (let ((overriding-fontspec (get-language-info language-name
                                                  'overriding-fontspec)))
        (if overriding-fontspec
          (set-overriding-fontspec-internal overriding-fontspec))))