aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
authorPaul Eggert2011-05-17 17:39:40 -0700
committerPaul Eggert2011-05-17 17:39:40 -0700
commit7025ee00190a709853bf5b809bf86148efda3bc7 (patch)
treee1b861b3ea59872e652462289bb7f215d5cfbfbe /lisp/progmodes
parentd2d818bf00fa3a3204abd9b31103cfca21ff8125 (diff)
parent3870d303a44e14c460977c50473e5069742cd0b6 (diff)
downloademacs-7025ee00190a709853bf5b809bf86148efda3bc7.tar.gz
emacs-7025ee00190a709853bf5b809bf86148efda3bc7.zip
Merge from mainline.
Diffstat (limited to 'lisp/progmodes')
-rw-r--r--lisp/progmodes/cc-defs.el2
-rw-r--r--lisp/progmodes/grep.el1
-rw-r--r--lisp/progmodes/idlw-shell.el2
-rw-r--r--lisp/progmodes/python.el4
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)