From owner-ntemacs-users@cs.washington.edu Sun Jun 1 09:57:22 1997 X-VM-v5-Data: ([nil nil nil nil t nil t nil nil] [nil "Sun" " 1" "June" "1997" "16:09:06" "+0000" "Jacob Colman" "jacob.colman@reuters.com" "" "87" "Visual SourceSafe" "^From:" nil nil "6" nil nil nil nil] nil) Received: from joker.cs.washington.edu (joker.cs.washington.edu [128.95.1.42]) by june.cs.washington.edu (8.8.5+CS/7.2ju) with SMTP id JAA14837 for ; Sun, 1 Jun 1997 09:57:21 -0700 Received: from trout.cs.washington.edu (trout.cs.washington.edu [128.95.1.178]) by joker.cs.washington.edu (8.6.12/7.2ws+) with ESMTP id JAA30039 for ; Sun, 1 Jun 1997 09:57:20 -0700 Received: (majordom@localhost) by trout.cs.washington.edu (8.8.5+CS/7.2ws+) id JAA25166 for ntemacs-users-outgoing; Sun, 1 Jun 1997 09:11:14 -0700 (PDT) Received: from june.cs.washington.edu (june.cs.washington.edu [128.95.1.4]) by trout.cs.washington.edu (8.8.5+CS/7.2ws+) with ESMTP id JAA25162 for ; Sun, 1 Jun 1997 09:11:12 -0700 (PDT) Received: from ritig1.rit.reuters.com (ritig1.rit.reuters.com [199.171.195.11]) by june.cs.washington.edu (8.8.5+CS/7.2ju) with SMTP id JAA13405 for ; Sun, 1 Jun 1997 09:11:10 -0700 Received: from ritig6.rit.reuters.com by ritig1.rit.reuters.com; (5.65v3.2/1.1.8.2/14Sep94-0947PM) id AA16456; Sun, 1 Jun 1997 12:10:01 -0400 Received: from RITIG4.rit.reuters.com (132.10.10.44) by ritig6.rit.reuters.com (Integralis SMTPRS 1.51) with SMTP id ; Sun, 01 Jun 1997 12:08:12 -0400 Received: from mr.rit.reuters.com by RITIG4.RIT.REUTERS.COM (PMDF V5.1-8 #7805) id <01IJK36P35800007KF@RITIG4.RIT.REUTERS.COM> for ntemacs-users@cs.washington.edu; Sun, 1 Jun 1997 12:07:17 EDT Received: with PMDF-MR; Sun, 01 Jun 1997 17:12:19 +0000 (GMT) Mr-Received: by mta RIT2; Relayed; Sun, 01 Jun 1997 17:12:19 +0000 Mr-Received: by mta RITIG4; Relayed; Sun, 01 Jun 1997 17:07:14 +0000 Alternate-Recipient: prohibited Message-Id: Mime-Version: 1.0 Posting-Date: Sun, 01 Jun 1997 16:09:07 +0000 (GMT) Importance: normal Sensitivity: Company-Confidential Ua-Content-Id: E27IWE2LSP8 X400-Mts-Identifier: [;91217110607991/2491123@RIT] A1-Type: MAIL Hop-Count: 2 Content-Type: TEXT/PLAIN; CHARSET=US-ASCII Precedence: bulk From: Jacob Colman Sender: owner-ntemacs-users@cs.washington.edu To: ntemacs-users@cs.washington.edu Subject: Visual SourceSafe Date: Sun, 01 Jun 1997 16:09:06 +0000 (GMT) This message contains a simple lisp file to create menu options for the excellent SourceSafe package released by Stan Lanning . The new menu options are added to a new "SourceSafe" submenu off of the Tools top-level menu. If this file is found to be useful, maybe it should be added to the FAQ section dealing with Visual SourceSafe. -- Jake Colman Reuters Database Technology Group Stamford, CT. email: jacob.colman@reuters.com Phone: (203) 940-8255 =============================================================== ;;; -*- Mode: Emacs-Lisp -*- ;;; ;;; ssafe-menu.el -- Menu for SourceSafe in Emacs ;;; ;;; Commentary: ;;; This file defines a menu of functions to manipulate files that are ;;; maintained under the SourceSafe version control system. The functions ;;; are defined in the Emacs source-safe package available from Stan Lanning ;;; . SourceSafe is available from Microsoft, and runs ;;; under Windows NT and Win95. There are versions of SourceSafe that run on ;;; Macs and various flavors of Unix. ;;; More info about SourceSafe can be obtained at the web page ;;; http://www.microsoft.com/ssafe/ ;;; Author: ;;; Jake Colman ;;; Installation/Usage: ;;; Byte compile this file and load it together with the source-safe package ;;; inside of your .emacs file. ;;; ;;; For example, you might want to put the following in your ;;; .emacs file: ;;; ;;; (load "ssafe-menu") ;;; (setq ss-program "d:\\win32apps\\vss\\win32\\SS.exe") ;;; (setq ss-project-dirs ;;; '(("^D:\\\\PROJECTS\\\\PROJ1\\\\" . "$/Proj1/") ;;; ("^D:\\\\PROJECTS\\\\PROJ2\\\\" . "$/Proj2/") ;;; )) ;;; (setq ss-tmp-dir "d:\\temp") ;;; (setq ss-confirm-updates t) (require 'source-safe) (defvar ss-menu-map (make-sparse-keymap "SourceSafe")) (define-key-after menu-bar-tools-menu [ss] (cons "SourceSafe" ss-menu-map) 'vc) (define-key ss-menu-map [ss-help] '("Help" . ss-help)) (define-key ss-menu-map [ss-history] '("Show History" . ss-history)) (define-key ss-menu-map [ss-diff] '("Show Differences" . ss-diff)) (define-key ss-menu-map [ss-status] '("Show Status" . ss-status)) (define-key ss-menu-map [separator2] '("--")) (define-key ss-menu-map [ss-merge] '("Merge" . ss-merge)) (define-key ss-menu-map [ss-unbranch] '("Undo Branch" . ss-unbranch)) (define-key ss-menu-map [ss-branch] '("Branch" . ss-branch)) (define-key ss-menu-map [separator1] '("--")) (define-key ss-menu-map [ss-uncheckout] '("Undo Check Out" . ss-uncheckout)) (define-key ss-menu-map [ss-checkin] '("Check In" . ss-update)) (define-key ss-menu-map [ss-checkout] '("Check Out" . ss-checkout)) (define-key ss-menu-map [ss-get] '("Get" . ss-get)) ;;; end of file ssafe-menu.el ===