Permalink
Browse files

fix byte-compiler issues

  • Loading branch information...
1 parent 1710362 commit a7031d4f40c6e43a441ae26ed1767a8ac17a8cbb @sigma sigma committed Feb 25, 2012
Showing with 13 additions and 14 deletions.
  1. +13 −14 gist.el
View
27 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

0 comments on commit a7031d4

Please sign in to comment.