[prev in list] [next in list] [prev in thread] [next in thread] 

List:       bitkeeper-users
Subject:    Re: [Bitkeeper-users] BK/Emacs update
From:       Georg Nikodym <georgn () somanetworks ! com>
Date:       2003-04-08 20:20:48
[Download RAW message or body]

On 02 Apr 2003 09:50:24 -0800
"Bryan O'Sullivan" <bos@serpentine.com> wrote:

> My BK/Emacs integration code is now hosted at
> bk://bk-emacs.bkbits.net/emacs
> 
> If you find it useful, I recommend cloning the repo and doing
> occasional pulls (it's under heavy development), as I don't expect to
> spam this list more than once in a blue moon with updates.
> 
> Patches and feedback always welcome.

Further down the XEmacs <-> GNU Emacs portability trail...

Here's another patch (also available via http://soma.bkbits.net/bk-emacs):

# This is a BitKeeper generated patch for the following project:
# Project Name: Emacs stuff
# This patch format is intended for GNU patch command version 2.5 or higher.
# This patch includes the following deltas:
#	           ChangeSet	1.24    -> 1.25   
#	               bk.el	1.35    -> 1.36   
#
# The following is the BitKeeper ChangeSet Log
# --------------------------------------------
# 03/04/08	georgn@keller.yyz.somanetworks.com	1.25
# Still more XEmacs <-> GNU Emacs portability fixes.
# --------------------------------------------
#
diff -Nru a/bk.el b/bk.el
--- a/bk.el	Tue Apr  8 16:16:21 2003
+++ b/bk.el	Tue Apr  8 16:16:21 2003
@@ -859,15 +859,20 @@
       (when resync
 	(save-excursion
 	  (set-buffer (process-buffer proc))
-	  (make-local-variable 'bk-resync))))))
+	  (make-local-variable 'bk-resync)
+	  (setq bk-resync nil))))))
 
 (defvar bk-citool-history nil)
 
 (defun bk-citool (dir)
   "Run BitKeeper's graphical file checkin and ChangeSet commit tool in DIR."
   (interactive
-   (list (read-directory-name "Run citool in directory: " nil nil t
-			      bk-citool-history)))
+   (if (fboundp 'read-directory-name)
+       (list (read-directory-name "Run citool in directory: " nil nil t
+				  bk-citool-history))
+     (list (read-file-name "Run citool in directory: "
+			   default-directory default-directory
+			   t bk-citool-history))))
   (unless (file-directory-p dir)
     (error "`%s' is not a directory" dir))
   (save-some-buffers)

[Attachment #3 (application/pgp-signature)]
_______________________________________________
Bitkeeper-users mailing list
Bitkeeper-users@bitmover.com
http://bitmover.com/mailman/listinfo/bitkeeper-users
To unsubscribe from this list, go to the above URL, follow instruction at the bottom of the web page.

[prev in list] [next in list] [prev in thread] [next in thread]