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

Comment change.

parent 5d137be3
...@@ -559,7 +559,7 @@ ...@@ -559,7 +559,7 @@
;; Think nil as in "not a remote host". This value is used by ;; Think nil as in "not a remote host". This value is used by
;; ange-ftp-dired-host-type for local buffers. ;; 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. ;; Currently, 'unix is used as the default remote host type.
;; Maybe we should use t. ;; Maybe we should use t.
;; ;;
......
...@@ -504,7 +504,7 @@ COMMAND must be a lisp expression or a string representing a key sequence." ...@@ -504,7 +504,7 @@ COMMAND must be a lisp expression or a string representing a key sequence."
(if (listp kill-list) (if (listp kill-list)
;; It is a list. ;; It is a list.
(if (not (consp (cdr kill-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) (if (zerop (gnus-execute field (car kill-list)
command nil (not all))) command nil (not all)))
(if (> (gnus-days-between date (cdr kill-list)) (if (> (gnus-days-between date (cdr kill-list))
......
...@@ -149,7 +149,7 @@ ...@@ -149,7 +149,7 @@
;; ;;
;; * Moved hilit-wysiwyg-replace here from my version of man.el, this is not ;; * 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 ;; 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 @@ ...@@ -204,7 +204,7 @@
;; changed references to default-bold-italic to just bold-italic because the ;; changed references to default-bold-italic to just bold-italic because the
;; font for that face is maintained by emacs. ;; 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 highlighted region (which is not necessarily the end of the most
;; recently matched regex). ;; recently matched regex).
;; ;;
...@@ -265,7 +265,7 @@ ...@@ -265,7 +265,7 @@
;; documented another "known problem" to "head off gripe mail at the pass." ;; documented another "known problem" to "head off gripe mail at the pass."
;; ;;
;; Revision 2.3 1993/07/27 02:15:49 stig ;; 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 ;; with more than one frame... Still can't have bold on the same face in two
;; different fonts sizes at the same time... ;; different fonts sizes at the same time...
;; ;;
...@@ -287,7 +287,7 @@ ...@@ -287,7 +287,7 @@
;; added hilit-parser-alist which can be used to apply different patterns to ;; 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 ;; different parts of a buffer. This could be integrated in a far more
;; elegant manner, but it presently serves the purpose of not applying ;; 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 ;; hilit-set-mode-patterns now takes a list of modes and an optional parse-fn
;; ;;
...@@ -921,7 +921,7 @@ the entire buffer is forced." ...@@ -921,7 +921,7 @@ the entire buffer is forced."
;; (message "*sigh* hilit-wysiwyg-write-repair not implemented yet") ;; (message "*sigh* hilit-wysiwyg-write-repair not implemented yet")
;; ;;
;; For efficiency, this hook should copy the current buffer to a scratch ;; 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 ;; 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, ;; with--making or deleting--any overlays. THEN write the new buffer,
;; delete it, and RETURN T. << important ;; delete it, and RETURN T. << important
......
...@@ -353,11 +353,11 @@ no args if that value is non-nil." ...@@ -353,11 +353,11 @@ no args if that value is non-nil."
(save-excursion (save-excursion
(skip-chars-backward " \t") (skip-chars-backward " \t")
(max (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))) (if (zerop (current-column)) 0 (1+ (current-column)))
(let ((cur-pt (point))) (let ((cur-pt (point)))
(beginning-of-line 0) (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) (if (re-search-forward comment-start-skip cur-pt t)
(progn (progn
(goto-char (match-beginning 0)) (goto-char (match-beginning 0))
......
...@@ -34,7 +34,7 @@ ...@@ -34,7 +34,7 @@
;; by the calling ange-ftp-ftp-name on the current directory. In this case the ;; 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 ;; next-error command will also ange-ftp the files over. This is achieved
;; automatically because the compilation-parse-errors function uses ;; 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 ;; loaded locally, remote-compile prompts for a host and user and assumes the
;; files mounted locally (otherwise, how was the visited file loaded). ;; files mounted locally (otherwise, how was the visited file loaded).
......
...@@ -170,7 +170,7 @@ ignored." ...@@ -170,7 +170,7 @@ ignored."
(setq skeleton-abbrev-cleanup (point)) (setq skeleton-abbrev-cleanup (point))
(add-hook 'post-command-hook 'skeleton-abbrev-cleanup nil t)))) (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. ;; names are.
;;;###autoload ;;;###autoload
(defun skeleton-proxy (&optional str arg) (defun skeleton-proxy (&optional str arg)
......
...@@ -212,7 +212,7 @@ ...@@ -212,7 +212,7 @@
;; lookup-words rehacked to use call-process (Jamie). ;; lookup-words rehacked to use call-process (Jamie).
;; ispell-complete-word rehacked to be compatible with the rest of the ;; ispell-complete-word rehacked to be compatible with the rest of the
;; system for word searching and to include multiple wildcards, ;; 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'. ;; query-replace capability added. New options 'X', 'R', and 'A'.
;; buffer-local modes for dictionary, word-spelling, and formatter-parsing. ;; buffer-local modes for dictionary, word-spelling, and formatter-parsing.
;; Many random bugs, like commented comments being skipped, fix to ;; Many random bugs, like commented comments being skipped, fix to
......
...@@ -22,7 +22,7 @@ ...@@ -22,7 +22,7 @@
;; This file provides routines for getting the `thing' at the location of ;; This file provides routines for getting the `thing' at the location of
;; point, whatever that `thing' happens to be. The `thing' is defined by ;; 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 ;; 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 ;; 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