Commit 7a8f27db authored by Richard M. Stallman's avatar Richard M. Stallman

Comment change.

parent 5d137be3
......@@ -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.
;;
......
......@@ -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))
......
......@@ -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
......
......@@ -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))
......
......@@ -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).
......
......@@ -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)
......
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment