diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-06-13 01:37:09 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-06-13 01:37:23 +0200 |
| commit | 3e428e623bf8355eaf86960077df5adba8b39237 (patch) | |
| tree | d9684b2de145c811a13b063958695d7f09fe553a | |
| parent | 368d12c1637be2cd66e0084524cae9945dcec18d (diff) | |
| download | geiser-guile-3e428e623bf8355eaf86960077df5adba8b39237.tar.gz geiser-guile-3e428e623bf8355eaf86960077df5adba8b39237.tar.bz2 | |
A few byte-compilation warnings silenced
| -rw-r--r-- | elisp/geiser-doc.el | 4 | ||||
| -rw-r--r-- | elisp/geiser-mit.el | 1 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 2 |
3 files changed, 4 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-mit.el b/elisp/geiser-mit.el index f254af2..5e61cf1 100644 --- a/elisp/geiser-mit.el +++ b/elisp/geiser-mit.el @@ -16,6 +16,7 @@ (require 'compile) (require 'info-look) +(require 'subr-x) (eval-when-compile (require 'cl)) 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))))) |