emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/eev ccc1cf4090: Now `M-e' uses `ee-goto-eol'.


From: ELPA Syncer
Subject: [elpa] externals/eev ccc1cf4090: Now `M-e' uses `ee-goto-eol'.
Date: Sun, 20 Mar 2022 02:57:27 -0400 (EDT)

branch: externals/eev
commit ccc1cf40907dfc608c86d42b3d1449d6c933ad65
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>

    Now `M-e' uses `ee-goto-eol'.
---
 ChangeLog     |  7 +++++++
 VERSION       |  4 ++--
 eev-code.el   |  4 ++--
 eev-eval.el   | 15 ++++++++++++---
 eev-tlinks.el |  2 +-
 5 files changed, 24 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 13c0518e27..5db41f924f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
+2022-03-20  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-eval.el (ee-goto-eol): new function.
+       (ee-eval-sexp-eol): use `ee-goto-eol'.
+
 2022-03-18  Eduardo Ochs  <eduardoochs@gmail.com>
 
+       * eev-code.el (ee-find-grep): use `find-dbsw-call'.
+
        * eev-helpful.el: new file.
 
        * eev-elinks.el (find-evariable-links): added a link to helpful.
diff --git a/VERSION b/VERSION
index a0bac3155d..ceb71189ec 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Mar 18 20:41:41 GMT 2022
-Fri Mar 18 17:41:41 -03 2022
+Sun Mar 20 06:19:58 GMT 2022
+Sun Mar 20 03:19:58 -03 2022
diff --git a/eev-code.el b/eev-code.el
index f034c5758b..db85b1ee83 100644
--- a/eev-code.el
+++ b/eev-code.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220309
+;; Version:    20220318
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-code.el>
@@ -294,7 +294,7 @@ Try this: (find-code-c-d \"CODE\" \"/DIR/\" :info \"INFO\")"
   "Example: (ee-find-grep ee-eetcdir \"grep -niH -e tetris *\")
 Note: the POS-SPEC-LIST arguments are currently not used."
   (let ((default-directory (ee-expand (or dir default-directory))))
-    (grep grep-command-args)))
+    (find-dbsw-call `(grep ,grep-command-args))))
 
 (defun ee-find-xxxsh (dir command &rest pos-spec-list)
   "Run COMMAND at DIR and display the result. See `code-c-d'."
diff --git a/eev-eval.el b/eev-eval.el
index 61810fa6ad..3fb5aa54c7 100644
--- a/eev-eval.el
+++ b/eev-eval.el
@@ -1,6 +1,6 @@
 ;;; eev-eval.el -- variants of eval-last-sexp.  -*- lexical-binding: nil; -*-
 
-;; Copyright (C) 2012-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2022 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20210813
+;; Version:    20220320
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-eval.el>
@@ -226,10 +226,19 @@ The listing above shows the default behaviors. To add a 
special
 behavior for, say, ARG=42, define a function
 `ee-eval-last-sexp-42'."
   (interactive "P")
-  (end-of-line)
+  (ee-goto-eol)
   (ee-eval-last-sexp arg))
 
 
+(defun ee-goto-eol ()
+  "Go to the end of the line.
+Replace this function by something more complex if you use modes
+that put timestamps at the end of the line and you want to make
+`M-e' ignore these timestamps."
+  (interactive)
+  (end-of-line))
+
+
 ;; See: (find-eval-intro "`M-E' (meta-shift-e)")
 ;;
 (defun ee-eval-last-sexp (&optional arg)
diff --git a/eev-tlinks.el b/eev-tlinks.el
index f3cf5bc86f..49093ab72a 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -2749,7 +2749,7 @@ This function is used by `ee-0x0-upload-region'."
 ;;        (find-estring (ee-find-1stclassvideo-links "foo"))
 ;;
 (defun find-1stclassvideo-links (&optional c &rest pos-spec-list)
-"Visit a temporary buffer containing stuff for a first-class video."
+"Visit a temporary buffer containing links about a first-class video."
   (interactive (list (ee-1stclassvideo-around-point-ask)))
   (setq c (or c "{c}"))
   (let* ((ee-buffer-name (or ee-buffer-name "*find-1stclassvideo-links*"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]