[Emacs-diffs] /srv/bzr/emacs/trunk r110061: Convert several shell.el defvars to defcustoms.

[Chong Yidong]

------------------------------------------------------------
revno: 110061
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2012-09-17 13:01:10 +0800
message:
  Convert several shell.el defvars to defcustoms.
  
  * shell.el (shell-file-name-chars, shell-file-name-quote-list)
  (shell-dynamic-complete-functions): Convert to defcustom.
  (shell-prompt-pattern, shell-completion-fignore): Doc fix.
modified:
  lisp/ChangeLog
  lisp/shell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-16 23:16:15 +0000
+++ b/lisp/ChangeLog    2012-09-17 05:01:10 +0000
@@ -1,3 +1,9 @@
+2012-09-17  Chong Yidong  <address@hidden>
+
+       * shell.el (shell-file-name-chars, shell-file-name-quote-list)
+       (shell-dynamic-complete-functions): Convert to defcustom.
+       (shell-prompt-pattern, shell-completion-fignore): Doc fix.
+
 2012-09-16  Katsumi Yamaoka  <address@hidden>
 
        * mail/mailabbrev.el (mail-abbrev-expand-hook): Work for a mail aliasee

=== modified file 'lisp/shell.el'
--- a/lisp/shell.el     2012-07-11 23:13:41 +0000
+++ b/lisp/shell.el     2012-09-17 05:01:10 +0000
@@ -136,9 +136,7 @@
 
 The pattern should probably not match more than one line.  If it does,
 Shell mode may become confused trying to distinguish prompt from input
-on lines which don't start with a prompt.
-
-This is a fine thing to set in your `.emacs' file."
+on lines which don't start with a prompt."
   :type 'regexp
   :group 'shell)
 
@@ -146,9 +144,7 @@
   "List of suffixes to be disregarded during file/command completion.
 This variable is used to initialize `comint-completion-fignore' in the shell
 buffer.  The default is nil, for compatibility with most shells.
-Some people like (\"~\" \"#\" \"%\").
-
-This is a fine thing to set in your `.emacs' file."
+Some people like (\"~\" \"#\" \"%\")."
   :type '(repeat (string :tag "Suffix"))
   :group 'shell)
 
@@ -158,31 +154,29 @@
 shell buffer.  The value may depend on the operating system or shell."
   :type '(choice (const nil)
                 (repeat :tag "List of characters" character))
-  ;; Reverted.
-;;  :version "24.1"                    ; changed to nil (bug#8027)
   :group 'shell)
 
-(defvar shell-file-name-chars
+(defcustom shell-file-name-chars
   (if (memq system-type '(ms-dos windows-nt cygwin))
       "~/A-Za-z0-9_^$!#%&address@hidden'.,:()-"
     "[]~/A-Za-z0-9+@:_.$#%,={}-")
   "String of characters valid in a file name.
 This variable is used to initialize `comint-file-name-chars' in the
-shell buffer.  The value may depend on the operating system or shell.
-
-This is a fine thing to set in your `.emacs' file.")
-
-(defvar shell-file-name-quote-list
+shell buffer.  The value may depend on the operating system or shell."
+  :type 'string
+  :group 'shell)
+
+(defcustom shell-file-name-quote-list
   (if (memq system-type '(ms-dos windows-nt))
       nil
     (append shell-delimiter-argument-list '(?\s ?$ ?\* ?\! ?\" ?\' ?\` ?\# 
?\\)))
   "List of characters to quote when in a file name.
 This variable is used to initialize `comint-file-name-quote-list' in the
-shell buffer.  The value may depend on the operating system or shell.
-
-This is a fine thing to set in your `.emacs' file.")
-
-(defvar shell-dynamic-complete-functions
+shell buffer.  The value may depend on the operating system or shell."
+  :type '(repeat character)
+  :group 'shell)
+
+(defcustom shell-dynamic-complete-functions
   '(comint-c-a-p-replace-by-expanded-history
     shell-environment-variable-completion
     shell-command-completion
@@ -192,9 +186,9 @@
     comint-filename-completion)
   "List of functions called to perform completion.
 This variable is used to initialize `comint-dynamic-complete-functions' in the
-shell buffer.
-
-This is a fine thing to set in your `.emacs' file.")
+shell buffer."
+  :type '(repeat function)
+  :group 'shell)
 
 (defcustom shell-command-regexp "[^;&|\n]+"
   "Regexp to match a single command within a pipeline.