Skip to content

Instantly share code, notes, and snippets.

@incandescentman
Created March 14, 2016 14:34
Show Gist options
  • Save incandescentman/4c52f46f96a50508e7a2 to your computer and use it in GitHub Desktop.
Save incandescentman/4c52f46f96a50508e7a2 to your computer and use it in GitHub Desktop.
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
>(nil 1048576)
(if (> (nth 7 (file-attributes (buffer-file-name))) (* 1024 1024 dotspacemacs-large-file-size)) (progn (if (y-or-n-p "This is a large file, open literally to avoid performance issues?") (progn (setq buffer-read-only t) (buffer-disable-undo) (fundamental-mode)))))
spacemacs/check-large-file()
run-hooks(find-file-hook)
after-find-file(t t)
find-file-noselect-1(#<buffer rollback-info> "~/.emacs.d/.cache/.rollback/16-03-14_10.33.35/rollback-info" nil nil "~/emacs/spacemacs/.cache/.rollback/16-03-14_10.33.35/rollback-info" nil)
find-file-noselect("/Users/jay/.emacs.d/.cache/.rollback/16-03-14_10.33.35/rollback-info")
(let ((buf (find-file-noselect filename))) (set-buffer buf) (erase-buffer) (spacemacs/dump varlist buf) (make-directory (file-name-directory filename) t) (save-buffer) (kill-buffer))
(save-excursion (let ((buf (find-file-noselect filename))) (set-buffer buf) (erase-buffer) (spacemacs/dump varlist buf) (make-directory (file-name-directory filename) t) (save-buffer) (kill-buffer)))
spacemacs/dump-vars-to-file((update-packages-alist) "/Users/jay/.emacs.d/.cache/.rollback/16-03-14_10.33.35/rollback-info")
(if (and (not always-update) (not (yes-or-no-p (format "Do you want to update %s package(s) ? " upgrade-count)))) (spacemacs-buffer/append "Packages update has been cancelled.\n" t) (spacemacs-buffer/append "--> performing backup of package(s) to update...\n" t) (spacemacs//redisplay) (let ((--dolist-tail-- update-packages) pkg) (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (let* ((src-dir (configuration-layer//get-package-directory pkg)) (dest-dir (expand-file-name (concat rollback-dir ...)))) (copy-directory src-dir dest-dir (quote keeptime) (quote create) (quote copy-content)) (setq update-packages-alist (cons (cons pkg (file-name-nondirectory src-dir)) update-packages-alist))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs/dump-vars-to-file (quote (update-packages-alist)) (expand-file-name (concat rollback-dir configuration-layer-rollback-info))) (let ((--dolist-tail-- update-packages) pkg) (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (setq upgraded-count (1+ upgraded-count)) (spacemacs-buffer/replace-last-line (format "--> preparing update of package %s... [%s/%s]" pkg upgraded-count upgrade-count) t) (spacemacs//redisplay) (configuration-layer//package-delete pkg) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append (format "\n--> %s package(s) to be updated.\n" upgraded-count)) (spacemacs-buffer/append "\nEmacs has to be restarted to actually install the new packages.\n") (configuration-layer//cleanup-rollback-directory) (spacemacs//redisplay))
(progn (spacemacs-buffer/append (format (concat "--> Found %s package(s) to update" (if (> skipped-count 0) (format " (skipped %s):\n" skipped-count) ":\n")) upgrade-count) t) (mapc (function (lambda (x) (spacemacs-buffer/append (format "%s\n" x) t))) (sort (mapcar (quote symbol-name) update-packages) (quote string<))) (if (and (not always-update) (not (yes-or-no-p (format "Do you want to update %s package(s) ? " upgrade-count)))) (spacemacs-buffer/append "Packages update has been cancelled.\n" t) (spacemacs-buffer/append "--> performing backup of package(s) to update...\n" t) (spacemacs//redisplay) (let ((--dolist-tail-- update-packages) pkg) (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (let* ((src-dir (configuration-layer//get-package-directory pkg)) (dest-dir (expand-file-name ...))) (copy-directory src-dir dest-dir (quote keeptime) (quote create) (quote copy-content)) (setq update-packages-alist (cons (cons pkg ...) update-packages-alist))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs/dump-vars-to-file (quote (update-packages-alist)) (expand-file-name (concat rollback-dir configuration-layer-rollback-info))) (let ((--dolist-tail-- update-packages) pkg) (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (setq upgraded-count (1+ upgraded-count)) (spacemacs-buffer/replace-last-line (format "--> preparing update of package %s... [%s/%s]" pkg upgraded-count upgrade-count) t) (spacemacs//redisplay) (configuration-layer//package-delete pkg) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append (format "\n--> %s package(s) to be updated.\n" upgraded-count)) (spacemacs-buffer/append "\nEmacs has to be restarted to actually install the new packages.\n") (configuration-layer//cleanup-rollback-directory) (spacemacs//redisplay)))
(if (> upgrade-count 0) (progn (spacemacs-buffer/append (format (concat "--> Found %s package(s) to update" (if (> skipped-count 0) (format " (skipped %s):\n" skipped-count) ":\n")) upgrade-count) t) (mapc (function (lambda (x) (spacemacs-buffer/append (format "%s\n" x) t))) (sort (mapcar (quote symbol-name) update-packages) (quote string<))) (if (and (not always-update) (not (yes-or-no-p (format "Do you want to update %s package(s) ? " upgrade-count)))) (spacemacs-buffer/append "Packages update has been cancelled.\n" t) (spacemacs-buffer/append "--> performing backup of package(s) to update...\n" t) (spacemacs//redisplay) (let ((--dolist-tail-- update-packages) pkg) (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (let* ((src-dir ...) (dest-dir ...)) (copy-directory src-dir dest-dir (quote keeptime) (quote create) (quote copy-content)) (setq update-packages-alist (cons ... update-packages-alist))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs/dump-vars-to-file (quote (update-packages-alist)) (expand-file-name (concat rollback-dir configuration-layer-rollback-info))) (let ((--dolist-tail-- update-packages) pkg) (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (setq upgraded-count (1+ upgraded-count)) (spacemacs-buffer/replace-last-line (format "--> preparing update of package %s... [%s/%s]" pkg upgraded-count upgrade-count) t) (spacemacs//redisplay) (configuration-layer//package-delete pkg) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append (format "\n--> %s package(s) to be updated.\n" upgraded-count)) (spacemacs-buffer/append "\nEmacs has to be restarted to actually install the new packages.\n") (configuration-layer//cleanup-rollback-directory) (spacemacs//redisplay))))
(let* ((update-packages (configuration-layer//get-packages-to-update (mapcar (quote car) (object-assoc-list :name configuration-layer--used-distant-packages)))) (skipped-count (length configuration-layer--skipped-packages)) (date (format-time-string "%y-%m-%d_%H.%M.%S")) (rollback-dir (expand-file-name (concat configuration-layer-rollback-directory (file-name-as-directory date)))) (upgrade-count (length update-packages)) (upgraded-count 0) (update-packages-alist)) (if configuration-layer--skipped-packages (progn (spacemacs-buffer/append (format (concat "--> Warning: cannot update %s package(s), possibly due" " to a temporary network problem: %s\n") skipped-count (mapconcat (function symbol-name) configuration-layer--skipped-packages " "))))) (if (> upgrade-count 0) (progn (spacemacs-buffer/append (format (concat "--> Found %s package(s) to update" (if (> skipped-count 0) (format " (skipped %s):\n" skipped-count) ":\n")) upgrade-count) t) (mapc (function (lambda (x) (spacemacs-buffer/append (format "%s\n" x) t))) (sort (mapcar (quote symbol-name) update-packages) (quote string<))) (if (and (not always-update) (not (yes-or-no-p (format "Do you want to update %s package(s) ? " upgrade-count)))) (spacemacs-buffer/append "Packages update has been cancelled.\n" t) (spacemacs-buffer/append "--> performing backup of package(s) to update...\n" t) (spacemacs//redisplay) (let ((--dolist-tail-- update-packages) pkg) (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (let* (... ...) (copy-directory src-dir dest-dir ... ... ...) (setq update-packages-alist ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs/dump-vars-to-file (quote (update-packages-alist)) (expand-file-name (concat rollback-dir configuration-layer-rollback-info))) (let ((--dolist-tail-- update-packages) pkg) (while --dolist-tail-- (setq pkg (car --dolist-tail--)) (setq upgraded-count (1+ upgraded-count)) (spacemacs-buffer/replace-last-line (format "--> preparing update of package %s... [%s/%s]" pkg upgraded-count upgrade-count) t) (spacemacs//redisplay) (configuration-layer//package-delete pkg) (setq --dolist-tail-- (cdr --dolist-tail--)))) (spacemacs-buffer/append (format "\n--> %s package(s) to be updated.\n" upgraded-count)) (spacemacs-buffer/append "\nEmacs has to be restarted to actually install the new packages.\n") (configuration-layer//cleanup-rollback-directory) (spacemacs//redisplay)))) (if (eq upgrade-count 0) (progn (spacemacs-buffer/append "--> All packages are up to date.\n") (spacemacs//redisplay))))
configuration-layer/update-packages()
(lambda (&rest ignore) (configuration-layer/update-packages))((push-button :args nil :value #("Update Packages" 0 15 (face font-lock-keyword-face)) :help-echo "Update all ELPA packages to the latest versions." :action (lambda (&rest ignore) (configuration-layer/update-packages)) :mouse-face highlight :follow-link "
" :button-overlay #<overlay from 231 to 248 in *spacemacs*> :from #<marker (moves after insertion) at 231 in *spacemacs*> :to #<marker at 248 in *spacemacs*>) nil)
widget-apply((push-button :args nil :value #("Update Packages" 0 15 (face font-lock-keyword-face)) :help-echo "Update all ELPA packages to the latest versions." :action (lambda (&rest ignore) (configuration-layer/update-packages)) :mouse-face highlight :follow-link "
" :button-overlay #<overlay from 231 to 248 in *spacemacs*> :from #<marker (moves after insertion) at 231 in *spacemacs*> :to #<marker at 248 in *spacemacs*>) :action nil)
widget-apply-action((push-button :args nil :value #("Update Packages" 0 15 (face font-lock-keyword-face)) :help-echo "Update all ELPA packages to the latest versions." :action (lambda (&rest ignore) (configuration-layer/update-packages)) :mouse-face highlight :follow-link "
" :button-overlay #<overlay from 231 to 248 in *spacemacs*> :from #<marker (moves after insertion) at 231 in *spacemacs*> :to #<marker at 248 in *spacemacs*>) nil)
widget-button-press(243)
call-interactively(widget-button-press nil nil)
command-execute(widget-button-press)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment