;; doesn't need them.
)
+;; XEmacs: add docstrings to the hooks
+(defvar emacs-lisp-mode-hook nil
+ "Hook to run when entering emacs-lisp-mode.")
+
+(defvar lisp-mode-hook nil
+ "Hook to run when entering lisp-mode.")
+
+(defvar lisp-interaction-mode-hook nil
+ "Hook to run when entering lisp-interaction-mode.")
+
(defun emacs-lisp-byte-compile ()
"Byte compile the file containing the current buffer."
(interactive)
(parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
(if (and (elt state 2)
(not (looking-at "\\sw\\|\\s_")))
- ;; car of form doesn't seem to be a a symbol
+ ;; car of form doesn't seem to be a symbol
(progn
(if (not (> (save-excursion (forward-line 1) (point))
calculate-lisp-indent-last-sexp))