Ce serveur Gitlab sera éteint le 30 juin 2020, pensez à migrer vos projets vers les serveurs gitlab-research.centralesupelec.fr et gitlab-student.centralesupelec.fr !

Commit 2dc060fd authored by Dimitri Fontaine's avatar Dimitri Fontaine

M-x delete-trailing-whitespace test/test.el.

parent 8db0c4d4
......@@ -10,20 +10,20 @@
(erase-buffer))
(defun el-get-compiled ()
(file-exists-p
(file-exists-p
(concat
(mapconcat
'file-name-as-directory `(,user-emacs-directory "el-get" "el-get")
'file-name-as-directory `(,user-emacs-directory "el-get" "el-get")
"") "el-get.elc")))
(defun dwa:test-result (exit-status)
(with-current-buffer dwa:test-log
(insert (format"Testing %s
el-get installed: %s
el-get compiled: %s
autoloads updated: %s"
(if (zerop exit-status)
"passed"
(if (zerop exit-status)
"passed"
(format "failed with status %s" exit-status))
(featurep 'el-get)
(el-get-compiled)
......@@ -32,7 +32,7 @@ autoloads updated: %s"
(insert-buffer "*Messages*")
(save-buffer))
(kill-emacs exit-status))
(defadvice debugger-setup-buffer (after dwa:debug-exit 0 (debugger-args) activate preactivate)
(message "Entering debugger...")
(let ((backtrace-buffer (current-buffer)))
......@@ -45,7 +45,7 @@ autoloads updated: %s"
;; Test bootstrapping initially
;;
(defconst el-get-root-directory
(file-name-directory
(file-name-directory
(directory-file-name
(file-name-directory load-file-name))))
......@@ -59,8 +59,8 @@ autoloads updated: %s"
(eval (read (match-string 1))))
;; if this takes more than 15 seconds, time out
(run-at-time 15 nil
(lambda ()
(run-at-time 15 nil
(lambda ()
(condition-case err
(with-current-buffer dwa:test-log
(insert "\n\n** Timeout Reached **\n\n"))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment