diff options
Diffstat (limited to 'emacs-git/0001-Use-a-keyword-not-symbol-to-delete-whitespace.patch')
-rw-r--r-- | emacs-git/0001-Use-a-keyword-not-symbol-to-delete-whitespace.patch | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/emacs-git/0001-Use-a-keyword-not-symbol-to-delete-whitespace.patch b/emacs-git/0001-Use-a-keyword-not-symbol-to-delete-whitespace.patch deleted file mode 100644 index 9a70f4a..0000000 --- a/emacs-git/0001-Use-a-keyword-not-symbol-to-delete-whitespace.patch +++ /dev/null @@ -1,47 +0,0 @@ -From c9dfaff53b11f6db401d8ed7a7d25e1efb45c461 Mon Sep 17 00:00:00 2001 -From: Tom Willemse <tom@ryuslash.org> -Date: Tue, 6 Jan 2015 20:37:29 +0100 -Subject: [PATCH] Use a keyword, not symbol, to delete whitespace - -* elec-pair.el (electric-pair-skip-whitespace): Use `:chomp' instead -of `chomp'. -(electric-pair-post-self-insert-function): Check for a keyword -`:chomp' instead of the symbol `chomp' to prevent naming conflicts. ---- - lisp/ChangeLog | 8 ++++++++ - lisp/elec-pair.el | 6 +++--- - 2 files changed, 11 insertions(+), 3 deletions(-) - -diff --git a/lisp/elec-pair.el b/lisp/elec-pair.el -index 2cede62..270f4a3 100644 ---- a/lisp/elec-pair.el -+++ b/lisp/elec-pair.el -@@ -129,7 +129,7 @@ (defcustom electric-pair-skip-whitespace - The specific kind of whitespace skipped is given by the variable - `electric-pair-skip-whitespace-chars'. - --The symbol `chomp' specifies that the skipped-over whitespace -+The keyword `:chomp' specifies that the skipped-over whitespace - should be deleted. - - Can also be a function of no arguments, in which case that function's -@@ -138,7 +138,7 @@ (defcustom electric-pair-skip-whitespace - :group 'electricity - :type '(choice - (const :tag "Yes, jump over whitespace" t) -- (const :tag "Yes, and delete whitespace" chomp) -+ (const :tag "Yes, and delete whitespace" :chomp) - (const :tag "No, no whitespace skipping" nil) - function)) - -@@ -487,7 +487,7 @@ (defun electric-pair-post-self-insert-function - ;; live with it for now. - (when skip-whitespace-info - (electric-pair--skip-whitespace)) -- (delete-region (1- pos) (if (eq skip-whitespace-info 'chomp) -+ (delete-region (1- pos) (if (eq skip-whitespace-info :chomp) - (point) - pos)) - (forward-char)) --- -2.2.1 |