changeset 104024:cce8d50c4566

Remove leading * from defcustom docs.
author Glenn Morris <rgm@gnu.org>
date Wed, 22 Jul 2009 02:45:34 +0000
parents afb0c07ee9cb
children 8e3613329929
files lisp/ChangeLog lisp/emacs-lisp/advice.el lisp/emacs-lisp/checkdoc.el lisp/emacs-lisp/debug.el lisp/emacs-lisp/elp.el lisp/emacs-lisp/gulp.el lisp/emacs-lisp/lisp.el lisp/emacs-lisp/pp.el lisp/emacs-lisp/trace.el
diffstat 9 files changed, 26 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Jul 22 02:35:45 2009 +0000
+++ b/lisp/ChangeLog	Wed Jul 22 02:45:34 2009 +0000
@@ -1,5 +1,10 @@
 2009-07-22  Glenn Morris  <rgm@gnu.org>
 
+	* emacs-lisp/advice.el, emacs-lisp/checkdoc.el:
+	* emacs-lisp/debug.el, emacs-lisp/elp.el, emacs-lisp/gulp.el:
+	* emacs-lisp/lisp.el, emacs-lisp/pp.el, emacs-lisp/trace.el:
+	Remove leading * from defcustom docs.
+
 	* simple.el (blink-matching-paren-distance): Bump to 100k.  (Bug#3889)
 
 	* emacs-lisp/shadow.el (shadows-compare-text-p): Remove leading * from
--- a/lisp/emacs-lisp/advice.el	Wed Jul 22 02:35:45 2009 +0000
+++ b/lisp/emacs-lisp/advice.el	Wed Jul 22 02:45:34 2009 +0000
@@ -1834,7 +1834,7 @@
 
 ;;;###autoload
 (defcustom ad-redefinition-action 'warn
-  "*Defines what to do with redefinitions during Advice de/activation.
+  "Defines what to do with redefinitions during Advice de/activation.
 Redefinition occurs if a previously activated function that already has an
 original definition associated with it gets redefined and then de/activated.
 In such a case we can either accept the current definition as the new
@@ -1849,7 +1849,7 @@
 
 ;;;###autoload
 (defcustom ad-default-compilation-action 'maybe
-  "*Defines whether to compile advised definitions during activation.
+  "Defines whether to compile advised definitions during activation.
 A value of `always' will result in unconditional compilation, `never' will
 always avoid compilation, `maybe' will compile if the byte-compiler is already
 loaded, and `like-original' will compile if the original definition of the
--- a/lisp/emacs-lisp/checkdoc.el	Wed Jul 22 02:35:45 2009 +0000
+++ b/lisp/emacs-lisp/checkdoc.el	Wed Jul 22 02:45:34 2009 +0000
@@ -183,7 +183,7 @@
   :version "20.3")
 
 (defcustom checkdoc-minor-mode-string " CDoc"
-  "*String to display in mode line when Checkdoc mode is enabled; nil for none."
+  "String to display in mode line when Checkdoc mode is enabled; nil for none."
   :type '(choice string (const :tag "None" nil))
   :group 'checkdoc
   :version "23.1")
--- a/lisp/emacs-lisp/debug.el	Wed Jul 22 02:35:45 2009 +0000
+++ b/lisp/emacs-lisp/debug.el	Wed Jul 22 02:45:34 2009 +0000
@@ -35,13 +35,13 @@
   :group 'debug)
 
 (defcustom debugger-mode-hook nil
-  "*Hooks run when `debugger-mode' is turned on."
+  "Hooks run when `debugger-mode' is turned on."
   :type 'hook
   :group 'debugger
   :version "20.3")
 
 (defcustom debugger-batch-max-lines 40
-  "*Maximum lines to show in debugger buffer in a noninteractive Emacs.
+  "Maximum lines to show in debugger buffer in a noninteractive Emacs.
 When the debugger is entered and Emacs is running in batch mode,
 if the backtrace text has more than this many lines,
 the middle is discarded, and just the beginning and end are displayed."
@@ -674,7 +674,7 @@
   (run-mode-hooks 'debugger-mode-hook))
 
 (defcustom debugger-record-buffer "*Debugger-record*"
-  "*Buffer name for expression values, for \\[debugger-record-expression]."
+  "Buffer name for expression values, for \\[debugger-record-expression]."
   :type 'string
   :group 'debugger
   :version "20.3")
--- a/lisp/emacs-lisp/elp.el	Wed Jul 22 02:35:45 2009 +0000
+++ b/lisp/emacs-lisp/elp.el	Wed Jul 22 02:45:34 2009 +0000
@@ -133,19 +133,19 @@
   :group 'lisp)
 
 (defcustom elp-function-list nil
-  "*List of functions to profile.
+  "List of functions to profile.
 Used by the command `elp-instrument-list'."
   :type '(repeat function)
   :group 'elp)
 
 (defcustom elp-reset-after-results t
-  "*Non-nil means reset all profiling info after results are displayed.
+  "Non-nil means reset all profiling info after results are displayed.
 Results are displayed with the `elp-results' command."
   :type 'boolean
   :group 'elp)
 
 (defcustom elp-sort-by-function 'elp-sort-by-total-time
-  "*Non-nil specifies ELP results sorting function.
+  "Non-nil specifies ELP results sorting function.
 These functions are currently available:
 
   elp-sort-by-call-count   -- sort by the highest call count
@@ -162,7 +162,7 @@
   :group 'elp)
 
 (defcustom elp-report-limit 1
-  "*Prevent some functions from being displayed in the results buffer.
+  "Prevent some functions from being displayed in the results buffer.
 If a number, no function that has been called fewer than that number
 of times will be displayed in the output buffer.  If nil, all
 functions will be displayed."
@@ -171,12 +171,12 @@
   :group 'elp)
 
 (defcustom elp-use-standard-output nil
-  "*If non-nil, output to `standard-output' instead of a buffer."
+  "If non-nil, output to `standard-output' instead of a buffer."
   :type 'boolean
   :group 'elp)
 
 (defcustom elp-recycle-buffers-p t
-  "*If nil, don't recycle the `elp-results-buffer'.
+  "If nil, don't recycle the `elp-results-buffer'.
 In other words, a new unique buffer is create every time you run
 \\[elp-results]."
   :type 'boolean
--- a/lisp/emacs-lisp/gulp.el	Wed Jul 22 02:35:45 2009 +0000
+++ b/lisp/emacs-lisp/gulp.el	Wed Jul 22 02:45:34 2009 +0000
@@ -35,16 +35,17 @@
   :group 'maint)
 
 (defcustom gulp-discard "^;+ *Maintainer: *FSF *$"
-  "*The regexp matching the packages not requiring the request for updates."
+  "The regexp matching the packages not requiring the request for updates."
   :type 'regexp
   :group 'gulp)
 
-(defcustom gulp-tmp-buffer "*gulp*" "The name of the temporary buffer."
+(defcustom gulp-tmp-buffer "*gulp*"
+  "The name of the temporary buffer."
   :type 'string
   :group 'gulp)
 
 (defcustom gulp-max-len 2000
-  "*Distance into a Lisp source file to scan for keywords."
+  "Distance into a Lisp source file to scan for keywords."
   :type 'integer
   :group 'gulp)
 
@@ -54,7 +55,7 @@
 I'm going to start pretesting a new version of GNU Emacs soon, so I'd
 like to ask if you have any updates for the Emacs packages you work on.
 You're listed as the maintainer of the following package(s):\n\n")
-  "*The starting text of a gulp message."
+  "The starting text of a gulp message."
   :type 'string
   :group 'gulp)
 
@@ -72,7 +73,7 @@
 of information to include.
 
 Thanks.")
-  "*The closing text in a gulp message."
+  "The closing text in a gulp message."
   :type 'string
   :group 'gulp)
 
--- a/lisp/emacs-lisp/lisp.el	Wed Jul 22 02:35:45 2009 +0000
+++ b/lisp/emacs-lisp/lisp.el	Wed Jul 22 02:45:34 2009 +0000
@@ -30,7 +30,7 @@
 
 ;; Note that this variable is used by non-lisp modes too.
 (defcustom defun-prompt-regexp nil
-  "*If non-nil, a regexp to ignore before a defun.
+  "If non-nil, a regexp to ignore before a defun.
 This is only necessary if the opening paren or brace is not in column 0.
 See function `beginning-of-defun'."
   :type '(choice (const nil)
--- a/lisp/emacs-lisp/pp.el	Wed Jul 22 02:35:45 2009 +0000
+++ b/lisp/emacs-lisp/pp.el	Wed Jul 22 02:45:34 2009 +0000
@@ -33,7 +33,7 @@
   :group 'lisp)
 
 (defcustom pp-escape-newlines t
-  "*Value of `print-escape-newlines' used by pp-* functions."
+  "Value of `print-escape-newlines' used by pp-* functions."
   :type 'boolean
   :group 'pp)
 
--- a/lisp/emacs-lisp/trace.el	Wed Jul 22 02:35:45 2009 +0000
+++ b/lisp/emacs-lisp/trace.el	Wed Jul 22 02:45:34 2009 +0000
@@ -161,7 +161,7 @@
 
 ;;;###autoload
 (defcustom trace-buffer "*trace-output*"
-  "*Trace output will by default go to that buffer."
+  "Trace output will by default go to that buffer."
   :type 'string
   :group 'trace)