Mercurial > hg > xemacs-beta
diff lisp/lisp-mode.el @ 263:727739f917cb r20-5b30
Import from CVS: tag r20-5b30
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:24:41 +0200 |
| parents | 0e522484dd2a |
| children | 7df0dd720c89 |
line wrap: on
line diff
--- a/lisp/lisp-mode.el Mon Aug 13 10:23:52 2007 +0200 +++ b/lisp/lisp-mode.el Mon Aug 13 10:24:41 2007 +0200 @@ -49,20 +49,24 @@ (defvar lisp-interaction-mode-popup-menu nil) (defvar lisp-interaction-mode-popup-menu-1 (purecopy '("Lisp-Interaction" - ["Evaluate Last S-expression" eval-last-sexp t] - ["Evaluate Entire Buffer" eval-current-buffer t] - ["Evaluate Region" eval-region (region-exists-p)] + ["Evaluate Last S-expression" eval-last-sexp] + ["Evaluate Entire Buffer" eval-current-buffer] + ["Evaluate Region" eval-region + :active (region-exists-p)] "---" - ["Evaluate This Defun" eval-defun t] + ["Evaluate This Defun" eval-defun] ;; FSF says "Instrument Function for Debugging" - ["Debug This Defun" edebug-defun t] + ["Debug This Defun" edebug-defun] + "---" + ["Trace a Function" trace-function-background] + ["Untrace All Functions" untrace-all + :active (fboundp 'untrace-all)] "---" - ["Trace a Function" trace-function-background t] - ["Untrace All Functions" untrace-all (fboundp 'untrace-all)] - "---" - ["Comment Out Region" comment-region (region-exists-p)] - ["Indent Region" indent-region (region-exists-p)] - ["Indent Line" lisp-indent-line t] + ["Comment Out Region" comment-region + :active (region-exists-p)] + ["Indent Region" indent-region + :active (region-exists-p)] + ["Indent Line" lisp-indent-line] "---" ["Debug On Error" (setq debug-on-error (not debug-on-error)) :style toggle :selected debug-on-error] @@ -77,8 +81,8 @@ (purecopy (nconc '("Emacs-Lisp" - ["Byte-compile This File" emacs-lisp-byte-compile t] - ["Byte-recompile Directory..." byte-recompile-directory t] + ["Byte-compile This File" emacs-lisp-byte-compile] + ["Byte-recompile Directory..." byte-recompile-directory] "---") (cdr lisp-interaction-mode-popup-menu-1))))