🚀 go-pugleaf

In GNU Emacs 19.25.2 of Fri Aug 12 1994 on gza-client1 (sparc-sun-sunos4.1.3)

The ChangeLog entry below explains the changes.  This patch depends on
the patch I sent in earlier today for the same region of code.

Fri Aug 12 19:18:31 1994  Jonathan I. Kamens  (jik@gza-client1)

	* vc.el (vc-steal-lock): (1) Function should be
	non-interactive, because it doesn't work when called directly
	by the user. (2) Don't display revision "nil" when stealing
	lock if revision is unknown.  (3) Put "Stolen lock on <file>"
	instead of just the file name in the Subject of the
	notification message.

*** vc.el	1994/08/12 17:53:14	1.2
--- vc.el	1994/08/12 19:16:23
***************
*** 574,584 ****
  
  (defun vc-steal-lock (file rev &optional owner)
    "Steal the lock on the current workfile."
!   (interactive)
!   (let ((configuration (current-window-configuration)))
      (if (not owner)
  	(setq owner (vc-locking-user file)))
!     (if (not (y-or-n-p (format "Take the lock on %s:%s from %s? " file rev owner)))
  	(error "Steal cancelled"))
      (pop-to-buffer (get-buffer-create "*VC-mail*"))
      (setq default-directory (expand-file-name "~/"))
--- 574,587 ----
  
  (defun vc-steal-lock (file rev &optional owner)
    "Steal the lock on the current workfile."
!   (let ((configuration (current-window-configuration))
! 	file-description)
      (if (not owner)
  	(setq owner (vc-locking-user file)))
!     (if rev
! 	(setq file-description (format "%s:%s" file rev))
!       (setq file-description file))
!     (if (not (y-or-n-p (format "Take the lock on %s from %s? " file-description owner)))
  	(error "Steal cancelled"))
      (pop-to-buffer (get-buffer-create "*VC-mail*"))
      (setq default-directory (expand-file-name "~/"))
***************
*** 585,595 ****
      (auto-save-mode auto-save-default)
      (mail-mode)
      (erase-buffer)
!     (mail-setup owner (format "%s:%s" file rev) nil nil nil
  		(list (list 'vc-finish-steal file rev configuration)))
      (goto-char (point-max))
      (insert
!      (format "I stole the lock on %s:%s, " file rev)
       (current-time-string)
       ".\n")
      (message "Please explain why you stole the lock.  Type C-c C-c when done.")))
--- 588,598 ----
      (auto-save-mode auto-save-default)
      (mail-mode)
      (erase-buffer)
!     (mail-setup owner (format "Stolen lock on %s" file-description) nil nil nil
  		(list (list 'vc-finish-steal file rev configuration)))
      (goto-char (point-max))
      (insert
!      (format "I stole the lock on %s, " file-description)
       (current-time-string)
       ".\n")
      (message "Please explain why you stole the lock.  Type C-c C-c when done.")))