From c78ae785344b4ff92ddec6ea6b1c6856bd7ee8b5 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 17 Jun 2013 09:16:36 +0000 Subject: [PATCH] sieve.el (sieve-edit-script): Avoid beginning-of-buffer shr.el (browse-url): Require `url' eww.el (url): Require format-spec --- lisp/ChangeLog | 6 ++++++ lisp/eww.el | 1 + lisp/shr.el | 1 + lisp/sieve.el | 2 +- 4 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fc9cfa3fd..f7d942f67 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -15,6 +15,12 @@ tables is slow. (shr-insert-table): Ditto. +2013-06-17 Stefan Monnier + + * sieve.el (sieve-edit-script): Avoid beginning-of-buffer. + * shr.el (browse-url): Require `url'. + * eww.el (url): Require format-spec. + 2013-06-16 Lars Magne Ingebrigtsen * eww.el (eww-display-html): Default to using the entire window width. diff --git a/lisp/eww.el b/lisp/eww.el index e13393c41..6460ee796 100644 --- a/lisp/eww.el +++ b/lisp/eww.el @@ -25,6 +25,7 @@ ;;; Code: (eval-when-compile (require 'cl)) +(require 'format-spec) (require 'shr) (require 'url) (require 'mm-url) diff --git a/lisp/shr.el b/lisp/shr.el index 0e63095ff..b394607db 100644 --- a/lisp/shr.el +++ b/lisp/shr.el @@ -31,6 +31,7 @@ ;;; Code: (eval-when-compile (require 'cl)) +(eval-when-compile (require 'url)) ;For url-filename's setf handler. (require 'browse-url) (defgroup shr nil diff --git a/lisp/sieve.el b/lisp/sieve.el index b3539c585..42e633027 100644 --- a/lisp/sieve.el +++ b/lisp/sieve.el @@ -213,7 +213,7 @@ require \"fileinto\"; (insert sieve-template)) (sieve-mode) (setq sieve-buffer-script-name name) - (beginning-of-buffer) + (goto-char (point-min)) (message (substitute-command-keys "Press \\[sieve-upload] to upload script to server.")))) -- 2.25.1