Mercurial > hg > xemacs-beta

comparison lisp/oobr/br-init.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
4 ;; SUMMARY: OO-Browser per Emacs session initialization. 4 ;; SUMMARY: OO-Browser per Emacs session initialization.
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: oop, tools 6 ;; KEYWORDS: oop, tools
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: Motorola Inc. 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 18-May-90 11 ;; ORIG-DATE: 18-May-90
12 ;; LAST-MOD: 1-Nov-95 at 20:22:46 by Bob Weiner 12 ;; LAST-MOD: 20-Feb-97 at 07:02:16 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1990-1995 Free Software Foundation, Inc. 14 ;; Copyright (C) 1990-1995, 1997 Free Software Foundation, Inc.
15 ;; See the file BR-COPY for license information. 15 ;; See the file BR-COPY for license information.
16 ;; 16 ;;
17 ;; This file is part of the OO-Browser. 17 ;; This file is part of the OO-Browser.
18 ;; 18 ;;
19 ;; DESCRIPTION: 19 ;; DESCRIPTION:
22 ;;; ************************************************************************ 22 ;;; ************************************************************************
23 ;;; Personal Variable Defaults 23 ;;; Personal Variable Defaults
24 ;;; ************************************************************************ 24 ;;; ************************************************************************
25 25
26 ;; >>> If you wish to edit classes displayed by the browser in an editor 26 ;; >>> If you wish to edit classes displayed by the browser in an editor
27 ;; other than Emacs, set the 'br-editor-cmd' variable to the command you 27 ;; other than Emacs, set the `br-editor-cmd' variable to the command you
28 ;; want to edit with. Arguments to the command should be placed in 28 ;; want to edit with. Arguments to the command should be placed in
29 ;; 'br-ed[1-9], with one string argument per variable'. Keep in 29 ;; 'br-ed[1-9], with one string argument per variable'. Keep in
30 ;; mind that the command must generate a new window under your 30 ;; mind that the command must generate a new window under your
31 ;; window system. For example, to run vi under X, one needs to use the 31 ;; window system. For example, to run vi under X, one needs to use the
32 ;; command line "xterm -e vi", the settings would then be: 32 ;; command line "xterm -e vi", the settings would then be:
34 ;; (setq br-editor-cmd "xterm" br-ed1 "-e" 34 ;; (setq br-editor-cmd "xterm" br-ed1 "-e"
35 ;; br-ed2 "vi") 35 ;; br-ed2 "vi")
36 ;; 36 ;;
37 ;; This editor will only be used when the browser is run under a window 37 ;; This editor will only be used when the browser is run under a window
38 ;; system external to Emacs, like X. (In such a case, the variable 38 ;; system external to Emacs, like X. (In such a case, the variable
39 ;; 'hyperb:window-system' will be non-nil). 39 ;; `hyperb:window-system' will be non-nil).
40 ;; 40 ;;
41 ;; 41 ;;
42 (defvar br-editor-cmd nil 42 (defvar br-editor-cmd nil
43 "When non-nil, the OO-Browser uses a non-standard command for editing files. 43 "When non-nil, the OO-Browser uses a non-standard command for editing files.
44 This may be either a string to invoke an external program or an Emacs 44 This may be either a string to invoke an external program or an Emacs
47 (setq br-ed1 nil br-ed2 nil br-ed3 nil br-ed4 nil br-ed5 nil 47 (setq br-ed1 nil br-ed2 nil br-ed3 nil br-ed4 nil br-ed5 nil
48 br-ed6 nil br-ed7 nil br-ed8 nil br-ed9 nil) 48 br-ed6 nil br-ed7 nil br-ed8 nil br-ed9 nil)
49 49
50 ;; 50 ;;
51 ;; >>> If you want to view classes in a read-only fashion outside of Emacs, 51 ;; >>> If you want to view classes in a read-only fashion outside of Emacs,
52 ;; set the following 'br-viewer-cmd' and 'br-vw[1-9]' variables in a 52 ;; set the following `br-viewer-cmd' and `br-vw[1-9]' variables in a
53 ;; similar manner as you did for the editor variables above. 53 ;; similar manner as you did for the editor variables above.
54 ;; 54 ;;
55 ;; For example, to use "xmore", an X-compatible version of more, as your 55 ;; For example, to use "xmore", an X-compatible version of more, as your
56 ;; viewer, use the following settings: 56 ;; viewer, use the following settings:
57 ;; 57 ;;
109 (defun hkey-either (arg) 109 (defun hkey-either (arg)
110 "Executes `action-key' or with non-nil ARG executes `assist-key'." 110 "Executes `action-key' or with non-nil ARG executes `assist-key'."
111 (interactive "P") 111 (interactive "P")
112 (if arg (assist-key) (action-key))) 112 (if arg (assist-key) (action-key)))
113 ;; 113 ;;
114 ;; A value of t for 'hkey-init' below will cause the 114 ;; A value of t for `hkey-init' below will cause the
115 ;; Smart Keys to be bound to keyboard keys in addition to any 115 ;; Smart Keys to be bound to keyboard keys in addition to any
116 ;; mouse key bindings. Comment it out or set it to nil if you 116 ;; mouse key bindings. Comment it out or set it to nil if you
117 ;; don't want these bindings. Or change the bindings in the 117 ;; don't want these bindings. Or change the bindings in the
118 ;; succeeding lines. 118 ;; succeeding lines.
119 (or (boundp 'hkey-init) (setq hkey-init t)) 119 (or (boundp 'hkey-init) (setq hkey-init t))
196 (autoload 'br-to-from-viewer "br" "Move between list and viewer windows" t) 196 (autoload 'br-to-from-viewer "br" "Move between list and viewer windows" t)
197 ;; 197 ;;
198 (autoload 'hmail:compose "hmail" 198 (autoload 'hmail:compose "hmail"
199 "Compose mail with ADDRESS and evaluation of EXPR." t) 199 "Compose mail with ADDRESS and evaluation of EXPR." t)
200 (autoload 'hypb:configuration "hypb" 200 (autoload 'hypb:configuration "hypb"
201 "Insert Emacs configuration information into OUT-BUF or current buffer.") 201 "Insert Emacs configuration information into OUT-BUF or current buffer." nil)
202 ;; 202 (autoload 'hypb:display-file-with-logo "hypb" "Display FILE with IDA logo." nil)
203 (autoload 'c++-browse "c++-browse" "C++ OO-Browser" t) 203 ;;
204 (autoload 'c++-browse "c++-browse" "C++/C OO-Browser" t)
204 (autoload 'clos-browse "clos-brows" "Common Lisp OO-Browser" t) 205 (autoload 'clos-browse "clos-brows" "Common Lisp OO-Browser" t)
205 (autoload 'eif-browse "eif-browse" "Eiffel OO-Browser" t) 206 (autoload 'eif-browse "eif-browse" "Eiffel OO-Browser" t)
206 (autoload 'info-browse "info-brows" "Info OO-Browser" t) 207 (autoload 'info-browse "info-brows" "Info OO-Browser" t)
207 (autoload 'java-browse "java-brows" "Java OO-Browser" t) 208 (autoload 'java-browse "java-brows" "Java OO-Browser" t)
208 (autoload 'objc-browse "objc-brows" "Objective-C OO-Browser" t) 209 (autoload 'objc-browse "objc-brows" "Objective-C OO-Browser" t)
209 (autoload 'smt-browse "smt-browse" "Smalltalk OO-Browser" t) 210 (autoload 'smt-browse "smt-browse" "Smalltalk OO-Browser" t)
210 (autoload 'python-browse "python-browse" "Python OO-Browser" t)
211 ) 211 )
212 212
213 ;;; ************************************************************************ 213 ;;; ************************************************************************
214 ;;; Internal functions 214 ;;; Internal functions
215 ;;; ************************************************************************ 215 ;;; ************************************************************************