# HG changeset patch # User Stephen Eglen # Date 892125117 0 # Node ID 42e8acda50215a36ba0ff18d41b797d0415cc7e8 # Parent 830023d4cec65849dff691c661603003ac26e9cf Customize diff -r 830023d4cec6 -r 42e8acda5021 lisp/progmodes/c-mode.el --- a/lisp/progmodes/c-mode.el Thu Apr 09 05:47:28 1998 +0000 +++ b/lisp/progmodes/c-mode.el Thu Apr 09 12:31:57 1998 +0000 @@ -30,6 +30,11 @@ ;; and do M-x describe-mode for details. ;;; Code: +(defgroup old-c nil + "Old C code editing commands for Emacs." + :prefix "c-" + :group 'languages) + (defvar c-mode-abbrev-table nil "Abbrev table in use in C mode.") @@ -114,21 +119,35 @@ (modify-syntax-entry ?| "." c-mode-syntax-table) (modify-syntax-entry ?\' "\"" c-mode-syntax-table)) -(defconst c-indent-level 2 - "*Indentation of C statements with respect to containing block.") -(defconst c-brace-imaginary-offset 0 - "*Imagined indentation of a C open brace that actually follows a statement.") -(defconst c-brace-offset 0 - "*Extra indentation for braces, compared with other text in same context.") -(defconst c-argdecl-indent 5 - "*Indentation level of declarations of C function arguments.") -(defconst c-label-offset -2 - "*Offset of C label lines and case statements relative to usual indentation.") -(defconst c-continued-statement-offset 2 - "*Extra indent for lines not starting new statements.") -(defconst c-continued-brace-offset 0 +(defcustom c-indent-level 2 + "*Indentation of C statements with respect to containing block." + :type 'integer + :group 'old-c) +(defcustom c-brace-imaginary-offset 0 + "*Imagined indentation of a C open brace that actually follows a statement." + :type 'integer + :group 'old-c) +(defcustom c-brace-offset 0 + "*Extra indentation for braces, compared with other text in same context." + :type 'integer + :group 'old-c) +(defcustom c-argdecl-indent 5 + "*Indentation level of declarations of C function arguments." + :type 'integer + :group 'old-c) +(defcustom c-label-offset -2 + "*Offset of C label lines and case statements relative to usual indentation." + :type 'integer + :group 'old-c) +(defcustom c-continued-statement-offset 2 + "*Extra indent for lines not starting new statements." + :type 'integer + :group 'old-c) +(defcustom c-continued-brace-offset 0 "*Extra indent for substatements that start with open-braces. -This is in addition to `c-continued-statement-offset'.") +This is in addition to `c-continued-statement-offset'." + :type 'integer + :group 'old-c) (defconst c-style-alist '(("GNU" (c-indent-level . 2) @@ -167,15 +186,19 @@ (c-label-offset . -4) (c-continued-statement-offset . 4)))) -(defconst c-auto-newline nil +(defcustom c-auto-newline nil "*Non-nil means automatically newline before and after braces, and after colons and semicolons, inserted in C code. If you do not want a leading newline before braces then use: - (define-key c-mode-map \"{\" 'electric-c-semi)") + (define-key c-mode-map \"{\" 'electric-c-semi)" + :type 'boolean + :group 'old-c) -(defconst c-tab-always-indent t +(defcustom c-tab-always-indent t "*Non-nil means TAB in C mode should always reindent the current line, -regardless of where in the line point is when the TAB command is used.") +regardless of where in the line point is when the TAB command is used." + :type 'boolean + :group 'old-c) ;;; Regular expression used internally to recognize labels in switch ;;; statements. @@ -1504,8 +1527,10 @@ ;;; This page handles insertion and removal of backslashes for C macros. -(defvar c-backslash-column 48 - "*Minimum column for end-of-line backslashes of macro definitions.") +(defcustom c-backslash-column 48 + "*Minimum column for end-of-line backslashes of macro definitions." + :type 'integer + :group 'old-c) (defun c-backslash-region (from to delete-flag) "Insert, align, or delete end-of-line backslashes on the lines in the region. diff -r 830023d4cec6 -r 42e8acda5021 lisp/progmodes/cplus-md.el --- a/lisp/progmodes/cplus-md.el Thu Apr 09 05:47:28 1998 +0000 +++ b/lisp/progmodes/cplus-md.el Thu Apr 09 12:31:57 1998 +0000 @@ -97,6 +97,11 @@ ;;; Code: +(defgroup old-c++ nil + "Old C++ code editing mode for Emacs." + :prefix "c-" + :group 'languages) + (defvar c++-mode-abbrev-table nil "Abbrev table used in C++ mode.") (define-abbrev-table 'c++-mode-abbrev-table ()) @@ -143,19 +148,29 @@ (modify-syntax-entry ?\n ">" c++-mode-syntax-table) (modify-syntax-entry ?\^m ">" c++-mode-syntax-table)) -(defvar c++-continued-member-init-offset nil +(defcustom c++-continued-member-init-offset nil "*Extra indent for continuation lines of member inits; nil means to align with previous initializations rather than -with the colon on the first line.") -(defvar c++-member-init-indent 0 - "*Indentation level of member initializations in function declarations.") -(defvar c++-friend-offset -4 - "*Offset of C++ friend declarations relative to member declarations.") -(defvar c++-electric-colon t - "*If t, colon is an electric terminator.") -(defvar c++-empty-arglist-indent nil +with the colon on the first line." + :type '(choice (const nil) integer) + :group 'old-c++) +(defcustom c++-member-init-indent 0 + "*Indentation level of member initializations in function declarations." + :type 'integer + :group 'old-c++) +(defcustom c++-friend-offset -4 + "*Offset of C++ friend declarations relative to member declarations." + :type 'integer + :group 'old-c++) +(defcustom c++-electric-colon t + "*If t, colon is an electric terminator." + :type 'boolean + :group 'old-c++) +(defcustom c++-empty-arglist-indent nil "*Indicates how far to indent an line following an empty argument -list. Nil indicates to just after the paren.") +list. Nil indicates to just after the paren." + :type '(choice (const nil) integer) + :group 'old-c++) (defvar c++-imenu-generic-expression (` diff -r 830023d4cec6 -r 42e8acda5021 lisp/progmodes/m4-mode.el --- a/lisp/progmodes/m4-mode.el Thu Apr 09 05:47:28 1998 +0000 +++ b/lisp/progmodes/m4-mode.el Thu Apr 09 12:31:57 1998 +0000 @@ -41,17 +41,29 @@ ;;; Code: -(defvar m4-program +(defgroup m4 nil + "m4 code editing commands for Emacs." + :prefix "m4-" + :group 'languages) + +(defcustom m4-program (cond ((file-exists-p "/usr/local/bin/m4") "/usr/local/bin/m4") ((file-exists-p "/usr/bin/m4") "/usr/bin/m4") ((file-exists-p "/bin/m4") "/bin/m4") ((file-exists-p "/usr/ccs/bin/m4") "/usr/ccs/bin/m4") + ( t "m4") ) - "File name of the m4 executable.") + "File name of the m4 executable." + :type 'file + :group 'm4) ;;options to m4 -(defconst m4-program-options nil) +(defcustom m4-program-options nil + "Options to pass to `m4-program'." + :type '(repeat string) + :group 'm4) + ;;to use --prefix-builtins, you can use ;;(defconst m4-program-options '("-P")) ;;or @@ -69,6 +81,11 @@ "Default font-lock-keywords for m4 mode.") ) +(defcustom m4-mode-hook nil + "*Hook called by `m4-mode'." + :type 'hook + :group 'm4) + ;;this may still need some work (defvar m4-mode-syntax-table nil "syntax table used in m4 mode")