From a7031d4f40c6e43a441ae26ed1767a8ac17a8cbb Mon Sep 17 00:00:00 2001 From: Yann Hodique Date: Sat, 25 Feb 2012 19:30:02 +0100 Subject: [PATCH] fix byte-compiler issues --- gist.el | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) diff --git a/gist.el b/gist.el index 0a57fd8..022b499 100644 --- a/gist.el +++ b/gist.el @@ -247,19 +247,18 @@ and displays the list." (xml-parse-region (match-beginning 0) (point-max))))) (kill-buffer (current-buffer)) (with-current-buffer (get-buffer-create "*gists*") - (toggle-read-only -1) - (goto-char (point-min)) - (save-excursion - (kill-region (point-min) (point-max)) - (gist-insert-list-header) - (mapc 'gist-insert-gist-link (xml-node-children (car gists))) - - ;; remove the extra newline at the end - (delete-backward-char 1)) - - ;; skip header - (forward-line) - (toggle-read-only t) + (let ((inhibit-read-only t)) + (goto-char (point-min)) + (save-excursion + (kill-region (point-min) (point-max)) + (gist-insert-list-header) + (mapc 'gist-insert-gist-link (xml-node-children (car gists))) + + ;; remove the extra newline at the end + (delete-char -1)) + + ;; skip header + (forward-line)) (set-window-buffer nil (current-buffer))))) (defun gist-insert-list-header () @@ -275,7 +274,7 @@ and displays the list." "Inserts a button that will open the given gist when pressed." (let* ((data (gist-parse-gist gist)) (repo (string-to-number (car data)))) - (mapc '(lambda (x) (insert (format " %s " x))) data) + (mapc (lambda (x) (insert (format " %s " x))) data) (make-text-button (line-beginning-position) (line-end-position) 'repo repo 'action 'gist-fetch-button