Mercurial > hg > xemacs-beta

comparison lisp/oobr/br-site.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 4103f0995bd7
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 ;;!emacs
2 ;;
3 ;; FILE: br-site.el
4 ;; SUMMARY: Site OO-Browser per Emacs session initialization.
5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: local, oop, tools
7 ;;
8 ;; AUTHOR: Bob Weiner
9 ;; ORG: Motorola Inc.
10 ;;
11 ;; ORIG-DATE: 18-May-90
12 ;; LAST-MOD: 28-Jul-95 at 15:11:17 by Bob Weiner
13 ;;
14 ;; Copyright (C) 1990-1995 Free Software Foundation, Inc.
15 ;; See the file BR-COPY for license information.
16 ;;
17 ;; This file is part of the OO-Browser.
18 ;;
19 ;; DESCRIPTION:
20 ;; DESCRIP-END.
21
22 ;;; ************************************************************************
23 ;;; Public variables
24 ;;; ************************************************************************
25
26 (defvar hpath:display-alist
27 '(
28 ;; Run the OO-Browser on OOBR or OOBR-FTR Environment files.
29 ("OOBR\\(-FTR\\)?$" . br-env-browse)
30 )
31 "*Alist of (FILENAME-REGEXP . EDIT-FUNCTION) elements for calling special
32 functions to display particular file types within Emacs. See also
33 'hpath:find-alist' for external display program settings.")
34
35 (defvar hpath:find-alist nil
36 "*Alist of (FILENAME-REGEXP . EDIT-PROGRAM) elements for using window system
37 dependent external programs to edit/display particular file types. See also
38 'hpath:display-alist' for internal, window-system independent display
39 settings.")
40
41 (defvar smart-scroll-proportional nil
42 "*Non-nil means Smart Keys should scroll relative to current line when pressed at the end of a line.
43 Action Key moves current line to top of window. Assist Key moves current
44 line to bottom of window. Repeated presses then scroll up or down a
45 windowful. Nil value instead ignores current line and always scrolls up or
46 down a windowful.")
47
48 ;;; ************************************************************************
49 ;;; Public functions
50 ;;; ************************************************************************
51
52 (defun br-setup-external ()
53 "Site customizable function to configure the OO-Browser for non-Emacs editing and viewing.
54 This must be run after \"br-init\" has been loaded."
55 (setq br-editor-cmd "xterm"
56 br-ed1 "-e" br-ed2 "vi"
57 br-viewer-cmd "xterm"
58 br-vw1 "-e" br-vw2 "more"))
59
60 (defun br-site-after-term-init ()
61 (interactive)
62 (if noninteractive
63 (br-init-autoloads)
64 (br-after-term-init))
65 ;;
66 ;; DON'T PUT IN br-init.el
67 ;;
68 (require 'br)
69 (if noninteractive
70 nil
71 (setq c++-cpp-include-dirs '("/usr/include/")
72 c++-include-dirs
73 (delq nil (mapcar
74 (function (lambda (dir) (if (file-exists-p dir) dir)))
75 '("/usr/include/X11/" "/usr/openwin/include/X11/"))))))
76
77 ;; Execute
78 (br-site-after-term-init)
79
80 (if hyperb:window-system (require 'br-tree))
81
82 (provide 'br-site)