diff options
| author | John Wiegley | 2016-02-15 14:11:03 -0800 |
|---|---|---|
| committer | John Wiegley | 2016-02-15 14:11:03 -0800 |
| commit | 220613e089ec012ae4ab319637365132ce8dc306 (patch) | |
| tree | 715595598dfd3d80ba7c4306a0ea8f010b320db4 /lisp | |
| parent | ca03b85b9c1b8908f2651eaf594780c7b5217f61 (diff) | |
| parent | d4b93e11a519cf71beca69654fda158d01a26c3b (diff) | |
| download | emacs-220613e089ec012ae4ab319637365132ce8dc306.tar.gz emacs-220613e089ec012ae4ab319637365132ce8dc306.zip | |
Merge from origin/emacs-25
d4b93e1 Minor fixes in global-auto-composition-mode
02b037b Allow arithmetic operators inside C++ template constructs.
44b16f6 Avoid crashes in semi-malformed 'condition-case'
652e5b4 Allow arithmetic operators inside C++ template constructs.
d9ea795 Fix regression with 'recent-keys' and keyboard macros
903603f Fix wording in a doc-view.el comment
cf79616 ; Spelling fixes
f8bf1b3 CONTRIBUTE cleanups and updates
f3aaca3 Port USE_STACK_LISP_OBJECTS fix to Clang
1834ac7 Port to x86 GCC 4.3.1 and earlier
8482949 Fix point movement under 'scroll-conservatively'
c1313b5 Replace colon in file name (not legal on Windows)
f7af26c Fix a typo in edt.texi
8badf95 Make 'mmap_realloc' on MS-Windows more reliable
856cd94 Grep alias `all' shall not match parent directory
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog.13 | 2 | ||||
| -rw-r--r-- | lisp/ChangeLog.17 | 2 | ||||
| -rw-r--r-- | lisp/composite.el | 1 | ||||
| -rw-r--r-- | lisp/doc-view.el | 22 | ||||
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 1 | ||||
| -rw-r--r-- | lisp/gnus/ChangeLog.3 | 6 | ||||
| -rw-r--r-- | lisp/progmodes/cc-engine.el | 14 | ||||
| -rw-r--r-- | lisp/progmodes/cc-langs.el | 33 | ||||
| -rw-r--r-- | lisp/progmodes/grep.el | 2 |
9 files changed, 64 insertions, 19 deletions
diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13 index 041e8c0c86b..d792889b3b7 100644 --- a/lisp/ChangeLog.13 +++ b/lisp/ChangeLog.13 | |||
| @@ -7656,7 +7656,7 @@ | |||
| 7656 | 2007-11-07 Glenn Morris <rgm@gnu.org> | 7656 | 2007-11-07 Glenn Morris <rgm@gnu.org> |
| 7657 | 7657 | ||
| 7658 | * emulation/tpu-mapper.el (tpu-map-key): Use unless rather than cond. | 7658 | * emulation/tpu-mapper.el (tpu-map-key): Use unless rather than cond. |
| 7659 | Remove superfluous concats. Move final set-buffer to | 7659 | Remove superfluous concatenations. Move final set-buffer to |
| 7660 | non-emacs-specific code. | 7660 | non-emacs-specific code. |
| 7661 | 7661 | ||
| 7662 | 2007-11-07 Rob Riepel <riepel@networking.stanford.edu> | 7662 | 2007-11-07 Rob Riepel <riepel@networking.stanford.edu> |
diff --git a/lisp/ChangeLog.17 b/lisp/ChangeLog.17 index 1785a336732..ee03661ece0 100644 --- a/lisp/ChangeLog.17 +++ b/lisp/ChangeLog.17 | |||
| @@ -1758,7 +1758,7 @@ | |||
| 1758 | 1758 | ||
| 1759 | * net/shr.el (shr-insert): Make sure the space inserted has the | 1759 | * net/shr.el (shr-insert): Make sure the space inserted has the |
| 1760 | right font (for width). | 1760 | right font (for width). |
| 1761 | (shr-fill-line): Preserve background colours when indenting/folding. | 1761 | (shr-fill-line): Preserve background colors when indenting/folding. |
| 1762 | (shr-ensure-paragraph): Don't insert a new paragraph as the first | 1762 | (shr-ensure-paragraph): Don't insert a new paragraph as the first |
| 1763 | item in a <li>. | 1763 | item in a <li>. |
| 1764 | 1764 | ||
diff --git a/lisp/composite.el b/lisp/composite.el index 205f5ed3712..94b14dfc94a 100644 --- a/lisp/composite.el +++ b/lisp/composite.el | |||
| @@ -838,6 +838,7 @@ omitted or nil. | |||
| 838 | 838 | ||
| 839 | For more information on Auto Composition mode, see | 839 | For more information on Auto Composition mode, see |
| 840 | `auto-composition-mode' ." | 840 | `auto-composition-mode' ." |
| 841 | :global t | ||
| 841 | :variable (default-value 'auto-composition-mode)) | 842 | :variable (default-value 'auto-composition-mode)) |
| 842 | 843 | ||
| 843 | (defalias 'toggle-auto-composition 'auto-composition-mode) | 844 | (defalias 'toggle-auto-composition 'auto-composition-mode) |
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 06cf8dcef3a..af7f1996cc5 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el | |||
| @@ -140,6 +140,7 @@ | |||
| 140 | (require 'dired) | 140 | (require 'dired) |
| 141 | (require 'image-mode) | 141 | (require 'image-mode) |
| 142 | (require 'jka-compr) | 142 | (require 'jka-compr) |
| 143 | (require 'subr-x) | ||
| 143 | 144 | ||
| 144 | ;;;; Customization Options | 145 | ;;;; Customization Options |
| 145 | 146 | ||
| @@ -695,14 +696,19 @@ It's a subdirectory of `doc-view-cache-directory'." | |||
| 695 | (setq doc-view--current-cache-dir | 696 | (setq doc-view--current-cache-dir |
| 696 | (file-name-as-directory | 697 | (file-name-as-directory |
| 697 | (expand-file-name | 698 | (expand-file-name |
| 698 | (concat (subst-char-in-string ?% ?_ ;; bug#13679 | 699 | (concat (thread-last |
| 699 | (file-name-nondirectory doc-view--buffer-file-name)) | 700 | (file-name-nondirectory doc-view--buffer-file-name) |
| 700 | "-" | 701 | ;; bug#13679 |
| 701 | (let ((file doc-view--buffer-file-name)) | 702 | (subst-char-in-string ?% ?_) |
| 702 | (with-temp-buffer | 703 | ;; arc-mode concatenates archive name and file name |
| 703 | (set-buffer-multibyte nil) | 704 | ;; with colon, which isn't allowed on MS-Windows. |
| 704 | (insert-file-contents-literally file) | 705 | (subst-char-in-string ?: ?_)) |
| 705 | (md5 (current-buffer))))) | 706 | "-" |
| 707 | (let ((file doc-view--buffer-file-name)) | ||
| 708 | (with-temp-buffer | ||
| 709 | (set-buffer-multibyte nil) | ||
| 710 | (insert-file-contents-literally file) | ||
| 711 | (md5 (current-buffer))))) | ||
| 706 | doc-view-cache-directory))))) | 712 | doc-view-cache-directory))))) |
| 707 | 713 | ||
| 708 | ;;;###autoload | 714 | ;;;###autoload |
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index f29f64f0562..6a4d835b63c 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -68,6 +68,7 @@ replacing its case-insensitive matches with the literal string in LIGHTER." | |||
| 68 | "toggle-\\|-mode\\'" "" | 68 | "toggle-\\|-mode\\'" "" |
| 69 | (symbol-name mode)))) | 69 | (symbol-name mode)))) |
| 70 | " mode"))) | 70 | " mode"))) |
| 71 | (setq name (replace-regexp-in-string "\\`Global-" "Global " name)) | ||
| 71 | (if (not (stringp lighter)) name | 72 | (if (not (stringp lighter)) name |
| 72 | ;; Strip leading and trailing whitespace from LIGHTER. | 73 | ;; Strip leading and trailing whitespace from LIGHTER. |
| 73 | (setq lighter (replace-regexp-in-string "\\`\\s-+\\|\\s-+\\'" "" | 74 | (setq lighter (replace-regexp-in-string "\\`\\s-+\\|\\s-+\\'" "" |
diff --git a/lisp/gnus/ChangeLog.3 b/lisp/gnus/ChangeLog.3 index 5e7e95b0466..e6cbe0458b4 100644 --- a/lisp/gnus/ChangeLog.3 +++ b/lisp/gnus/ChangeLog.3 | |||
| @@ -1732,7 +1732,7 @@ | |||
| 1732 | * eww.el (eww-convert-widgets): Put `help-echo' on input fields so that | 1732 | * eww.el (eww-convert-widgets): Put `help-echo' on input fields so that |
| 1733 | we can navigate to them. | 1733 | we can navigate to them. |
| 1734 | 1734 | ||
| 1735 | * shr.el (shr-colorize-region): Put the colours over the entire region. | 1735 | * shr.el (shr-colorize-region): Put the colors over the entire region. |
| 1736 | (shr-inhibit-decoration): New variable. | 1736 | (shr-inhibit-decoration): New variable. |
| 1737 | (shr-add-font): Use it to inhibit text property decorations while doing | 1737 | (shr-add-font): Use it to inhibit text property decorations while doing |
| 1738 | preliminary table renderings. This speeds up typical Wikipedia page | 1738 | preliminary table renderings. This speeds up typical Wikipedia page |
| @@ -1824,7 +1824,7 @@ | |||
| 1824 | * shr.el (shr-expand-url): Respect // URLs. | 1824 | * shr.el (shr-expand-url): Respect // URLs. |
| 1825 | 1825 | ||
| 1826 | * eww.el (eww-tag-body): Override the shr body rendering so that we can | 1826 | * eww.el (eww-tag-body): Override the shr body rendering so that we can |
| 1827 | put a background colour onto the entire buffer. | 1827 | put a background color onto the entire buffer. |
| 1828 | (eww-render): When being redirected, use the redirect URL as the new | 1828 | (eww-render): When being redirected, use the redirect URL as the new |
| 1829 | base URL. | 1829 | base URL. |
| 1830 | 1830 | ||
| @@ -3514,7 +3514,7 @@ | |||
| 3514 | 3514 | ||
| 3515 | * mm-archive.el (mm-archive-decoders): Add support for tar. | 3515 | * mm-archive.el (mm-archive-decoders): Add support for tar. |
| 3516 | 3516 | ||
| 3517 | * gnus.el (gnus-logo-color-alist): Change the colours for Ma Gnus. | 3517 | * gnus.el (gnus-logo-color-alist): Change the colors for Ma Gnus. |
| 3518 | 3518 | ||
| 3519 | * nnmail.el (nnmail-extra-headers): Add Cc to the default. | 3519 | * nnmail.el (nnmail-extra-headers): Add Cc to the default. |
| 3520 | 3520 | ||
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 39600cf28f8..8f2acf3cd61 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el | |||
| @@ -6056,7 +6056,10 @@ comment at the start of cc-engine.el for more info." | |||
| 6056 | ;; Stop on ',', '|', '&', '+' and '-' to catch | 6056 | ;; Stop on ',', '|', '&', '+' and '-' to catch |
| 6057 | ;; common binary operators that could be between | 6057 | ;; common binary operators that could be between |
| 6058 | ;; two comparison expressions "a<b" and "c>d". | 6058 | ;; two comparison expressions "a<b" and "c>d". |
| 6059 | "[<;{},|+&-]\\|[>)]" | 6059 | ;; 2016-02-11: C++11 templates can now contain arithmetic |
| 6060 | ;; expressions, so template detection in C++ is now less | ||
| 6061 | ;; robust than it was. | ||
| 6062 | c-<>-notable-chars-re | ||
| 6060 | nil t t)) | 6063 | nil t t)) |
| 6061 | 6064 | ||
| 6062 | (cond | 6065 | (cond |
| @@ -6064,7 +6067,9 @@ comment at the start of cc-engine.el for more info." | |||
| 6064 | ;; Either an operator starting with '>' or the end of | 6067 | ;; Either an operator starting with '>' or the end of |
| 6065 | ;; the angle bracket arglist. | 6068 | ;; the angle bracket arglist. |
| 6066 | 6069 | ||
| 6067 | (if (looking-at c->-op-without->-cont-regexp) | 6070 | (if (save-excursion |
| 6071 | (c-backward-token-2) | ||
| 6072 | (looking-at c-multichar->-op-not->>-regexp)) | ||
| 6068 | (progn | 6073 | (progn |
| 6069 | (goto-char (match-end 0)) | 6074 | (goto-char (match-end 0)) |
| 6070 | t) ; Continue the loop. | 6075 | t) ; Continue the loop. |
| @@ -6134,6 +6139,11 @@ comment at the start of cc-engine.el for more info." | |||
| 6134 | ))) | 6139 | ))) |
| 6135 | t) ; carry on looping. | 6140 | t) ; carry on looping. |
| 6136 | 6141 | ||
| 6142 | ((and | ||
| 6143 | (eq (char-before) ?\() | ||
| 6144 | (c-go-up-list-forward) | ||
| 6145 | (eq (char-before) ?\)))) | ||
| 6146 | |||
| 6137 | ((and (not c-restricted-<>-arglists) | 6147 | ((and (not c-restricted-<>-arglists) |
| 6138 | (or (and (eq (char-before) ?&) | 6148 | (or (and (eq (char-before) ?&) |
| 6139 | (not (eq (char-after) ?&))) | 6149 | (not (eq (char-after) ?&))) |
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el index ef894043bce..86b6bec78a1 100644 --- a/lisp/progmodes/cc-langs.el +++ b/lisp/progmodes/cc-langs.el | |||
| @@ -228,6 +228,12 @@ the evaluated constant value at compile time." | |||
| 228 | ;; with the group symbol for each group and should return non-nil | 228 | ;; with the group symbol for each group and should return non-nil |
| 229 | ;; if that group is to be included. | 229 | ;; if that group is to be included. |
| 230 | ;; | 230 | ;; |
| 231 | ;; OP-FILTER selects the operators. It is either t to select all | ||
| 232 | ;; operators, a string to select all operators for which `string-match' | ||
| 233 | ;; matches the operator with the string, or a function which will be | ||
| 234 | ;; called with the operator and should return non-nil when the operator | ||
| 235 | ;; is to be selected. | ||
| 236 | ;; | ||
| 231 | ;; If XLATE is given, it's a function which is called for each | 237 | ;; If XLATE is given, it's a function which is called for each |
| 232 | ;; matching operator and its return value is collected instead. | 238 | ;; matching operator and its return value is collected instead. |
| 233 | ;; If it returns a list, the elements are spliced directly into | 239 | ;; If it returns a list, the elements are spliced directly into |
| @@ -1237,7 +1243,6 @@ operators." | |||
| 1237 | t | 1243 | t |
| 1238 | "\\`<." | 1244 | "\\`<." |
| 1239 | (lambda (op) (substring op 1))))) | 1245 | (lambda (op) (substring op 1))))) |
| 1240 | |||
| 1241 | (c-lang-defvar c-<-op-cont-regexp (c-lang-const c-<-op-cont-regexp)) | 1246 | (c-lang-defvar c-<-op-cont-regexp (c-lang-const c-<-op-cont-regexp)) |
| 1242 | 1247 | ||
| 1243 | (c-lang-defconst c->-op-cont-tokens | 1248 | (c-lang-defconst c->-op-cont-tokens |
| @@ -1256,7 +1261,6 @@ operators." | |||
| 1256 | ;; Regexp matching the second and subsequent characters of all | 1261 | ;; Regexp matching the second and subsequent characters of all |
| 1257 | ;; multicharacter tokens that begin with ">". | 1262 | ;; multicharacter tokens that begin with ">". |
| 1258 | t (c-make-keywords-re nil (c-lang-const c->-op-cont-tokens))) | 1263 | t (c-make-keywords-re nil (c-lang-const c->-op-cont-tokens))) |
| 1259 | |||
| 1260 | (c-lang-defvar c->-op-cont-regexp (c-lang-const c->-op-cont-regexp)) | 1264 | (c-lang-defvar c->-op-cont-regexp (c-lang-const c->-op-cont-regexp)) |
| 1261 | 1265 | ||
| 1262 | (c-lang-defconst c->-op-without->-cont-regexp | 1266 | (c-lang-defconst c->-op-without->-cont-regexp |
| @@ -1271,10 +1275,19 @@ operators." | |||
| 1271 | "\\`>>" | 1275 | "\\`>>" |
| 1272 | (lambda (op) (substring op 1))) | 1276 | (lambda (op) (substring op 1))) |
| 1273 | :test 'string-equal))) | 1277 | :test 'string-equal))) |
| 1274 | |||
| 1275 | (c-lang-defvar c->-op-without->-cont-regexp | 1278 | (c-lang-defvar c->-op-without->-cont-regexp |
| 1276 | (c-lang-const c->-op-without->-cont-regexp)) | 1279 | (c-lang-const c->-op-without->-cont-regexp)) |
| 1277 | 1280 | ||
| 1281 | (c-lang-defconst c-multichar->-op-not->>-regexp | ||
| 1282 | ;; Regexp matching multichar tokens containing ">", except ">>" | ||
| 1283 | t (c-make-keywords-re nil | ||
| 1284 | (delete ">>" | ||
| 1285 | (c-filter-ops (c-lang-const c-all-op-syntax-tokens) | ||
| 1286 | t | ||
| 1287 | "\\(.>\\|>.\\)")))) | ||
| 1288 | (c-lang-defvar c-multichar->-op-not->>-regexp | ||
| 1289 | (c-lang-const c-multichar->-op-not->>-regexp)) | ||
| 1290 | |||
| 1278 | (c-lang-defconst c-stmt-delim-chars | 1291 | (c-lang-defconst c-stmt-delim-chars |
| 1279 | ;; The characters that should be considered to bound statements. To | 1292 | ;; The characters that should be considered to bound statements. To |
| 1280 | ;; optimize `c-crosses-statement-barrier-p' somewhat, it's assumed to | 1293 | ;; optimize `c-crosses-statement-barrier-p' somewhat, it's assumed to |
| @@ -3079,6 +3092,20 @@ expression is considered to be a type." | |||
| 3079 | ; generics is not yet coded in CC Mode. | 3092 | ; generics is not yet coded in CC Mode. |
| 3080 | (c-lang-defvar c-recognize-<>-arglists (c-lang-const c-recognize-<>-arglists)) | 3093 | (c-lang-defvar c-recognize-<>-arglists (c-lang-const c-recognize-<>-arglists)) |
| 3081 | 3094 | ||
| 3095 | (c-lang-defconst c-<>-notable-chars-re | ||
| 3096 | "A regexp matching any single character notable inside a <...> construct. | ||
| 3097 | This must include \"<\" and \">\", and should include \",\", and | ||
| 3098 | any character which cannot be valid inside such a construct. | ||
| 3099 | This is used in `c-forward-<>-arglist-recur' to try to detect | ||
| 3100 | sequences of tokens which cannot be a template/generic construct. | ||
| 3101 | When \"(\" is present, that defun will attempt to parse a | ||
| 3102 | parenthesized expression inside the template. When \")\" is | ||
| 3103 | present it will treat an unbalanced closing paren as a sign of | ||
| 3104 | the invalidity of the putative template construct." | ||
| 3105 | t "[<;{},|+&->)]" | ||
| 3106 | c++ "[<;{},>()]") | ||
| 3107 | (c-lang-defvar c-<>-notable-chars-re (c-lang-const c-<>-notable-chars-re)) | ||
| 3108 | |||
| 3082 | (c-lang-defconst c-enums-contain-decls | 3109 | (c-lang-defconst c-enums-contain-decls |
| 3083 | "Non-nil means that an enum structure can contain declarations." | 3110 | "Non-nil means that an enum structure can contain declarations." |
| 3084 | t nil | 3111 | t nil |
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 7e6f157f5fe..f04a7226d18 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el | |||
| @@ -189,7 +189,7 @@ Customize or call the function `grep-apply-setting'." | |||
| 189 | :group 'grep) | 189 | :group 'grep) |
| 190 | 190 | ||
| 191 | (defcustom grep-files-aliases | 191 | (defcustom grep-files-aliases |
| 192 | '(("all" . "* .*") | 192 | '(("all" . "* .[!.]* ..?*") ;; Don't match `..'. See bug#22577 |
| 193 | ("el" . "*.el") | 193 | ("el" . "*.el") |
| 194 | ("ch" . "*.[ch]") | 194 | ("ch" . "*.[ch]") |
| 195 | ("c" . "*.c") | 195 | ("c" . "*.c") |