diff options
| author | Stefan Monnier | 2015-09-07 22:05:04 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2015-09-07 22:05:04 -0400 |
| commit | 6cd64aaf1317bdd96f29fa2a7c3d49172e79bc37 (patch) | |
| tree | 9c1bebfdaf35c54a62928f93cbc3f0e0c4c721b4 | |
| parent | 6afef3f6ca2f3009c722b84e249903b7f807b044 (diff) | |
| download | emacs-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.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 2 |
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 | |||
| 3615 | for process communication also." | 3615 | for 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) |