[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99965: * emulation/pc-select.el: Fix typos in docstrings.

[Juanma Barranquero]

------------------------------------------------------------
revno: 99965
committer: Juanma Barranquero <address@hidden>
branch nick: emacs-23
timestamp: Thu 2010-08-05 23:31:03 +0200
message:
  * emulation/pc-select.el: Fix typos in docstrings.
modified:
  lisp/ChangeLog
  lisp/emulation/pc-select.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-08-04 18:04:29 +0000
+++ b/lisp/ChangeLog    2010-08-05 21:31:03 +0000
@@ -1,3 +1,9 @@
+2010-08-05  Juanma Barranquero  <address@hidden>
+
+       * emulation/pc-select.el (pc-selection-mode-hook)
+       (copy-region-as-kill-nomark, beginning-of-buffer-mark)
+       (pc-selection-mode): Fix typos in docstrings.
+
 2010-08-04  Stefan Monnier  <address@hidden>
 
        * simple.el (exchange-dot-and-mark): Mark obsolete, finally.

=== modified file 'lisp/emulation/pc-select.el'
--- a/lisp/emulation/pc-select.el       2010-06-26 21:01:38 +0000
+++ b/lisp/emulation/pc-select.el       2010-08-05 21:31:03 +0000
@@ -108,7 +108,7 @@
   :group 'pc-select)
 
 (defcustom pc-selection-mode-hook nil
-  "The hook to run when pc-selection-mode is toggled."
+  "The hook to run when PC Selection mode is toggled."
   :type 'hook
   :group 'pc-select)
 
@@ -259,7 +259,7 @@
 (provide 'pc-select)
 
 (defun copy-region-as-kill-nomark (beg end)
-  "Save the region as if killed; but don't kill it; deactivate mark.
+  "Save the region as if killed, but don't kill it; deactivate mark.
 If `interprogram-cut-function' is non-nil, also save the text for a window
 system cut and paste.
 
@@ -567,7 +567,7 @@
 ;;;;;;;;;;;;;;;;;;;;
 
 (defun backward-char-mark (&optional arg)
-"Ensure mark is active; move point left ARG characters (right if ARG negative).
+  "Ensure mark is active; move point left ARG characters (right if ARG 
negative).
 On attempt to pass beginning or end of buffer, stop and signal error."
   (interactive "p")
   (pc-select-ensure-mark)
@@ -631,7 +631,7 @@
 
 
 (defun scroll-up-mark (&optional arg)
-"Ensure mark is active; scroll upward ARG lines; or near full screen if no ARG.
+  "Ensure mark is active; scroll upward ARG lines; or near full screen if no 
ARG.
 A near full screen is `next-screen-context-lines' less than a full screen.
 Negative ARG means scroll downward.
 When calling from a program, supply a number as argument or nil.
@@ -652,7 +652,7 @@
 of the accessible part of the buffer.
 
 Don't use this command in Lisp programs!
-\(goto-char (p\oint-min)) is faster and avoids clobbering the mark."
+\(goto-char (point-min)) is faster and avoids clobbering the mark."
   (interactive "P")
   (pc-select-ensure-mark)
   (let ((size (- (point-max) (point-min))))
@@ -839,7 +839,7 @@
 
 ;;;###autoload
 (define-minor-mode pc-selection-mode
-  "Change mark behavior to emulate Motif, MAC or MS-Windows cut and paste 
style.
+  "Change mark behavior to emulate Motif, Mac or MS-Windows cut and paste 
style.
 
 This mode enables Delete Selection mode and Transient Mark mode.