aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
authorPaul Eggert2011-12-14 23:24:10 -0800
committerPaul Eggert2011-12-14 23:24:10 -0800
commitbbd240ceeefcf4181aa9205f4e743b32b5c68e1f (patch)
tree957397737a8b0e76a40dfe79f191945e9f5aa09b /lisp/progmodes
parent100d5755ed82e6c47833a3559fb0a154381d5afd (diff)
downloademacs-bbd240ceeefcf4181aa9205f4e743b32b5c68e1f.tar.gz
emacs-bbd240ceeefcf4181aa9205f4e743b32b5c68e1f.zip
Spelling fixes.
Diffstat (limited to 'lisp/progmodes')
-rw-r--r--lisp/progmodes/cperl-mode.el14
-rw-r--r--lisp/progmodes/gdb-mi.el2
-rw-r--r--lisp/progmodes/idlwave.el2
3 files changed, 9 insertions, 9 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 13fa310106c..86284eaa30a 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -958,7 +958,7 @@ B) Speed of editing operations.
958 `cperl-array-face' Array names 958 `cperl-array-face' Array names
959 `cperl-hash-face' Hash names 959 `cperl-hash-face' Hash names
960 `font-lock-comment-face' Comments, PODs and whatever is considered 960 `font-lock-comment-face' Comments, PODs and whatever is considered
961 syntaxically to be not code 961 syntactically to be not code
962 `font-lock-constant-face' HERE-doc delimiters, labels, delimiters of 962 `font-lock-constant-face' HERE-doc delimiters, labels, delimiters of
963 2-arg operators s/y/tr/ or of RExen, 963 2-arg operators s/y/tr/ or of RExen,
964 `font-lock-warning-face' Special-cased m// and s//foo/, 964 `font-lock-warning-face' Special-cased m// and s//foo/,
@@ -970,7 +970,7 @@ B) Speed of editing operations.
970 `cperl-nonoverridable-face' Non-overridable keywords, modifiers of RExen 970 `cperl-nonoverridable-face' Non-overridable keywords, modifiers of RExen
971 `font-lock-string-face' Strings, qw() constructs, RExen, POD sections, 971 `font-lock-string-face' Strings, qw() constructs, RExen, POD sections,
972 literal parts and the terminator of formats 972 literal parts and the terminator of formats
973 and whatever is syntaxically considered 973 and whatever is syntactically considered
974 as string literals 974 as string literals
975 `font-lock-type-face' Overridable keywords 975 `font-lock-type-face' Overridable keywords
976 `font-lock-variable-name-face' Variable declarations, indirect array and 976 `font-lock-variable-name-face' Variable declarations, indirect array and
@@ -1537,8 +1537,8 @@ default.) You can always quote (with \\[quoted-insert]) the left
1537since most the time you mean \"less\". CPerl mode tries to guess 1537since most the time you mean \"less\". CPerl mode tries to guess
1538whether you want to type pair <>, and inserts is if it 1538whether you want to type pair <>, and inserts is if it
1539appropriate. You can set `cperl-electric-parens-string' to the string that 1539appropriate. You can set `cperl-electric-parens-string' to the string that
1540contains the parenths from the above list you want to be electrical. 1540contains the parens from the above list you want to be electrical.
1541Electricity of parenths is controlled by `cperl-electric-parens'. 1541Electricity of parens is controlled by `cperl-electric-parens'.
1542You may also set `cperl-electric-parens-mark' to have electric parens 1542You may also set `cperl-electric-parens-mark' to have electric parens
1543look for active mark and \"embrace\" a region if possible.' 1543look for active mark and \"embrace\" a region if possible.'
1544 1544
@@ -3517,7 +3517,7 @@ Works before syntax recognition is done."
3517(defvar font-lock-warning-face) 3517(defvar font-lock-warning-face)
3518 3518
3519(defun cperl-find-sub-attrs (&optional st-l b-fname e-fname pos) 3519(defun cperl-find-sub-attrs (&optional st-l b-fname e-fname pos)
3520 "Syntaxically mark (and fontify) attributes of a subroutine. 3520 "Syntactically mark (and fontify) attributes of a subroutine.
3521Should be called with the point before leading colon of an attribute." 3521Should be called with the point before leading colon of an attribute."
3522 ;; Works *before* syntax recognition is done 3522 ;; Works *before* syntax recognition is done
3523 (or st-l (setq st-l (list nil))) ; Avoid overwriting '() 3523 (or st-l (setq st-l (list nil))) ; Avoid overwriting '()
@@ -4994,7 +4994,7 @@ conditional/loop constructs."
4994 (setq top (point)) 4994 (setq top (point))
4995 ;; Plan A: if line has an unfinished paren-group, go to end-of-group 4995 ;; Plan A: if line has an unfinished paren-group, go to end-of-group
4996 (while (= -1 (nth 0 (parse-partial-sexp (point) tmp-end -1))) 4996 (while (= -1 (nth 0 (parse-partial-sexp (point) tmp-end -1)))
4997 (setq top (point))) ; Get the outermost parenths in line 4997 (setq top (point))) ; Get the outermost parens in line
4998 (goto-char top) 4998 (goto-char top)
4999 (while (< (point) tmp-end) 4999 (while (< (point) tmp-end)
5000 (parse-partial-sexp (point) tmp-end nil t) ; To start-sexp or eol 5000 (parse-partial-sexp (point) tmp-end nil t) ; To start-sexp or eol
@@ -5906,7 +5906,7 @@ indentation and initial hashes. Behaves usually outside of comment."
5906 3 font-lock-variable-name-face))) 5906 3 font-lock-variable-name-face)))
5907 '("\\<for\\(each\\)?\\([ \t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*(" 5907 '("\\<for\\(each\\)?\\([ \t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*("
5908 4 font-lock-variable-name-face) 5908 4 font-lock-variable-name-face)
5909 ;; Avoid $!, and s!!, qq!! etc. when not fontifying syntaxically 5909 ;; Avoid $!, and s!!, qq!! etc. when not fontifying syntactically
5910 '("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face) 5910 '("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face)
5911 '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend))) 5911 '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)))
5912 (setq 5912 (setq
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 86d4a72f408..9ad76f2cfec 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -3865,7 +3865,7 @@ overlay arrow in source buffer."
3865If BUF is already displayed in some window, show it, deiconifying 3865If BUF is already displayed in some window, show it, deiconifying
3866the frame if necessary. Otherwise, find least recently used 3866the frame if necessary. Otherwise, find least recently used
3867window and show BUF there, if the window is not used for GDB 3867window and show BUF there, if the window is not used for GDB
3868already, in which case that window is splitted first." 3868already, in which case that window is split first."
3869 (let ((answer (get-buffer-window buf (or frame 0)))) 3869 (let ((answer (get-buffer-window buf (or frame 0))))
3870 (if answer 3870 (if answer
3871 (display-buffer buf nil (or frame 0)) ;Deiconify frame if necessary. 3871 (display-buffer buf nil (or frame 0)) ;Deiconify frame if necessary.
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 24deb569d74..6ce415b563d 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -2464,7 +2464,7 @@ If prefix ARG < 0 then move forward to enclosing block end."
2464(defun idlwave-down-block (&optional arg) 2464(defun idlwave-down-block (&optional arg)
2465 "Go down a block. 2465 "Go down a block.
2466With ARG: ARG >= 0 go forwards, ARG < 0 go backwards. 2466With ARG: ARG >= 0 go forwards, ARG < 0 go backwards.
2467Returns non-nil if successfull." 2467Returns non-nil if successful."
2468 (interactive "p") 2468 (interactive "p")
2469 (let (status) 2469 (let (status)
2470 (if (< arg 0) 2470 (if (< arg 0)