Mercurial > hg > xemacs-beta

comparison lisp/energize/ostore.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 ;;; -*- Mode: Emacs-Lisp -*-
2 ;;; Adds a couple of ObjectStore commands to the Energize "Browse" menu.
3
4 (defun osbrowser-sentinel (proc msg)
5 (cond ((eq (process-status proc) 'exit)
6 (message "Osbrowser subprocess exited"))
7 ((eq (process-status proc) 'signal)
8 (message "Osbrowser subprocess killed"))))
9
10 (defun os-browser ()
11 (interactive)
12 (message "Launching osbrowser.")
13 (set-process-sentinel
14 (start-process "os-browser" "*os-browser*" "osbrowser")
15 'osbrowser-sentinel))
16
17 (defun ossd-sentinel (proc msg)
18 (cond ((eq (process-status proc) 'exit)
19 (message "OS schema designer subprocess exited"))
20 ((eq (process-status proc) 'signal)
21 (message "OS schema designer subprocess killed"))))
22
23 (defun os-schema-designer ()
24 (interactive)
25 (message "Launching ossd.")
26 (set-process-sentinel
27 (start-process "os-schema-designer" "*os-schema-designer*" "ossd")
28 'osbrowser-sentinel))
29
30 (add-menu-item '("Browse") "----" nil t)
31 (add-menu-item '("Browse") "OS Browser" 'os-browser t)
32 (add-menu-item '("Browse") "OS Schema Designer" 'os-schema-designer t)
33
34 (provide 'ostore)