Mercurial > hg > xemacs-beta

comparison lisp/oobr/br-start.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 4be1180a9e89
children
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: InfoDock Associates 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 5-Sep-92 at 23:31:03 11 ;; ORIG-DATE: 5-Sep-92 at 23:31:03
12 ;; LAST-MOD: 20-Feb-97 at 06:59:33 by Bob Weiner 12 ;; LAST-MOD: 9-Apr-97 at 00:16:58 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1992, 1993, 1994, 1997 Free Software Foundation, Inc. 14 ;; Copyright (C) 1992, 1993, 1994, 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.
71 71
72 ;;;###autoload 72 ;;;###autoload
73 (defun oo-browser (&optional same-env-flag) 73 (defun oo-browser (&optional same-env-flag)
74 "Prompt for an Environment and language over which to run the OO-Browser. 74 "Prompt for an Environment and language over which to run the OO-Browser.
75 Optional prefix argument SAME-ENV-FLAG means browse the current Environment, 75 Optional prefix argument SAME-ENV-FLAG means browse the current Environment,
76 if any, without prompting." 76 if any, without prompting. Otherwise, if called interactively, give the user
77 (interactive "P") 77 a choice whether to re-browse the last Environment or to browse a new one."
78 (interactive
79 (list (prog1
80 (if (and (not current-prefix-arg) br-env-file br-lang-prefix)
81 (y-or-n-p (format "(OO-Browser): Browse %s again? " br-env-file))
82 current-prefix-arg)
83 (message ""))))
78 (if (and same-env-flag br-env-file br-lang-prefix) 84 (if (and same-env-flag br-env-file br-lang-prefix)
79 (funcall (intern-soft (concat br-lang-prefix "browse"))) 85 (funcall (intern-soft (concat br-lang-prefix "browse")))
80 (call-interactively 'br-env-browse))) 86 (call-interactively 'br-env-browse)))
81 87
82 (provide 'br-start) 88 (provide 'br-start)