[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 366689f 6/9: Fix byte-compiler warnings
From: |
Oleh Krehel |
Subject: |
[elpa] master 366689f 6/9: Fix byte-compiler warnings |
Date: |
Tue, 08 Dec 2015 09:26:22 +0000 |
branch: master
commit 366689f15373ffacfe4d28b36e6325d193a4e752
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
Fix byte-compiler warnings
---
tiny.el | 19 +++++++++++++------
1 files changed, 13 insertions(+), 6 deletions(-)
diff --git a/tiny.el b/tiny.el
index eeebebe..90c89d5 100644
--- a/tiny.el
+++ b/tiny.el
@@ -4,7 +4,7 @@
;; Author: Oleh Krehel <address@hidden>
;; URL: https://github.com/abo-abo/tiny
-;; Version: 0.1
+;; Version: 0.1.1
;; Keywords: convenience
;; This file is part of GNU Emacs.
@@ -122,6 +122,11 @@ At the moment, only `tiny-mapconcat' is supported.
"Setup shortcuts."
(global-set-key (kbd "C-;") 'tiny-expand))
+(defalias 'tiny--preceding-sexp
+ (if (fboundp 'elisp--preceding-sexp)
+ 'elisp--preceding-sexp
+ 'preceding-sexp))
+
;;;###autoload
(defun tiny-replace-this-sexp ()
"Eval and replace the current sexp.
@@ -137,9 +142,9 @@ On error go up list and try again."
(catch 'success
(while t
(ignore-errors
- (unless (looking-back ")")
+ (unless (looking-back ")" (line-beginning-position))
(error "Bad location"))
- (let ((sexp (preceding-sexp)))
+ (let ((sexp (tiny--preceding-sexp)))
(if (eq (car sexp) 'lambda)
(error "Lambda evaluates to itself")
(let ((value (eval sexp)))
@@ -272,7 +277,8 @@ Return nil if nothing was matched, otherwise
(when (catch 'done
(cond
;; either start with a number
- ((looking-back "\\bm\\(-?[0-9]+\\)\\([^\n]*?\\)")
+ ((looking-back "\\bm\\(-?[0-9]+\\)\\([^\n]*?\\)"
+ (line-beginning-position))
(setq n1 (match-string-no-properties 1)
str (match-string-no-properties 2)
tiny-beg (match-beginning 0)
@@ -282,7 +288,8 @@ Return nil if nothing was matched, otherwise
n1 nil)
(throw 'done t)))
;; else capture the whole thing
- ((looking-back "\\bm\\([^%|\n]*[0-9][^\n]*\\)")
+ ((looking-back "\\bm\\([^%|\n]*[0-9][^\n]*\\)"
+ (line-beginning-position))
(setq str (match-string-no-properties 1)
tiny-beg (match-beginning 0)
tiny-end (match-end 0))
@@ -367,7 +374,7 @@ Return nil if nothing was matched, otherwise
(cond
;; general functionp
((not (eq t (help-function-arglist sym)))
- (setq expect-fun)
+ (setq expect-fun nil)
(setq allow-spc t)
;; (when (zerop n-paren) (push "(" out))
(unless (equal (car out) "(")
- [elpa] master updated (8574898 -> a0561bf), Oleh Krehel, 2015/12/08
- [elpa] master 98726b3 2/9: Makefile: bring back cask for undercover to load, Oleh Krehel, 2015/12/08
- [elpa] master 2f68d9c 1/9: Allow empty separator though e.g. "mm10", Oleh Krehel, 2015/12/08
- [elpa] master 90a4e76 4/9: hydra.el (hydra-disable): Call the exit action only in one frame, Oleh Krehel, 2015/12/08
- [elpa] master 144892b 3/9: Makefile: use plain cask, Oleh Krehel, 2015/12/08
- [elpa] master 366689f 6/9: Fix byte-compiler warnings,
Oleh Krehel <=
- [elpa] master 9b83857 7/9: Merge commit '366689f15373ffacfe4d28b36e6325d193a4e752' from tiny, Oleh Krehel, 2015/12/08
- [elpa] master a0561bf 9/9: Merge commit '97c2270f7138530de21f773f094c1495498cac78' from hydra, Oleh Krehel, 2015/12/08
- [elpa] master 7e5f64e 5/9: hydra-ox.el: Add a require hydra, Oleh Krehel, 2015/12/08
- [elpa] master 97c2270 8/9: Fix byte-compiler warning, Oleh Krehel, 2015/12/08