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

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

[elpa] externals/eev df4c21f 07/20: Added support for `M-7 M-e'.


From: Stefan Monnier
Subject: [elpa] externals/eev df4c21f 07/20: Added support for `M-7 M-e'.
Date: Mon, 4 Jan 2021 01:01:48 -0500 (EST)

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

    Added support for `M-7 M-e'.
---
 ChangeLog      |  9 +++++++++
 VERSION        |  4 ++--
 eev-eval.el    |  8 +++++++-
 eev-pdflike.el | 21 ++++++++++++++++++++-
 4 files changed, 38 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4d54ae9..a9c91ac 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2020-12-03  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-pdflike.el (ee-pdftools-revert-all): new function.
+
+2020-11-30  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-eval.el (ee-eval-last-sexp-7): new function.
+       (ee-eval-last-sexp): added support for `ee-eval-last-sexp-7'.
+
 2020-11-29  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eepitch.el (eepitch-line): new variable.
diff --git a/VERSION b/VERSION
index dc34e49..f0cd40c 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Nov 30 01:52:09 GMT 2020
-Sun Nov 29 22:52:09 -03 2020
+Sat Dec  5 03:59:32 GMT 2020
+Sat Dec  5 00:59:32 -03 2020
diff --git a/eev-eval.el b/eev-eval.el
index d26a1a6..cff903a 100644
--- a/eev-eval.el
+++ b/eev-eval.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    2019aug05
+;; Version:    2020nov30
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-eval.el>
@@ -125,6 +125,10 @@ This is an internal function used by `ee-eval-last-sexp'."
        (debug-on-error t))
     (eval sexp)))
 
+(defun ee-eval-last-sexp-7 ()
+  "This is equivalent to M-e <down>."
+  (ee-eval-last-sexp) (next-line))
+
 (defun ee-eval-last-sexp-8 ()
   "Evaluate the sexp before point and pretty-print its result in other buffer."
   (find-epp (ee-eval (read (ee-last-sexp)))))
@@ -152,6 +156,7 @@ If ARG is:
     3:  same, but also switch to the new window
     4:  evaluate the sexp in debug mode
     5:  run the sexp with `debug-on-error' turned on
+    7:  this is equivalent to `M-e <down>'
     8:  eval then pretty-print the result in another buffer
     9:  a hack for testing `call-interactively'
 other: set EE-ARG to ARG and eval (ee-last-sexp)."
@@ -162,6 +167,7 @@ other: set EE-ARG to ARG and eval (ee-last-sexp)."
        ((eq arg 3) (ee-eval-last-sexp-3))
        ((eq arg 4) (ee-eval-last-sexp-4))
        ((eq arg 5) (ee-eval-last-sexp-5))
+       ((eq arg 7) (ee-eval-last-sexp-7))
        ((eq arg 8) (ee-eval-last-sexp-8))
        ((eq arg 9) (ee-eval-last-sexp-9))
        (t (prin1 (let ((ee-arg arg))
diff --git a/eev-pdflike.el b/eev-pdflike.el
index 69d9d1a..0e4d94e 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    2020oct27
+;; Version:    2020dec03
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-pdflike.el>
@@ -660,6 +660,25 @@ newline are spurious - and replaces them by \"(ff)\"."
 
 
 
+;; I use this function to redisplay the generated PDFs after
+;; recompiling their LaTeX source. TODO: document this.
+;; My notes are here: (find-es "emacs" "ee-pdftools-revert-all")
+;;
+(defun ee-pdftools-revert-all ()
+"Run `revert-buffer' in all windows in which pdf-tools is showing PDFs.
+This makes pdf-tools show the new version of these PDFs without
+changing the page, the image size, the hscroll, and the vscroll
+in each window."
+  (interactive)
+  (dolist (window (window-list-1))
+    (with-selected-window window
+      (if (eq major-mode 'pdf-view-mode)
+         (revert-buffer)))))
+
+
+
+
+
 ;;;          _       _ 
 ;;; __  ____| |_   _(_)
 ;;; \ \/ / _` \ \ / / |



reply via email to

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