Mercurial > hg > xemacs-beta

comparison lisp/lisp-mode.el @ 406:b8cc9ab3f761 r21-2-33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents 2f8bb876ab1d
children 697ef44129c6
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
88 "---") 88 "---")
89 (cdr lisp-interaction-mode-popup-menu)))) 89 (cdr lisp-interaction-mode-popup-menu))))
90 90
91 ;Don't have a menubar entry in Lisp Interaction mode. Otherwise, the 91 ;Don't have a menubar entry in Lisp Interaction mode. Otherwise, the
92 ;*scratch* buffer has a Lisp menubar item! Very confusing. 92 ;*scratch* buffer has a Lisp menubar item! Very confusing.
93 ;(defvar lisp-interaction-mode-menubar-menu 93 ;Jan Vroonhof really wants this, so it's back. --ben
94 ; (purecopy (cons "Lisp" (cdr lisp-interaction-mode-popup-menu)))) 94 (defvar lisp-interaction-mode-menubar-menu
95 (purecopy (cons "%_Lisp" (cdr lisp-interaction-mode-popup-menu))))
95 96
96 (defvar emacs-lisp-mode-menubar-menu 97 (defvar emacs-lisp-mode-menubar-menu
97 (purecopy (cons "%_Lisp" (cdr emacs-lisp-mode-popup-menu)))) 98 (purecopy (cons "%_Lisp" (cdr emacs-lisp-mode-popup-menu))))
98 99
99 (if (not emacs-lisp-mode-syntax-table) 100 (if (not emacs-lisp-mode-syntax-table)
361 (kill-all-local-variables) 362 (kill-all-local-variables)
362 (use-local-map lisp-interaction-mode-map) 363 (use-local-map lisp-interaction-mode-map)
363 (setq major-mode 'lisp-interaction-mode) 364 (setq major-mode 'lisp-interaction-mode)
364 (setq mode-name "Lisp Interaction") 365 (setq mode-name "Lisp Interaction")
365 (setq mode-popup-menu lisp-interaction-mode-popup-menu) 366 (setq mode-popup-menu lisp-interaction-mode-popup-menu)
366 367 (if (and (featurep 'menubar)
368 current-menubar)
369 (progn
370 ;; make a local copy of the menubar, so our modes don't
371 ;; change the global menubar
372 (set-buffer-menubar current-menubar)
373 (add-submenu nil lisp-interaction-mode-menubar-menu)))
367 (set-syntax-table emacs-lisp-mode-syntax-table) 374 (set-syntax-table emacs-lisp-mode-syntax-table)
368 (lisp-mode-variables nil) 375 (lisp-mode-variables nil)
369 (run-hooks 'lisp-interaction-mode-hook)) 376 (run-hooks 'lisp-interaction-mode-hook))
370 377
371 (defun eval-print-last-sexp () 378 (defun eval-print-last-sexp ()