Mercurial > hg > xemacs-beta

comparison lisp/oobr/java-brows.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
1 ;;!emacs 1 ;;!emacs
2 ;; 2 ;;
3 ;; FILE: java-brows.el 3 ;; FILE: java-brows.el
4 ;; SUMMARY: Java source code browser. 4 ;; SUMMARY: Java source code browser.
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: java, oop, tools 6 ;; KEYWORDS: c, 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: 01-Aug-95 11 ;; ORIG-DATE: 01-Aug-95
12 ;; LAST-MOD: 20-Sep-95 at 14:18:44 by Bob Weiner 12 ;; LAST-MOD: 12-Nov-96 at 15:20:24 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1995 Free Software Foundation, Inc. 14 ;; Copyright (C) 1995, 1996 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:
85 (fset 'java-class-list-filter 'identity) 85 (fset 'java-class-list-filter 'identity)
86 86
87 (defun java-mode-setup () 87 (defun java-mode-setup ()
88 "Load best available java major mode and set 'br-lang-mode' to the function that invokes it." 88 "Load best available java major mode and set 'br-lang-mode' to the function that invokes it."
89 (fset 'br-lang-mode 89 (fset 'br-lang-mode
90 (cond ((or (featurep 'java-mode) 90 (cond ((and (or (fboundp 'java-mode)
91 (load "java-mode" 'missing-ok 'nomessage)) 91 (featurep 'cc-mode)
92 (load "cc-mode" 'missing-ok 'nomessage))
93 (fboundp 'java-mode))
92 'java-mode) 94 'java-mode)
93 ((featurep 'cc-mode) 95 ((load "java-mode" 'missing-ok 'nomessage)
96 'java-mode)
97 ((fboundp 'c++-mode)
98 (provide 'c++-mode)
94 'c++-mode) 99 'c++-mode)
95 ((load "cc-mode" 'missing-ok 'nomessage) 100 (t (error
96 (provide 'c++-mode)) 101 "(java-mode-setup): Can't load major mode for Java code.")))))
97 (t (error "(java-mode-setup): Can't load major mode for Java code.")))))
98 102
99 ;;; ************************************************************************ 103 ;;; ************************************************************************
100 ;;; Internal functions 104 ;;; Internal functions
101 ;;; ************************************************************************ 105 ;;; ************************************************************************
102 106