home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / irchat-pj / 2.5 / irchat-pj-2.5.6pl2.diff.bz2 / irchat-pj-2.5.6pl2.diff
Lisp/Scheme  |  2001-12-12  |  8KB  |  229 lines
  1. diff -urN irchat-pj-2.5.6p/irchat-commands.el irchat-pj-2.5.6pl2/irchat-commands.el
  2. --- irchat-pj-2.5.6p/irchat-commands.el    Wed Jun  6 01:45:03 2001
  3. +++ irchat-pj-2.5.6pl2/irchat-commands.el    Thu Dec 13 01:44:32 2001
  4. @@ -1,5 +1,5 @@
  5.  ;;;
  6. -;;; $Id: irchat-commands.el,v 1.15 2001/06/05 16:45:03 simm Exp $
  7. +;;; $Id: irchat-commands.el,v 1.15.2.2 2001/12/12 16:44:32 simm Exp $
  8.  ;;;
  9.  ;;; see file irchat-copyright.el for change log and copyright info
  10.  
  11. @@ -38,9 +38,11 @@
  12.        (if (setq win (get-buffer-window irchat-Dialogue-buffer))
  13.            (let ((obuf (current-buffer)))
  14.          (set-buffer irchat-Dialogue-buffer)
  15. -        (goto-char (point-max))
  16. +        (goto-char (1- (point-max)))
  17.          (select-window win)
  18. -        (recenter (- (window-height) 1))
  19. +        ;;(recenter (- (window-height) 1))
  20. +        (irchat-pj-align-bottom)
  21. +        (goto-char (point-max))
  22.          (select-window owin)
  23.          (set-buffer obuf)))))))
  24.  
  25. @@ -83,7 +85,9 @@
  26.       (irchat-Command-send-line))
  27.      ((not skk-mode)
  28.       (irchat-Command-send-line))
  29. -    ((not skk-henkan-on)
  30. +    ((and (boundp 'skk-henkan-mode) (not skk-henkan-mode))
  31. +     (irchat-Command-send-line))
  32. +    ((and (boundp 'skk-henkan-on) (not skk-henkan-on))
  33.       (irchat-Command-send-line))
  34.      (skk-egg-like-newline
  35.       (skk-kakutei))
  36. diff -urN irchat-pj-2.5.6p/irchat-vars.el irchat-pj-2.5.6pl2/irchat-vars.el
  37. --- irchat-pj-2.5.6p/irchat-vars.el    Mon Sep 17 00:43:59 2001
  38. +++ irchat-pj-2.5.6pl2/irchat-vars.el    Thu Dec 13 01:34:15 2001
  39. @@ -1,5 +1,5 @@
  40.  ;;;
  41. -;;; $Id: irchat-vars.el,v 1.10 2001/08/27 15:38:44 simm Exp $
  42. +;;; $Id: irchat-vars.el,v 1.10.2.3 2001/12/12 16:34:15 simm Exp $
  43.  ;;;
  44.  ;;; see file irchat-copyright.el for change log and copyright info
  45.  
  46. @@ -13,14 +13,26 @@
  47.    "Minor version of irchat-pj")
  48.  (defconst irchat-pj-branch 6
  49.    "Version branch of irchat-pj")
  50. -(defconst irchat-pj-cvs nil
  51. -  "If non-nil, this version of irchat-pj is CVS version.
  52. -If nil, package version.")
  53. +(defconst irchat-pj-version-number
  54. +  (format "%d.%d.%d" irchat-pj-major-version irchat-pj-minor-version irchat-pj-branch)
  55. +  "Version number string of irchat-pj")
  56. +
  57. +(defconst irchat-pj-version-suffix 2
  58. +  "irchat-pj version name suffix.
  59. +  NIL   : Package release version
  60. +  Number: Patch level to the release version
  61. +  String: CVS version
  62. +    \"c\": main trunk of CVS version
  63. +    \"m\": minesweepers' version (simm's working branch)")
  64.  (defconst irchat-pj-version
  65. -  (format "%d.%d.%d%c"
  66. -      irchat-pj-major-version irchat-pj-minor-version irchat-pj-branch
  67. -      (if irchat-pj-cvs ?c ?p))
  68. -  "Full version of irchat-pj")
  69. +  (cond
  70. +   ((null irchat-pj-version-suffix)
  71. +    (concat irchat-pj-version-number "p"))
  72. +   ((numberp irchat-pj-version-suffix)
  73. +    (concat irchat-pj-version-number "pl" (number-to-string irchat-pj-version-suffix)))
  74. +   ((stringp irchat-pj-version-suffix)
  75. +    (concat irchat-pj-version-number irchat-pj-version-suffix)))
  76. +  "Version string of irchat-pj current version")
  77.  (defconst irchat-pj-version-string
  78.    (concat "irchat-pj/" irchat-pj-version)
  79.    "Full version string of irchat-pj. Used in pure-vs.")
  80. @@ -205,7 +217,7 @@
  81.  cdr: base filename
  82.  
  83.  ex. '((\"#KU3G\" . \"KU3G\")
  84. -      (\"#IRC$(BIa5Z0Q0w2q(B:*.jp\" . \"ircpa\"))")
  85. +      (\"#IRC$BIa5Z0Q0w2q(B:*.jp\" . \"ircpa\"))")
  86.  
  87.  ;; add by simm@irc.fan.gr.jp, Sat, 5 Jun 1999
  88.  (defvar irchat-pj-quit-with-kill-buffer nil
  89. diff -urN irchat-pj-2.5.6p/irchat.el irchat-pj-2.5.6pl2/irchat.el
  90. --- irchat-pj-2.5.6p/irchat.el    Wed Jun  6 01:53:34 2001
  91. +++ irchat-pj-2.5.6pl2/irchat.el    Thu Dec 13 01:21:29 2001
  92. @@ -6,7 +6,7 @@
  93.  ;; irchat-pj 2.5.x version by simm@irc.fan.gr.jp (1999/01/16-2000/01/19)
  94.  ;; Copyright (C) 1998-2000 irchat-PJ Project
  95.  
  96. -;; $Id: irchat.el,v 1.18 2001/06/05 16:53:34 simm Exp $
  97. +;; $Id: irchat.el,v 1.18.2.1 2001/12/12 16:21:29 simm Exp $
  98.  
  99.  ;; modified by simm@irc.fan.gr.jp, Tue, 25 Jul 2000 00:29:53 +0900
  100.  (require 'pure-generic)
  101. @@ -815,23 +815,29 @@
  102.              (switch-to-buffer irchat-Channel-buffer)
  103.              (other-window 1)
  104.              (switch-to-buffer irchat-Others-buffer)
  105. +            (goto-char (1- (point-max)))
  106. +            ;;(recenter (- (window-height) 1))
  107. +            (irchat-pj-align-bottom)
  108.              (goto-char (point-max))
  109. -            (recenter (- (window-height) 1))
  110.              (select-window
  111.               (get-buffer-window irchat-Command-buffer)))
  112.              (switch-to-buffer irchat-Dialogue-buffer)
  113.              (if (not irchat-freeze)
  114.              (progn
  115. -              (goto-char (point-max))
  116. -              (recenter (- (window-height) 1))))
  117. +              (goto-char (1- (point-max)))
  118. +              ;;(recenter (- (window-height) 1))
  119. +              (irchat-pj-align-bottom)
  120. +              (goto-char (point-max))))
  121.              (select-window
  122.               (get-buffer-window irchat-Command-buffer)))))
  123.          ;; mta@tut.fi wants it like this
  124.          (switch-to-buffer irchat-Dialogue-buffer)
  125.          (if (not irchat-freeze)
  126.          (progn
  127. -          (goto-char (point-max))
  128. -          (recenter (- (window-height) 1))))
  129. +          (goto-char (1- (point-max)))
  130. +          ;;(recenter (- (window-height) 1))
  131. +          (irchat-pj-align-bottom)
  132. +          (goto-char (point-max))))
  133.          (if irchat-use-full-window
  134.          (delete-other-windows))
  135.          (if irchat-one-buffer-mode
  136. @@ -847,8 +853,10 @@
  137.                  (- 100 irchat-channel-window-height-percent))
  138.                   100)))
  139.              (switch-to-buffer irchat-Others-buffer)
  140. +            (goto-char (1- (point-max)))
  141. +            ;;(recenter (- (window-height) 1))
  142. +            (irchat-pj-align-bottom)
  143.              (goto-char (point-max))
  144. -            (recenter (- (window-height) 1))
  145.              (other-window 1)
  146.              (switch-to-buffer irchat-Channel-buffer)))
  147.            (other-window 1)
  148. @@ -859,8 +867,10 @@
  149.               (get-buffer-window irchat-Dialogue-buffer))
  150.              (if (not irchat-freeze)
  151.              (progn
  152. -              (goto-char (point-max))
  153. -              (recenter (- (window-height) 1))))))
  154. +              (goto-char (1- (point-max)))
  155. +              ;;(recenter (- (window-height) 1))
  156. +              (irchat-pj-align-bottom)
  157. +              (goto-char (point-max))))))
  158.            (select-window
  159.             (get-buffer-window irchat-Command-buffer))))))
  160.      (set-buffer obuf)))
  161. @@ -1222,6 +1232,11 @@
  162.  (defun irchat-scroll-if-visible (window)
  163.    (if window (set-window-point window (point-max))))
  164.  
  165. +(if (and (boundp 'emacs-major-version) (<= 21 emacs-major-version))
  166. +    (defsubst irchat-pj-align-bottom ()
  167. +      (recenter -1))
  168. +  (defun irchat-pj-align-bottom ()
  169. +    (recenter (- (window-height) 1))))
  170.  
  171.  (defun irchat-pj-insert-log (&rest msgs)
  172.    "Insert log message."
  173. @@ -1302,14 +1317,16 @@
  174.            (if (setq win (get-buffer-window irchat-Others-buffer irchat-pj-scroll-condition))
  175.                (let ((cwin nil)
  176.                      (owin (selected-window)))
  177. -                (set-window-point win (point-max))
  178. +                (set-window-point win (1- (point-max)))
  179.                  (select-window win)
  180. -                (recenter (- (window-height) 1))
  181. +                ;;(recenter (- (window-height) 1))
  182. +        (irchat-pj-align-bottom)
  183.                  (and irchat-pj-scroll-condition
  184.                       (setq cwin (get-buffer-window irchat-Command-buffer
  185.                                                     irchat-pj-scroll-condition))
  186.                       (select-window cwin))
  187. -                (select-window owin)))))
  188. +                (select-window owin)
  189. +        (goto-char (point-max))))))
  190.            ;; end
  191.      (save-excursion
  192.        (set-buffer irchat-Dialogue-buffer)
  193. @@ -1328,9 +1345,11 @@
  194.            (if (not (pos-visible-in-window-p (point-max) win))
  195.            (let ((owin (selected-window)))
  196.              (select-window win)
  197. -            (goto-char (point-max))
  198. -            (recenter (- (window-height) 1))
  199. -            (select-window owin)))))))))
  200. +            (goto-char (1- (point-max)))
  201. +            ;;(recenter (- (window-height) 1))
  202. +            (irchat-pj-align-bottom)
  203. +            (select-window owin)
  204. +            (goto-char (point-max))))))))))
  205.  
  206.  (defun irchat-insert-private (to-me partner xmsg)
  207.    (if (not (irchat-ischannel partner))
  208. diff -urN irchat-pj-2.5.6p/make.el irchat-pj-2.5.6pl2/make.el
  209. --- irchat-pj-2.5.6p/make.el    Mon Sep 17 00:34:57 2001
  210. +++ irchat-pj-2.5.6pl2/make.el    Thu Sep 27 03:20:00 2001
  211. @@ -5,7 +5,7 @@
  212.  ;; Author: SHIMADA Mitsunobu <simm@irc.fan.gr.jp>
  213.  ;; Keywords: irchat-pj, PURE, make, install
  214.  
  215. -;; $Id: make.el,v 1.7 2001/09/16 15:32:24 simm Exp $
  216. +;; $Id: make.el,v 1.7.2.1 2001/09/26 18:20:00 simm Exp $
  217.  
  218.  ;; This file is free software; you can redistribute it and/or modify
  219.  ;; it under the terms of the GNU General Public License as published by
  220. @@ -57,7 +57,7 @@
  221.     make-pj-lispfile-list
  222.     "irchat-pj"
  223.     (or (pure-make-get-argument 'packagedir) pure-make-package-base)
  224. -   '("MANIFEST.irchat-pj" . infodir)))
  225. +   '("MANIFEST.irchat-pj" . pkginfo)))
  226.  
  227.  ;; That's all
  228.  (provide 'make)
  229.