Re: How to halt a loading file

[Pascal Bourguignon <pjb@informatimago.com>]

Kevin Rodgers <kevin.d.rodgers@gmail.com> writes:

> orium wrote:
>> Hi, everybody.
>> I am not a lisp coder, so this may have a obvious answer.
>> I need to halt .emacs in its execution:
>> (defun compile-emacs-config-file ()
>>   "Compiles ~/.emacs"
>>   (if (file-newer-than-file-p "~/.emacs" "~/.emacs.elc")
>>       (progn
>> 	(setq byte-compile-warnings nil)
>> 	(byte-compile-file "~/.emacs" t) ; Compile and load
>> 	(setq byte-compile-warnings t)
>> 	;HALT - I need the loading of this file to halt and don't execute
>> anything else of this file
>> 	)))
>> (compile-emacs-config-file)
>
> (error "~/.emacs compiled, load terminated")

Indeed, an error is a good way to break out of loading the current
file, but this is probably not what the OP wants.

I would suggest:

(defun compile-emacs-config-file ()
  "Compiles ~/.emacs
Returns: true if we did the compilation."
  (if (file-newer-than-file-p "~/.emacs" "~/.emacs.elc")
      (let ((byte-compile-warnings nil))
        (unwind-protect
             (progn (byte-compile-file "~/.emacs" t)
                    t)
          nil))
      nil))

(if (compile-emacs-config-file)
    (load "~/.emacs") ;; actually loads ~/.emacs.elc
    (progn

      ;; The rest of this file goes here.
      
      ))

You'll have to put all the contents of ~/.emacs in the else branch of
that if.


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

COMPONENT EQUIVALENCY NOTICE: The subatomic particles (electrons,
protons, etc.) comprising this product are exactly the same in every
measurable respect as those used in the products of other
manufacturers, and no claim to the contrary may legitimately be
expressed or implied.