Mercurial > emacs
comparison lisp/progmodes/tcl.el @ 6711:f464d8689cb3
Bug fix; 19.23 should (require 'lmenu).
| author | Tom Tromey <tromey@redhat.com> |
|---|---|
| date | Wed, 06 Apr 1994 22:17:36 +0000 |
| parents | 85f4c4971597 |
| children | 2d0f96fe6ff3 |
comparison
equal
deleted
inserted
replaced
| 6710:85f4c4971597 | 6711:f464d8689cb3 |
|---|---|
| 4 | 4 |
| 5 ;; Maintainer: Tom Tromey <tromey@busco.lanl.gov> | 5 ;; Maintainer: Tom Tromey <tromey@busco.lanl.gov> |
| 6 ;; Author: Tom Tromey <tromey@busco.lanl.gov> | 6 ;; Author: Tom Tromey <tromey@busco.lanl.gov> |
| 7 ;; Chris Lindblad <cjl@lcs.mit.edu> | 7 ;; Chris Lindblad <cjl@lcs.mit.edu> |
| 8 ;; Keywords: languages tcl modes | 8 ;; Keywords: languages tcl modes |
| 9 ;; Version: $Revision$ | 9 ;; Version: $Revision: 1.2 $ |
| 10 | 10 |
| 11 ;; This file is part of GNU Emacs. | 11 ;; This file is part of GNU Emacs. |
| 12 | 12 |
| 13 ;; GNU Emacs is free software; you can redistribute it and/or modify | 13 ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 14 ;; it under the terms of the GNU General Public License as published by | 14 ;; it under the terms of the GNU General Public License as published by |
| 49 ;;; Commentary: | 49 ;;; Commentary: |
| 50 | 50 |
| 51 ;; LCD Archive Entry: | 51 ;; LCD Archive Entry: |
| 52 ;; tcl|Tom Tromey|tromey@busco.lanl.gov| | 52 ;; tcl|Tom Tromey|tromey@busco.lanl.gov| |
| 53 ;; Major mode for editing Tcl| | 53 ;; Major mode for editing Tcl| |
| 54 ;; 6-Apr-94|$Revision$| | 54 ;; 6-Apr-94|$Revision: 1.2 $| |
| 55 | 55 |
| 56 ;; CUSTOMIZATION NOTES: | 56 ;; CUSTOMIZATION NOTES: |
| 57 ;; * tcl-proc-list can be used to customize a list of things that | 57 ;; * tcl-proc-list can be used to customize a list of things that |
| 58 ;; "define" other things. Eg in my project I put "defvar" in this | 58 ;; "define" other things. Eg in my project I put "defvar" in this |
| 59 ;; list. | 59 ;; list. |
| 1754 ;; Put this into your tcl-mode-hook. | 1754 ;; Put this into your tcl-mode-hook. |
| 1755 (defun tcl-install-menubar () | 1755 (defun tcl-install-menubar () |
| 1756 (and tcl-using-emacs-19 | 1756 (and tcl-using-emacs-19 |
| 1757 (not tcl-using-lemacs-19) | 1757 (not tcl-using-lemacs-19) |
| 1758 (if tcl-using-emacs-19.23 | 1758 (if tcl-using-emacs-19.23 |
| 1759 (require 'menubar) | 1759 (require 'lmenu) |
| 1760 ;; CAVEATS: | 1760 ;; CAVEATS: |
| 1761 ;; * lmenu.el provides 'menubar, which is bogus. | 1761 ;; * lmenu.el provides 'menubar, which is bogus. |
| 1762 ;; * lmenu.el causes menubars to be turned on everywhere. | 1762 ;; * lmenu.el causes menubars to be turned on everywhere. |
| 1763 ;; Doubly bogus! | 1763 ;; Doubly bogus! |
| 1764 ;; Both of these problems are fixed in Emacs 19.23. People | 1764 ;; Both of these problems are fixed in Emacs 19.23. People |
| 1779 (defun tcl-popup-menu (e) | 1779 (defun tcl-popup-menu (e) |
| 1780 (interactive "e") | 1780 (interactive "e") |
| 1781 (and tcl-using-emacs-19 | 1781 (and tcl-using-emacs-19 |
| 1782 (not tcl-using-lemacs-19) | 1782 (not tcl-using-lemacs-19) |
| 1783 (if tcl-using-emacs-19.23 | 1783 (if tcl-using-emacs-19.23 |
| 1784 (require 'menubar) | 1784 (require 'lmenu) |
| 1785 ;; CAVEATS: | 1785 ;; CAVEATS: |
| 1786 ;; * lmenu.el provides 'menubar, which is bogus. | 1786 ;; * lmenu.el provides 'menubar, which is bogus. |
| 1787 ;; * lmenu.el causes menubars to be turned on everywhere. | 1787 ;; * lmenu.el causes menubars to be turned on everywhere. |
| 1788 ;; Doubly bogus! | 1788 ;; Doubly bogus! |
| 1789 ;; Both of these problems are fixed in Emacs 19.23. People | 1789 ;; Both of these problems are fixed in Emacs 19.23. People |