diff --git a/lisp/lib/files.el b/lisp/lib/files.el index 42d0018bc..770d555e8 100644 --- a/lisp/lib/files.el +++ b/lisp/lib/files.el @@ -342,6 +342,7 @@ optimizations for `binary' IO." (declare (indent 1)) `(doom--with-prepared-file-buffer ,file (or coding-system-for-read 'utf-8) nil (doom-file-read buffer-file-name :by 'insert :coding coding-system-for-read) + (goto-char (point-min)) ,@body)) ;;;###autoload diff --git a/lisp/lib/system.el b/lisp/lib/system.el index 2e7835375..58c6d9a20 100644 --- a/lisp/lib/system.el +++ b/lisp/lib/system.el @@ -8,7 +8,7 @@ (IS-MAC 'macos) ((ignore-errors (with-file-contents! "/etc/os-release" - (when (re-search-backward "^ID=\"?\\([^\"\n]+\\)\"?" nil t) + (when (re-search-forward "^ID=\"?\\([^\"\n]+\\)\"?" nil t) (intern (downcase (match-string 1))))))) ;; A few redundancies in case os-release fails us ((file-exists-p "/etc/debian_version") @@ -37,7 +37,7 @@ (format "NixOS %s" (sh "nixos-version"))) ((ignore-errors (with-file-contents! "/etc/os-release" - (when (re-search-backward "^PRETTY_NAME=\"?\\([^\"\n]+\\)\"?" nil t) + (when (re-search-forward "^PRETTY_NAME=\"?\\([^\"\n]+\\)\"?" nil t) (match-string 1))))) ((when-let (files (doom-glob "/etc/*-release")) (truncate-string-to-width