From 7a8f27dbe6b3bbc0cde23a04b81ce9347fb9dfaa Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Oct 1996 02:42:58 +0000 Subject: [PATCH] Comment change. --- lisp/ange-ftp.el | 2 +- lisp/gnus-kill.el | 2 +- lisp/hilit19.el | 10 +++++----- lisp/progmodes/cplus-md.el | 4 ++-- lisp/rcompile.el | 2 +- lisp/skeleton.el | 2 +- lisp/textmodes/ispell.el | 2 +- lisp/thingatpt.el | 2 +- 8 files changed, 13 insertions(+), 13 deletions(-) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 77f799f2a04..2e4d0193496 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -559,7 +559,7 @@ ;; Think nil as in "not a remote host". This value is used by ;; ange-ftp-dired-host-type for local buffers. ;; -;; t = a remote host of unknown type. Think t is in true, it's remote. +;; t = a remote host of unknown type. Think t as in true, it's remote. ;; Currently, 'unix is used as the default remote host type. ;; Maybe we should use t. ;; diff --git a/lisp/gnus-kill.el b/lisp/gnus-kill.el index ac76cd201d0..8c88c2347b8 100644 --- a/lisp/gnus-kill.el +++ b/lisp/gnus-kill.el @@ -504,7 +504,7 @@ COMMAND must be a lisp expression or a string representing a key sequence." (if (listp kill-list) ;; It is a list. (if (not (consp (cdr kill-list))) - ;; It's on the form (regexp . date). + ;; It's of the form (regexp . date). (if (zerop (gnus-execute field (car kill-list) command nil (not all))) (if (> (gnus-days-between date (cdr kill-list)) diff --git a/lisp/hilit19.el b/lisp/hilit19.el index 56edb62a1e6..9694d7dd0c3 100644 --- a/lisp/hilit19.el +++ b/lisp/hilit19.el @@ -149,7 +149,7 @@ ;; ;; * Moved hilit-wysiwyg-replace here from my version of man.el, this is not ;; a bug. The bug is that I don't have a reverse operation yet...just a -;; stub Wysiwyg-anything really belongs in a package of it's own. +;; stub Wysiwyg-anything really belongs in a package of its own. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; @@ -204,7 +204,7 @@ ;; changed references to default-bold-italic to just bold-italic because the ;; font for that face is maintained by emacs. ;; -;; the pattern matcher now starts it's searches from the end of the most +;; the pattern matcher now starts its searches from the end of the most ;; recently highlighted region (which is not necessarily the end of the most ;; recently matched regex). ;; @@ -265,7 +265,7 @@ ;; documented another "known problem" to "head off gripe mail at the pass." ;; ;; Revision 2.3 1993/07/27 02:15:49 stig -;; (hilit-lookup-face-create) incorporated patch which improves it's behavior +;; (hilit-lookup-face-create) incorporated patch which improves its behavior ;; with more than one frame... Still can't have bold on the same face in two ;; different fonts sizes at the same time... ;; @@ -287,7 +287,7 @@ ;; added hilit-parser-alist which can be used to apply different patterns to ;; different parts of a buffer. This could be integrated in a far more ;; elegant manner, but it presently serves the purpose of not applying -;; message header patterns to message bodies in mail-mode and it's kin. +;; message header patterns to message bodies in mail-mode and its kin. ;; hilit-set-mode-patterns now takes a list of modes and an optional parse-fn ;; @@ -921,7 +921,7 @@ the entire buffer is forced." ;; (message "*sigh* hilit-wysiwyg-write-repair not implemented yet") ;; ;; For efficiency, this hook should copy the current buffer to a scratch -;; buffer and do it's overstriking there. Overlays are not copied, so it'll +;; buffer and do its overstriking there. Overlays are not copied, so it'll ;; be necessary to hop back and forth. This is OK since you're not fiddling ;; with--making or deleting--any overlays. THEN write the new buffer, ;; delete it, and RETURN T. << important diff --git a/lisp/progmodes/cplus-md.el b/lisp/progmodes/cplus-md.el index 555f5a44d18..9848adcf40b 100644 --- a/lisp/progmodes/cplus-md.el +++ b/lisp/progmodes/cplus-md.el @@ -353,11 +353,11 @@ no args if that value is non-nil." (save-excursion (skip-chars-backward " \t") (max - ;; leave at least one space on non-empty lines. + ;; Leave at least one space on non-empty lines. (if (zerop (current-column)) 0 (1+ (current-column))) (let ((cur-pt (point))) (beginning-of-line 0) - ;; If previous line had a comment, use it's indent + ;; If previous line had a comment, use its indentation. (if (re-search-forward comment-start-skip cur-pt t) (progn (goto-char (match-beginning 0)) diff --git a/lisp/rcompile.el b/lisp/rcompile.el index c8aef3fba21..c2d5b3f62de 100644 --- a/lisp/rcompile.el +++ b/lisp/rcompile.el @@ -34,7 +34,7 @@ ;; by the calling ange-ftp-ftp-name on the current directory. In this case the ;; next-error command will also ange-ftp the files over. This is achieved ;; automatically because the compilation-parse-errors function uses -;; default-directory to build it's file names. If however the file visited was +;; default-directory to build its file names. If however the file visited was ;; loaded locally, remote-compile prompts for a host and user and assumes the ;; files mounted locally (otherwise, how was the visited file loaded). diff --git a/lisp/skeleton.el b/lisp/skeleton.el index a488dbdf540..9a1ec8d16de 100644 --- a/lisp/skeleton.el +++ b/lisp/skeleton.el @@ -170,7 +170,7 @@ ignored." (setq skeleton-abbrev-cleanup (point)) (add-hook 'post-command-hook 'skeleton-abbrev-cleanup nil t)))) -;; This command isn't meant to be called, only it's aliases with meaningful +;; This command isn't meant to be called, only its aliases with meaningful ;; names are. ;;;###autoload (defun skeleton-proxy (&optional str arg) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 9a29c1c95ed..79f81ad4df2 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -212,7 +212,7 @@ ;; lookup-words rehacked to use call-process (Jamie). ;; ispell-complete-word rehacked to be compatible with the rest of the ;; system for word searching and to include multiple wildcards, -;; and it's own dictionary. +;; and its own dictionary. ;; query-replace capability added. New options 'X', 'R', and 'A'. ;; buffer-local modes for dictionary, word-spelling, and formatter-parsing. ;; Many random bugs, like commented comments being skipped, fix to diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 0596f8b5bff..c33ae58e7e7 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -22,7 +22,7 @@ ;; This file provides routines for getting the `thing' at the location of ;; point, whatever that `thing' happens to be. The `thing' is defined by -;; it's beginning and end positions in the buffer. +;; its beginning and end positions in the buffer. ;; ;; The function bounds-of-thing-at-point finds the beginning and end ;; positions by moving first forward to the end of the `thing', and then -- 2.39.5