procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Comment fixes.

Browse source
This commit is contained in:
Karl Heuer 1996-01-05 22:21:28 +00:00
parent 60d0378e48
commit a7acbbe4d4
59 changed files with 94 additions and 95 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/bytecomp.el
View file

@ -938,7 +938,7 @@ otherwise pop it")
(defun byte-compile-arglist-signatures-congruent-p (old new)
(not (or
(> (car new) (car old)) ; requires more args now
(and (null (cdr old)) ; tooks rest-args, doesn't any more
(and (null (cdr old)) ; took rest-args, doesn't any more
(cdr new))
(and (cdr new) (cdr old) ; can't take as many args now
(< (cdr new) (cdr old)))
@ -1381,7 +1381,7 @@ With argument, insert value in current buffer after the form."
;; Compile pending forms at end of file.
(byte-compile-flush-pending)
(byte-compile-warn-about-unresolved-functions)
;; SHould we always do this? When calling multiple files, it
;; Should we always do this? When calling multiple files, it
;; would be useful to delay this warning until all have
;; been compiled.
(setq byte-compile-unresolved-functions nil))))

2
lisp/emacs-lisp/cl-indent.el
View file

@ -2,7 +2,7 @@
;; Copyright (C) 1987 Free Software Foundation, Inc.
;; Author: Richard Mlynark <mly@eddie.mit.edu>
;; Author: Richard Mlynarik <mly@eddie.mit.edu>
;; Created: July 1987
;; Maintainer: FSF
;; Keywords: lisp, tools

6
lisp/emacs-lisp/cl-specs.el
View file

@ -7,7 +7,7 @@
;; LCD Archive Entry:
;; cl-specs.el|Daniel LaLiberte|liberte@cs.uiuc.edu
;; |Edebug specs for cl.el
;; |$Date: 1995/04/19 00:47:42 $|1.1|
;; |$Date: 1995/10/30 16:51:55 $|1.1|
;; This file is part of GNU Emacs.
@ -30,7 +30,7 @@
;; These specs are to be used with edebug.el version 3.3 or later and
;; cl.el version 2.03 or later, by Dave Gillespie <daveg@synaptics.com>.
;; This file need not be byte-compiled, but it shouldnt hurt.
;; This file need not be byte-compiled, but it shouldn't hurt.
(provide 'cl-specs)
;; Do the above provide before the following require.
@ -412,7 +412,7 @@
(def-edebug-spec loop-initial-final
(&or ["initially"
;; [&optional &or "do" "doing"] ;; CLtL2 doesnt allow this.
;; [&optional &or "do" "doing"] ;; CLtL2 doesn't allow this.
&rest loop-non-atomic-expr]
["finally" &or
[[&optional &or "do" "doing"] &rest loop-non-atomic-expr]

2
lisp/emacs-lisp/copyright.el
View file

@ -48,7 +48,7 @@ When this is `function', only ask when called non-interactively.")
"String representing the current year.")
;; when modifiying this, also modify the comment generated by autoinsert.el
;; when modifying this, also modify the comment generated by autoinsert.el
(defconst copyright-current-gpl-version "2"
"String representing the current version of the GPL or `nil'.")

4
lisp/emacs-lisp/eval-reg.el
View file

@ -130,7 +130,7 @@ nil means discard it; anything else is stream for print.
This version, from `eval-reg.el', allows Lisp customization of read,
eval, and the printer."
;; Because this doesnt narrow to the region, one other difference
;; Because this doesn't narrow to the region, one other difference
;; concerns inserting whitespace after the expression being evaluated.
(interactive "r")
@ -138,7 +138,7 @@ eval, and the printer."
(original-eval-region elisp-start elisp-end elisp-output)
(let ((elisp-pnt (point))
(elisp-buf (current-buffer));; Outside buffer
(elisp-inside-buf (current-buffer));; Buffer current while evaling
(elisp-inside-buf (current-buffer));; Buffer current while evalling
;; Mark the end because it may move.
(elisp-end-marker (set-marker (make-marker) elisp-end))
elisp-form