From 3cb5104b8c5ccafba4b2f6be0e72f59ae42007e8 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Tue, 13 Nov 2018 11:24:37 +0100 Subject: [PATCH] update demo-it. Signed-off-by: Andreas Gerler --- elpa/demo-it-20170628.1503/demo-it-pkg.el | 5 --- .../demo-it-autoloads.el | 35 +++++++++++++++---- .../demo-it-custom.el | 0 .../demo-it-extras.el | 0 elpa/demo-it-20180404.332/demo-it-pkg.el | 9 +++++ .../demo-it-present.el | 0 .../demo-it.el | 19 +++++++--- .../demo-it.info | 0 .../dir | 0 9 files changed, 53 insertions(+), 15 deletions(-) delete mode 100644 elpa/demo-it-20170628.1503/demo-it-pkg.el rename elpa/{demo-it-20170628.1503 => demo-it-20180404.332}/demo-it-autoloads.el (54%) rename elpa/{demo-it-20170628.1503 => demo-it-20180404.332}/demo-it-custom.el (100%) rename elpa/{demo-it-20170628.1503 => demo-it-20180404.332}/demo-it-extras.el (100%) create mode 100644 elpa/demo-it-20180404.332/demo-it-pkg.el rename elpa/{demo-it-20170628.1503 => demo-it-20180404.332}/demo-it-present.el (100%) rename elpa/{demo-it-20170628.1503 => demo-it-20180404.332}/demo-it.el (98%) rename elpa/{demo-it-20170628.1503 => demo-it-20180404.332}/demo-it.info (100%) rename elpa/{demo-it-20170628.1503 => demo-it-20180404.332}/dir (100%) diff --git a/elpa/demo-it-20170628.1503/demo-it-pkg.el b/elpa/demo-it-20170628.1503/demo-it-pkg.el deleted file mode 100644 index edc608d3..00000000 --- a/elpa/demo-it-20170628.1503/demo-it-pkg.el +++ /dev/null @@ -1,5 +0,0 @@ -(define-package "demo-it" "20170628.1503" "Create demonstrations" 'nil :keywords - '("demonstration" "presentation" "test")) -;; Local Variables: -;; no-byte-compile: t -;; End: diff --git a/elpa/demo-it-20170628.1503/demo-it-autoloads.el b/elpa/demo-it-20180404.332/demo-it-autoloads.el similarity index 54% rename from elpa/demo-it-20170628.1503/demo-it-autoloads.el rename to elpa/demo-it-20180404.332/demo-it-autoloads.el index c75a57ee..168f7d27 100644 --- a/elpa/demo-it-20170628.1503/demo-it-autoloads.el +++ b/elpa/demo-it-20180404.332/demo-it-autoloads.el @@ -1,9 +1,12 @@ ;;; demo-it-autoloads.el --- automatically extracted autoloads ;; ;;; Code: -(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + -;;;### (autoloads nil "demo-it" "demo-it.el" (23042 4566 0 0)) +;;;### (autoloads nil "demo-it" "demo-it.el" (0 0 0 0)) ;;; Generated autoloads from demo-it.el (autoload 'demo-it-start "demo-it" "\ @@ -24,10 +27,28 @@ keywords, like `:advanced-mode' and `:variable-width'. \(fn &rest FORMS)" nil t) +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "demo-it" '("demo-it-"))) + +;;;*** + +;;;### (autoloads nil "demo-it-custom" "demo-it-custom.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from demo-it-custom.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "demo-it-custom" '("demo-it--"))) + +;;;*** + +;;;### (autoloads nil "demo-it-extras" "demo-it-extras.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from demo-it-extras.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "demo-it-extras" '("demo-it-"))) + ;;;*** -;;;### (autoloads nil "demo-it-present" "demo-it-present.el" (23042 -;;;;;; 4566 0 0)) +;;;### (autoloads nil "demo-it-present" "demo-it-present.el" (0 0 +;;;;;; 0 0)) ;;; Generated autoloads from demo-it-present.el (autoload 'demo-it-single-presentation "demo-it-present" "\ @@ -36,10 +57,11 @@ full-screen presentation. SIZE is the text scaling size, and STYLE is the presen \(fn FILE &optional SIZE STYLE SECTION)" t nil) +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "demo-it-present" '("demo-it-"))) + ;;;*** -;;;### (autoloads nil nil ("demo-it-custom.el" "demo-it-extras.el" -;;;;;; "demo-it-pkg.el") (23042 4566 0 0)) +;;;### (autoloads nil nil ("demo-it-pkg.el") (0 0 0 0)) ;;;*** @@ -47,5 +69,6 @@ full-screen presentation. SIZE is the text scaling size, and STYLE is the presen ;; version-control: never ;; no-byte-compile: t ;; no-update-autoloads: t +;; coding: utf-8 ;; End: ;;; demo-it-autoloads.el ends here diff --git a/elpa/demo-it-20170628.1503/demo-it-custom.el b/elpa/demo-it-20180404.332/demo-it-custom.el similarity index 100% rename from elpa/demo-it-20170628.1503/demo-it-custom.el rename to elpa/demo-it-20180404.332/demo-it-custom.el diff --git a/elpa/demo-it-20170628.1503/demo-it-extras.el b/elpa/demo-it-20180404.332/demo-it-extras.el similarity index 100% rename from elpa/demo-it-20170628.1503/demo-it-extras.el rename to elpa/demo-it-20180404.332/demo-it-extras.el diff --git a/elpa/demo-it-20180404.332/demo-it-pkg.el b/elpa/demo-it-20180404.332/demo-it-pkg.el new file mode 100644 index 00000000..2298e1d2 --- /dev/null +++ b/elpa/demo-it-20180404.332/demo-it-pkg.el @@ -0,0 +1,9 @@ +(define-package "demo-it" "20180404.332" "Create demonstrations" 'nil :keywords + '("demonstration" "presentation" "test") + :authors + '(("Howard Abrams" . "howard.abrams@gmail.com")) + :maintainer + '("Howard Abrams" . "howard.abrams@gmail.com")) +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/demo-it-20170628.1503/demo-it-present.el b/elpa/demo-it-20180404.332/demo-it-present.el similarity index 100% rename from elpa/demo-it-20170628.1503/demo-it-present.el rename to elpa/demo-it-20180404.332/demo-it-present.el diff --git a/elpa/demo-it-20170628.1503/demo-it.el b/elpa/demo-it-20180404.332/demo-it.el similarity index 98% rename from elpa/demo-it-20170628.1503/demo-it.el rename to elpa/demo-it-20180404.332/demo-it.el index ced8bd63..6b6bceda 100644 --- a/elpa/demo-it-20170628.1503/demo-it.el +++ b/elpa/demo-it-20180404.332/demo-it.el @@ -510,6 +510,17 @@ both buffers." ;; Kick off a shell in another window, change to a particular ;; directory, and automatically run something. +(defun demo-it--erase-shell-buffer () + "Uses comint-clear-buffer in Emacs >=25, otherwise erase buffer. Better +compatibility with read-only shell-mode prompts" + (let ((inhibit-read-only t)) + (if (and (fboundp 'comint-clear-buffer) + (derived-mode-p 'comint-mode)) + (progn + (comint-clear-buffer) + t) + (erase-buffer)))) + (defun demo-it-start-shell (&optional directory command name side size width) "Start a shell or eshell instance, and change to DIRECTORY to @@ -553,8 +564,8 @@ in a particular DIRECTORY." (text-scale-set (demo-it--get-text-scale size)) - (erase-buffer) - (demo-it-insert-shell "" :instant))) + (unless (demo-it--erase-shell-buffer) + (demo-it-insert-shell "" :instant)))) (defun demo-it--start-shell-reuse (title directory) "Attempt to re-use existing shell/eshell with a buffer named @@ -563,8 +574,8 @@ TITLE in a particular DIRECTORY." (when directory (goto-char (point-max)) (demo-it-insert-shell (format "cd %s" directory) :instant) - (erase-buffer) - (demo-it-insert-shell "" :instant))) + (unless (demo-it--erase-shell-buffer) + (demo-it-insert-shell "" :instant)))) (defun demo-it--shell-buffer-name (&optional name) "Return the buffer NAME for the shell or eshell window." diff --git a/elpa/demo-it-20170628.1503/demo-it.info b/elpa/demo-it-20180404.332/demo-it.info similarity index 100% rename from elpa/demo-it-20170628.1503/demo-it.info rename to elpa/demo-it-20180404.332/demo-it.info diff --git a/elpa/demo-it-20170628.1503/dir b/elpa/demo-it-20180404.332/dir similarity index 100% rename from elpa/demo-it-20170628.1503/dir rename to elpa/demo-it-20180404.332/dir -- 2.47.3