Mercurial > emacs

comparison lisp/progmodes/idlw-shell.el @ 27185:ae5b17b9c403

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed some bugs associated with the new file names
author Carsten Dominik <dominik@science.uva.nl>
date Wed, 05 Jan 2000 13:06:37 +0000
parents b2d17f0c1668
children 527d42ebb15e
comparison
equal deleted inserted replaced
27184:2b11879c1a93 27185:ae5b17b9c403
3 ;; Copyright (c) 1999 Carsten Dominik 3 ;; Copyright (c) 1999 Carsten Dominik
4 ;; Copyright (c) 1999 Free Software Foundation 4 ;; Copyright (c) 1999 Free Software Foundation
5 5
6 ;; Author: Chris Chase <chase@att.com> 6 ;; Author: Chris Chase <chase@att.com>
7 ;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl> 7 ;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl>
8 ;; Version: 3.11 8 ;; Version: 3.12
9 ;; Date: $Date: 2000/01/03 14:27:03 $ 9 ;; Date: $Date: 2000/01/05 12:38:46 $
10 ;; Keywords: processes 10 ;; Keywords: processes
11 11
12 ;; This file is part of GNU Emacs. 12 ;; This file is part of GNU Emacs.
13 13
14 ;; GNU Emacs is free software; you can redistribute it and/or modify 14 ;; GNU Emacs is free software; you can redistribute it and/or modify
2437 ;;; Load the toolbar when wanted by the user. 2437 ;;; Load the toolbar when wanted by the user.
2438 2438
2439 (defun idlwave-shell-toggle-toolbar () 2439 (defun idlwave-shell-toggle-toolbar ()
2440 "Toggle the display of the debugging toolbar." 2440 "Toggle the display of the debugging toolbar."
2441 (interactive) 2441 (interactive)
2442 (if (featurep 'idlwave-toolbar) 2442 (if (featurep 'idlw-toolbar)
2443 (idlwave-toolbar-toggle) 2443 (idlwave-toolbar-toggle)
2444 (require 'idlwave-toolbar) 2444 (require 'idlw-toolbar)
2445 (idlwave-toolbar-toggle))) 2445 (idlwave-toolbar-toggle)))
2446 2446
2447 2447
2448 (when idlwave-shell-use-toolbar 2448 (when idlwave-shell-use-toolbar
2449 (or (load "idlw-toolbar" t) 2449 (or (load "idlw-toolbar" t)