From 2fd7ede0d87a4336f04c72b5af98dba6685f9377 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 15 Jan 2020 00:48:57 -0500 Subject: [PATCH] Emit error on update-pinned-package if not in a package! call --- core/autoload/packages.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/core/autoload/packages.el b/core/autoload/packages.el index 0743e29d9..337e49dba 100644 --- a/core/autoload/packages.el +++ b/core/autoload/packages.el @@ -211,9 +211,11 @@ Grabs the latest commit id of the package using 'git'." ;; REVIEW Better error handling ;; TODO Insert a new `package!' if no `package!' at poin (ignore-errors - (while (atom (sexp-at-point)) + (while (and (atom (sexp-at-point)) + (not (bolp))) (forward-sexp -1))) - (when (eq (sexp-at-point) 'package!) + (if (not (eq (sexp-at-point) 'package!)) + (user-error "Not on a `package!' call") (backward-char) (let* ((recipe (cdr (sexp-at-point))) (name (car recipe))