procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(emacs-lisp-byte-compile): Fix error message.

Browse source 
(emacs-lisp-compile-and-load): New function.
(emacs-lisp-mode-map): Add emacs-lisp-compile-and-load to menu bar.
This commit is contained in:
Karl Heuer 1996-01-09 23:19:05 +00:00
parent 9a71dcfd6d
commit 767a11517e
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/emacs-lisp/lisp-mode.el
View file

@ -148,6 +148,8 @@ All commands in `shared-lisp-mode-map' are inherited by this map.")
'("Instrument Function for Debugging" . edebug-defun))
(define-key map [byte-recompile]
'("Byte-recompile Directory..." . byte-recompile-directory))
(define-key map [byte-compile]
'("Byte-compile And Load" . emacs-lisp-compile-and-load))
(define-key map [byte-compile]
'("Byte-compile This File" . emacs-lisp-byte-compile))
(define-key map [separator-eval] '("--"))
@ -167,7 +169,20 @@ All commands in `shared-lisp-mode-map' are inherited by this map.")
(interactive)
(if buffer-file-name
(byte-compile-file buffer-file-name)
(error "The buffer must be saved in a file first.")))
(error "The buffer must be saved in a file first")))
(defun emacs-lisp-compile-and-load ()
"Byte-compile the current file (if it has changed), then load compiled code."
(interactive)
(or buffer-file-name
(error "The buffer must be saved in a file first"))
(require 'bytecomp)
;; Recompile if file or buffer has changed since last compilation.
(or (buffer-modified-p)
(file-newer-than-file-p (byte-compile-dest-file buffer-file-name)
buffer-file-name)
(byte-compile-file buffer-file-name))
(load-file (byte-compile-dest-file buffer-file-name)))
(defun emacs-lisp-mode ()
"Major mode for editing Lisp code to run in Emacs.