On 02 Apr 2003 09:50:24 -0800
"Bryan O'Sullivan" <bos@xxxxxxxxxxxxxx> 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@xxxxxxxxxxxxxxxxxxxxxxxxxxx 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)
pgp9xJiiEX0VV.pgp
Description: PGP signature
|
