Mercurial > hg > xemacs-beta

comparison lisp/oobr/java-brows.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 4103f0995bd7
children 4be1180a9e89
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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: c, oop, tools 6 ;; KEYWORDS: java, oop, tools
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: InfoDock Associates 9 ;; ORG: Motorola Inc.
10 ;; 10 ;;
11 ;; ORIG-DATE: 01-Aug-95 11 ;; ORIG-DATE: 01-Aug-95
12 ;; LAST-MOD: 12-Nov-96 at 15:20:24 by Bob Weiner 12 ;; LAST-MOD: 20-Sep-95 at 14:18:44 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1995, 1996 Free Software Foundation, Inc. 14 ;; Copyright (C) 1995 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 ((and (or (fboundp 'java-mode) 90 (cond ((or (featurep 'java-mode)
91 (featurep 'cc-mode) 91 (load "java-mode" 'missing-ok 'nomessage))
92 (load "cc-mode" 'missing-ok 'nomessage))
93 (fboundp 'java-mode))
94 'java-mode) 92 'java-mode)
95 ((load "java-mode" 'missing-ok 'nomessage) 93 ((featurep 'cc-mode)
96 'java-mode)
97 ((fboundp 'c++-mode)
98 (provide 'c++-mode)
99 'c++-mode) 94 'c++-mode)
100 (t (error 95 ((load "cc-mode" 'missing-ok 'nomessage)
101 "(java-mode-setup): Can't load major mode for Java code."))))) 96 (provide 'c++-mode))
97 (t (error "(java-mode-setup): Can't load major mode for Java code.")))))
102 98
103 ;;; ************************************************************************ 99 ;;; ************************************************************************
104 ;;; Internal functions 100 ;;; Internal functions
105 ;;; ************************************************************************ 101 ;;; ************************************************************************
106 102