diff options
| author | Glenn Morris | 2018-07-13 09:28:15 -0700 |
|---|---|---|
| committer | Glenn Morris | 2018-07-13 09:28:15 -0700 |
| commit | cda7e1850f2f19a5025fd163ff2c6c6cba275acf (patch) | |
| tree | 1fdb0014a632e936da813128ead6353051436cbd /lisp | |
| parent | 1013e0392b78ee0e2199fb51859dc9e939315f9b (diff) | |
| parent | 17ebb6e5ae9cdd2586d1b4d6f2347ae09c6f653f (diff) | |
| download | emacs-cda7e1850f2f19a5025fd163ff2c6c6cba275acf.tar.gz emacs-cda7e1850f2f19a5025fd163ff2c6c6cba275acf.zip | |
Merge from origin/emacs-26
17ebb6e (origin/emacs-26) Use consistent function names in thread-tes...
1c86229 Fix format error in Faccept_process_output
b38b91a Lessen stack consumption in recursive read1
3eb4603 Match w32 paths in grep sans --null hits (Bug#32051)
5cc7c4b Fix previous make-network-process change
d6a1b69 Another documentation improvement in flyspell.el
9b49a8e Improve documentation of Flyspell
3744fda Provide feature 'threads
ef9025f Save the server alias on reconnect (Bug#29657)
db3874b Refer to "proper lists" instead of "true lists"
35e0305 Avoid turning on the global-minor-mode recursively
51bf4e4 Fix Bug#32085
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 28 | ||||
| -rw-r--r-- | lisp/net/rcirc.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/grep.el | 4 | ||||
| -rw-r--r-- | lisp/textmodes/flyspell.el | 7 |
4 files changed, 24 insertions, 17 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index b83b53a8e52..4d8a5020267 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -474,22 +474,26 @@ See `%s' for more information on %s." | |||
| 474 | 474 | ||
| 475 | ;; The function that calls TURN-ON in each buffer. | 475 | ;; The function that calls TURN-ON in each buffer. |
| 476 | (defun ,MODE-enable-in-buffers () | 476 | (defun ,MODE-enable-in-buffers () |
| 477 | (dolist (buf ,MODE-buffers) | 477 | (let ((buffers ,MODE-buffers)) |
| 478 | (when (buffer-live-p buf) | 478 | ;; Clear MODE-buffers to avoid scanning the same list of |
| 479 | (with-current-buffer buf | 479 | ;; buffers in recursive calls to MODE-enable-in-buffers. |
| 480 | (unless ,MODE-set-explicitly | 480 | ;; Otherwise it could lead to infinite recursion. |
| 481 | (unless (eq ,MODE-major-mode major-mode) | 481 | (setq ,MODE-buffers nil) |
| 482 | (if ,mode | 482 | (dolist (buf buffers) |
| 483 | (progn | 483 | (when (buffer-live-p buf) |
| 484 | (,mode -1) | 484 | (with-current-buffer buf |
| 485 | (funcall #',turn-on)) | 485 | (unless ,MODE-set-explicitly |
| 486 | (funcall #',turn-on)))) | 486 | (unless (eq ,MODE-major-mode major-mode) |
| 487 | (setq ,MODE-major-mode major-mode))))) | 487 | (if ,mode |
| 488 | (progn | ||
| 489 | (,mode -1) | ||
| 490 | (funcall #',turn-on)) | ||
| 491 | (funcall #',turn-on)))) | ||
| 492 | (setq ,MODE-major-mode major-mode)))))) | ||
| 488 | (put ',MODE-enable-in-buffers 'definition-name ',global-mode) | 493 | (put ',MODE-enable-in-buffers 'definition-name ',global-mode) |
| 489 | 494 | ||
| 490 | (defun ,MODE-check-buffers () | 495 | (defun ,MODE-check-buffers () |
| 491 | (,MODE-enable-in-buffers) | 496 | (,MODE-enable-in-buffers) |
| 492 | (setq ,MODE-buffers nil) | ||
| 493 | (remove-hook 'post-command-hook ',MODE-check-buffers)) | 497 | (remove-hook 'post-command-hook ',MODE-check-buffers)) |
| 494 | (put ',MODE-check-buffers 'definition-name ',global-mode) | 498 | (put ',MODE-check-buffers 'definition-name ',global-mode) |
| 495 | 499 | ||
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 5b63e0c34df..108e368373f 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el | |||
| @@ -583,7 +583,7 @@ If ARG is non-nil, instead prompt for connection parameters." | |||
| 583 | 583 | ||
| 584 | (setq-local rcirc-connection-info | 584 | (setq-local rcirc-connection-info |
| 585 | (list server port nick user-name full-name startup-channels | 585 | (list server port nick user-name full-name startup-channels |
| 586 | password encryption)) | 586 | password encryption server-alias)) |
| 587 | (setq-local rcirc-process process) | 587 | (setq-local rcirc-process process) |
| 588 | (setq-local rcirc-server server) | 588 | (setq-local rcirc-server server) |
| 589 | (setq-local rcirc-server-name | 589 | (setq-local rcirc-server-name |
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 519b768ab40..0ededb1b155 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el | |||
| @@ -374,7 +374,9 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies | |||
| 374 | ;; to handle weird file names (with colons in them) as | 374 | ;; to handle weird file names (with colons in them) as |
| 375 | ;; well as possible. E.g., use [1-9][0-9]* rather than | 375 | ;; well as possible. E.g., use [1-9][0-9]* rather than |
| 376 | ;; [0-9]+ so as to accept ":034:" in file names. | 376 | ;; [0-9]+ so as to accept ":034:" in file names. |
| 377 | "\\(?1:[^\n:]+?[^\n/:]\\):[\t ]*\\(?2:[1-9][0-9]*\\)[\t ]*:" | 377 | "\\(?1:" |
| 378 | "\\(?:[a-zA-Z]:\\)?" ; Allow "C:..." for w32. | ||
| 379 | "[^\n:]+?[^\n/:]\\):[\t ]*\\(?2:[1-9][0-9]*\\)[\t ]*:" | ||
| 378 | "\\)") | 380 | "\\)") |
| 379 | 1 2 | 381 | 1 2 |
| 380 | ;; Calculate column positions (col . end-col) of first grep match on a line | 382 | ;; Calculate column positions (col . end-col) of first grep match on a line |
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 8ad6832880a..4d5b11cca89 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -31,10 +31,10 @@ | |||
| 31 | ;; | 31 | ;; |
| 32 | ;; To enable Flyspell in text representing computer programs, type | 32 | ;; To enable Flyspell in text representing computer programs, type |
| 33 | ;; M-x flyspell-prog-mode. | 33 | ;; M-x flyspell-prog-mode. |
| 34 | ;; In that mode only text inside comments is checked. | 34 | ;; In that mode only text inside comments and strings is checked. |
| 35 | ;; | 35 | ;; |
| 36 | ;; Some user variables control the behavior of flyspell. They are | 36 | ;; Some user variables control the behavior of flyspell. They are |
| 37 | ;; those defined under the `User variables' comment. | 37 | ;; those defined under the `User configuration' comment. |
| 38 | 38 | ||
| 39 | ;;; Code: | 39 | ;;; Code: |
| 40 | 40 | ||
| @@ -137,7 +137,8 @@ This variable specifies how far to search to find such a duplicate. | |||
| 137 | (defcustom flyspell-persistent-highlight t | 137 | (defcustom flyspell-persistent-highlight t |
| 138 | "Non-nil means misspelled words remain highlighted until corrected. | 138 | "Non-nil means misspelled words remain highlighted until corrected. |
| 139 | If this variable is nil, only the most recently detected misspelled word | 139 | If this variable is nil, only the most recently detected misspelled word |
| 140 | is highlighted." | 140 | is highlighted, and the highlight is turned off as soon as point moves |
| 141 | off the misspelled word." | ||
| 141 | :group 'flyspell | 142 | :group 'flyspell |
| 142 | :type 'boolean) | 143 | :type 'boolean) |
| 143 | 144 | ||