diff options
| author | Joakim Verona | 2013-03-06 00:04:01 +0100 |
|---|---|---|
| committer | Joakim Verona | 2013-03-06 00:04:01 +0100 |
| commit | 79157e99328fb1d835985dfa89fc2a2fa427d077 (patch) | |
| tree | ac0e5a6a03089e3d6352cb3311510cfac0b7d051 /lisp/progmodes | |
| parent | 15cb771195328913a9c24467db7e373acb92a769 (diff) | |
| parent | 707431575aef93ac3e9923d450a6cbf18192c933 (diff) | |
| download | emacs-79157e99328fb1d835985dfa89fc2a2fa427d077.tar.gz emacs-79157e99328fb1d835985dfa89fc2a2fa427d077.zip | |
auto upstream
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/cc-engine.el | 24 | ||||
| -rw-r--r-- | lisp/progmodes/cc-langs.el | 4 | ||||
| -rw-r--r-- | lisp/progmodes/hideshow.el | 4 | ||||
| -rw-r--r-- | lisp/progmodes/prolog.el | 6 | ||||
| -rw-r--r-- | lisp/progmodes/sh-script.el | 2 |
5 files changed, 20 insertions, 20 deletions
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 977bc755e32..368b1fc50dc 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; cc-engine.el --- core syntax guessing engine for CC mode | 1 | ;;; cc-engine.el --- core syntax guessing engine for CC mode -*- coding: utf-8 -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1987, 1992-2013 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1985, 1987, 1992-2013 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -2280,25 +2280,25 @@ comment at the start of cc-engine.el for more info." | |||
| 2280 | (while (and c (> (car c) c-state-semi-nonlit-pos-cache-limit)) | 2280 | (while (and c (> (car c) c-state-semi-nonlit-pos-cache-limit)) |
| 2281 | (setq c (cdr c))) | 2281 | (setq c (cdr c))) |
| 2282 | (setq c-state-semi-nonlit-pos-cache c) | 2282 | (setq c-state-semi-nonlit-pos-cache c) |
| 2283 | 2283 | ||
| 2284 | (while (and c (> (car c) here)) | 2284 | (while (and c (> (car c) here)) |
| 2285 | (setq high-pos (car c)) | 2285 | (setq high-pos (car c)) |
| 2286 | (setq c (cdr c))) | 2286 | (setq c (cdr c))) |
| 2287 | (setq pos (or (car c) (point-min))) | 2287 | (setq pos (or (car c) (point-min))) |
| 2288 | 2288 | ||
| 2289 | (unless high-pos | 2289 | (unless high-pos |
| 2290 | (while | 2290 | (while |
| 2291 | ;; Add an element to `c-state-semi-nonlit-pos-cache' each iteration. | 2291 | ;; Add an element to `c-state-semi-nonlit-pos-cache' each iteration. |
| 2292 | (and | 2292 | (and |
| 2293 | (<= (setq npos (+ pos c-state-nonlit-pos-interval)) here) | 2293 | (<= (setq npos (+ pos c-state-nonlit-pos-interval)) here) |
| 2294 | 2294 | ||
| 2295 | ;; Test for being in a literal. If so, go to after it. | 2295 | ;; Test for being in a literal. If so, go to after it. |
| 2296 | (progn | 2296 | (progn |
| 2297 | (setq lit (car (cddr (c-state-pp-to-literal pos npos)))) | 2297 | (setq lit (car (cddr (c-state-pp-to-literal pos npos)))) |
| 2298 | (or (null lit) | 2298 | (or (null lit) |
| 2299 | (prog1 (<= (cdr lit) here) | 2299 | (prog1 (<= (cdr lit) here) |
| 2300 | (setq npos (cdr lit)))))) | 2300 | (setq npos (cdr lit)))))) |
| 2301 | 2301 | ||
| 2302 | (setq pos npos) | 2302 | (setq pos npos) |
| 2303 | (setq c-state-semi-nonlit-pos-cache | 2303 | (setq c-state-semi-nonlit-pos-cache |
| 2304 | (cons pos c-state-semi-nonlit-pos-cache)))) | 2304 | (cons pos c-state-semi-nonlit-pos-cache)))) |
| @@ -2606,11 +2606,11 @@ comment at the start of cc-engine.el for more info." | |||
| 2606 | ;; OLD: { (.) {...........} | 2606 | ;; OLD: { (.) {...........} |
| 2607 | ;; ^ ^ | 2607 | ;; ^ ^ |
| 2608 | ;; FROM HERE | 2608 | ;; FROM HERE |
| 2609 | ;; | 2609 | ;; |
| 2610 | ;; NEW: { {....} (.) {......... | 2610 | ;; NEW: { {....} (.) {......... |
| 2611 | ;; ^ ^ ^ | 2611 | ;; ^ ^ ^ |
| 2612 | ;; LOWER BRACE PAIR HERE or HERE | 2612 | ;; LOWER BRACE PAIR HERE or HERE |
| 2613 | ;; | 2613 | ;; |
| 2614 | ;; This routine should be fast. Since it can get called a LOT, we maintain | 2614 | ;; This routine should be fast. Since it can get called a LOT, we maintain |
| 2615 | ;; `c-state-brace-pair-desert', a small cache of "failures", such that we | 2615 | ;; `c-state-brace-pair-desert', a small cache of "failures", such that we |
| 2616 | ;; reduce the time wasted in repeated fruitless searches in brace deserts. | 2616 | ;; reduce the time wasted in repeated fruitless searches in brace deserts. |
| @@ -2907,7 +2907,7 @@ comment at the start of cc-engine.el for more info." | |||
| 2907 | start-point)) | 2907 | start-point)) |
| 2908 | (goto-char pos) | 2908 | (goto-char pos) |
| 2909 | (while (and c-state-cache | 2909 | (while (and c-state-cache |
| 2910 | (or (numberp (car c-state-cache)) ; Have we a { at all? | 2910 | (or (numberp (car c-state-cache)) ; Have we a { at all? |
| 2911 | (cdr c-state-cache)) | 2911 | (cdr c-state-cache)) |
| 2912 | (< (point) here)) | 2912 | (< (point) here)) |
| 2913 | (cond | 2913 | (cond |
| @@ -4610,7 +4610,7 @@ comment at the start of cc-engine.el for more info." | |||
| 4610 | s ; state | 4610 | s ; state |
| 4611 | 'syntax-table))) ; stop-comment | 4611 | 'syntax-table))) ; stop-comment |
| 4612 | (setq pos (point))) | 4612 | (setq pos (point))) |
| 4613 | 4613 | ||
| 4614 | ;; Now try and find enough non-literal characters recorded on the stack. | 4614 | ;; Now try and find enough non-literal characters recorded on the stack. |
| 4615 | ;; Go back one recorded literal each time round this loop. | 4615 | ;; Go back one recorded literal each time round this loop. |
| 4616 | (while (and (< count how-far-back) | 4616 | (while (and (< count how-far-back) |
| @@ -8516,8 +8516,8 @@ comment at the start of cc-engine.el for more info." | |||
| 8516 | )) | 8516 | )) |
| 8517 | 8517 | ||
| 8518 | (defun c-looking-at-special-brace-list (&optional lim) | 8518 | (defun c-looking-at-special-brace-list (&optional lim) |
| 8519 | ;; If we're looking at the start of a pike-style list, ie `({ })', | 8519 | ;; If we're looking at the start of a pike-style list, i.e., `({Â })', |
| 8520 | ;; `([ ])', `(< >)' etc, a cons of a cons of its starting and ending | 8520 | ;; `([Â ])', `(<Â >)', etc., a cons of a cons of its starting and ending |
| 8521 | ;; positions and its entry in c-special-brace-lists is returned, nil | 8521 | ;; positions and its entry in c-special-brace-lists is returned, nil |
| 8522 | ;; otherwise. The ending position is nil if the list is still open. | 8522 | ;; otherwise. The ending position is nil if the list is still open. |
| 8523 | ;; LIM is the limit for forward search. The point may either be at | 8523 | ;; LIM is the limit for forward search. The point may either be at |
| @@ -8762,7 +8762,7 @@ comment at the start of cc-engine.el for more info." | |||
| 8762 | (c-simple-skip-symbol-backward) | 8762 | (c-simple-skip-symbol-backward) |
| 8763 | (looking-at c-macro-with-semi-re) | 8763 | (looking-at c-macro-with-semi-re) |
| 8764 | (goto-char pos) | 8764 | (goto-char pos) |
| 8765 | (not (c-in-literal)))))) ; The most expensive check last. | 8765 | (not (c-in-literal)))))) ; The most expensive check last. |
| 8766 | 8766 | ||
| 8767 | (defun c-macro-vsemi-status-unknown-p () t) ; See cc-defs.el. | 8767 | (defun c-macro-vsemi-status-unknown-p () t) ; See cc-defs.el. |
| 8768 | 8768 | ||
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el index 0d5549e4441..ba9c42e4c89 100644 --- a/lisp/progmodes/cc-langs.el +++ b/lisp/progmodes/cc-langs.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; cc-langs.el --- language specific settings for CC Mode | 1 | ;;; cc-langs.el --- language specific settings for CC Mode -*- coding: utf-8 -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1987, 1992-2013 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1985, 1987, 1992-2013 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -2907,7 +2907,7 @@ is in effect or not." | |||
| 2907 | 2907 | ||
| 2908 | (c-lang-defconst c-special-brace-lists | 2908 | (c-lang-defconst c-special-brace-lists |
| 2909 | "List of open- and close-chars that makes up a pike-style brace list, | 2909 | "List of open- and close-chars that makes up a pike-style brace list, |
| 2910 | i.e. for a ([ ]) list there should be a cons (?\\[ . ?\\]) in this | 2910 | i.e. for a ([Â ]) list there should be a cons (?\\[ . ?\\]) in this |
| 2911 | list." | 2911 | list." |
| 2912 | t nil | 2912 | t nil |
| 2913 | pike '((?{ . ?}) (?\[ . ?\]) (?< . ?>))) | 2913 | pike '((?{ . ?}) (?\[ . ?\]) (?< . ?>))) |
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index fbd1ded35a0..fc753bf7264 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks | 1 | ;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks -*- coding: utf-8 -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994-2013 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1994-2013 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -207,7 +207,7 @@ | |||
| 207 | ;; Dean Andrews, Alf-Ivar Holm, Holger Bauer, Christoph Conrad, Dave Love, | 207 | ;; Dean Andrews, Alf-Ivar Holm, Holger Bauer, Christoph Conrad, Dave Love, |
| 208 | ;; Dirk Herrmann, Gael Marziou, Jan Djarv, Guillaume Leray, Moody Ahmad, | 208 | ;; Dirk Herrmann, Gael Marziou, Jan Djarv, Guillaume Leray, Moody Ahmad, |
| 209 | ;; Preston F. Crow, Lars Lindberg, Reto Zimmermann, Keith Sheffield, | 209 | ;; Preston F. Crow, Lars Lindberg, Reto Zimmermann, Keith Sheffield, |
| 210 | ;; Chew Meng Kuan, Tony Lam, Pete Ware, François Pinard, Stefan Monnier, | 210 | ;; Chew Meng Kuan, Tony Lam, Pete Ware, François Pinard, Stefan Monnier, |
| 211 | ;; Joseph Eydelnant, Michael Ernst, Peter Heslin | 211 | ;; Joseph Eydelnant, Michael Ernst, Peter Heslin |
| 212 | ;; | 212 | ;; |
| 213 | ;; Special thanks go to Dan Nicolaescu, who reimplemented hideshow using | 213 | ;; Special thanks go to Dan Nicolaescu, who reimplemented hideshow using |
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 460dcd69447..85e4172c8fe 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el | |||
| @@ -1,9 +1,9 @@ | |||
| 1 | ;;; prolog.el --- major mode for editing and running Prolog (and Mercury) code | 1 | ;;; prolog.el --- major mode for Prolog (and Mercury) -*- coding: utf-8 -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1986-1987, 1997-1999, 2002-2003, 2011-2013 Free | 3 | ;; Copyright (C) 1986-1987, 1997-1999, 2002-2003, 2011-2013 Free |
| 4 | ;; Software Foundation, Inc. | 4 | ;; Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Authors: Emil Åström <emil_astrom(at)hotmail(dot)com> | 6 | ;; Authors: Emil Ã…ström <emil_astrom(at)hotmail(dot)com> |
| 7 | ;; Milan Zamazal <pdm(at)freesoft(dot)cz> | 7 | ;; Milan Zamazal <pdm(at)freesoft(dot)cz> |
| 8 | ;; Stefan Bruda <stefan(at)bruda(dot)ca> | 8 | ;; Stefan Bruda <stefan(at)bruda(dot)ca> |
| 9 | ;; * See below for more details | 9 | ;; * See below for more details |
| @@ -31,7 +31,7 @@ | |||
| 31 | ;; Original author: Masanobu UMEDA <umerin(at)mse(dot)kyutech(dot)ac(dot)jp> | 31 | ;; Original author: Masanobu UMEDA <umerin(at)mse(dot)kyutech(dot)ac(dot)jp> |
| 32 | ;; Parts of this file was taken from a modified version of the original | 32 | ;; Parts of this file was taken from a modified version of the original |
| 33 | ;; by Johan Andersson, Peter Olin, Mats Carlsson, Johan Bevemyr, Stefan | 33 | ;; by Johan Andersson, Peter Olin, Mats Carlsson, Johan Bevemyr, Stefan |
| 34 | ;; Andersson, and Per Danielsson (all SICS people), and Henrik Båkman | 34 | ;; Andersson, and Per Danielsson (all SICS people), and Henrik BÃ¥kman |
| 35 | ;; at Uppsala University, Sweden. | 35 | ;; at Uppsala University, Sweden. |
| 36 | ;; | 36 | ;; |
| 37 | ;; Some ideas and also a few lines of code have been borrowed (not stolen ;-) | 37 | ;; Some ideas and also a few lines of code have been borrowed (not stolen ;-) |
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index da30edf272b..8f1954402e5 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el | |||
| @@ -1842,7 +1842,7 @@ May return nil if the line should not be treated as continued." | |||
| 1842 | ;; (defconst sh-smie-csh-grammar | 1842 | ;; (defconst sh-smie-csh-grammar |
| 1843 | ;; (smie-prec2->grammar | 1843 | ;; (smie-prec2->grammar |
| 1844 | ;; (smie-bnf->prec2 | 1844 | ;; (smie-bnf->prec2 |
| 1845 | ;; '((exp) ;A constant, or a $var, or a sequence of them… | 1845 | ;; '((exp) ;A constant, or a $var, or a sequence of them... |
| 1846 | ;; (elseifcmd (cmd) | 1846 | ;; (elseifcmd (cmd) |
| 1847 | ;; (cmd "else" "else-if" exp "then" elseifcmd)) | 1847 | ;; (cmd "else" "else-if" exp "then" elseifcmd)) |
| 1848 | ;; (cmd ("switch" branches "endsw") | 1848 | ;; (cmd ("switch" branches "endsw") |