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-emacs20.el < prev    next >
Lisp/Scheme  |  2000-03-14  |  2KB  |  77 lines
  1. ;;;
  2. ;;; irchat-pj-specific-emacs20.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. ;;; for irchat-pj-coding-system.el
  10.  
  11. ;; define service / set process
  12.  
  13. (defsubst irchat-pj-define-service-coding-system (service)
  14.   (modify-coding-system-alist 'network service (cons 'no-conversion 'no-conversion)))
  15.  
  16. (defsubst irchat-pj-set-process-coding-system (proc)
  17.   (set-process-coding-system proc 'no-conversion 'no-conversion))
  18.  
  19. ;; output functions
  20.  
  21. (defsubst irchat-pj-string-out-iso-2022-7bit-ss2 (str)
  22.   (encode-coding-string str 'iso-2022-7bit-ss2))
  23.  
  24. (defsubst irchat-pj-string-out-iso-2022-jp (str)
  25.   (encode-coding-string str 'iso-2022-jp))
  26.  
  27. (defsubst irchat-pj-string-out-euc-jp (str)
  28.   (encode-coding-string str 'euc-jp))
  29.  
  30. (defsubst irchat-pj-string-out-sjis (str)
  31.   (encode-coding-string str 'sjis))
  32.  
  33. ;; input functions
  34.  
  35. (defsubst irchat-pj-string-in-iso-2022-7bit-ss2 (str)
  36.   (decode-coding-string str 'iso-2022-7bit-ss2))
  37.  
  38. (defsubst irchat-pj-string-in-iso-2022-jp (str)
  39.   (decode-coding-string str 'iso-2022-jp))
  40.  
  41. (defsubst irchat-pj-string-in-euc-jp-internal (str)
  42.   (decode-coding-string str 'euc-jp))
  43.  
  44. (defsubst irchat-pj-string-in-sjis-internal (str)
  45.   (decode-coding-string str 'sjis))
  46.  
  47. ;;; for irchat-pj-version-string.el
  48.  
  49. (defun irchat-pj-set-emacs-version-string ()
  50.   "Set Emacs version string for CTCP VERSION"
  51.   (cond ((and (boundp 'enable-multibyte-characters) enable-multibyte-characters)
  52.      (concat "MULE "
  53.          (if (boundp 'rail-ja-mule-version)
  54.              rail-ja-mule-version
  55.            mule-version)
  56.          " GNU Emacs " emacs-version
  57.          " (" system-configuration ")"
  58.          (if (featurep 'meadow)
  59.              (let ((meadow-version
  60.                 (if (boundp 'rail-ja-meadow-version)
  61.                 rail-ja-meadow-version
  62.                   (Meadow-version))))
  63.                (if (string-match "^Meadow-" meadow-version)
  64.                (concat " Meadow "
  65.                    (substring meadow-version (match-end 0)))
  66.              ""))
  67.            "")))
  68.     (t
  69.      (concat "MULE " mule-version " based on Emacs " emacs-version
  70.          " (" system-configuration ")"))))
  71.  
  72. (provide 'irchat-pj-specific-emacs20)
  73.  
  74. ;;;
  75. ;;; end
  76. ;;;
  77.