diff options
| author | Paul Eggert | 2011-05-17 17:39:40 -0700 |
|---|---|---|
| committer | Paul Eggert | 2011-05-17 17:39:40 -0700 |
| commit | 7025ee00190a709853bf5b809bf86148efda3bc7 (patch) | |
| tree | e1b861b3ea59872e652462289bb7f215d5cfbfbe /lisp/progmodes | |
| parent | d2d818bf00fa3a3204abd9b31103cfca21ff8125 (diff) | |
| parent | 3870d303a44e14c460977c50473e5069742cd0b6 (diff) | |
| download | emacs-7025ee00190a709853bf5b809bf86148efda3bc7.tar.gz emacs-7025ee00190a709853bf5b809bf86148efda3bc7.zip | |
Merge from mainline.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/cc-defs.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/grep.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/idlw-shell.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/python.el | 4 |
4 files changed, 6 insertions, 3 deletions
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el index ce38cf8850b..a063ce7dab6 100644 --- a/lisp/progmodes/cc-defs.el +++ b/lisp/progmodes/cc-defs.el | |||
| @@ -369,7 +369,7 @@ to it is returned. This function does not modify the point or the mark." | |||
| 369 | (put 'c-safe 'lisp-indent-function 0) | 369 | (put 'c-safe 'lisp-indent-function 0) |
| 370 | 370 | ||
| 371 | (defmacro c-int-to-char (integer) | 371 | (defmacro c-int-to-char (integer) |
| 372 | ;; In GNU Emacs, a character is an integer. In XEmacs, a character is a | 372 | ;; In Emacs, a character is an integer. In XEmacs, a character is a |
| 373 | ;; type distinct from an integer. Sometimes we need to convert integers to | 373 | ;; type distinct from an integer. Sometimes we need to convert integers to |
| 374 | ;; characters. `c-int-to-char' makes this conversion, if necessary. | 374 | ;; characters. `c-int-to-char' makes this conversion, if necessary. |
| 375 | (if (fboundp 'int-to-char) | 375 | (if (fboundp 'int-to-char) |
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 143220ad28a..3b819a149b2 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el | |||
| @@ -698,6 +698,7 @@ This function is called from `compilation-filter-hook'." | |||
| 698 | grep-hit-face) | 698 | grep-hit-face) |
| 699 | (set (make-local-variable 'compilation-error-regexp-alist) | 699 | (set (make-local-variable 'compilation-error-regexp-alist) |
| 700 | grep-regexp-alist) | 700 | grep-regexp-alist) |
| 701 | (set (make-local-variable 'compilation-directory-matcher) nil) | ||
| 701 | (set (make-local-variable 'compilation-process-setup-function) | 702 | (set (make-local-variable 'compilation-process-setup-function) |
| 702 | 'grep-process-setup) | 703 | 'grep-process-setup) |
| 703 | (set (make-local-variable 'compilation-disable-input) t) | 704 | (set (make-local-variable 'compilation-disable-input) t) |
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index 93a3bf1b7f5..01c256ab41b 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el | |||
| @@ -2187,7 +2187,7 @@ args of an executive .run, .rnew or .compile." | |||
| 2187 | ;; CWD might have changed, resync, to set default directory | 2187 | ;; CWD might have changed, resync, to set default directory |
| 2188 | (idlwave-shell-resync-dirs) | 2188 | (idlwave-shell-resync-dirs) |
| 2189 | (let ((comint-file-name-chars idlwave-shell-file-name-chars)) | 2189 | (let ((comint-file-name-chars idlwave-shell-file-name-chars)) |
| 2190 | (comint-dynamic-complete-as-filename))) | 2190 | (comint-filename-completion))) |
| 2191 | 2191 | ||
| 2192 | (defun idlwave-shell-executive-command () | 2192 | (defun idlwave-shell-executive-command () |
| 2193 | "Return the name of the current executive command, if any." | 2193 | "Return the name of the current executive command, if any." |
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index a7851c54356..67a51dfbeee 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el | |||
| @@ -99,7 +99,9 @@ | |||
| 99 | "import" "in" "is" "lambda" "not" "or" "pass" "print" | 99 | "import" "in" "is" "lambda" "not" "or" "pass" "print" |
| 100 | "raise" "return" "try" "while" "with" "yield" | 100 | "raise" "return" "try" "while" "with" "yield" |
| 101 | ;; Not real keywords, but close enough to be fontified as such | 101 | ;; Not real keywords, but close enough to be fontified as such |
| 102 | "self" "True" "False") | 102 | "self" "True" "False" |
| 103 | ;; Python 3 | ||
| 104 | "nonlocal") | ||
| 103 | symbol-end) | 105 | symbol-end) |
| 104 | (,(rx symbol-start "None" symbol-end) ; see § Keywords in 2.7 manual | 106 | (,(rx symbol-start "None" symbol-end) ; see § Keywords in 2.7 manual |
| 105 | . font-lock-constant-face) | 107 | . font-lock-constant-face) |