Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a7acbbe4
Commit
a7acbbe4
authored
Jan 05, 1996
by
Karl Heuer
Browse files
Comment fixes.
parent
60d0378e
Changes
59
Hide whitespace changes
Inline
Side-by-side
Showing
20 changed files
with
35 additions
and
35 deletions
+35
-35
lisp/ange-ftp.el
lisp/ange-ftp.el
+2
-2
lisp/avoid.el
lisp/avoid.el
+1
-1
lisp/completion.el
lisp/completion.el
+2
-2
lisp/dabbrev.el
lisp/dabbrev.el
+2
-2
lisp/desktop.el
lisp/desktop.el
+1
-1
lisp/dired-aux.el
lisp/dired-aux.el
+1
-1
lisp/double.el
lisp/double.el
+3
-3
lisp/ediff-merg.el
lisp/ediff-merg.el
+1
-1
lisp/ediff-mult.el
lisp/ediff-mult.el
+2
-2
lisp/ediff-util.el
lisp/ediff-util.el
+3
-3
lisp/ediff.el
lisp/ediff.el
+3
-3
lisp/emacs-lisp/bytecomp.el
lisp/emacs-lisp/bytecomp.el
+2
-2
lisp/emacs-lisp/cl-indent.el
lisp/emacs-lisp/cl-indent.el
+1
-1
lisp/emacs-lisp/cl-specs.el
lisp/emacs-lisp/cl-specs.el
+3
-3
lisp/emacs-lisp/copyright.el
lisp/emacs-lisp/copyright.el
+1
-1
lisp/emacs-lisp/eval-reg.el
lisp/emacs-lisp/eval-reg.el
+2
-2
lisp/emacs-lock.el
lisp/emacs-lock.el
+1
-1
lisp/emerge.el
lisp/emerge.el
+2
-2
lisp/emulation/edt-pc.el
lisp/emulation/edt-pc.el
+1
-1
lisp/emulation/mlsupport.el
lisp/emulation/mlsupport.el
+1
-1
No files found.
lisp/ange-ftp.el
View file @
a7acbbe4
...
...
@@ -395,7 +395,7 @@
;;; when asked to list a non-existent directory. Some of the ai.mit.edu
;;; machines cause this problem for some FTP clients. Using
;;; ange-ftp-kill-ftp-process can restart the ftp process, which
;;; should get things back in sync
h
.
;;; should get things back in sync.
;;;
;;; 3. Ange-ftp does not check to make sure that when creating a new file,
;;; you provide a valid filename for the remote operating system.
...
...
@@ -2242,7 +2242,7 @@ which can parse the output from a DIR listing for a host of type TYPE.")
;;
;; With no-error t, it returns:
;; an error if not an ange-ftp-name
;; error if listing is unreable (most likely caused by a slow connection)
;; error if listing is unrea
da
ble (most likely caused by a slow connection)
;; nil if ftp error (this is because although asking to list a nonexistent
;; directory on a remote unix machine usually (except
;; maybe for dumb hosts) returns an ls error, but no
...
...
lisp/avoid.el
View file @
a7acbbe4
...
...
@@ -166,7 +166,7 @@ You can redefine this if you want the mouse banished to a different corner."
;; Args are the CURRENT location, the desired DELTA for
;; warp-conservation, the DISTANCE we like to move, the VARIABILITY
;; in distance allowed, and the MIN and MAX possible window positions.
;; Returns something as close to DELTA as possible within
g
the constraints.
;; Returns something as close to DELTA as possible within the constraints.
(
let
((
L1
(
max
(
-
min
cur
)
(
+
(
-
dist
)
(
-
var
))))
(
R1
(
+
(
-
dist
)
var
))
(
L2
(
+
dist
(
-
var
)))
...
...
lisp/completion.el
View file @
a7acbbe4
...
...
@@ -221,7 +221,7 @@
;;; With input from many users at TMC, (rose, craig, and gls come to mind),
;;; the current style of interface was developed.
;;; 9/87, Jim and Brewster took terminals home. Yuck. After
;;; complaining for a while Brew
e
ster implemented a subset of the current
;;; complaining for a while Brewster implemented a subset of the current
;;; LISPM version for GNU Emacs.
;;; 8/88 After complaining for a while (and with sufficient
;;; promised rewards), Jim reimplemented a version of GNU completion
...
...
@@ -1045,7 +1045,7 @@ Each symbol is bound to a single completion entry.")
;;; A completion entry is a LIST of string, prefix-symbol num-uses, and
;;; last-use-time (the time the completion was last used)
;;; last-use-time is T if the string should be kept permanently
;;; num-uses is incremented everytime the completion is used.
;;; num-uses is incremented every
time the completion is used.
;;; We chose lists because (car foo) is faster than (aref foo 0) and the
;;; creation time is about the same.
...
...
lisp/dabbrev.el
View file @
a7acbbe4
...
...
@@ -41,7 +41,7 @@
;;
;; Set the variables you want special for your mode like this:
;; (set (make-local-variable 'dabbrev-case-replace) nil)
;; Then you don't interfer with other modes.
;; Then you don't interfer
e
with other modes.
;;
;; If your mode handles buffers that refers to other buffers
;; (i.e. compilation-mode, gud-mode), then try to set
...
...
@@ -771,7 +771,7 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
;;; ABBREV is string to find as prefix of word. Second arg, REVERSE,
;;; is t for reverse search, nil for forward. Variable dabbrev-limit
;;; controls the maximum search region size. Third argment IGNORE-CASE
;;; controls the maximum search region size. Third arg
u
ment IGNORE-CASE
;;; non-nil means treat case as insignificant while looking for a match
;;; and when comparing with previous matches. Also if that's non-nil
;;; and the match is found at the beginning of a sentence and is in
...
...
lisp/desktop.el
View file @
a7acbbe4
...
...
@@ -144,7 +144,7 @@ The variables are saved only when they really are local.")
(
make-variable-buffer-local
'desktop-locals-to-save
)
;; We skip .log files because they are normally temporary.
;; (ftp) files because they require passwords and what
s
not.
;; (ftp) files because they require passwords and whatnot.
;; TAGS files to save time (tags-file-name is saved instead).
(
defvar
desktop-buffers-not-to-save
"\\(^nn\\.a[0-9]+\\|\\.log\\|(ftp)\\|^tags\\|^TAGS\\)$"
...
...
lisp/dired-aux.el
View file @
a7acbbe4
...
...
@@ -1008,7 +1008,7 @@ Special value `always' suppresses confirmation.")
;; which will be added. The user will be queried if the file already
;; exists. If oldfile is removed by FILE-CREATOR (i.e, it is a
;; rename), it is FILE-CREATOR's responsibility to update dired
;; buffers. FILE-CREATOR must abort by signal
l
ing a file-error if it
;; buffers. FILE-CREATOR must abort by signaling a file-error if it
;; could not create newfile. The error is caught and logged.
;; OPERATION (a capitalized string, e.g. `Copy') describes the
...
...
lisp/double.el
View file @
a7acbbe4
...
...
@@ -33,7 +33,7 @@
;; string will be replaced by another. This can be used for mapping
;; keys on a US keyboard to generate characters according to the local
;; keyboard convention when pressed once, and according to US keyboard
;; convetion when pressed twice.
;; conve
n
tion when pressed twice.
;;
;; To use this mode, you must define the variable `double-map' and
;; then enable double mode with `M-x double-mode'. Read the
...
...
@@ -42,9 +42,9 @@
;; The default mapping is for getting Danish/Norwegian keyboard layout
;; using ISO Latin 1 on a US keyboard.
;;
;; Imprtant node: While I would like to hear comments, bug reports,
;; Imp
o
rtant node: While I would like to hear comments, bug reports,
;; suggestions, please do @strong{not} expect me to put other mappings
;; tha
t
the default into this file. There are billions and billions
;; tha
n
the default into this file. There are billions and billions
;; of such mappings, and just supporting the most common would
;; increase the size of this nice small file manyfold.
...
...
lisp/ediff-merg.el
View file @
a7acbbe4
...
...
@@ -137,7 +137,7 @@ skiped over. Nil means show all regions.")
(
and
(
string=
state-of-merge
"combined"
)
(
not
(
string=
(
ediff-make-combined-diff
reg-A
reg-B
)
reg-C
)))
;; was prefered--ignore
;; was prefer
r
ed--ignore
(
string-match
"prefer"
state-of-merge
))
(
setq
do-not-copy
t
))
...
...
lisp/ediff-mult.el
View file @
a7acbbe4
...
...
@@ -43,7 +43,7 @@
;; Actually, the format of this list is pretty much up to the
;; developer. The only thing is that it must be a list of lists.
;; Also, keep in mind that the function ediff-prepare-meta-buffer
;; (which see) prepends nil in fron of each list (i.e., the above list
;; (which see) prepends nil in fron
t
of each list (i.e., the above list
;; will become ((nil obj1 obj2 ...) (nil ...) ...).
;; Ediff expects that your function (in 2 above) will arrange to
;; replace this prepended nil (via setcar) with the actual ediff
...
...
@@ -1209,7 +1209,7 @@ all marked sessions must be active."
(
error
"No active Ediff sessions or corrupted session registry"
))
(
let
(
wind
frame
)
;; for some reason, point moves in ediff-registry-buffer, so we preserve it
;; explic
i
ty
;; explict
l
y
(
ediff-eval-in-buffer
ediff-registry-buffer
(
save-excursion
(
cond
((
setq
wind
...
...
lisp/ediff-util.el
View file @
a7acbbe4
...
...
@@ -733,7 +733,7 @@ Reestablish the default three-window display."
ediff-patch-action
ediff-toggle-wide-display
ediff-toggle-multiframe
))
;; Or one of the movement cmds and prev cmd was an Ediff cmd
;; This avoids rasing frames unnecessarily.
;; This avoids ra
i
sing frames unnecessarily.
(
and
(
memq
this-command
'
(
ediff-next-difference
ediff-previous-difference
...
...
@@ -1420,7 +1420,7 @@ the width of the A/B/C windows."
(
move-to-window-line
lines
)
(
point
)))
;; `end' may be beyond the window bottom, so check
;; that we are making progres
;; that we are making progres
s
(
<
prev-point
(
point
)))
(
setq
prev-point
(
point
))
(
setq
lines
(
1+
lines
)))
...
...
@@ -2962,7 +2962,7 @@ buffer."
;;; Misc
;; These two functions are here to neutralize XEmacs unwilling
l
ess to
;; These two functions are here to neutralize XEmacs
's
unwilling
n
ess to
;; handle overlays whose buffers were deleted.
(
defun
ediff-move-overlay
(
overlay
beg
end
&optional
buffer
)
"Calls `move-overlay' in Emacs and `set-extent-endpoints' in Lemacs.
...
...
lisp/ediff.el
View file @
a7acbbe4
...
...
@@ -85,7 +85,7 @@
;; 2. On a monochrome display, the repertoire of faces with which to
;; highlight fine differences is limited. By default, Ediff is using
;; underlining. However, if the region is already underlied by some other
;; underlining. However, if the region is already underli
n
ed by some other
;; overlays, there is no simple way to temporarily remove that residual
;; underlining. This problem occurs when a buffer is highlighted with
;; hilit19.el or font-lock.el packages. If this residual highlighting gets
...
...
@@ -175,7 +175,7 @@
;; Make a temp file, if source-filename has a magic file handler (or if
;; it is handled via auto-mode-alist and similar magic).
;; Check if there is a buffer visiting source-filename and if they are in
;; sync
h
; arrange for the deletion of temp file.
;; sync; arrange for the deletion of temp file.
(
ediff-find-file
'true-source-filename
'buf-to-patch
'ediff-last-dir-patch
'startup-hooks
)
...
...
@@ -833,7 +833,7 @@ If WIND-B is nil, use window next to WIND-A."
(
save-excursion
(
save-window-excursion
(
sit-for
0
)
; sync
h
before using window-start/end -- a precaution
(
sit-for
0
)
; sync before using window-start/end -- a precaution
(
select-window
wind-A
)
(
setq
beg-A
(
window-start
)
end-A
(
window-end
))
...
...
lisp/emacs-lisp/bytecomp.el
View file @
a7acbbe4
...
...
@@ -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
))
; took
s
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
)
;; S
H
ould we always do this? When calling multiple files, it
;; S
h
ould 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
))))
...
...
lisp/emacs-lisp/cl-indent.el
View file @
a7acbbe4
...
...
@@ -2,7 +2,7 @@
;; Copyright (C) 1987 Free Software Foundation, Inc.
;; Author: Richard Mlynark <mly@eddie.mit.edu>
;; Author: Richard Mlynar
i
k <mly@eddie.mit.edu>
;; Created: July 1987
;; Maintainer: FSF
;; Keywords: lisp, tools
...
...
lisp/emacs-lisp/cl-specs.el
View file @
a7acbbe4
...
...
@@ -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]
...
...
lisp/emacs-lisp/copyright.el
View file @
a7acbbe4
...
...
@@ -48,7 +48,7 @@ When this is `function', only ask when called non-interactively.")
"String representing the current year."
)
;; when modif
i
ying 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'."
)
...
...
lisp/emacs-lisp/eval-reg.el
View file @
a7acbbe4
...
...
@@ -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 eval
l
ing
;; Mark the end because it may move.
(
elisp-end-marker
(
set-marker
(
make-marker
)
elisp-end
))
elisp-form
...
...
lisp/emacs-lock.el
View file @
a7acbbe4
...
...
@@ -28,7 +28,7 @@
;; yourself from yourself. For example, if you have a shell running a big
;; program and exiting emacs would abort that program, you may want to lock
;; that buffer, then if you forget about it after a while, you won't
;; accidently exit emacs. To unlock the buffer, just goto the buffer and
;; accident
al
ly exit emacs. To unlock the buffer, just goto the buffer and
;; run toggle-emacs-lock again.
(
defvar
lock-emacs-from-exiting
nil
...
...
lisp/emerge.el
View file @
a7acbbe4
...
...
@@ -1741,7 +1741,7 @@ to the left margin, if they are in windows."
;; If there are min-lines lines above and below the region, then don't do
;; anything.
;; If not, recenter the region to make it so.
;; If that isn't possible, remove context lines balancedly from top and botto
n
;; If that isn't possible, remove context lines balancedly from top and botto
m
;; so the entire region shows.
;; If that isn't possible, show the top of the region.
;; BEG must be at the beginning of a line.
...
...
@@ -2847,7 +2847,7 @@ keymap. Leaves merge in fast mode."
;; a list of variables. The argument is a list of symbols (the names of
;; the variables). A list element can also be a list of two functions,
;; the first of which (when called with no arguments) gets the value, and
;; the second (when called with a value as an argment) sets the value.
;; the second (when called with a value as an arg
u
ment) sets the value.
;; A "function" is anything that funcall can handle as an argument.
(
defun
emerge-save-variables
(
vars
)
...
...
lisp/emulation/edt-pc.el
View file @
a7acbbe4
...
...
@@ -38,7 +38,7 @@
;; NumLock must be ON.
;;
;; The PC keypad keys are mapped to the corresponding DEC LK-201
;; keypad keys according to the corresponding physical pos
s
ition on
;; keypad keys according to the corresponding physical position on
;; the keyboard. Thus, the physical position of the PC keypad key
;; determines its function, not the PC keycap name.
;;
...
...
lisp/emulation/mlsupport.el
View file @
a7acbbe4
...
...
@@ -26,7 +26,7 @@
;; This package provides equivalents of certain primitives from Gosling
;; Emacs (including the commercial UniPress versions). These have an
;; ml- prefix to distinguish them from native GNU Emacs functions with
;; similar names. The
o
ackage mlconvert.el translates Mocklisp code
;; similar names. The
p
ackage mlconvert.el translates Mocklisp code
;; to use these names.
;;; Code:
...
...
Prev
1
2
3
Next
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment