Commits

Anonymous committed 6d3cf20

Fix typos.

Comments (0)

Files changed (3)

+2011-12-11  Juanma Barranquero  <lekktu@gmail.com>
+
+	* ses.el (ses-call-printer-return, ses-cell-property-get)
+	(ses-sym-rowcol, ses-printer-validate, ses-formula-record)
+	(ses-create-cell-variable, ses-reset-header-string)
+	(ses-cell-set-formula, ses-repair-cell-reference-all)
+	(ses-self-reference-early-detection, ses-in-print-area, ses-set-curcell)
+	(ses-check-curcell, ses-call-printer, ses-adjust-print-width)
+	(ses-print-cell-new-width, ses-formula-references, ses-relocate-formula)
+	(ses-aset-with-undo, ses-load, ses-truncate-cell)
+	(ses-read-column-printer, ses-read-default-printer, ses-insert-row)
+	(ses-delete-row, ses-delete-column, ses-append-row-jump-first-column)
+	(ses-kill-override, ses-yank-pop, ses-yank-cells, ses-yank-tsf)
+	(ses-yank-resize, ses-export-tab, ses-mark-row, ses-mark-column)
+	(ses-renarrow-buffer, ses-insert-range, ses-insert-ses-range)
+	(ses-safe-printer, ses-safe-formula, ses-warn-unsafe, ses--clean-!)
+	(ses--clean-_, ses-range, ses-select, ses-center, ses-center-span)
+	(ses-dashfill, ses-unsafe): Fix typos and reflow docstrings.
+
 2011-12-11  Vincent Belaïche  <vincentb1@users.sourceforge.net>
 
 	* ses.el: The overall change is to add cell renaming, that is

lisp/gnus/ChangeLog

 2011-12-09  Tassilo Horn  <tassilo@member.fsf.org>
 
-	* message.el (message-valid-fqdn-regexp): Udate with newly approved
+	* message.el (message-valid-fqdn-regexp): Update with newly approved
 	top-level domain names ".tel" and ".asia".
 
 2011-12-08  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 2011-10-17  Dave Abrahams  <dave@boostpro.com>  (tiny change)
 
-	* gnus-registry.el (gnus-registry-enabled): Add new variable. (Bug#9691)
+	* gnus-registry.el (gnus-registry-enabled): Add new variable (bug#9691).
 	(gnus-registry-install-shortcuts): Set `gnus-registry-install' to 'ask
 	only while we need to find out if it should be t or nil.
 	(gnus-registry-initialize): Don't set `gnus-registry-install' to t.
 2011-09-20  Julien Danjou  <julien@danjou.info>
 
 	* auth-source.el (auth-source-netrc-create): Use default value for
-	password if specified. Evaluate default.
+	password if specified.  Evaluate default.
 	(auth-source-plstore-create): Ditto.
 	(auth-source-plstore-create, auth-source-netrc-create): Fix default
 	value evaluation.
 
 2011-08-05  Andrew Cohen  <cohen@andy.bu.edu>
 
-	* gnus-sum.el (gnus-summary-refer-article): Warp to article. This
-	allows article-referral to work from an nnir group.
+	* gnus-sum.el (gnus-summary-refer-article): Warp to article.
+	This allows article-referral to work from an nnir group.
 
 2011-08-04  Andrew Cohen  <cohen@andy.bu.edu>
 
 2011-08-03  Andrew Cohen  <cohen@andy.bu.edu>
 
 	* nnir.el (nnir-read-server-parm): Add an argument to restrict to
-	server-variables only. This should fix a bug introduced with commit
+	server-variables only.  This should fix a bug introduced with commit
 	e1889675b7f4adf057833c5513c9374134c4e053.
 	(nnir-run-query): 'nnir-search-engine should not be set from the global
 	environment.
 2011-03-21  Julien Danjou  <julien@danjou.info>
 
 	* mm-view.el (mm-display-inline-fontify): Make mode optional, and call
-	normal-mode if not set. Set temp buffer unmodified to avoid kill-buffer
+	normal-mode if not set.  Set temp buffer unmodified to avoid kill-buffer
 	query.
 	(mm-inline-text): Render normal text with fontification whenever
 	possible.
 	* gnus.el (gnus-summary-line-format): Mention &user-date format in
 	docstring.
 
-	* gnus.el (gnus-user-date-format-alist): Change default value. Use
-	defcustom, with type and group. Move from gnus-util.el. Rename to
-	gnus-summary-user-date-format-alist.
+	* gnus.el (gnus-user-date-format-alist): Change default value.
+	Use defcustom, with type and group.  Move from gnus-util.el.
+	Rename to gnus-summary-user-date-format-alist.
 
 2011-02-03  Glenn Morris  <rgm@gnu.org>
 
 2010-12-17  Julien Danjou  <julien@danjou.info>
 
 	* gnus-util.el (gnus-rescale-image): Allow to resize images even if
-	they are from file. Can also scale up.
+	they are from file.  Can also scale up.
 
 2010-12-17  Andrew Cohen  <cohen@andy.bu.edu>
 
-	* gnus-sum.el (gnus-summary-refer-thread): Simplify code. Restore
-	gnus-use-agent.
+	* gnus-sum.el (gnus-summary-refer-thread): Simplify code.
+	Restore gnus-use-agent.
 	(gnus-get-newsgroup-headers): Avoid unwanted spaces at eol.
 
 	* nnir.el (nnir-get-active): Ignore nnir-ignored-newsgroups if null.
 	* nnir.el: Update to handle the registry better.
 	(autoload): Silence byte-compiler.
 	(nnir-open-server): Add a hook for nnir groups.
-	(nnir-request-move-article): Don't mangle the header. Better to use
+	(nnir-request-move-article): Don't mangle the header.  Better to use
 	formating variables (which will be added in the future).
 	(nnir-registry-action): Update the registry using the original article
 	group name.
 2010-11-21  Andrew Cohen  <cohen@andy.bu.edu>
 
 	* nnir.el: Fix typo in comments.
-	(nnir-run-imap): Simplify code. No need to reverse artlist.
+	(nnir-run-imap): Simplify code.  No need to reverse artlist.
 	(nnir-run-gmane): Use nnir-tmp-buffer for web results.
 
 2010-11-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 2010-11-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-	* gnus-art.el (gnus-mime-display-single)
-	* gnus-html.el (gnus-html-wash-images, gnus-html-prefetch-images)
+	* gnus-art.el (gnus-mime-display-single):
+	* gnus-html.el (gnus-html-wash-images, gnus-html-prefetch-images):
 	* mm-decode.el (mm-shr): Assume that gnus-inhibit-images may be a group
 	parameter.
 
 	* gnus-util.el (gnus-string-match-p): New function, that is an alias to
 	string-match-p in Emacs >=23.
 
-	* gnus-msg.el (gnus-configure-posting-styles)
+	* gnus-msg.el (gnus-configure-posting-styles):
 	* nnir.el (nnir-run-gmane): Use gnus-string-match-p.
 
 2010-11-01  Glenn Morris  <rgm@gnu.org>
 	* gnus-util.el (gnus-remove-if): Allow hash table.
 	(gnus-remove-if-not): New function.
 
-	* gnus-art.el (gnus-mime-view-part-as-type)
-	* gnus-score.el (gnus-summary-score-effect)
+	* gnus-art.el (gnus-mime-view-part-as-type):
+	* gnus-score.el (gnus-summary-score-effect):
 	* gnus-sum.el (gnus-read-move-group-name):
 	Replace remove-if-not with gnus-remove-if-not.
 
 2010-09-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* mm-util.el (mm-codepage-iso-8859-list, mm-charset-eval-alist)
-	(mm-mime-charset)
-	* rfc2047.el (rfc2047-syntax-table)
+	(mm-mime-charset):
+	* rfc2047.el (rfc2047-syntax-table):
 	* utf7.el (utf7-utf-16-coding-system): Comment fix.
 
 	* nnrss.el (nnrss-read-server-data, nnrss-read-group-data): Use `load'
 
 2010-09-28  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-	* mail-source.el (mail-source-report-new-mail)
-	* message.el (message-default-mail-headers)
+	* mail-source.el (mail-source-report-new-mail):
+	* message.el (message-default-mail-headers):
 	* mm-decode.el (mm-valid-image-format-p): Comment fix.
 
 	* mml2015.el (mml2015-use): Don't bind recursive-load-depth-limit.
 	(gnus-article-next-page-1): No need to adjust the number of lines.
 	(gnus-article-describe-bindings): Always use help-buffer.
 
-	* gnus-audio.el (gnus-audio-inline-sound)
-	* gnus-cus.el (gnus-custom-mode)
+	* gnus-audio.el (gnus-audio-inline-sound):
+	* gnus-cus.el (gnus-custom-mode):
 	* gnus-group.el (gnus-group-update-tool-bar): Comment fix.
 
 	* gnus-sum.el (gnus-remove-overlays): Doc fix.
 
 2010-09-22  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-	* mailcap.el (mailcap-parse-mailcap, mailcap-parse-mimetypes)
-	* mm-util.el (mm-decompress-buffer)
-	* nnir.el (nnir-run-find-grep)
+	* mailcap.el (mailcap-parse-mailcap, mailcap-parse-mimetypes):
+	* mm-util.el (mm-decompress-buffer):
+	* nnir.el (nnir-run-find-grep):
 	* pop3.el (pop3-list): Use 3rd arg of split-string.
 
 2010-09-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 2010-09-01  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-html.el (gnus-html-cache-directory, gnus-html-cache-size)
-	(gnus-html-frame-width, gnus-blocked-images)
+	(gnus-html-frame-width, gnus-blocked-images):
 	* message.el (message-prune-recipient-rules): Add custom version.
 	* gnus-sum.el (gnus-auto-expirable-marks): Bump custom version.
 
 	* gnus-ems.el: Provide compatibility functions for
 	gnus-set-process-plist.
 
-	* gnus-sum.el (gnus-summary-stop-at-end-of-message)
-	* gnus.el (gnus-valid-select-methods)
-	* message.el (message-send-mail-partially-limit)
-	* mm-decode.el (mm-text-html-renderer)
-	* mml.el (mml-insert-mime-headers-always)
+	* gnus-sum.el (gnus-summary-stop-at-end-of-message):
+	* gnus.el (gnus-valid-select-methods):
+	* message.el (message-send-mail-partially-limit):
+	* mm-decode.el (mm-text-html-renderer):
+	* mml.el (mml-insert-mime-headers-always):
 	* smiley.el (smiley-regexp-alist): Bump custom version.
 
 2010-08-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 2010-05-13  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-	* mml1991.el (mml1991-mailcrypt-encrypt, mml1991-gpg-encrypt)
+	* mml1991.el (mml1991-mailcrypt-encrypt, mml1991-gpg-encrypt):
 	* mml2015.el (mml2015-gpg-encrypt): Disable multibyte in buffers
 	generated within the mm-with-unibyte-current-buffer macro.
 
 
 2010-05-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-	* nnweb.el (nnweb-gmane-search)
+	* nnweb.el (nnweb-gmane-search):
 	* yenc.el (yenc-decode-region): Don't run set-buffer-multibyte for
 	XEmacs.
 
-	* gnus-art.el (gnus-article-browse-html-parts)
+	* gnus-art.el (gnus-article-browse-html-parts):
 	* gnus-group.el (gnus-read-ephemeral-gmane-group)
 	(gnus-read-ephemeral-bug-grou): Use mm-make-temp-file instead of
 	make-temp-file.
 
 2007-12-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-	* gnus-art.el (gnus-use-idna)
-	* gnus-start.el (gnus-site-init-file)
-	* message.el (message-use-idna)
-	* mm-uu.el (mm-uu-hide-markers)
+	* gnus-art.el (gnus-use-idna):
+	* gnus-start.el (gnus-site-init-file):
+	* message.el (message-use-idna):
+	* mm-uu.el (mm-uu-hide-markers):
 	* smiley.el (smiley-style): Revert changes that suppress warnings.
 
 2007-12-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 2007-05-25  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-art.el (gnus-header-from, gnus-header-subject, gnus-header-name)
-	(gnus-header-content)
-	* gnus-cite.el (gnus-cite-10)
-	* gnus-srvr.el (gnus-server-closed)
+	(gnus-header-content):
+	* gnus-cite.el (gnus-cite-10):
+	* gnus-srvr.el (gnus-server-closed):
 	* gnus.el (gnus-group-mail-1, gnus-group-mail-1-empty)
 	(gnus-group-mail-2, gnus-group-mail-2-empty, gnus-group-mail-3)
 	(gnus-group-mail-3-empty, gnus-group-mail-low)
-	(gnus-group-mail-low-empty, gnus-splash)
+	(gnus-group-mail-low-empty, gnus-splash):
 	* message.el (message-header-to, message-header-cc)
 	(message-header-subject, message-header-other, message-header-name)
 	(message-header-xheader, message-separator, message-cited-text)
 
 (defvar ses-call-printer-return nil
   "Set to t if last cell printer invoked by `ses-call-printer' requested
-left-justification of the result.  Set to error-signal if ses-call-printer
+left-justification of the result.  Set to error-signal if `ses-call-printer'
 encountered an error during printing.  Otherwise nil.")
 
 (defvar ses-start-time nil
 	    val)))))
 
 (defmacro ses-cell-property-get (property-name row &optional col)
-   "Get property named PROPERTY-NAME From a CELL or a pair (ROW,COL).
+   "Get property named PROPERTY-NAME from a CELL or a pair (ROW,COL).
 
 When COL is omitted, CELL=ROW is a cell object.  When COL is
 present ROW and COL are the integer coordinates of the cell of
   `(aref ses--col-printers ,col))
 
 (defmacro ses-sym-rowcol (sym)
-  "From a cell-symbol SYM, gets the cons (row . col).  A1 => (0 . 0).  Result
-is nil if SYM is not a symbol that names a cell."
+  "From a cell-symbol SYM, gets the cons (row . col).  A1 => (0 . 0).
+Result is nil if SYM is not a symbol that names a cell."
   `(and (symbolp ,sym) (get ,sym 'ses-cell)))
 
 (defmacro ses-cell (sym value formula printer references)
     (delete-region pos (point))))
 
 (defun ses-printer-validate (printer)
-  "Signals an error if PRINTER is not a valid SES cell printer."
+  "Signal an error if PRINTER is not a valid SES cell printer."
   (or (not printer)
       (stringp printer)
       (functionp printer)
       (add-to-list 'ses-read-printer-history (prin1-to-string printer))))
 
 (defun ses-formula-record (formula)
-  "If FORMULA is of the form 'symbol, adds it to the list of symbolic formulas
+  "If FORMULA is of the form 'symbol, add it to the list of symbolic formulas
 for this spreadsheet."
   (when (and (eq (car-safe formula) 'quote)
 	     (symbolp (cadr formula)))
 
 (defun ses-create-cell-variable (sym row col)
   "Create a buffer-local variable for cell with symbol
-SYM at position ROW COL. Return nil in case of failure."
+SYM at position ROW COL.  Return nil in case of failure."
   (unless (local-variable-p sym)
     (make-local-variable  sym)
     (put sym 'ses-cell (cons row col))))
 	buffer-undo-list))
 
 (defun ses-reset-header-string ()
-  "Flags the header string for update.  Upon undo, the header string will be
+  "Flag the header string for update.  Upon undo, the header string will be
 updated again."
   (push '(apply ses-reset-header-string) buffer-undo-list)
   (setq ses--header-hscroll -1))
   nil) ; Make coverage-tester happy.
 
 (defun ses-cell-set-formula (row col formula)
-  "Store a new formula for (ROW . COL) and enqueues the cell for
+  "Store a new formula for (ROW . COL) and enqueue the cell for
 recalculation via `post-command-hook'.  Updates the reference lists for the
 cells that this cell refers to.  Does not update cell value or reprint the
 cell.  To avoid inconsistencies, this function is not interruptible, which
 		  errors)))))
     (if errors
       (warn "----------------------------------------------------------------
-Some reference where corrupted.
+Some references were corrupted.
 
-The following is a list of where each element ELT is such
+The following is a list where each element ELT is such
 that (car ELT) is the reference of cell CELL with corruption,
 and (cdr ELT) is a property list where
 
   (ses-cell-set-formula row col nil))
 
 (defcustom ses-self-reference-early-detection nil
-  "True if cycle detection is early for cells that refer to
-themselves."
+  "True if cycle detection is early for cells that refer to themselves."
   :type 'boolean
   :group 'ses)
 
 ;;----------------------------------------------------------------------------
 
 (defun ses-in-print-area ()
-  "Returns t if point is in print area of spreadsheet."
+  "Return t if point is in print area of spreadsheet."
   (<= (point) ses--data-marker))
 
 ;; We turn off point-motion-hooks and explicitly position the cursor, in case
 	 (forward-char))))
 
 (defun ses-set-curcell ()
-  "Sets `ses--curcell' to the current cell symbol, or a cons (BEG,END) for a
+  "Set `ses--curcell' to the current cell symbol, or a cons (BEG,END) for a
 region, or nil if cursor is not at a cell."
   (if (or (not mark-active)
 	  deactivate-mark
   nil)
 
 (defun ses-check-curcell (&rest args)
-  "Signal an error if ses--curcell is inappropriate.  The end marker is
-appropriate if some argument is 'end.  A range is appropriate if some
-argument is 'range.  A single cell is appropriate unless some argument is
-'needrange."
+  "Signal an error if `ses--curcell' is inappropriate.
+The end marker is appropriate if some argument is 'end.
+A range is appropriate if some argument is 'range.
+A single cell is appropriate unless some argument is 'needrange."
   (if (eq ses--curcell t)
       ;; curcell recalculation was postponed, but user typed ahead.
       (ses-set-curcell))
       sig)))
 
 (defun ses-call-printer (printer &optional value)
-  "Invokes PRINTER (a string or parenthesized string or function-symbol or
+  "Invoke PRINTER (a string or parenthesized string or function-symbol or
 lambda of one argument) on VALUE.  Result is the printed cell as a string.
 The variable `ses-call-printer-return' is set to t if the printer used
 parenthesis to request left-justification, or the error-signal if the
 (defun ses-adjust-print-width (col change)
   "Insert CHANGE spaces in front of column COL, or at end of line if
 COL=NUMCOLS.  Deletes characters if CHANGE < 0.  Caller should bind
-inhibit-quit to t."
+`inhibit-quit' to t."
   (let ((inhibit-read-only t)
 	(blank  (if (> change 0) (make-string change ?\s)))
 	(at-end (= col ses--numcols)))
 	(delete-char (- change))))))
 
 (defun ses-print-cell-new-width (row col)
-  "Same as ses-print-cell, except if the cell's value is *skip*, the preceding
-nonskipped cell is reprinted.  This function is used when the width of
-cell (ROW,COL) has changed."
+  "Same as `ses-print-cell', except if the cell's value is *skip*,
+the preceding nonskipped cell is reprinted.  This function is used
+when the width of cell (ROW,COL) has changed."
   (if (not (eq (ses-cell-value row col) '*skip*))
       (ses-print-cell row col)
     ;;Cell was skipped over - reprint previous
 ;;----------------------------------------------------------------------------
 
 (defun ses-formula-references (formula &optional result-so-far)
-  "Produce a list of symbols for cells that this formula's value
+  "Produce a list of symbols for cells that this FORMULA's value
 refers to.  For recursive calls, RESULT-SO-FAR is the list being
 constructed, or t to get a wrong-type-argument error when the
 first reference is found."
 
 (defun ses-relocate-formula (formula startrow startcol rowincr colincr)
   "Produce a copy of FORMULA where all symbols that refer to cells in row
-STARTROW or above and col STARTCOL or above are altered by adding ROWINCR
-and COLINCR.  STARTROW and STARTCOL are 0-based. Example:
+STARTROW or above, and col STARTCOL or above, are altered by adding ROWINCR
+and COLINCR.  STARTROW and STARTCOL are 0-based.  Example:
 	(ses-relocate-formula '(+ A1 B2 D3) 1 2 1 -1)
 	=> (+ A1 B2 C4)
 If ROWINCR or COLINCR is negative, references to cells being deleted are
     (makunbound sym)))
 
 (defun ses-aset-with-undo (array idx newval)
-  "Like aset, but undoable.  Result is t if element has changed"
+  "Like `aset', but undoable.
+Result is t if element has changed."
   (unless (equal (aref array idx) newval)
     (push `(apply ses-aset-with-undo ,array ,idx
 		  ,(aref array idx)) buffer-undo-list)
 ;;----------------------------------------------------------------------------
 
 (defun ses-load ()
-  "Parse the current buffer and sets up buffer-local variables.  Does not
-execute cell formulas or print functions."
+  "Parse the current buffer and set up buffer-local variables.
+Does not execute cell formulas or print functions."
   (widen)
   ;; Read our global parameters, which should be a 3-element list.
   (goto-char (point-max))
     (ses-jump-safe startcell)))
 
 (defun ses-truncate-cell ()
-  "Reprint current cell, but without spillover into any following blank
-cells."
+  "Reprint current cell, but without spillover into any following blank cells."
   (interactive "*")
   (ses-check-curcell)
   (let* ((rowcol (ses-sym-rowcol ses--curcell))
       (ses-print-cell row col))))
 
 (defun ses-read-column-printer (col newval)
-  "Set the printer function for the current column.  See
-`ses-read-cell-printer' for input forms."
+  "Set the printer function for the current column.
+See `ses-read-cell-printer' for input forms."
   (interactive
    (let ((col (cdr (ses-sym-rowcol ses--curcell))))
      (ses-check-curcell)
 	(ses-print-cell row col)))))
 
 (defun ses-read-default-printer (newval)
-  "Set the default printer function for cells that have no other.  See
-`ses-read-cell-printer' for input forms."
+  "Set the default printer function for cells that have no other.
+See `ses-read-cell-printer' for input forms."
   (interactive
    (list (ses-read-printer "Default printer: " ses--default-printer)))
   (unless (eq newval t)
 ;;----------------------------------------------------------------------------
 
 (defun ses-insert-row (count)
-  "Insert a new row before the current one.  With prefix, insert COUNT rows
-before current one."
+  "Insert a new row before the current one.
+With prefix, insert COUNT rows before current one."
   (interactive "*p")
   (ses-check-curcell 'end)
   (or (> count 0) (signal 'args-out-of-range nil))
     (ses-goto-print (1- ses--numrows) 0)))
 
 (defun ses-delete-row (count)
-  "Delete the current row.  With prefix, Deletes COUNT rows starting from the
-current one."
+  "Delete the current row.
+With prefix, deletes COUNT rows starting from the current one."
   (interactive "*p")
   (ses-check-curcell)
   (or (> count 0) (signal 'args-out-of-range nil))
   (ses-jump-safe ses--curcell))
 
 (defun ses-delete-column (count)
-  "Delete the current column.  With prefix, Deletes COUNT columns starting
-from the current one."
+  "Delete the current column.
+With prefix, deletes COUNT columns starting from the current one."
   (interactive "*p")
   (ses-check-curcell)
   (or (> count 0) (signal 'args-out-of-range nil))
     (forward-char)))
 
 (defun ses-append-row-jump-first-column ()
-  "Insert a new row after current one and jumps to its first column."
+  "Insert a new row after current one and jump to its first column."
   (interactive "*")
   (ses-check-curcell)
   (ses-begin-change)
   line)
 
 (defun ses-kill-override (beg end)
-  "Generic override for any commands that kill text.  We clear the killed
-cells instead of deleting them."
+  "Generic override for any commands that kill text.
+We clear the killed cells instead of deleting them."
   (interactive "r")
   (ses-check-curcell 'needrange)
   ;; For some reason, the text-read-only error is not caught by `delete-region',
 
 (defun ses-yank-pop (arg)
   "Replace just-yanked stretch of killed text with a different stretch.
-This command is allowed only immediately after a `yank' or a `yank-pop', when
-the region contains a stretch of reinserted previously-killed text.  We
-replace it with a different stretch of killed text.
+This command is allowed only immediately after a `yank' or a `yank-pop',
+when the region contains a stretch of reinserted previously-killed text.
+We replace it with a different stretch of killed text.
   Unlike standard `yank-pop', this function uses `undo' to delete the
 previous insertion."
   (interactive "*p")
   (setq this-command 'yank))
 
 (defun ses-yank-cells (text arg)
-  "If the TEXT has a proper set of 'ses attributes, inserts the text as
+  "If the TEXT has a proper set of 'ses attributes, insert the text as
 cells, else return nil.  The cells are reprinted--the supplied text is
 ignored because the column widths, default printer, etc. at yank time might
 be different from those at kill-time.  ARG is a list to indicate that
       (ses-cell-set-formula row col val))))
 
 (defun ses-yank-tsf (text arg)
-  "If TEXT contains tabs and/or newlines, treats the tabs as
-column-separators and the newlines as row-separators and inserts the text as
+  "If TEXT contains tabs and/or newlines, treat the tabs as
+column-separators and the newlines as row-separators and insert the text as
 cell formulas--else return nil.  Treat plain symbols as strings unless ARG
 is a list.  Ignore a final newline."
   (if (or (not (string-match "[\t\n]" text))
       t)))
 
 (defun ses-yank-resize (needrows needcols)
-  "If this yank will require inserting rows and/or columns, asks for
-confirmation and then inserts them.  Result is (row,col) for top left of yank
+  "If this yank will require inserting rows and/or columns, ask for
+confirmation and then insert them.  Result is (row,col) for top left of yank
 spot, or error signal if user requests cancel."
   (ses-begin-change)
   (let ((rowcol (if ses--curcell
   (ses-export-tab t))
 
 (defun ses-export-tab (want-formulas)
-  "Export the current range with tabs between columns and newlines between
-rows.  Result is placed in kill ring.  The export is values unless
-WANT-FORMULAS is non-nil.  Newlines and tabs in the export text are escaped."
+  "Export the current range with tabs between columns and newlines between rows.
+Result is placed in kill ring.  The export is values unless WANT-FORMULAS
+is non-nil.  Newlines and tabs in the export text are escaped."
   (ses-check-curcell 'needrange)
   (let ((print-escape-newlines t)
 	result item)
   (ses-reset-header-string))
 
 (defun ses-mark-row ()
-  "Marks the entirety of current row as a range."
+  "Mark the entirety of current row as a range."
   (interactive)
   (ses-check-curcell 'range)
   (let ((row (car (ses-sym-rowcol (or (car-safe ses--curcell) ses--curcell)))))
     (ses-goto-print row 0)))
 
 (defun ses-mark-column ()
-  "Marks the entirety of current column as a range."
+  "Mark the entirety of current column as a range."
   (interactive)
   (ses-check-curcell 'range)
   (let ((col (cdr (ses-sym-rowcol (or (car-safe ses--curcell) ses--curcell))))
 	(ses-goto-print row col)))))
 
 (defun ses-renarrow-buffer ()
-  "Narrow the buffer so only the print area is visible.  Use after \\[widen]."
+  "Narrow the buffer so only the print area is visible.
+Use after \\[widen]."
   (interactive)
   (setq ses--deferred-narrow t))
 
 (defun ses-sort-column (sorter &optional reverse)
-  "Sorts the range by a specified column.  With prefix, sorts in
-REVERSE order."
+  "Sort the range by a specified column.
+With prefix, sorts in REVERSE order."
   (interactive "*sSort column: \nP")
   (ses-check-curcell 'needrange)
   (let ((min (ses-sym-rowcol (car ses--curcell)))
       (ses-sort-column (ses-column-letter col) reverse))))
 
 (defun ses-insert-range ()
-  "Inserts into minibuffer the list of cells currently highlighted in the
+  "Insert into minibuffer the list of cells currently highlighted in the
 spreadsheet."
   (interactive "*")
   (let (x)
     (insert (substring (prin1-to-string (nreverse x)) 1 -1))))
 
 (defun ses-insert-ses-range ()
-  "Inserts \"(ses-range x y)\" in the minibuffer to represent the currently
+  "Insert \"(ses-range x y)\" in the minibuffer to represent the currently
 highlighted range in the spreadsheet."
   (interactive "*")
   (let (x)
 ;;----------------------------------------------------------------------------
 
 (defun ses-safe-printer (printer)
-  "Returns PRINTER if safe, or the substitute printer `ses-unsafe' otherwise."
+  "Return PRINTER if safe, or the substitute printer `ses-unsafe' otherwise."
   (if (or (stringp printer)
 	  (stringp (car-safe printer))
 	  (not printer)
     'ses-unsafe))
 
 (defun ses-safe-formula (formula)
-  "Returns FORMULA if safe, or the substitute formula *unsafe* otherwise."
+  "Return FORMULA if safe, or the substitute formula *unsafe* otherwise."
   (if (ses-warn-unsafe formula 'unsafep)
       formula
     `(ses-unsafe ',formula)))
 
 (defun ses-warn-unsafe (formula checker)
-  "Applies CHECKER to FORMULA.  If result is non-nil, asks user for
-confirmation about FORMULA, which might be unsafe.  Returns t if formula
-is safe or user allows execution anyway.  Always returns t if
-`safe-functions' is t."
+  "Apply CHECKER to FORMULA.
+If result is non-nil, asks user for confirmation about FORMULA,
+which might be unsafe.  Returns t if formula is safe or user allows
+execution anyway.  Always returns t if `safe-functions' is t."
   (if (eq safe-functions t)
       t
     (setq checker (funcall checker formula))
 ;;----------------------------------------------------------------------------
 
 (defun ses--clean-! (&rest x)
-  "Clean by delq list X from any occurrence of `nil' or `*skip*'."
+  "Clean by `delq' list X from any occurrence of `nil' or `*skip*'."
   (delq nil (delq '*skip* x)))
 
 (defun ses--clean-_ (x y)
   "Clean list X  by replacing by Y any occurrence of `nil' or `*skip*'.
 
-This will change X by making setcar on its cons cells."
+This will change X by making `setcar' on its cons cells."
   (let ((ret x) ret-elt)
     (while ret
       (setq ret-elt (car ret))
   x)
 
 (defmacro ses-range (from to &rest rest)
-  "Expands to a list of cell-symbols for the range going from
+  "Expand to a list of cell-symbols for the range going from
 FROM up to TO.  The range automatically expands to include any
 new row or column inserted into its middle.  The SES library code
 specifically looks for the symbol `ses-range', so don't create an
 1 2 3 and 4.
 
 Readout direction is specified by a `>v', '`>^', `<v', `<^',
-`v>', `v<', `^>', `^<' flag. For historical reasons, in absence
-of such a flag, a default direction of `^<' is assumed. This
+`v>', `v<', `^>', `^<' flag.  For historical reasons, in absence
+of such a flag, a default direction of `^<' is assumed.  This
 way `(ses-range A1 B2 ^>)' will evaluate to `(1 3 2 4)',
 while `(ses-range A1 B2 >^)' will evaluate to (3 4 1 2).
 
 A `!' flag will remove all cells whose value is nil or `*skip*'.
 
 A `_' flag will replace nil or `*skip*' by the value following
-the `_' flag. If the `_' flag is the last argument, then they are
+the `_' flag.  If the `_' flag is the last argument, then they are
 replaced by integer 0.
 
 A `*', `*1' or `*2' flag will vectorize the range in the sense of
-Calc. See info node `(Calc) Top'. Flag `*' will output either a
+Calc.  See info node `(Calc) Top'.  Flag `*' will output either a
 vector or a matrix depending on the number of rows, `*1' will
 flatten the result to a one row vector, and `*2' will make a
 matrix whatever the number of rows.
 
 Warning: interaction with Calc is experimental and may produce
-confusing results if you are not aware of Calc data format. Use
-`math-format-value' as a printer for Calc objects."
+confusing results if you are not aware of Calc data format.
+Use `math-format-value' as a printer for Calc objects."
   (let (result-row
 	result
 	(prev-row -1)
   (/ (float (apply '+ list)) (length list)))
 
 (defmacro ses-select (fromrange test torange)
-  "Select cells in FROMRANGE that are `equal' to TEST.  For each match, return
-the corresponding cell from TORANGE.  The ranges are macroexpanded but not
-evaluated so they should be either (ses-range BEG END) or (list ...).  The
-TEST is evaluated."
+  "Select cells in FROMRANGE that are `equal' to TEST.
+For each match, return the corresponding cell from TORANGE.
+The ranges are macroexpanded but not evaluated so they should be
+either (ses-range BEG END) or (list ...).  The TEST is evaluated."
   (setq fromrange (cdr (macroexpand fromrange))
 	torange   (cdr (macroexpand torange))
 	test      (eval test))
 (defvar col)
 
 (defun ses-center (value &optional span fill)
-  "Print VALUE, centered within column.  FILL is the fill character for
-centering (default = space).  SPAN indicates how many additional rightward
-columns to include in width (default = 0)."
+  "Print VALUE, centered within column.
+FILL is the fill character for centering (default = space).
+SPAN indicates how many additional rightward columns to include
+in width (default = 0)."
   (let ((printer (or (ses-col-printer col) ses--default-printer))
 	(width   (ses-col-width col))
 	half)
 
 (defun ses-center-span (value &optional fill)
   "Print VALUE, centered within the span that starts in the current column
-and continues until the next nonblank column.  FILL specifies the fill
-character (default = space)."
+and continues until the next nonblank column.
+FILL specifies the fill character (default = space)."
   (let ((end (1+ col)))
     (while (and (< end ses--numcols)
 		(memq (ses-cell-value row end) '(nil *skip*)))
     (ses-center value (- end col 1) fill)))
 
 (defun ses-dashfill (value &optional span)
-  "Print VALUE centered using dashes.  SPAN indicates how many rightward
-columns to include in width (default = 0)."
+  "Print VALUE centered using dashes.
+SPAN indicates how many rightward columns to include in width (default = 0)."
   (ses-center value span ?-))
 
 (defun ses-dashfill-span (value)
   (ses-center-span value ?~))
 
 (defun ses-unsafe (value)
-  "Substitute for an unsafe formula or printer"
+  "Substitute for an unsafe formula or printer."
   (error "Unsafe formula or printer"))
 
 ;;All standard printers are safe, including ses-unsafe!