From 6e1dbafa9a570c2f1f24f741cf78d1abd3de6585 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 11 Jul 1994 00:24:26 +0000 Subject: [PATCH] (compilation-window-height): Use defvar. (compilation-leave-directory-regexp): Likewise. (compilation-enter-directory-regexp): Likewise. --- lisp/progmodes/compile.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index b217f9304ad..784b44d3921 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -34,7 +34,7 @@ "*List of hook functions run by `compilation-mode' (see `run-hooks').") ;;;###autoload -(defconst compilation-window-height nil +(defvar compilation-window-height nil "*Number of lines in a compilation window. If nil, use Emacs default.") (defvar compilation-error-list nil @@ -208,14 +208,14 @@ You might also use mode hooks to specify it in certain modes, like this: (concat \"make -k \" buffer-file-name))))))") -(defconst compilation-enter-directory-regexp +(defvar compilation-enter-directory-regexp ": Entering directory `\\(.*\\)'$" "Regular expression matching lines that indicate a new current directory. This must contain one \\(, \\) pair around the directory name. The default value matches lines printed by the `-w' option of GNU Make.") -(defconst compilation-leave-directory-regexp +(defvar compilation-leave-directory-regexp ": Leaving directory `\\(.*\\)'$" "Regular expression matching lines that indicate restoring current directory. This may contain one \\(, \\) pair around the name of the directory -- 2.39.5