[mhc:00984] Re: mhc-cvs.el

[KOIE Hidetaka (鯉江英隆) <hide@xxxxxxxx>]

From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>
Subject: [mhc:00502] Re: mhc-cvs.el
Date: Tue, 18 Apr 2000 17:25:37 +0900

  | 3. 現在の mhc-file/offline の値をどこかに表示する option がある
  |  と NotePC はうれしいです。あと、これぐらいの message 表示は欲し
  |  いかな？
  |  
  | (defun mhc-file-toggle-offline ()
  |   (interactive)
  |   (setq mhc-file/offline (not mhc-file/offline))
  |   (message "mhc-file is %s." (if mhc-file/offline "offline" "online")))

あまりモードラインに余裕がないので
(mhc-show-network-statusをnilにすればいいんですが)
FreeBSDのPPP風に大文字/小文字にしてみました。
＃受け入れ難いですかね。

Index: mhc-file.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-file.el,v
retrieving revision 1.4
diff -p -u -b -B -c -r1.4 mhc-file.el
cvs server: conflicting specifications of output style
*** mhc-file.el	2000/08/04 07:40:52	1.4
--- mhc-file.el	2000/08/12 14:56:52
***************
*** 122,130 ****
  
  (defun mhc-file-line-status ()
    "Return status string for mode line."
-   (format " mhc%s"
  	  (if mhc-show-network-status
! 	      (if mhc-file/offline "[offline]" "[ONLINE]") "")))
  
  (defun mhc-file-toggle-offline ()
    "*Toggle line status of file manipulation backend."
--- 122,130 ----
  
  (defun mhc-file-line-status ()
    "Return status string for mode line."
    (if mhc-show-network-status
!       (if mhc-file/offline " Mhc" " MHC")
!     " mhc"))
  
  (defun mhc-file-toggle-offline ()
    "*Toggle line status of file manipulation backend."

--
KOIE Hidetaka 鯉江英隆 <hide@xxxxxxxx>