diff options
| author | Glenn Morris | 2019-07-06 12:51:30 -0700 |
|---|---|---|
| committer | Glenn Morris | 2019-07-06 12:51:30 -0700 |
| commit | bb856d12dc34a56be7a95ca5e55ddb1a78535d07 (patch) | |
| tree | 2123f2d6728d4a043f2b8a07bd5368c010bb7d62 | |
| parent | ef389fd9a5e6df06b8f7769ab32dc929dc4f0ed4 (diff) | |
| parent | e97c0437aa135f9580cd8cc1ec912758e3610ab1 (diff) | |
| download | emacs-bb856d12dc34a56be7a95ca5e55ddb1a78535d07.tar.gz emacs-bb856d12dc34a56be7a95ca5e55ddb1a78535d07.zip | |
Merge from origin/emacs-26
e97c043 Fix python.el docstring (Bug#36458)
e660801 ; Add thing-at-point-looking-at test (Bug#35708)
f5b4846 ; Fix typo, insure -> ensure in ChangeLogs
cb8fb59 * lisp/hi-lock.el (hi-lock-line-face-buffer): Doc fix. (Bug3...
| -rw-r--r-- | lisp/ChangeLog.3 | 4 | ||||
| -rw-r--r-- | lisp/ChangeLog.5 | 2 | ||||
| -rw-r--r-- | lisp/hi-lock.el | 6 | ||||
| -rw-r--r-- | lisp/mh-e/ChangeLog.2 | 6 | ||||
| -rw-r--r-- | lisp/progmodes/python.el | 2 | ||||
| -rw-r--r-- | test/lisp/thingatpt-tests.el | 12 |
6 files changed, 24 insertions, 8 deletions
diff --git a/lisp/ChangeLog.3 b/lisp/ChangeLog.3 index 38e684480fb..6265611b104 100644 --- a/lisp/ChangeLog.3 +++ b/lisp/ChangeLog.3 | |||
| @@ -7321,7 +7321,7 @@ | |||
| 7321 | 7321 | ||
| 7322 | (fortran-setup-tab-format-style): Set `fortran-comment-line-column' and | 7322 | (fortran-setup-tab-format-style): Set `fortran-comment-line-column' and |
| 7323 | `fortran-minimum-statement-indent' to (max tab-width 6) instead of 8. | 7323 | `fortran-minimum-statement-indent' to (max tab-width 6) instead of 8. |
| 7324 | The minimum 6 insures legal indenting for lines with line numbers. | 7324 | The minimum 6 ensures legal indenting for lines with line numbers. |
| 7325 | 7325 | ||
| 7326 | 1991-07-13 Jim Blandy (jimb@churchy.gnu.ai.mit.edu) | 7326 | 1991-07-13 Jim Blandy (jimb@churchy.gnu.ai.mit.edu) |
| 7327 | 7327 | ||
| @@ -11436,7 +11436,7 @@ | |||
| 11436 | 11436 | ||
| 11437 | 1989-04-19 Richard Stallman (rms@mole.ai.mit.edu) | 11437 | 1989-04-19 Richard Stallman (rms@mole.ai.mit.edu) |
| 11438 | 11438 | ||
| 11439 | * replace.el (occur-mode-goto-occurrence): Insure arg to | 11439 | * replace.el (occur-mode-goto-occurrence): Ensure arg to |
| 11440 | count-lines is@start of line. | 11440 | count-lines is@start of line. |
| 11441 | 11441 | ||
| 11442 | * replace.el (occur): Remove an extraneous save-excursion. | 11442 | * replace.el (occur): Remove an extraneous save-excursion. |
diff --git a/lisp/ChangeLog.5 b/lisp/ChangeLog.5 index 0976a15a600..749e7f68b6c 100644 --- a/lisp/ChangeLog.5 +++ b/lisp/ChangeLog.5 | |||
| @@ -2676,7 +2676,7 @@ | |||
| 2676 | 1995-03-10 Karl Fogel <kfogel@floss.life.uiuc.edu> | 2676 | 1995-03-10 Karl Fogel <kfogel@floss.life.uiuc.edu> |
| 2677 | 2677 | ||
| 2678 | * bookmark.el: | 2678 | * bookmark.el: |
| 2679 | Insure that all entry points call `bookmark-maybe-load-default-file'. | 2679 | Ensure that all entry points call `bookmark-maybe-load-default-file'. |
| 2680 | Changed format of bookmark-alist and therefore of bookmark files. | 2680 | Changed format of bookmark-alist and therefore of bookmark files. |
| 2681 | Have version stamps in bookmark files. | 2681 | Have version stamps in bookmark files. |
| 2682 | Automatically upgrade old bookmark files to new format. | 2682 | Automatically upgrade old bookmark files to new format. |
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index c2568a518cb..f790546747d 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el | |||
| @@ -426,7 +426,11 @@ versions before 22 use the following in your init file: | |||
| 426 | (defalias 'highlight-lines-matching-regexp 'hi-lock-line-face-buffer) | 426 | (defalias 'highlight-lines-matching-regexp 'hi-lock-line-face-buffer) |
| 427 | ;;;###autoload | 427 | ;;;###autoload |
| 428 | (defun hi-lock-line-face-buffer (regexp &optional face) | 428 | (defun hi-lock-line-face-buffer (regexp &optional face) |
| 429 | "Set face of all lines containing a match of REGEXP to FACE. | 429 | "Highlight all lines that match REGEXP using FACE. |
| 430 | The lines that match REGEXP will be displayed by merging | ||
| 431 | the attributes of FACE with any other face attributes | ||
| 432 | of text in those lines. | ||
| 433 | |||
| 430 | Interactively, prompt for REGEXP using `read-regexp', then FACE. | 434 | Interactively, prompt for REGEXP using `read-regexp', then FACE. |
| 431 | Use the global history list for FACE. | 435 | Use the global history list for FACE. |
| 432 | 436 | ||
diff --git a/lisp/mh-e/ChangeLog.2 b/lisp/mh-e/ChangeLog.2 index 6d3b8e332b6..1e57969b9b1 100644 --- a/lisp/mh-e/ChangeLog.2 +++ b/lisp/mh-e/ChangeLog.2 | |||
| @@ -73,10 +73,10 @@ | |||
| 73 | 73 | ||
| 74 | * mh-folder.el (mh-inc-folder): Revert SF #2321115, SF #250 | 74 | * mh-folder.el (mh-inc-folder): Revert SF #2321115, SF #250 |
| 75 | which processed pending deletes and refiles. Call to | 75 | which processed pending deletes and refiles. Call to |
| 76 | mh-process-or-undo-commands to insure that pending changes are | 76 | mh-process-or-undo-commands to ensure that pending changes are |
| 77 | properly tagged after including new mail (closes SF #271). | 77 | properly tagged after including new mail (closes SF #271). |
| 78 | 78 | ||
| 79 | * mh-comp.el: Insure that mail-header-separator is set before | 79 | * mh-comp.el: Ensure that mail-header-separator is set before |
| 80 | invoking any mml functions (closes SF #270). | 80 | invoking any mml functions (closes SF #270). |
| 81 | 81 | ||
| 82 | 2013-01-23 Dmitry Antipov <dmantipov@yandex.ru> | 82 | 2013-01-23 Dmitry Antipov <dmantipov@yandex.ru> |
| @@ -140,7 +140,7 @@ | |||
| 140 | (addresses SF #1916032). | 140 | (addresses SF #1916032). |
| 141 | 141 | ||
| 142 | * mh-folder.el (mh-inc-folder): Call mh-process-or-undo-commands | 142 | * mh-folder.el (mh-inc-folder): Call mh-process-or-undo-commands |
| 143 | before running to insure we do not lose any pending changes. | 143 | before running to ensure we do not lose any pending changes. |
| 144 | (closes SF #2321115). | 144 | (closes SF #2321115). |
| 145 | 145 | ||
| 146 | 2012-11-25 Ted Phelps <phelps@gnusto.com> | 146 | 2012-11-25 Ted Phelps <phelps@gnusto.com> |
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index e1f9a33a691..14b65669c4b 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el | |||
| @@ -2274,7 +2274,7 @@ Do not set this variable directly, instead use | |||
| 2274 | (defvar python-shell--prompt-calculated-output-regexp nil | 2274 | (defvar python-shell--prompt-calculated-output-regexp nil |
| 2275 | "Calculated output prompt regexp for inferior python shell. | 2275 | "Calculated output prompt regexp for inferior python shell. |
| 2276 | Do not set this variable directly, instead use | 2276 | Do not set this variable directly, instead use |
| 2277 | `python-shell-set-prompt-regexp'.") | 2277 | `python-shell-prompt-set-calculated-regexps'.") |
| 2278 | 2278 | ||
| 2279 | (defun python-shell-prompt-detect () | 2279 | (defun python-shell-prompt-detect () |
| 2280 | "Detect prompts for the current `python-shell-interpreter'. | 2280 | "Detect prompts for the current `python-shell-interpreter'. |
diff --git a/test/lisp/thingatpt-tests.el b/test/lisp/thingatpt-tests.el index 347cc7f12cb..c851a7ccafd 100644 --- a/test/lisp/thingatpt-tests.el +++ b/test/lisp/thingatpt-tests.el | |||
| @@ -20,6 +20,7 @@ | |||
| 20 | ;;; Code: | 20 | ;;; Code: |
| 21 | 21 | ||
| 22 | (require 'ert) | 22 | (require 'ert) |
| 23 | (require 'thingatpt) | ||
| 23 | 24 | ||
| 24 | (defvar thing-at-point-test-data | 25 | (defvar thing-at-point-test-data |
| 25 | '(("https://1.gnu.org" 1 url "https://1.gnu.org") | 26 | '(("https://1.gnu.org" 1 url "https://1.gnu.org") |
| @@ -134,4 +135,15 @@ position to retrieve THING.") | |||
| 134 | (goto-char 23) | 135 | (goto-char 23) |
| 135 | (should (equal (thing-at-point 'url) "http://foo/bar(baz)")))) | 136 | (should (equal (thing-at-point 'url) "http://foo/bar(baz)")))) |
| 136 | 137 | ||
| 138 | (ert-deftest thing-at-point-looking-at () | ||
| 139 | (with-temp-buffer | ||
| 140 | (insert "1abcd 2abcd 3abcd") | ||
| 141 | (goto-char (point-min)) | ||
| 142 | (let ((m2 (progn (search-forward "2abcd") | ||
| 143 | (match-data)))) | ||
| 144 | (goto-char (point-min)) | ||
| 145 | (search-forward "2ab") | ||
| 146 | (should (thing-at-point-looking-at "2abcd")) | ||
| 147 | (should (equal (match-data) m2))))) | ||
| 148 | |||
| 137 | ;;; thingatpt.el ends here | 149 | ;;; thingatpt.el ends here |