diff options
| author | Kenichi Handa | 2011-12-15 16:51:01 +0900 |
|---|---|---|
| committer | Kenichi Handa | 2011-12-15 16:51:01 +0900 |
| commit | 6080e055498c19ebd34495f204a8ad676eb09260 (patch) | |
| tree | 19a0544bb6b87a4bd4aa3208dd24f11147bbbf7c /lisp/progmodes | |
| parent | 5fc1c122ccc781fb93dd81aacac368ac7bd973e6 (diff) | |
| parent | bbd240ceeefcf4181aa9205f4e743b32b5c68e1f (diff) | |
| download | emacs-6080e055498c19ebd34495f204a8ad676eb09260.tar.gz emacs-6080e055498c19ebd34495f204a8ad676eb09260.zip | |
merge trunk
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 14 | ||||
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/idlwave.el | 2 |
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 | |||
| 1537 | since most the time you mean \"less\". CPerl mode tries to guess | 1537 | since most the time you mean \"less\". CPerl mode tries to guess |
| 1538 | whether you want to type pair <>, and inserts is if it | 1538 | whether you want to type pair <>, and inserts is if it |
| 1539 | appropriate. You can set `cperl-electric-parens-string' to the string that | 1539 | appropriate. You can set `cperl-electric-parens-string' to the string that |
| 1540 | contains the parenths from the above list you want to be electrical. | 1540 | contains the parens from the above list you want to be electrical. |
| 1541 | Electricity of parenths is controlled by `cperl-electric-parens'. | 1541 | Electricity of parens is controlled by `cperl-electric-parens'. |
| 1542 | You may also set `cperl-electric-parens-mark' to have electric parens | 1542 | You may also set `cperl-electric-parens-mark' to have electric parens |
| 1543 | look for active mark and \"embrace\" a region if possible.' | 1543 | look 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. |
| 3521 | Should be called with the point before leading colon of an attribute." | 3521 | Should 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." | |||
| 3865 | If BUF is already displayed in some window, show it, deiconifying | 3865 | If BUF is already displayed in some window, show it, deiconifying |
| 3866 | the frame if necessary. Otherwise, find least recently used | 3866 | the frame if necessary. Otherwise, find least recently used |
| 3867 | window and show BUF there, if the window is not used for GDB | 3867 | window and show BUF there, if the window is not used for GDB |
| 3868 | already, in which case that window is splitted first." | 3868 | already, 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. |
| 2466 | With ARG: ARG >= 0 go forwards, ARG < 0 go backwards. | 2466 | With ARG: ARG >= 0 go forwards, ARG < 0 go backwards. |
| 2467 | Returns non-nil if successfull." | 2467 | Returns non-nil if successful." |
| 2468 | (interactive "p") | 2468 | (interactive "p") |
| 2469 | (let (status) | 2469 | (let (status) |
| 2470 | (if (< arg 0) | 2470 | (if (< arg 0) |