Re: [Emacs-diffs] master 34d4720: Electric quotes: Improve support for Markdown mode (Bug#24709)

[Stefan Monnier]

> Good point, here's another patch.

Looks good, thanks.


        Stefan


> Google Germany GmbH
> Erika-Mann-Straße 33
> 80636 München

> Registergericht und -nummer: Hamburg, HRB 86891
> Sitz der Gesellschaft: Hamburg
> Geschäftsführer: Matthew Scott Sucherman, Paul Terence Manicle

> Diese E-Mail ist vertraulich. Wenn Sie nicht der richtige Adressat sind,
> leiten Sie diese bitte nicht weiter, informieren Sie den Absender und
> löschen Sie die E-Mail und alle Anhänge. Vielen Dank.

> This e-mail is confidential. If you are not the right addressee please do
> not forward it, please inform the sender, and please erase this e-mail
> including any attachments. Thanks.
> From 287a333286f5441128a1169be75e89461823e3af Mon Sep 17 00:00:00 2001
> From: Philipp Stephani <address@hidden>
> Date: Mon, 3 Jul 2017 18:46:10 +0200
> Subject: [PATCH] Use hook instead of face list to inhibit electric quoting

> This is more flexible and doesn't couple electric quoting to font
> locking.
> Give that 'electric-quote-code-faces' was just introduced, remove it
> without formal deprecation.

> * lisp/electric.el (electric-quote-inhibit-functions): New abnormal
> hook variable.
> (electric-quote-post-self-insert-function): Run the hook.  Remove
> use of old 'electric-quote-code-faces' variable.

> * test/lisp/electric-tests.el (electric-quote-markdown-in-text)
> (electric-quote-markdown-in-code): Adapt unit tests.
> ---
>  etc/NEWS                    | 12 ++++++------
>  lisp/electric.el            | 19 ++++++++++++-------
>  test/lisp/electric-tests.el | 16 ++++++++++++----
>  3 files changed, 30 insertions(+), 17 deletions(-)

> diff --git a/etc/NEWS b/etc/NEWS
> index 2afed2d253..d21d9cd5ee 100644
> --- a/etc/NEWS
> +++ b/etc/NEWS
> @@ -138,12 +138,12 @@ line, after a whitespace character, and after an 
> opening parenthesis;
>  and it will replace the apostrophe by a closing quote character in all
>  other cases.
 
> -** The new variable 'electric-quote-code-faces' controls when to
> -disable electric quoting in text modes.  Major modes can add faces to
> -this list; Emacs will temporarily disable 'electric-quote-mode'
> -whenever point is before a character having such a face.  This is
> -intended for major modes that derive from 'text-mode' but allow inline
> -code segments, such as 'markdown-mode'.
> +** The new variable 'electric-quote-inhibit-functions' controls when
> +to disable electric quoting based on context.  Major modes can add
> +functions to this list; Emacs will temporarily disable
> +'electric-quote-mode' whenever any of the functions returns non-nil.
> +This can be used by major modes that derive from 'text-mode' but allow
> +inline code segments, such as 'markdown-mode'.
 
>  +++
>  ** The new user variable 'dired-omit-case-fold' allows the user to
> diff --git a/lisp/electric.el b/lisp/electric.el
> index 1564df5949..4c1d9039d9 100644
> --- a/lisp/electric.el
> +++ b/lisp/electric.el
> @@ -451,8 +451,15 @@ electric-quote-context-sensitive
>    :version "26.1"
>    :type 'boolean :safe #'booleanp :group 'electricity)
 
> -(defvar electric-quote-code-faces ()
> -  "List of faces to treat as inline code in `text-mode'.")
> +(defvar electric-quote-inhibit-functions ()
> +  "List of functions that should inhibit electric quoting.
> +When the variable `electric-quote-mode' is non-nil, Emacs will
> +call these functions in order after the user has typed an \\=` or
> +\\=' character.  If one of them returns non-nil, electric quote
> +substitution is inhibited.  The functions are called after the
> +\\=` or \\=' character has been inserted with point directly
> +after the inserted character.  The functions in this hook should
> +not move point or change the current buffer.")
 
>  (defun electric-quote-post-self-insert-function ()
>    "Function that `electric-quote-mode' adds to `post-self-insert-hook'.
> @@ -460,7 +467,9 @@ electric-quote-post-self-insert-function
>    (when (and electric-quote-mode
>               (or (eq last-command-event ?\')
>                   (and (not electric-quote-context-sensitive)
> -                      (eq last-command-event ?\`))))
> +                      (eq last-command-event ?\`)))
> +             (not (run-hook-with-args-until-success
> +                   'electric-quote-inhibit-functions)))
>      (let ((start
>             (if (and comment-start comment-use-syntax)
>                 (when (or electric-quote-comment electric-quote-string)
> @@ -475,10 +484,6 @@ electric-quote-post-self-insert-function
>                                           (syntax-ppss (1- (point)))))))))
>               (and electric-quote-paragraph
>                    (derived-mode-p 'text-mode)
> -                  ;; FIXME: There should be a ‘cl-disjoint’ function.
> -                  (null (cl-intersection (face-at-point nil 'multiple)
> -                                         electric-quote-code-faces
> -                                         :test #'eq))
>                    ;; FIXME: Why is the next form there?  It’s never
>                    ;; nil.
>                    (or (eq last-command-event ?\`)
> diff --git a/test/lisp/electric-tests.el b/test/lisp/electric-tests.el
> index 6f63d30e75..9dd27661d4 100644
> --- a/test/lisp/electric-tests.el
> +++ b/test/lisp/electric-tests.el
> @@ -697,16 +697,24 @@ electric-quote-context-sensitive-after-paren-double
>  (define-electric-pair-test electric-quote-markdown-in-text
>    "" "'" :expected-string "’" :expected-point 2
>    :modes '(text-mode)
> -  :fixture-fn #'electric-quote-local-mode
> -  :bindings '((electric-quote-code-faces font-lock-constant-face))
> +  :fixture-fn (lambda ()
> +                (electric-quote-local-mode)
> +                (add-hook 'electric-quote-inhibit-functions
> +                          (lambda ()
> +                            (save-excursion (search-backward "`" nil t)))
> +                          nil :local))
>    :test-in-comments nil :test-in-strings nil)
 
>  (define-electric-pair-test electric-quote-markdown-in-code
>    #("`a`" 1 2 (face font-lock-constant-face)) "-'"
>    :expected-string "`'a`" :expected-point 3
>    :modes '(text-mode)
> -  :fixture-fn #'electric-quote-local-mode
> -  :bindings '((electric-quote-code-faces font-lock-constant-face))
> +  :fixture-fn (lambda ()
> +                (electric-quote-local-mode)
> +                (add-hook 'electric-quote-inhibit-functions
> +                          (lambda ()
> +                            (save-excursion (search-backward "`" nil t)))
> +                          nil :local))
>    :test-in-comments nil :test-in-strings nil)
 
>  (provide 'electric-tests)
> -- 
> 2.13.2.725.g09c95d1e9-goog