aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
authorJoakim Verona2013-03-06 00:04:01 +0100
committerJoakim Verona2013-03-06 00:04:01 +0100
commit79157e99328fb1d835985dfa89fc2a2fa427d077 (patch)
treeac0e5a6a03089e3d6352cb3311510cfac0b7d051 /lisp/progmodes
parent15cb771195328913a9c24467db7e373acb92a769 (diff)
parent707431575aef93ac3e9923d450a6cbf18192c933 (diff)
downloademacs-79157e99328fb1d835985dfa89fc2a2fa427d077.tar.gz
emacs-79157e99328fb1d835985dfa89fc2a2fa427d077.zip
auto upstream
Diffstat (limited to 'lisp/progmodes')
-rw-r--r--lisp/progmodes/cc-engine.el24
-rw-r--r--lisp/progmodes/cc-langs.el4
-rw-r--r--lisp/progmodes/hideshow.el4
-rw-r--r--lisp/progmodes/prolog.el6
-rw-r--r--lisp/progmodes/sh-script.el2
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,
2910i.e. for a ([ ]) list there should be a cons (?\\[ . ?\\]) in this 2910i.e. for a ([ ]) list there should be a cons (?\\[ . ?\\]) in this
2911list." 2911list."
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")