summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2016-06-13 01:37:09 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2016-06-13 01:37:23 +0200
commit4a9774f878978e644badda8b54259e0e29e0ed73 (patch)
tree6f6c19ce17e98e60b58250f12406146a6f9d7608
parent5f27067eb6ffb9ae96d503a70d46977b12dcdf23 (diff)
downloadgeiser-4a9774f878978e644badda8b54259e0e29e0ed73.tar.gz
geiser-4a9774f878978e644badda8b54259e0e29e0ed73.tar.bz2
A few byte-compilation warnings silenced
-rw-r--r--elisp/geiser-doc.el4
-rw-r--r--elisp/geiser-repl.el2
2 files changed, 3 insertions, 3 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index 1e4d218..414a358 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -1,6 +1,6 @@
;;; geiser-doc.el -- accessing scheme-provided documentation
-;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2015 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -72,7 +72,7 @@ help (e.g. browse an HTML page) implementing this method.")
(ring-ref (cadr geiser-doc--history) 0))
(defsubst geiser-doc--history-next-link ()
- (ring-ref (caddr geiser-doc--history) 0))
+ (ring-ref (car (cddr geiser-doc--history)) 0))
(defun geiser-doc--history-push (link)
(unless (or (null link) (equal link (geiser-doc--history-current)))
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 0cee34f..2f8988d 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -863,7 +863,7 @@ With a prefix argument, force exit by killing the scheme process."
(defun geiser-repl-previous-prompt (n)
(interactive "p")
(when (> n 0)
- (previous-line)
+ (forward-line -1)
(end-of-line)
(when (re-search-backward comint-prompt-regexp nil 'go n)
(goto-char (match-end 0)))))