aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2015-09-07 22:05:04 -0400
committerStefan Monnier2015-09-07 22:05:04 -0400
commit6cd64aaf1317bdd96f29fa2a7c3d49172e79bc37 (patch)
tree9c1bebfdaf35c54a62928f93cbc3f0e0c4c721b4
parent6afef3f6ca2f3009c722b84e249903b7f807b044 (diff)
downloademacs-6cd64aaf1317bdd96f29fa2a7c3d49172e79bc37.tar.gz
emacs-6cd64aaf1317bdd96f29fa2a7c3d49172e79bc37.zip
(electric-quote-mode): Activate everywhere in message-mode
* lisp/electric.el (electric-quote-post-self-insert-function): Don't use syntax-ppss if comment-use-syntax is nil (e.g. message-mode).
-rw-r--r--lisp/electric.el2
-rw-r--r--lisp/net/tramp.el2
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/electric.el b/lisp/electric.el
index 4f2400825d7..47cb020108c 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -439,7 +439,7 @@ This requotes when a quoting key is typed."
439 (when (and electric-quote-mode 439 (when (and electric-quote-mode
440 (memq last-command-event '(?\' ?\`))) 440 (memq last-command-event '(?\' ?\`)))
441 (let ((start 441 (let ((start
442 (if comment-start 442 (if (and comment-start comment-use-syntax)
443 (when (or electric-quote-comment electric-quote-string) 443 (when (or electric-quote-comment electric-quote-string)
444 (let ((syntax (syntax-ppss))) 444 (let ((syntax (syntax-ppss)))
445 (and (or (and electric-quote-comment (nth 4 syntax)) 445 (and (or (and electric-quote-comment (nth 4 syntax))
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index c16384a6c6c..0969048c433 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3615,7 +3615,7 @@ This is needed in order to hide `last-coding-system-used', which is set
3615for process communication also." 3615for process communication also."
3616 (with-current-buffer (process-buffer proc) 3616 (with-current-buffer (process-buffer proc)
3617 ;; FIXME: If there is a gateway process, we need communication 3617 ;; FIXME: If there is a gateway process, we need communication
3618 ;; between several processes. Too complicate to implement, so we 3618 ;; between several processes. Too complicated to implement, so we
3619 ;; read output from all processes. 3619 ;; read output from all processes.
3620 (let ((p (if (tramp-get-connection-property proc "gateway" nil) nil proc)) 3620 (let ((p (if (tramp-get-connection-property proc "gateway" nil) nil proc))
3621 buffer-read-only last-coding-system-used) 3621 buffer-read-only last-coding-system-used)