changeset 14032:ab77b688a09b

(custom-default-validate): Fix message spelling. (rear-nonsticky, custom-property-set, custom-field-accept, custom-repeat-extract, custom-pair-extract, custom-list-extract, custom-choice-extract, custom-choice-validate, custom-mode-map): Doc fix. (custom-file): Use convert-standard-filename.

--- a/lisp/=custom.el	Fri Jan 05 07:19:49 1996 +0000
+++ b/lisp/=custom.el	Fri Jan 05 07:22:20 1996 +0000
@@ -15,7 +15,7 @@
 ;; editing a text file in some arcane syntax is user hostile in the
 ;; extreme, and to most users emacs lisp definitely count as arcane.
 ;;
-;; The intension is that authors of emacs lisp packages declare the
+;; The intent is that authors of emacs lisp packages declare the
 ;; variables intended for user customization with `custom-declare'.
 ;; Custom can then automatically generate a customization buffer with
 ;; `custom-buffer-create' where the user can edit the package
@@ -46,7 +46,7 @@
 ;; - Make it possible to declare default value and type for a single
 ;;   variable, storing the data in a symbol property.
 ;; - Syntactic sugar for CUSTOM declarations.
-;; - Use W3 for variable documenation.
+;; - Use W3 for variable documentation.
 
 ;;; Code:
 
@@ -244,12 +244,12 @@
 				       (> emacs-minor-version 28))))
 			 (setq intangible 'intangible)
 		       (setq intangible 'intangible-if-it-had-been-working))
-  "The symbol making text intangible")
+  "The symbol making text intangible.")
 
 (defconst rear-nonsticky (if (string-match "XEmacs" emacs-version)
 			     'end-open
 			   'rear-nonsticky)
-  "The symbol making text proeprties non-sticky in the rear end.")
+  "The symbol making text properties non-sticky in the rear end.")
 
 (defconst front-sticky (if (string-match "XEmacs" emacs-version)
 			   'front-closed
@@ -394,14 +394,14 @@
 ;; The following functions are part of the public interface to the
 ;; CUSTOM datastructure.  Each CUSTOM describes a group of variables,
 ;; a single variable, or a component of a structured variable.  The
-;; CUSTOM instances are part of two hiearachies, the first is the
+;; CUSTOM instances are part of two hierarchies, the first is the
 ;; `part-of' hierarchy in which each CUSTOM is a component of another
 ;; CUSTOM, except for the top level CUSTOM which is contained in
-;; `custom-data'.  The second hiearachy is a `is-a' type hierarchy
+;; `custom-data'.  The second hierarchy is a `is-a' type hierarchy
 ;; where each CUSTOM is a leaf in the hierarchy defined by the `type'
 ;; property and `custom-type-properties'.
 
-(defvar custom-file "~/.custom.el"
+(defvar custom-file (convert-standard-filename "~/.custom.el")
   "Name of file with customization information.")
 
 (defconst custom-data
@@ -729,7 +729,7 @@
     (cdr entry)))
 
 (defun custom-property-set (custom property value)
-  "Set CUSTOM PROPERY to VALUE by side effect.
+  "Set CUSTOM PROPERTY to VALUE by side effect.
 CUSTOM must have at least one property already."
   (let ((entry (assq property custom)))
     (if entry
@@ -878,7 +878,7 @@
 ;; FIELD datatype.  The FIELD instance hold information about a
 ;; specific editing field in the customization buffer.
 ;;
-;; Each FIELD can be seen as an instanciation of a CUSTOM.
+;; Each FIELD can be seen as an instantiation of a CUSTOM.
 
 (defvar custom-field-last nil)
 ;; Last field containing point.
@@ -937,7 +937,7 @@
 
 (defun custom-field-accept (field value &optional original)
   "Store a new value into field FIELD, taking it from VALUE.
-If optional ORIGINAL is non-nil, concider VALUE for the original value."
+If optional ORIGINAL is non-nil, consider VALUE for the original value."
   (let ((inhibit-point-motion-hooks t))
     (funcall (custom-property (custom-field-custom field) 'accept) 
 	     field value original)))
@@ -1100,7 +1100,7 @@
     (cons (nreverse matches) values)))
 
 (defun custom-repeat-extract (custom field)
-  "Extract list of childrens values."
+  "Extract list of children's values."
   (let ((values (custom-field-value field))
 	(data (custom-data custom))
 	result)
@@ -1147,7 +1147,7 @@
     (custom-default-quote custom value)))
 
 (defun custom-pair-extract (custom field)
-  "Extract cons of childrens values."
+  "Extract cons of children's values."
   (let ((values (custom-field-value field))
 	(data (custom-data custom))
 	result)
@@ -1168,7 +1168,7 @@
     (custom-default-quote custom value)))
 
 (defun custom-list-extract (custom field)
-  "Extract list of childrens values."
+  "Extract list of children's values."
   (let ((values (custom-field-value field))
 	(data (custom-data custom))
 	result)
@@ -1373,12 +1373,12 @@
       (custom-field-move field from end))))
 
 (defun custom-choice-extract (custom field)
-  "Extract childs value."
+  "Extract child's value."
   (let ((value (custom-field-value field)))
     (custom-field-extract (custom-field-custom value) value)))
 
 (defun custom-choice-validate (custom field)
-  "Validate childs value."
+  "Validate child's value."
   (let ((value (custom-field-value field))
 	(custom (custom-field-custom field)))
     (if (or (eq value custom-nil)
@@ -1666,7 +1666,7 @@
     (cond ((eq value custom-nil)
 	   (cons start "Uninitialized field"))
 	  ((and (consp value) (eq (car value) custom-invalid))
-	   (cons start "Unparseable field content"))
+	   (cons start "Unparsable field content"))
 	  ((custom-valid custom value)
 	   nil)
 	  (t
@@ -1830,7 +1830,7 @@
 ;; The Customization major mode and interactive commands. 
 
 (defvar custom-mode-map nil
-  "Keymap for Custum Mode.")
+  "Keymap for Custom Mode.")
 (if custom-mode-map
     nil
   (setq custom-mode-map (make-sparse-keymap))