Mercurial > hg > xemacs-beta

comparison lisp/lisp-mode.el @ 263:727739f917cb r20-5b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b30
author cvs
date Mon, 13 Aug 2007 10:24:41 +0200
parents 0e522484dd2a
children 7df0dd720c89
comparison
equal deleted inserted replaced
262:9d8607af9e13 263:727739f917cb
47 47
48 ;; XEmacs change 48 ;; XEmacs change
49 (defvar lisp-interaction-mode-popup-menu nil) 49 (defvar lisp-interaction-mode-popup-menu nil)
50 (defvar lisp-interaction-mode-popup-menu-1 50 (defvar lisp-interaction-mode-popup-menu-1
51 (purecopy '("Lisp-Interaction" 51 (purecopy '("Lisp-Interaction"
52 ["Evaluate Last S-expression" eval-last-sexp t] 52 ["Evaluate Last S-expression" eval-last-sexp]
53 ["Evaluate Entire Buffer" eval-current-buffer t] 53 ["Evaluate Entire Buffer" eval-current-buffer]
54 ["Evaluate Region" eval-region (region-exists-p)] 54 ["Evaluate Region" eval-region
55 :active (region-exists-p)]
55 "---" 56 "---"
56 ["Evaluate This Defun" eval-defun t] 57 ["Evaluate This Defun" eval-defun]
57 ;; FSF says "Instrument Function for Debugging" 58 ;; FSF says "Instrument Function for Debugging"
58 ["Debug This Defun" edebug-defun t] 59 ["Debug This Defun" edebug-defun]
59 "---" 60 "---"
60 ["Trace a Function" trace-function-background t] 61 ["Trace a Function" trace-function-background]
61 ["Untrace All Functions" untrace-all (fboundp 'untrace-all)] 62 ["Untrace All Functions" untrace-all
63 :active (fboundp 'untrace-all)]
62 "---" 64 "---"
63 ["Comment Out Region" comment-region (region-exists-p)] 65 ["Comment Out Region" comment-region
64 ["Indent Region" indent-region (region-exists-p)] 66 :active (region-exists-p)]
65 ["Indent Line" lisp-indent-line t] 67 ["Indent Region" indent-region
68 :active (region-exists-p)]
69 ["Indent Line" lisp-indent-line]
66 "---" 70 "---"
67 ["Debug On Error" (setq debug-on-error (not debug-on-error)) 71 ["Debug On Error" (setq debug-on-error (not debug-on-error))
68 :style toggle :selected debug-on-error] 72 :style toggle :selected debug-on-error]
69 ["Debug On Quit" (setq debug-on-quit (not debug-on-quit)) 73 ["Debug On Quit" (setq debug-on-quit (not debug-on-quit))
70 :style toggle :selected debug-on-quit] 74 :style toggle :selected debug-on-quit]
75 (defvar emacs-lisp-mode-popup-menu nil) 79 (defvar emacs-lisp-mode-popup-menu nil)
76 (defvar emacs-lisp-mode-popup-menu-1 80 (defvar emacs-lisp-mode-popup-menu-1
77 (purecopy 81 (purecopy
78 (nconc 82 (nconc
79 '("Emacs-Lisp" 83 '("Emacs-Lisp"
80 ["Byte-compile This File" emacs-lisp-byte-compile t] 84 ["Byte-compile This File" emacs-lisp-byte-compile]
81 ["Byte-recompile Directory..." byte-recompile-directory t] 85 ["Byte-recompile Directory..." byte-recompile-directory]
82 "---") 86 "---")
83 (cdr lisp-interaction-mode-popup-menu-1)))) 87 (cdr lisp-interaction-mode-popup-menu-1))))
84 88
85 ;Don't have a menubar entry in Lisp Interaction mode. Otherwise, the 89 ;Don't have a menubar entry in Lisp Interaction mode. Otherwise, the
86 ;*scratch* buffer has a Lisp menubar item! Very confusing. 90 ;*scratch* buffer has a Lisp menubar item! Very confusing.