aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
authorJan D2015-05-23 12:28:54 +0200
committerJan D2015-05-23 12:28:54 +0200
commit6aaa489dc112f51f6045f79b37cb78dd513e398f (patch)
treea34eb6ad435ab877848f7464374570549ca55ec5 /lisp/progmodes
parentee14727ce033bae3bc11af35e7843604e5a5e635 (diff)
parent7ac84a2570e1268cc040fcd529508307b2b22c01 (diff)
downloademacs-6aaa489dc112f51f6045f79b37cb78dd513e398f.tar.gz
emacs-6aaa489dc112f51f6045f79b37cb78dd513e398f.zip
Merge branch 'master' into cairo
Diffstat (limited to 'lisp/progmodes')
-rw-r--r--lisp/progmodes/ada-xref.el2
-rw-r--r--lisp/progmodes/cc-defs.el10
-rw-r--r--lisp/progmodes/cc-engine.el2
-rw-r--r--lisp/progmodes/cc-fonts.el4
-rw-r--r--lisp/progmodes/cc-guess.el4
-rw-r--r--lisp/progmodes/compile.el2
-rw-r--r--lisp/progmodes/cperl-mode.el2
-rw-r--r--lisp/progmodes/gdb-mi.el6
-rw-r--r--lisp/progmodes/idlw-shell.el4
-rw-r--r--lisp/progmodes/idlwave.el6
-rw-r--r--lisp/progmodes/python.el2
-rw-r--r--lisp/progmodes/ruby-mode.el2
-rw-r--r--lisp/progmodes/verilog-mode.el12
13 files changed, 29 insertions, 29 deletions
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 6b611e6f99b..771dc2a3da1 100644
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -954,7 +954,7 @@ Return new value of PROJECT."
954 (append (mapcar 'directory-file-name compilation-search-path) 954 (append (mapcar 'directory-file-name compilation-search-path)
955 ada-search-directories)) 955 ada-search-directories))
956 956
957 ;; return 't', for decent display in message buffer when called interactively 957 ;; return t, for decent display in message buffer when called interactively
958 t) 958 t)
959 959
960(defun ada-find-references (&optional pos arg local-only) 960(defun ada-find-references (&optional pos arg local-only)
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index d0beab1d485..fd4bfb3b921 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -1983,7 +1983,7 @@ system."
1983 1983
1984(defvar c-lang-const-expansion nil) 1984(defvar c-lang-const-expansion nil)
1985 1985
1986;; Ugly hack to pull in the definition of `cc-bytecomp-compiling-or-loading` 1986;; Ugly hack to pull in the definition of `cc-bytecomp-compiling-or-loading'
1987;; from cc-bytecomp to make it available at loadtime. This is the same 1987;; from cc-bytecomp to make it available at loadtime. This is the same
1988;; mechanism used in cc-mode.el for `c-populate-syntax-table'. 1988;; mechanism used in cc-mode.el for `c-populate-syntax-table'.
1989(defalias 'cc-bytecomp-compiling-or-loading 1989(defalias 'cc-bytecomp-compiling-or-loading
@@ -2017,10 +2017,10 @@ The second argument can optionally be a docstring. The rest of the
2017arguments are one or more repetitions of LANG VAL where LANG specifies 2017arguments are one or more repetitions of LANG VAL where LANG specifies
2018the language(s) that VAL applies to. LANG is the name of the 2018the language(s) that VAL applies to. LANG is the name of the
2019language, i.e. the mode name without the \"-mode\" suffix, or a list 2019language, i.e. the mode name without the \"-mode\" suffix, or a list
2020of such language names, or `t' for all languages. VAL is a form to 2020of such language names, or t for all languages. VAL is a form to
2021evaluate to get the value. 2021evaluate to get the value.
2022 2022
2023If LANG isn't `t' or one of the core languages in CC Mode, it must 2023If LANG isn't t or one of the core languages in CC Mode, it must
2024have been declared with `c-add-language'. 2024have been declared with `c-add-language'.
2025 2025
2026Neither NAME, LANG nor VAL are evaluated directly - they should not be 2026Neither NAME, LANG nor VAL are evaluated directly - they should not be
@@ -2030,7 +2030,7 @@ VAL to evaluate parts of it directly.
2030When VAL is evaluated for some language, that language is temporarily 2030When VAL is evaluated for some language, that language is temporarily
2031made current so that `c-lang-const' without an explicit language can 2031made current so that `c-lang-const' without an explicit language can
2032be used inside VAL to refer to the value of a language constant in the 2032be used inside VAL to refer to the value of a language constant in the
2033same language. That is particularly useful if LANG is `t'. 2033same language. That is particularly useful if LANG is t.
2034 2034
2035VAL is not evaluated right away but rather when the value is requested 2035VAL is not evaluated right away but rather when the value is requested
2036with `c-lang-const'. Thus it's possible to use `c-lang-const' inside 2036with `c-lang-const'. Thus it's possible to use `c-lang-const' inside
@@ -2365,7 +2365,7 @@ fallback definition for all modes, to break the cycle).")
2365 2365
2366(defun c-find-assignment-for-mode (source-pos mode match-any-lang _name) 2366(defun c-find-assignment-for-mode (source-pos mode match-any-lang _name)
2367 ;; Find the first assignment entry that applies to MODE at or after 2367 ;; Find the first assignment entry that applies to MODE at or after
2368 ;; SOURCE-POS. If MATCH-ANY-LANG is non-nil, entries with `t' as 2368 ;; SOURCE-POS. If MATCH-ANY-LANG is non-nil, entries with t as
2369 ;; the language list are considered to match, otherwise they don't. 2369 ;; the language list are considered to match, otherwise they don't.
2370 ;; On return SOURCE-POS is updated to point to the next assignment 2370 ;; On return SOURCE-POS is updated to point to the next assignment
2371 ;; after the returned one. If no assignment is found, 2371 ;; after the returned one. If no assignment is found,
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 823d795b6de..06b03a24bd6 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -7972,7 +7972,7 @@ comment at the start of cc-engine.el for more info."
7972 ;; This should be called with point inside an argument list. 7972 ;; This should be called with point inside an argument list.
7973 ;; 7973 ;;
7974 ;; Only one level of enclosing parentheses is considered, so for 7974 ;; Only one level of enclosing parentheses is considered, so for
7975 ;; instance `nil' is returned when in a function call within an asm 7975 ;; instance nil is returned when in a function call within an asm
7976 ;; operand. 7976 ;; operand.
7977 ;; 7977 ;;
7978 ;; This function might do hidden buffer changes. 7978 ;; This function might do hidden buffer changes.
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el
index 44172b05a56..ad564f7c3df 100644
--- a/lisp/progmodes/cc-fonts.el
+++ b/lisp/progmodes/cc-fonts.el
@@ -1772,8 +1772,8 @@ on level 2 only and so aren't combined with `c-complex-decl-matchers'."
1772;; "\\|" 1772;; "\\|"
1773;; (c-lang-const c-symbol-key) 1773;; (c-lang-const c-symbol-key)
1774;; "\\)") 1774;; "\\)")
1775;; `((c-font-lock-declarators limit t nil) ; That `nil' says use `font-lock-variable-name-face'; 1775;; `((c-font-lock-declarators limit t nil) ; That nil says use `font-lock-variable-name-face';
1776;; ; `t' would mean `font-lock-function-name-face'. 1776;; ; t would mean `font-lock-function-name-face'.
1777;; (progn 1777;; (progn
1778;; (c-put-char-property (match-beginning 0) 'c-type 1778;; (c-put-char-property (match-beginning 0) 'c-type
1779;; 'c-decl-id-start) 1779;; 'c-decl-id-start)
diff --git a/lisp/progmodes/cc-guess.el b/lisp/progmodes/cc-guess.el
index 20534737d8a..ba23a75ff22 100644
--- a/lisp/progmodes/cc-guess.el
+++ b/lisp/progmodes/cc-guess.el
@@ -91,7 +91,7 @@ The offset of a line included in the indent information returned by
91(defcustom c-guess-region-max 50000 91(defcustom c-guess-region-max 50000
92 "The maximum region size for examining indent information with `c-guess'. 92 "The maximum region size for examining indent information with `c-guess'.
93It takes a long time to examine indent information from a large region; 93It takes a long time to examine indent information from a large region;
94this option helps you limit that time. `nil' means no limit." 94this option helps you limit that time. nil means no limit."
95 :version "24.1" 95 :version "24.1"
96 :type 'integer 96 :type 'integer
97 :group 'c) 97 :group 'c)
@@ -465,7 +465,7 @@ the absolute file name of the file if STYLE-NAME is nil."
465(defun c-guess-dump-guessed-style (&optional printer) 465(defun c-guess-dump-guessed-style (&optional printer)
466 "Show the guessed style. 466 "Show the guessed style.
467`pp' is used to print the style but if PRINTER is given, 467`pp' is used to print the style but if PRINTER is given,
468PRINTER is used instead. If PRINTER is not `nil', it 468PRINTER is used instead. If PRINTER is not nil, it
469is called with one argument, the guessed style." 469is called with one argument, the guessed style."
470 (interactive) 470 (interactive)
471 (let ((style (c-guess-make-style c-guess-guessed-basic-offset 471 (let ((style (c-guess-make-style c-guess-guessed-basic-offset
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 9d36e91cf8f..a58e393779a 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -216,7 +216,7 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1))
216 ;; due to matching filenames via \\(.*?\\). This might be faster. 216 ;; due to matching filenames via \\(.*?\\). This might be faster.
217 (maven 217 (maven
218 ;; Maven is a popular free software build tool for Java. 218 ;; Maven is a popular free software build tool for Java.
219 "\\([^ \n]\\(?:[^\n :]\\| [^-/\n]\\|:[^ \n]\\)*?\\):\\[\\([0-9]+\\),\\([0-9]+\\)\\] " 1 2 3) 219 "\\(\\[WARNING\\] *\\)?\\([^ \n]\\(?:[^\n :]\\| [^-/\n]\\|:[^ \n]\\)*?\\):\\[\\([0-9]+\\),\\([0-9]+\\)\\] " 2 3 4 (1))
220 220
221 (jikes-line 221 (jikes-line
222 "^ *\\([0-9]+\\)\\.[ \t]+.*\n +\\(<-*>\n\\*\\*\\* \\(?:Error\\|Warnin\\(g\\)\\)\\)" 222 "^ *\\([0-9]+\\)\\.[ \t]+.*\n +\\(<-*>\n\\*\\*\\* \\(?:Error\\|Warnin\\(g\\)\\)\\)"
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 2acfc104cf3..d6f6f3b25b0 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -282,7 +282,7 @@ This is in addition to cperl-continued-statement-offset."
282 282
283(defcustom cperl-indent-wrt-brace t 283(defcustom cperl-indent-wrt-brace t
284 "*Non-nil means indent statements in if/etc block relative brace, not if/etc. 284 "*Non-nil means indent statements in if/etc block relative brace, not if/etc.
285Versions 5.2 ... 5.20 behaved as if this were `nil'." 285Versions 5.2 ... 5.20 behaved as if this were nil."
286 :type 'boolean 286 :type 'boolean
287 :group 'cperl-indentation-details) 287 :group 'cperl-indentation-details)
288 288
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 486d67297a9..4af8ac6971e 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -2376,9 +2376,9 @@ Sets `gdb-thread-number' to new id."
2376 (let* ((result (gdb-json-string output-field)) 2376 (let* ((result (gdb-json-string output-field))
2377 (thread-id (bindat-get-field result 'id))) 2377 (thread-id (bindat-get-field result 'id)))
2378 (gdb-setq-thread-number thread-id) 2378 (gdb-setq-thread-number thread-id)
2379 ;; Typing `thread N` in GUD buffer makes GDB emit `^done` followed 2379 ;; Typing `thread N' in GUD buffer makes GDB emit `^done' followed
2380 ;; by `=thread-selected` notification. `^done` causes `gdb-update` 2380 ;; by `=thread-selected' notification. `^done' causes `gdb-update'
2381 ;; as usually. Things happen to fast and second call (from 2381 ;; as usually. Things happen too fast and second call (from
2382 ;; gdb-thread-selected handler) gets cut off by our beloved 2382 ;; gdb-thread-selected handler) gets cut off by our beloved
2383 ;; pending triggers. 2383 ;; pending triggers.
2384 ;; Solution is `gdb-wait-for-pending' macro: it guarantees that its 2384 ;; Solution is `gdb-wait-for-pending' macro: it guarantees that its
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index 02a8ec8a560..23f9d4af8c9 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -229,7 +229,7 @@ to set this option to nil."
229 229
230(defcustom idlwave-shell-file-name-chars "~/A-Za-z0-9+:_.$#%={}\\- " 230(defcustom idlwave-shell-file-name-chars "~/A-Za-z0-9+:_.$#%={}\\- "
231 "The characters allowed in file names, as a string. 231 "The characters allowed in file names, as a string.
232Used for file name completion. Must not contain `'', `,' and `\"' 232Used for file name completion. Must not contain ', , and \"
233because these are used as separators by IDL." 233because these are used as separators by IDL."
234 :group 'idlwave-shell-general-setup 234 :group 'idlwave-shell-general-setup
235 :type 'string) 235 :type 'string)
@@ -2638,7 +2638,7 @@ If ENABLE is non-nil, enable them instead."
2638(defun idlwave-shell-break-in () 2638(defun idlwave-shell-break-in ()
2639 "Look for a module name near point and set a break point for it. 2639 "Look for a module name near point and set a break point for it.
2640The command looks for an identifier near point and sets a breakpoint 2640The command looks for an identifier near point and sets a breakpoint
2641for the first line of the corresponding module. If MODULE is `t', set 2641for the first line of the corresponding module. If MODULE is t, set
2642in the current routine." 2642in the current routine."
2643 (interactive) 2643 (interactive)
2644 (let* ((module (idlwave-fix-module-if-obj_new (idlwave-what-module))) 2644 (let* ((module (idlwave-fix-module-if-obj_new (idlwave-what-module)))
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 7e269cb60f0..44d84d65810 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -1837,7 +1837,7 @@ The main features of this mode are
18375. Code Templates and Abbreviations 18375. Code Templates and Abbreviations
1838 -------------------------------- 1838 --------------------------------
1839 Many Abbreviations are predefined to expand to code fragments and templates. 1839 Many Abbreviations are predefined to expand to code fragments and templates.
1840 The abbreviations start generally with a `\\`. Some examples: 1840 The abbreviations start generally with a `\\'. Some examples:
1841 1841
1842 \\pr PROCEDURE template 1842 \\pr PROCEDURE template
1843 \\fu FUNCTION template 1843 \\fu FUNCTION template
@@ -2047,7 +2047,7 @@ If optional argument RESERVED is non-nil then the expansion
2047consists of reserved words, which will be capitalized if 2047consists of reserved words, which will be capitalized if
2048`idlwave-reserved-word-upcase' is non-nil. 2048`idlwave-reserved-word-upcase' is non-nil.
2049Otherwise, the abbrev will be capitalized if `idlwave-abbrev-change-case' 2049Otherwise, the abbrev will be capitalized if `idlwave-abbrev-change-case'
2050is non-nil, unless its value is \`down in which case the abbrev will be 2050is non-nil, unless its value is `down' in which case the abbrev will be
2051made into all lowercase. 2051made into all lowercase.
2052Returns non-nil if abbrev is left expanded." 2052Returns non-nil if abbrev is left expanded."
2053 (if (idlwave-quoted) 2053 (if (idlwave-quoted)
@@ -8162,7 +8162,7 @@ demand _EXTRA in the keyword list."
8162 class 8162 class
8163 (idlwave-routines)) 'do-link)))))) 8163 (idlwave-routines)) 'do-link))))))
8164 8164
8165 ;; If the class is `t', combine all keywords of all methods NAME 8165 ;; If the class is t, combine all keywords of all methods NAME
8166 (when (eq class t) 8166 (when (eq class t)
8167 (mapc (lambda (entry) 8167 (mapc (lambda (entry)
8168 (and 8168 (and
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 4b0a028faa3..d45d082c40a 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -3216,7 +3216,7 @@ With argument MSG show activation/deactivation message."
3216 (concat 3216 (concat
3217 "Your `python-shell-interpreter' doesn't seem to " 3217 "Your `python-shell-interpreter' doesn't seem to "
3218 "support readline, yet `python-shell-completion-native' " 3218 "support readline, yet `python-shell-completion-native' "
3219 (format "was `t' and %S is not part of the " 3219 (format "was t and %S is not part of the "
3220 (file-name-nondirectory python-shell-interpreter)) 3220 (file-name-nondirectory python-shell-interpreter))
3221 "`python-shell-completion-native-disabled-interpreters' " 3221 "`python-shell-completion-native-disabled-interpreters' "
3222 "list. Native completions have been disabled locally. ")) 3222 "list. Native completions have been disabled locally. "))
diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el
index 0e2f66e5bc5..21ad1021c9e 100644
--- a/lisp/progmodes/ruby-mode.el
+++ b/lisp/progmodes/ruby-mode.el
@@ -287,7 +287,7 @@ Only has effect when `ruby-use-smie' is nil."
287 :group 'ruby 287 :group 'ruby
288 :safe 'booleanp) 288 :safe 'booleanp)
289 289
290;; FIXME Woefully under documented. What is the point of the last `t'?. 290;; FIXME Woefully under documented. What is the point of the last t?.
291(defcustom ruby-deep-indent-paren '(?\( ?\[ ?\] t) 291(defcustom ruby-deep-indent-paren '(?\( ?\[ ?\] t)
292 "Deep indent lists in parenthesis when non-nil. 292 "Deep indent lists in parenthesis when non-nil.
293The value t means continuous line. 293The value t means continuous line.
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index a1ad49e9a2c..4b0cb0f6fd8 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -519,8 +519,8 @@ take you to the next lint error."
519 519
520(defvar verilog-tool 'verilog-linter 520(defvar verilog-tool 'verilog-linter
521 "Which tool to use for building compiler-command. 521 "Which tool to use for building compiler-command.
522Either nil, `verilog-linter, `verilog-compiler, 522Either nil, `verilog-linter', `verilog-compiler',
523`verilog-coverage, `verilog-preprocessor, or `verilog-simulator. 523`verilog-coverage', `verilog-preprocessor', or `verilog-simulator'.
524Alternatively use the \"Choose Compilation Action\" menu. See 524Alternatively use the \"Choose Compilation Action\" menu. See
525`verilog-set-compile-command' for more information.") 525`verilog-set-compile-command' for more information.")
526 526
@@ -1674,7 +1674,7 @@ If third arg START is non-nil, start search at that index in STRING."
1674 1674
1675(defsubst verilog-string-replace-matches (from-string to-string fixedcase literal string) 1675(defsubst verilog-string-replace-matches (from-string to-string fixedcase literal string)
1676 "Replace occurrences of FROM-STRING with TO-STRING. 1676 "Replace occurrences of FROM-STRING with TO-STRING.
1677FIXEDCASE and LITERAL as in `replace-match`. STRING is what to replace. 1677FIXEDCASE and LITERAL as in `replace-match'. STRING is what to replace.
1678The case (verilog-string-replace-matches \"o\" \"oo\" nil nil \"foobar\") 1678The case (verilog-string-replace-matches \"o\" \"oo\" nil nil \"foobar\")
1679will break, as the o's continuously replace. xa -> x works ok though." 1679will break, as the o's continuously replace. xa -> x works ok though."
1680 ;; Hopefully soon to an Emacs built-in 1680 ;; Hopefully soon to an Emacs built-in
@@ -5201,7 +5201,7 @@ becomes:
5201(defun verilog-preprocess (&optional command filename) 5201(defun verilog-preprocess (&optional command filename)
5202 "Preprocess the buffer, similar to `compile', but put output in Verilog-Mode. 5202 "Preprocess the buffer, similar to `compile', but put output in Verilog-Mode.
5203Takes optional COMMAND or defaults to `verilog-preprocessor', and 5203Takes optional COMMAND or defaults to `verilog-preprocessor', and
5204FILENAME to find directory to run in, or defaults to `buffer-file-name`." 5204FILENAME to find directory to run in, or defaults to `buffer-file-name'."
5205 (interactive 5205 (interactive
5206 (list 5206 (list
5207 (let ((default (verilog-expand-command verilog-preprocessor))) 5207 (let ((default (verilog-expand-command verilog-preprocessor)))
@@ -12648,7 +12648,7 @@ driver/monitor using AUTOINST in the testbench."
12648(defun verilog-auto-insert-lisp () 12648(defun verilog-auto-insert-lisp ()
12649 "Expand AUTOINSERTLISP statements, as part of \\[verilog-auto]. 12649 "Expand AUTOINSERTLISP statements, as part of \\[verilog-auto].
12650The Lisp code provided is called before other AUTOS are expanded, 12650The Lisp code provided is called before other AUTOS are expanded,
12651and the Lisp code generally will call `insert` to insert text 12651and the Lisp code generally will call `insert' to insert text
12652into the current file beginning on the line after the 12652into the current file beginning on the line after the
12653AUTOINSERTLISP. 12653AUTOINSERTLISP.
12654 12654
@@ -12713,7 +12713,7 @@ text:
12713(defun verilog-auto-insert-last () 12713(defun verilog-auto-insert-last ()
12714 "Expand AUTOINSERTLAST statements, as part of \\[verilog-auto]. 12714 "Expand AUTOINSERTLAST statements, as part of \\[verilog-auto].
12715The Lisp code provided is called after all other AUTOS have been 12715The Lisp code provided is called after all other AUTOS have been
12716expanded, and the Lisp code generally will call `insert` to 12716expanded, and the Lisp code generally will call `insert' to
12717insert text into the current file beginning on the line after the 12717insert text into the current file beginning on the line after the
12718AUTOINSERTLAST. 12718AUTOINSERTLAST.
12719 12719