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-xmas.el < prev    next >
Lisp/Scheme  |  2000-01-30  |  3KB  |  97 lines
  1. ;;;
  2. ;;; irchat-pj-specific-xmas.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. ;; support tab or not
  12.  
  13. (defun irchat-pj-tab-supported-xemacs-p ()
  14.   (or (< 21 emacs-major-version)
  15.       (and (= 21 emacs-major-version)
  16.        (or (< 2  emacs-minor-version)
  17.            (and (= 2  emacs-minor-version)
  18.             (let (beta)
  19.               (string-match "[0-9]+" xemacs-betaname)
  20.               (setq beta (string-to-number
  21.                   (substring xemacs-betaname(match-beginning 0) (match-end 0))))
  22.               (<= 20 beta)))))))
  23.  
  24. ;; define service / set process
  25.  
  26. (defsubst irchat-pj-define-service-coding-system (service)
  27.   (modify-coding-system-alist 'network service (cons 'no-conversion 'no-conversion)))
  28.  
  29. (defsubst irchat-pj-set-process-coding-system (proc)
  30.   (set-process-coding-system proc 'no-conversion 'no-conversion))
  31.  
  32. ;; output functions
  33.  
  34. (defsubst irchat-pj-string-out-iso-2022-7bit-ss2 (str)
  35.   (encode-coding-string str 'iso-2022-7bit-ss2))
  36.  
  37. (defsubst irchat-pj-string-out-iso-2022-jp (str)
  38.   (encode-coding-string str 'iso-2022-jp))
  39.  
  40. (defsubst irchat-pj-string-out-euc-jp (str)
  41.   (encode-coding-string str 'euc-jp))
  42.  
  43. (defsubst irchat-pj-string-out-sjis (str)
  44.   (encode-coding-string str 'shift_jis))
  45.  
  46. ;; input functions
  47.  
  48. (defsubst irchat-pj-string-in-iso-2022-7bit-ss2 (str)
  49.   (decode-coding-string str 'iso-2022-7bit-ss2))
  50.  
  51. (defsubst irchat-pj-string-in-iso-2022-jp (str)
  52.   (decode-coding-string str 'iso-2022-jp))
  53.  
  54. (defsubst irchat-pj-string-in-euc-jp-internal (str)
  55.   (decode-coding-string str 'euc-jp))
  56.  
  57. (defsubst irchat-pj-string-in-sjis-internal (str)
  58.   (decode-coding-string str 'shift_jis))
  59.  
  60. ;;; for irchat-pj-version-string.el
  61.  
  62. (defun irchat-pj-set-emacs-version-string ()
  63.   "Set Emacs version string for CTCP VERSION"
  64.   (concat (cond ((featurep 'utf-2000)
  65.          (concat "UTF-2000-MULE/"
  66.              (if (boundp 'rail-ja-utf-2000-version)
  67.                  rail-ja-utf-2000-version
  68.                (let ((stop (string-match " " utf-2000-version)))
  69.                  (if stop
  70.                  (substring utf-2000-version 0 stop)
  71.                    utf-2000-version)))))
  72.         ((featurep 'mule)
  73.          "MULE")
  74.         (t
  75.          ""))
  76.       " XEmacs "
  77.       (if (string-match " " emacs-version)
  78.           (substring emacs-version 0 (match-beginning 0))
  79.         "")
  80.       (cond ((stringp xemacs-betaname)
  81.          (concat "-" (substring xemacs-betaname 1 (1- (length xemacs-betaname)))))
  82.         ((numberp emacs-patch-level)
  83.          (concat "-patch" (number-to-string emacs-patch-level)))
  84.         (t
  85.          ""))
  86.       " \""
  87.       (if (boundp 'rail-ja-xemacs-codename)
  88.           rail-ja-xemacs-codename
  89.         xemacs-codename)
  90.       "\" (" system-configuration ")"))
  91.  
  92. (provide 'irchat-pj-specific-xmas)
  93.  
  94. ;;;
  95. ;;; end
  96. ;;;
  97.