From cfd3d406b127387192efdbd7dfcacaa95bba484a Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Fri, 31 Jan 2020 17:03:29 +0100 Subject: [PATCH] update expand-region --- bba.org | 2 +- .../expand-region-autoloads.el | 107 ------- .../expand-region-pkg.el | 4 - .../cc-mode-expansions.el | 0 .../clojure-mode-expansions.el | 0 .../cperl-mode-expansions.el | 0 .../css-mode-expansions.el | 0 .../enh-ruby-mode-expansions.el | 0 .../er-basic-expansions.el | 0 .../erlang-mode-expansions.el | 0 .../expand-region-autoloads.el | 303 ++++++++++++++++++ .../expand-region-core.el | 0 .../expand-region-custom.el | 0 .../expand-region-pkg.el | 4 + .../expand-region.el | 0 .../feature-mode-expansions.el | 0 .../html-mode-expansions.el | 0 .../js-mode-expansions.el | 0 .../js2-mode-expansions.el | 0 .../jsp-expansions.el | 0 .../latex-mode-expansions.el | 0 .../nxml-mode-expansions.el | 0 .../octave-expansions.el | 0 .../python-el-expansions.el | 0 .../python-el-fgallina-expansions.el | 0 .../python-mode-expansions.el | 0 .../ruby-mode-expansions.el | 0 .../sml-mode-expansions.el | 0 .../subword-mode-expansions.el | 0 .../text-mode-expansions.el | 0 .../the-org-mode-expansions.el | 23 ++ .../web-mode-expansions.el | 0 32 files changed, 331 insertions(+), 112 deletions(-) delete mode 100644 elpa/expand-region-20190416.538/expand-region-autoloads.el delete mode 100644 elpa/expand-region-20190416.538/expand-region-pkg.el rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/cc-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/clojure-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/cperl-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/css-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/enh-ruby-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/er-basic-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/erlang-mode-expansions.el (100%) create mode 100644 elpa/expand-region-20200106.2058/expand-region-autoloads.el rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/expand-region-core.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/expand-region-custom.el (100%) create mode 100644 elpa/expand-region-20200106.2058/expand-region-pkg.el rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/expand-region.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/feature-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/html-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/js-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/js2-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/jsp-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/latex-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/nxml-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/octave-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/python-el-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/python-el-fgallina-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/python-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/ruby-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/sml-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/subword-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/text-mode-expansions.el (100%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/the-org-mode-expansions.el (81%) rename elpa/{expand-region-20190416.538 => expand-region-20200106.2058}/web-mode-expansions.el (100%) diff --git a/bba.org b/bba.org index fa3a7f25..518a8b82 100644 --- a/bba.org +++ b/bba.org @@ -566,7 +566,7 @@ search the web on your fingertips. C-c /. #+BEGIN_SRC emacs-lisp :tangle yes (if (>= emacs-major-version 24) (progn - (add-to-list 'load-path "~/.emacs.d/elpa/expand-region-20190416.538") + (add-to-list 'load-path "~/.emacs.d/elpa/expand-region-20200106.2058") (require 'expand-region) (define-key global-map (kbd "C-c C-") 'er/contract-region ) (define-key global-map (kbd "C-c ") 'er/expand-region ) diff --git a/elpa/expand-region-20190416.538/expand-region-autoloads.el b/elpa/expand-region-20190416.538/expand-region-autoloads.el deleted file mode 100644 index a19b0fdf..00000000 --- a/elpa/expand-region-20190416.538/expand-region-autoloads.el +++ /dev/null @@ -1,107 +0,0 @@ -;;; expand-region-autoloads.el --- automatically extracted autoloads -;; -;;; Code: -(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) - -;;;### (autoloads nil "expand-region" "expand-region.el" (23994 46760 -;;;;;; 125331 949000)) -;;; Generated autoloads from expand-region.el - -(autoload 'er/expand-region "expand-region" "\ -Increase selected region by semantic units. - -With prefix argument expands the region that many times. -If prefix argument is negative calls `er/contract-region'. -If prefix argument is 0 it resets point and mark to their state -before calling `er/expand-region' for the first time. - -\(fn ARG)" t nil) - -;;;*** - -;;;### (autoloads nil "expand-region-custom" "expand-region-custom.el" -;;;;;; (23994 46760 111844 235000)) -;;; Generated autoloads from expand-region-custom.el - -(let ((loads (get 'expand-region 'custom-loads))) (if (member '"expand-region-custom" loads) nil (put 'expand-region 'custom-loads (cons '"expand-region-custom" loads)))) - -(defvar expand-region-preferred-python-mode 'python "\ -The name of your preferred python mode") - -(custom-autoload 'expand-region-preferred-python-mode "expand-region-custom" t) - -(defvar expand-region-guess-python-mode t "\ -If expand-region should attempt to guess your preferred python mode") - -(custom-autoload 'expand-region-guess-python-mode "expand-region-custom" t) - -(defvar expand-region-autocopy-register "" "\ -If set to a string of a single character (try \"e\"), then the -contents of the most recent expand or contract command will -always be copied to the register named after that character.") - -(custom-autoload 'expand-region-autocopy-register "expand-region-custom" t) - -(defvar expand-region-skip-whitespace t "\ -If expand-region should skip past whitespace on initial expansion") - -(custom-autoload 'expand-region-skip-whitespace "expand-region-custom" t) - -(defvar expand-region-fast-keys-enabled t "\ -If expand-region should bind fast keys after initial expand/contract") - -(custom-autoload 'expand-region-fast-keys-enabled "expand-region-custom" t) - -(defvar expand-region-contract-fast-key "-" "\ -Key to use after an initial expand/contract to contract once more.") - -(custom-autoload 'expand-region-contract-fast-key "expand-region-custom" t) - -(defvar expand-region-reset-fast-key "0" "\ -Key to use after an initial expand/contract to undo.") - -(custom-autoload 'expand-region-reset-fast-key "expand-region-custom" t) - -(defvar expand-region-exclude-text-mode-expansions '(html-mode nxml-mode) "\ -List of modes which derive from `text-mode' for which text mode expansions are not appropriate.") - -(custom-autoload 'expand-region-exclude-text-mode-expansions "expand-region-custom" t) - -(defvar expand-region-smart-cursor nil "\ -Defines whether the cursor should be placed intelligently after expansion. - -If set to t, and the cursor is already at the beginning of the new region, -keep it there; otherwise, put it at the end of the region. - -If set to nil, always place the cursor at the beginning of the region.") - -(custom-autoload 'expand-region-smart-cursor "expand-region-custom" t) - -(define-obsolete-variable-alias 'er/enable-subword-mode\? 'expand-region-subword-enabled "2019-03-23") - -(defvar expand-region-subword-enabled nil "\ -Whether expand-region should use subword expansions.") - -(custom-autoload 'expand-region-subword-enabled "expand-region-custom" t) - -;;;*** - -;;;### (autoloads nil nil ("cc-mode-expansions.el" "clojure-mode-expansions.el" -;;;;;; "cperl-mode-expansions.el" "css-mode-expansions.el" "enh-ruby-mode-expansions.el" -;;;;;; "er-basic-expansions.el" "erlang-mode-expansions.el" "expand-region-core.el" -;;;;;; "expand-region-pkg.el" "feature-mode-expansions.el" "html-mode-expansions.el" -;;;;;; "js-mode-expansions.el" "js2-mode-expansions.el" "jsp-expansions.el" -;;;;;; "latex-mode-expansions.el" "nxml-mode-expansions.el" "octave-expansions.el" -;;;;;; "python-el-expansions.el" "python-el-fgallina-expansions.el" -;;;;;; "python-mode-expansions.el" "ruby-mode-expansions.el" "sml-mode-expansions.el" -;;;;;; "subword-mode-expansions.el" "text-mode-expansions.el" "the-org-mode-expansions.el" -;;;;;; "web-mode-expansions.el") (23994 46760 127624 994000)) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; End: -;;; expand-region-autoloads.el ends here diff --git a/elpa/expand-region-20190416.538/expand-region-pkg.el b/elpa/expand-region-20190416.538/expand-region-pkg.el deleted file mode 100644 index ad65aefc..00000000 --- a/elpa/expand-region-20190416.538/expand-region-pkg.el +++ /dev/null @@ -1,4 +0,0 @@ -(define-package "expand-region" "20190416.538" "Increase selected region by semantic units." 'nil) -;; Local Variables: -;; no-byte-compile: t -;; End: diff --git a/elpa/expand-region-20190416.538/cc-mode-expansions.el b/elpa/expand-region-20200106.2058/cc-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/cc-mode-expansions.el rename to elpa/expand-region-20200106.2058/cc-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/clojure-mode-expansions.el b/elpa/expand-region-20200106.2058/clojure-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/clojure-mode-expansions.el rename to elpa/expand-region-20200106.2058/clojure-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/cperl-mode-expansions.el b/elpa/expand-region-20200106.2058/cperl-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/cperl-mode-expansions.el rename to elpa/expand-region-20200106.2058/cperl-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/css-mode-expansions.el b/elpa/expand-region-20200106.2058/css-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/css-mode-expansions.el rename to elpa/expand-region-20200106.2058/css-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/enh-ruby-mode-expansions.el b/elpa/expand-region-20200106.2058/enh-ruby-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/enh-ruby-mode-expansions.el rename to elpa/expand-region-20200106.2058/enh-ruby-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/er-basic-expansions.el b/elpa/expand-region-20200106.2058/er-basic-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/er-basic-expansions.el rename to elpa/expand-region-20200106.2058/er-basic-expansions.el diff --git a/elpa/expand-region-20190416.538/erlang-mode-expansions.el b/elpa/expand-region-20200106.2058/erlang-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/erlang-mode-expansions.el rename to elpa/expand-region-20200106.2058/erlang-mode-expansions.el diff --git a/elpa/expand-region-20200106.2058/expand-region-autoloads.el b/elpa/expand-region-20200106.2058/expand-region-autoloads.el new file mode 100644 index 00000000..616c970c --- /dev/null +++ b/elpa/expand-region-20200106.2058/expand-region-autoloads.el @@ -0,0 +1,303 @@ +;;; expand-region-autoloads.el --- automatically extracted autoloads +;; +;;; Code: + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + + +;;;### (autoloads nil "cc-mode-expansions" "cc-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from cc-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "cc-mode-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "clojure-mode-expansions" "clojure-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from clojure-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "clojure-mode-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "cperl-mode-expansions" "cperl-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from cperl-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "cperl-mode-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "css-mode-expansions" "css-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from css-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "css-mode-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "enh-ruby-mode-expansions" "enh-ruby-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from enh-ruby-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "enh-ruby-mode-expansions" '("er/add-enh-ruby-mode-expansions"))) + +;;;*** + +;;;### (autoloads nil "er-basic-expansions" "er-basic-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from er-basic-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "er-basic-expansions" '("er--" "er/mark-"))) + +;;;*** + +;;;### (autoloads nil "erlang-mode-expansions" "erlang-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from erlang-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "erlang-mode-expansions" '("er/add-erlang-mode-expansions"))) + +;;;*** + +;;;### (autoloads nil "expand-region" "expand-region.el" (0 0 0 0)) +;;; Generated autoloads from expand-region.el + +(autoload 'er/expand-region "expand-region" "\ +Increase selected region by semantic units. + +With prefix argument expands the region that many times. +If prefix argument is negative calls `er/contract-region'. +If prefix argument is 0 it resets point and mark to their state +before calling `er/expand-region' for the first time. + +\(fn ARG)" t nil) + +;;;*** + +;;;### (autoloads nil "expand-region-core" "expand-region-core.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from expand-region-core.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "expand-region-core" '("er--" "er/"))) + +;;;*** + +;;;### (autoloads nil "expand-region-custom" "expand-region-custom.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from expand-region-custom.el + +(let ((loads (get 'expand-region 'custom-loads))) (if (member '"expand-region-custom" loads) nil (put 'expand-region 'custom-loads (cons '"expand-region-custom" loads)))) + +(defvar expand-region-preferred-python-mode 'python "\ +The name of your preferred python mode") + +(custom-autoload 'expand-region-preferred-python-mode "expand-region-custom" t) + +(defvar expand-region-guess-python-mode t "\ +If expand-region should attempt to guess your preferred python mode") + +(custom-autoload 'expand-region-guess-python-mode "expand-region-custom" t) + +(defvar expand-region-autocopy-register "" "\ +If set to a string of a single character (try \"e\"), then the +contents of the most recent expand or contract command will +always be copied to the register named after that character.") + +(custom-autoload 'expand-region-autocopy-register "expand-region-custom" t) + +(defvar expand-region-skip-whitespace t "\ +If expand-region should skip past whitespace on initial expansion") + +(custom-autoload 'expand-region-skip-whitespace "expand-region-custom" t) + +(defvar expand-region-fast-keys-enabled t "\ +If expand-region should bind fast keys after initial expand/contract") + +(custom-autoload 'expand-region-fast-keys-enabled "expand-region-custom" t) + +(defvar expand-region-contract-fast-key "-" "\ +Key to use after an initial expand/contract to contract once more.") + +(custom-autoload 'expand-region-contract-fast-key "expand-region-custom" t) + +(defvar expand-region-reset-fast-key "0" "\ +Key to use after an initial expand/contract to undo.") + +(custom-autoload 'expand-region-reset-fast-key "expand-region-custom" t) + +(defvar expand-region-exclude-text-mode-expansions '(html-mode nxml-mode) "\ +List of modes which derive from `text-mode' for which text mode expansions are not appropriate.") + +(custom-autoload 'expand-region-exclude-text-mode-expansions "expand-region-custom" t) + +(defvar expand-region-smart-cursor nil "\ +Defines whether the cursor should be placed intelligently after expansion. + +If set to t, and the cursor is already at the beginning of the new region, +keep it there; otherwise, put it at the end of the region. + +If set to nil, always place the cursor at the beginning of the region.") + +(custom-autoload 'expand-region-smart-cursor "expand-region-custom" t) + +(define-obsolete-variable-alias 'er/enable-subword-mode\? 'expand-region-subword-enabled "2019-03-23") + +(defvar expand-region-subword-enabled nil "\ +Whether expand-region should use subword expansions.") + +(custom-autoload 'expand-region-subword-enabled "expand-region-custom" t) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "expand-region-custom" '("expand-region-guess-python-mode"))) + +;;;*** + +;;;### (autoloads nil "feature-mode-expansions" "feature-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from feature-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "feature-mode-expansions" '("er--block-between-keywords" "er/"))) + +;;;*** + +;;;### (autoloads nil "html-mode-expansions" "html-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from html-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "html-mode-expansions" '("er--" "er/"))) + +;;;*** + +;;;### (autoloads nil "js-mode-expansions" "js-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from js-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "js-mode-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "js2-mode-expansions" "js2-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from js2-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "js2-mode-expansions" '("er/add-js2-mode-expansions" "js2-mark-parent-statement"))) + +;;;*** + +;;;### (autoloads nil "jsp-expansions" "jsp-expansions.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from jsp-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "jsp-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "latex-mode-expansions" "latex-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from latex-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "latex-mode-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "nxml-mode-expansions" "nxml-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from nxml-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "nxml-mode-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "octave-expansions" "octave-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from octave-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "octave-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "python-el-expansions" "python-el-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from python-el-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "python-el-expansions" '("er--python-string-delimiter" "er/"))) + +;;;*** + +;;;### (autoloads nil "python-el-fgallina-expansions" "python-el-fgallina-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from python-el-fgallina-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "python-el-fgallina-expansions" '("er--python-" "er/"))) + +;;;*** + +;;;### (autoloads nil "python-mode-expansions" "python-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from python-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "python-mode-expansions" '("er--" "er/" "py-goto-beyond-clause"))) + +;;;*** + +;;;### (autoloads nil "ruby-mode-expansions" "ruby-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from ruby-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ruby-mode-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "sml-mode-expansions" "sml-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from sml-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "sml-mode-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "subword-mode-expansions" "subword-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from subword-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "subword-mode-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "text-mode-expansions" "text-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from text-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "text-mode-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "the-org-mode-expansions" "the-org-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from the-org-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "the-org-mode-expansions" '("er/"))) + +;;;*** + +;;;### (autoloads nil "web-mode-expansions" "web-mode-expansions.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from web-mode-expansions.el + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "web-mode-expansions" '("er/add-web-mode-expansions"))) + +;;;*** + +;;;### (autoloads nil nil ("expand-region-pkg.el") (0 0 0 0)) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; expand-region-autoloads.el ends here diff --git a/elpa/expand-region-20190416.538/expand-region-core.el b/elpa/expand-region-20200106.2058/expand-region-core.el similarity index 100% rename from elpa/expand-region-20190416.538/expand-region-core.el rename to elpa/expand-region-20200106.2058/expand-region-core.el diff --git a/elpa/expand-region-20190416.538/expand-region-custom.el b/elpa/expand-region-20200106.2058/expand-region-custom.el similarity index 100% rename from elpa/expand-region-20190416.538/expand-region-custom.el rename to elpa/expand-region-20200106.2058/expand-region-custom.el diff --git a/elpa/expand-region-20200106.2058/expand-region-pkg.el b/elpa/expand-region-20200106.2058/expand-region-pkg.el new file mode 100644 index 00000000..b5cf20c4 --- /dev/null +++ b/elpa/expand-region-20200106.2058/expand-region-pkg.el @@ -0,0 +1,4 @@ +(define-package "expand-region" "20200106.2058" "Increase selected region by semantic units." 'nil) +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/expand-region-20190416.538/expand-region.el b/elpa/expand-region-20200106.2058/expand-region.el similarity index 100% rename from elpa/expand-region-20190416.538/expand-region.el rename to elpa/expand-region-20200106.2058/expand-region.el diff --git a/elpa/expand-region-20190416.538/feature-mode-expansions.el b/elpa/expand-region-20200106.2058/feature-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/feature-mode-expansions.el rename to elpa/expand-region-20200106.2058/feature-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/html-mode-expansions.el b/elpa/expand-region-20200106.2058/html-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/html-mode-expansions.el rename to elpa/expand-region-20200106.2058/html-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/js-mode-expansions.el b/elpa/expand-region-20200106.2058/js-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/js-mode-expansions.el rename to elpa/expand-region-20200106.2058/js-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/js2-mode-expansions.el b/elpa/expand-region-20200106.2058/js2-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/js2-mode-expansions.el rename to elpa/expand-region-20200106.2058/js2-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/jsp-expansions.el b/elpa/expand-region-20200106.2058/jsp-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/jsp-expansions.el rename to elpa/expand-region-20200106.2058/jsp-expansions.el diff --git a/elpa/expand-region-20190416.538/latex-mode-expansions.el b/elpa/expand-region-20200106.2058/latex-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/latex-mode-expansions.el rename to elpa/expand-region-20200106.2058/latex-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/nxml-mode-expansions.el b/elpa/expand-region-20200106.2058/nxml-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/nxml-mode-expansions.el rename to elpa/expand-region-20200106.2058/nxml-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/octave-expansions.el b/elpa/expand-region-20200106.2058/octave-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/octave-expansions.el rename to elpa/expand-region-20200106.2058/octave-expansions.el diff --git a/elpa/expand-region-20190416.538/python-el-expansions.el b/elpa/expand-region-20200106.2058/python-el-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/python-el-expansions.el rename to elpa/expand-region-20200106.2058/python-el-expansions.el diff --git a/elpa/expand-region-20190416.538/python-el-fgallina-expansions.el b/elpa/expand-region-20200106.2058/python-el-fgallina-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/python-el-fgallina-expansions.el rename to elpa/expand-region-20200106.2058/python-el-fgallina-expansions.el diff --git a/elpa/expand-region-20190416.538/python-mode-expansions.el b/elpa/expand-region-20200106.2058/python-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/python-mode-expansions.el rename to elpa/expand-region-20200106.2058/python-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/ruby-mode-expansions.el b/elpa/expand-region-20200106.2058/ruby-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/ruby-mode-expansions.el rename to elpa/expand-region-20200106.2058/ruby-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/sml-mode-expansions.el b/elpa/expand-region-20200106.2058/sml-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/sml-mode-expansions.el rename to elpa/expand-region-20200106.2058/sml-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/subword-mode-expansions.el b/elpa/expand-region-20200106.2058/subword-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/subword-mode-expansions.el rename to elpa/expand-region-20200106.2058/subword-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/text-mode-expansions.el b/elpa/expand-region-20200106.2058/text-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/text-mode-expansions.el rename to elpa/expand-region-20200106.2058/text-mode-expansions.el diff --git a/elpa/expand-region-20190416.538/the-org-mode-expansions.el b/elpa/expand-region-20200106.2058/the-org-mode-expansions.el similarity index 81% rename from elpa/expand-region-20190416.538/the-org-mode-expansions.el rename to elpa/expand-region-20200106.2058/the-org-mode-expansions.el index fc2d6744..35237a2a 100644 --- a/elpa/expand-region-20190416.538/the-org-mode-expansions.el +++ b/elpa/expand-region-20200106.2058/the-org-mode-expansions.el @@ -37,6 +37,27 @@ (declare-function org-up-element "org") (declare-function org-mark-subtree "org") +(defun er/mark-org-element () + (interactive) + (let* ((el (org-element-at-point)) + (begin (plist-get (cadr el) :begin)) + (end (plist-get (cadr el) :end))) + (goto-char begin) + (set-mark (point)) + (goto-char end) + (exchange-point-and-mark))) + +(defun er/mark-org-element-parent () + (interactive) + (let* ((el (plist-get (cadr (org-element-at-point)) :parent)) + (begin (plist-get (cadr el) :begin)) + (end (plist-get (cadr el) :end))) + (when (and begin end) + (goto-char begin) + (set-mark (point)) + (goto-char end) + (exchange-point-and-mark)))) + (defun er/mark-sentence () "Marks one sentence." (interactive) @@ -83,6 +104,8 @@ (append (remove #'er/mark-defun er/try-expand-list) '(org-mark-subtree + er/mark-org-element + er/mark-org-element-parent er/mark-org-code-block er/mark-sentence er/mark-org-parent diff --git a/elpa/expand-region-20190416.538/web-mode-expansions.el b/elpa/expand-region-20200106.2058/web-mode-expansions.el similarity index 100% rename from elpa/expand-region-20190416.538/web-mode-expansions.el rename to elpa/expand-region-20200106.2058/web-mode-expansions.el -- 2.47.3