Comint, term, and compile now set EMACS

[gnu-emacs] / lisp / international / kkc.el

diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el
index 976b0a6d16712dbb1711d4b69cecfb1ecaa7b7d5..8c9a373c633661bbc3a6e66a90ce59455d3141f1 100644 (file)
--- a/lisp/international/kkc.el
+++ b/lisp/international/kkc.el
@@ -1,9 +1,8 @@
 ;;; kkc.el --- Kana Kanji converter    -*- coding: iso-2022-7bit; -*-
 
 ;;; kkc.el --- Kana Kanji converter    -*- coding: iso-2022-7bit; -*-
 

-;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
-;;   2008, 2009, 2010  Free Software Foundation, Inc.
+;; Copyright (C) 1997-1998, 2001-2016 Free Software Foundation, Inc.

 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,

-;;   2005, 2006, 2007, 2008, 2009, 2010
+;;   2005, 2006, 2007, 2008, 2009, 2010, 2011

 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
 ;;   Registration Number H14PRO021
 
 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
 ;;   Registration Number H14PRO021
 


@@ -41,7 +40,7 @@
   "String denoting KKC input method.
 This string is shown at mode line when users are in KKC mode.")
 
   "String denoting KKC input method.
 This string is shown at mode line when users are in KKC mode.")
 

-(defvar kkc-init-file-name (convert-standard-filename "~/.kkcrc")
+(defvar kkc-init-file-name (locate-user-emacs-file "kkcrc" ".kkcrc")

   "Name of a file which contains user's initial setup code for KKC.")
 
 ;; A flag to control a file specified by `kkc-init-file-name'.
   "Name of a file which contains user's initial setup code for KKC.")
 
 ;; A flag to control a file specified by `kkc-init-file-name'.


@@ -208,9 +207,9 @@ area while indicating the current selection by `<N>'."
                  kkc-current-conversions-width nil
                  kkc-current-conversions (cons 0 nil)))))))
 
                  kkc-current-conversions-width nil
                  kkc-current-conversions (cons 0 nil)))))))
 

-(put 'kkc-error 'error-conditions '(kkc-error error))
+(define-error 'kkc-error nil)

 (defun kkc-error (&rest args)
 (defun kkc-error (&rest args)

-  (signal 'kkc-error (apply 'format args)))
+  (signal 'kkc-error (apply #'format-message args)))

 
 (defvar kkc-converting nil)
 
 
 (defvar kkc-converting nil)
 


@@ -658,5 +657,4 @@ and change the current conversion to the last one in the group."
 ;;
 (provide 'kkc)
 
 ;;
 (provide 'kkc)
 

-;; arch-tag: 3cbfd56e-74e6-4f60-bb46-ba7c2d366fbf

 ;;; kkc.el ends here
 ;;; kkc.el ends here