home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / irchat-pj / irchat-pj-2.4.24.22.tar.gz / irchat-pj-2.4.24.22.tar / irchat-pj-2.4.24.22 / irchat-pj-specific-nemacs.el < prev    next >
Lisp/Scheme  |  2002-07-18  |  2KB  |  77 lines
  1. ;;;
  2. ;;; irchat-pj-specific-nemacs.el
  3. ;;; last modify : Thu, 28 Oct 1999 00:04:46 +0900
  4. ;;;               by simm@irc.fan.gr.jp / irchat-PJ Project
  5. ;;; (date format modification by simm@irc.fan.gr.jp, Sun, 27 Jun 1999)
  6. ;;; see file irchat-copyright.el for change log and copyright info
  7. ;;;
  8.  
  9. ;; load defsubst
  10.  
  11. (or (fboundp 'defsubst)
  12.     (fset 'defsubst 'defun))
  13.  
  14. ;;; for irchat-pj-coding-system.el
  15.  
  16. ;; define service / set process
  17.  
  18. (defsubst irchat-pj-define-service-coding-system (service)
  19.   (define-service-kanji-code service nil 0))
  20.  
  21. (defsubst irchat-pj-set-process-coding-system (proc)
  22.   (set-process-kanji-code proc 0))
  23.  
  24. ;; output functions
  25.  
  26. (defsubst irchat-pj-string-out-iso-2022-jp (str)
  27.   (let ((orig-to-ascii-process to-ascii-process)
  28.     (orig-to-kanji-process to-kanji-process))
  29.     (setq to-ascii-process ?B)
  30.     (setq to-kanji-process ?B)
  31.     (setq str (convert-string-kanji-code str 3 2))
  32.     (setq to-ascii-process orig-to-ascii-process)
  33.     (setq to-kanji-process orig-to-kanji-process)
  34.     str))
  35.  
  36. (fset 'irchat-pj-string-out-iso-2022-7bit-ss2
  37.       'irchat-pj-string-out-iso-2022-jp)
  38.  
  39. (defsubst irchat-pj-string-out-euc-jp (str)
  40.   str)
  41.  
  42. (defsubst irchat-pj-string-out-sjis (str)
  43.   (let ((orig-to-ascii-process to-ascii-process)
  44.     (orig-to-kanji-process to-kanji-process))
  45.     (setq to-ascii-process ?B)
  46.     (setq to-kanji-process ?B)
  47.     (setq str (convert-string-kanji-code str 3 1))
  48.     (setq to-ascii-process orig-to-ascii-process)
  49.     (setq to-kanji-process orig-to-kanji-process)
  50.     str))
  51.  
  52. ;; input functions
  53.  
  54. (defsubst irchat-pj-string-in-iso-2022-jp (str)
  55.   (convert-string-kanji-code str 2 3))
  56.  
  57. (fset 'irchat-pj-string-in-iso-2022-7bit-ss2
  58.       'irchat-pj-string-in-iso-2022-jp)
  59.  
  60. (defsubst irchat-pj-string-in-euc-jp-internal (str)
  61.   str)
  62.  
  63. (defsubst irchat-pj-string-in-sjis-internal (str)
  64.   (convert-string-kanji-code str 1 3))
  65.  
  66. ;;; for irchat-pj-version-string.el
  67.  
  68. (defun irchat-pj-set-emacs-version-string ()
  69.   "Set Emacs version string for CTCP VERSION"
  70.   (concat "NEmacs " nemacs-version " based on Emacs " emacs-version))
  71.  
  72. (provide 'irchat-pj-specific-nemacs)
  73.  
  74. ;;;
  75. ;;; end
  76. ;;;
  77.