diff options
| author | Richard M. Stallman | 1996-10-12 02:42:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-10-12 02:42:58 +0000 |
| commit | 7a8f27dbe6b3bbc0cde23a04b81ce9347fb9dfaa (patch) | |
| tree | 110b7a3f0e366f9064069bd3a901d2fc81544fff | |
| parent | 5d137be3bda08ac9851785309f59455c314b2493 (diff) | |
| download | emacs-7a8f27dbe6b3bbc0cde23a04b81ce9347fb9dfaa.tar.gz emacs-7a8f27dbe6b3bbc0cde23a04b81ce9347fb9dfaa.zip | |
Comment change.
| -rw-r--r-- | lisp/ange-ftp.el | 2 | ||||
| -rw-r--r-- | lisp/gnus-kill.el | 2 | ||||
| -rw-r--r-- | lisp/hilit19.el | 10 | ||||
| -rw-r--r-- | lisp/progmodes/cplus-md.el | 4 | ||||
| -rw-r--r-- | lisp/rcompile.el | 2 | ||||
| -rw-r--r-- | lisp/skeleton.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 2 | ||||
| -rw-r--r-- | 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 @@ | |||
| 559 | ;; Think nil as in "not a remote host". This value is used by | 559 | ;; Think nil as in "not a remote host". This value is used by |
| 560 | ;; ange-ftp-dired-host-type for local buffers. | 560 | ;; ange-ftp-dired-host-type for local buffers. |
| 561 | ;; | 561 | ;; |
| 562 | ;; t = a remote host of unknown type. Think t is in true, it's remote. | 562 | ;; t = a remote host of unknown type. Think t as in true, it's remote. |
| 563 | ;; Currently, 'unix is used as the default remote host type. | 563 | ;; Currently, 'unix is used as the default remote host type. |
| 564 | ;; Maybe we should use t. | 564 | ;; Maybe we should use t. |
| 565 | ;; | 565 | ;; |
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." | |||
| 504 | (if (listp kill-list) | 504 | (if (listp kill-list) |
| 505 | ;; It is a list. | 505 | ;; It is a list. |
| 506 | (if (not (consp (cdr kill-list))) | 506 | (if (not (consp (cdr kill-list))) |
| 507 | ;; It's on the form (regexp . date). | 507 | ;; It's of the form (regexp . date). |
| 508 | (if (zerop (gnus-execute field (car kill-list) | 508 | (if (zerop (gnus-execute field (car kill-list) |
| 509 | command nil (not all))) | 509 | command nil (not all))) |
| 510 | (if (> (gnus-days-between date (cdr kill-list)) | 510 | (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 @@ | |||
| 149 | ;; | 149 | ;; |
| 150 | ;; * Moved hilit-wysiwyg-replace here from my version of man.el, this is not | 150 | ;; * Moved hilit-wysiwyg-replace here from my version of man.el, this is not |
| 151 | ;; a bug. The bug is that I don't have a reverse operation yet...just a | 151 | ;; a bug. The bug is that I don't have a reverse operation yet...just a |
| 152 | ;; stub Wysiwyg-anything really belongs in a package of it's own. | 152 | ;; stub Wysiwyg-anything really belongs in a package of its own. |
| 153 | ;; | 153 | ;; |
| 154 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 154 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 155 | ;; | 155 | ;; |
| @@ -204,7 +204,7 @@ | |||
| 204 | ;; changed references to default-bold-italic to just bold-italic because the | 204 | ;; changed references to default-bold-italic to just bold-italic because the |
| 205 | ;; font for that face is maintained by emacs. | 205 | ;; font for that face is maintained by emacs. |
| 206 | ;; | 206 | ;; |
| 207 | ;; the pattern matcher now starts it's searches from the end of the most | 207 | ;; the pattern matcher now starts its searches from the end of the most |
| 208 | ;; recently highlighted region (which is not necessarily the end of the most | 208 | ;; recently highlighted region (which is not necessarily the end of the most |
| 209 | ;; recently matched regex). | 209 | ;; recently matched regex). |
| 210 | ;; | 210 | ;; |
| @@ -265,7 +265,7 @@ | |||
| 265 | ;; documented another "known problem" to "head off gripe mail at the pass." | 265 | ;; documented another "known problem" to "head off gripe mail at the pass." |
| 266 | ;; | 266 | ;; |
| 267 | ;; Revision 2.3 1993/07/27 02:15:49 stig | 267 | ;; Revision 2.3 1993/07/27 02:15:49 stig |
| 268 | ;; (hilit-lookup-face-create) incorporated patch which improves it's behavior | 268 | ;; (hilit-lookup-face-create) incorporated patch which improves its behavior |
| 269 | ;; with more than one frame... Still can't have bold on the same face in two | 269 | ;; with more than one frame... Still can't have bold on the same face in two |
| 270 | ;; different fonts sizes at the same time... | 270 | ;; different fonts sizes at the same time... |
| 271 | ;; | 271 | ;; |
| @@ -287,7 +287,7 @@ | |||
| 287 | ;; added hilit-parser-alist which can be used to apply different patterns to | 287 | ;; added hilit-parser-alist which can be used to apply different patterns to |
| 288 | ;; different parts of a buffer. This could be integrated in a far more | 288 | ;; different parts of a buffer. This could be integrated in a far more |
| 289 | ;; elegant manner, but it presently serves the purpose of not applying | 289 | ;; elegant manner, but it presently serves the purpose of not applying |
| 290 | ;; message header patterns to message bodies in mail-mode and it's kin. | 290 | ;; message header patterns to message bodies in mail-mode and its kin. |
| 291 | ;; hilit-set-mode-patterns now takes a list of modes and an optional parse-fn | 291 | ;; hilit-set-mode-patterns now takes a list of modes and an optional parse-fn |
| 292 | ;; | 292 | ;; |
| 293 | 293 | ||
| @@ -921,7 +921,7 @@ the entire buffer is forced." | |||
| 921 | ;; (message "*sigh* hilit-wysiwyg-write-repair not implemented yet") | 921 | ;; (message "*sigh* hilit-wysiwyg-write-repair not implemented yet") |
| 922 | ;; | 922 | ;; |
| 923 | ;; For efficiency, this hook should copy the current buffer to a scratch | 923 | ;; For efficiency, this hook should copy the current buffer to a scratch |
| 924 | ;; buffer and do it's overstriking there. Overlays are not copied, so it'll | 924 | ;; buffer and do its overstriking there. Overlays are not copied, so it'll |
| 925 | ;; be necessary to hop back and forth. This is OK since you're not fiddling | 925 | ;; be necessary to hop back and forth. This is OK since you're not fiddling |
| 926 | ;; with--making or deleting--any overlays. THEN write the new buffer, | 926 | ;; with--making or deleting--any overlays. THEN write the new buffer, |
| 927 | ;; delete it, and RETURN T. << important | 927 | ;; 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." | |||
| 353 | (save-excursion | 353 | (save-excursion |
| 354 | (skip-chars-backward " \t") | 354 | (skip-chars-backward " \t") |
| 355 | (max | 355 | (max |
| 356 | ;; leave at least one space on non-empty lines. | 356 | ;; Leave at least one space on non-empty lines. |
| 357 | (if (zerop (current-column)) 0 (1+ (current-column))) | 357 | (if (zerop (current-column)) 0 (1+ (current-column))) |
| 358 | (let ((cur-pt (point))) | 358 | (let ((cur-pt (point))) |
| 359 | (beginning-of-line 0) | 359 | (beginning-of-line 0) |
| 360 | ;; If previous line had a comment, use it's indent | 360 | ;; If previous line had a comment, use its indentation. |
| 361 | (if (re-search-forward comment-start-skip cur-pt t) | 361 | (if (re-search-forward comment-start-skip cur-pt t) |
| 362 | (progn | 362 | (progn |
| 363 | (goto-char (match-beginning 0)) | 363 | (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 @@ | |||
| 34 | ;; by the calling ange-ftp-ftp-name on the current directory. In this case the | 34 | ;; by the calling ange-ftp-ftp-name on the current directory. In this case the |
| 35 | ;; next-error command will also ange-ftp the files over. This is achieved | 35 | ;; next-error command will also ange-ftp the files over. This is achieved |
| 36 | ;; automatically because the compilation-parse-errors function uses | 36 | ;; automatically because the compilation-parse-errors function uses |
| 37 | ;; default-directory to build it's file names. If however the file visited was | 37 | ;; default-directory to build its file names. If however the file visited was |
| 38 | ;; loaded locally, remote-compile prompts for a host and user and assumes the | 38 | ;; loaded locally, remote-compile prompts for a host and user and assumes the |
| 39 | ;; files mounted locally (otherwise, how was the visited file loaded). | 39 | ;; files mounted locally (otherwise, how was the visited file loaded). |
| 40 | 40 | ||
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." | |||
| 170 | (setq skeleton-abbrev-cleanup (point)) | 170 | (setq skeleton-abbrev-cleanup (point)) |
| 171 | (add-hook 'post-command-hook 'skeleton-abbrev-cleanup nil t)))) | 171 | (add-hook 'post-command-hook 'skeleton-abbrev-cleanup nil t)))) |
| 172 | 172 | ||
| 173 | ;; This command isn't meant to be called, only it's aliases with meaningful | 173 | ;; This command isn't meant to be called, only its aliases with meaningful |
| 174 | ;; names are. | 174 | ;; names are. |
| 175 | ;;;###autoload | 175 | ;;;###autoload |
| 176 | (defun skeleton-proxy (&optional str arg) | 176 | (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 @@ | |||
| 212 | ;; lookup-words rehacked to use call-process (Jamie). | 212 | ;; lookup-words rehacked to use call-process (Jamie). |
| 213 | ;; ispell-complete-word rehacked to be compatible with the rest of the | 213 | ;; ispell-complete-word rehacked to be compatible with the rest of the |
| 214 | ;; system for word searching and to include multiple wildcards, | 214 | ;; system for word searching and to include multiple wildcards, |
| 215 | ;; and it's own dictionary. | 215 | ;; and its own dictionary. |
| 216 | ;; query-replace capability added. New options 'X', 'R', and 'A'. | 216 | ;; query-replace capability added. New options 'X', 'R', and 'A'. |
| 217 | ;; buffer-local modes for dictionary, word-spelling, and formatter-parsing. | 217 | ;; buffer-local modes for dictionary, word-spelling, and formatter-parsing. |
| 218 | ;; Many random bugs, like commented comments being skipped, fix to | 218 | ;; 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 @@ | |||
| 22 | 22 | ||
| 23 | ;; This file provides routines for getting the `thing' at the location of | 23 | ;; This file provides routines for getting the `thing' at the location of |
| 24 | ;; point, whatever that `thing' happens to be. The `thing' is defined by | 24 | ;; point, whatever that `thing' happens to be. The `thing' is defined by |
| 25 | ;; it's beginning and end positions in the buffer. | 25 | ;; its beginning and end positions in the buffer. |
| 26 | ;; | 26 | ;; |
| 27 | ;; The function bounds-of-thing-at-point finds the beginning and end | 27 | ;; The function bounds-of-thing-at-point finds the beginning and end |
| 28 | ;; positions by moving first forward to the end of the `thing', and then | 28 | ;; positions by moving first forward to the end of the `thing', and then |