Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
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
Options
Browse Files
Download
Email Patches
Plain Diff
Comment fixes.
parent
60d0378e
Changes
59
Hide whitespace changes
Inline
Side-by-side
Showing
59 changed files
with
94 additions
and
95 deletions
+94
-95
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
lisp/emulation/pc-select.el
lisp/emulation/pc-select.el
+2
-2
lisp/emulation/viper-keym.el
lisp/emulation/viper-keym.el
+1
-2
lisp/emulation/viper-util.el
lisp/emulation/viper-util.el
+1
-1
lisp/faces.el
lisp/faces.el
+1
-1
lisp/gnus-cite.el
lisp/gnus-cite.el
+2
-2
lisp/gnus-ems.el
lisp/gnus-ems.el
+1
-1
lisp/gnus-msg.el
lisp/gnus-msg.el
+2
-2
lisp/gnus-score.el
lisp/gnus-score.el
+3
-3
lisp/ielm.el
lisp/ielm.el
+2
-2
lisp/imenu.el
lisp/imenu.el
+1
-1
lisp/ledit.el
lisp/ledit.el
+1
-1
lisp/mail/rnews.el
lisp/mail/rnews.el
+3
-3
lisp/mail/rnewspost.el
lisp/mail/rnewspost.el
+1
-1
lisp/man.el
lisp/man.el
+2
-2
lisp/nnbabyl.el
lisp/nnbabyl.el
+1
-1
lisp/nneething.el
lisp/nneething.el
+1
-1
lisp/nnfolder.el
lisp/nnfolder.el
+3
-3
lisp/nnkiboze.el
lisp/nnkiboze.el
+1
-1
lisp/nnmbox.el
lisp/nnmbox.el
+1
-1
lisp/nnmh.el
lisp/nnmh.el
+1
-1
lisp/nnml.el
lisp/nnml.el
+1
-1
lisp/nnspool.el
lisp/nnspool.el
+1
-1
lisp/nntp.el
lisp/nntp.el
+2
-2
lisp/play/gomoku.el
lisp/play/gomoku.el
+2
-2
lisp/play/mpuz.el
lisp/play/mpuz.el
+1
-1
lisp/progmodes/f90.el
lisp/progmodes/f90.el
+1
-1
lisp/progmodes/perl-mode.el
lisp/progmodes/perl-mode.el
+1
-1
lisp/ps-print.el
lisp/ps-print.el
+4
-4
lisp/s-region.el
lisp/s-region.el
+1
-1
lisp/sun-fns.el
lisp/sun-fns.el
+1
-1
lisp/tar-mode.el
lisp/tar-mode.el
+1
-1
lisp/term/pc-win.el
lisp/term/pc-win.el
+1
-1
lisp/textmodes/ispell.el
lisp/textmodes/ispell.el
+3
-3
lisp/textmodes/ooutline.el
lisp/textmodes/ooutline.el
+1
-1
lisp/textmodes/outline.el
lisp/textmodes/outline.el
+1
-1
lisp/textmodes/page-ext.el
lisp/textmodes/page-ext.el
+1
-1
lisp/textmodes/texinfmt.el
lisp/textmodes/texinfmt.el
+1
-1
lisp/vc-hooks.el
lisp/vc-hooks.el
+1
-1
lisp/vc.el
lisp/vc.el
+3
-3
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:
...
...
lisp/emulation/pc-select.el
View file @
a7acbbe4
...
...
@@ -494,7 +494,7 @@ the MAC GUI or MS-Windows (sorry for the last one)."
(
define-key
global-map
"\M-w"
'copy-region-as-kill-nomark
)
;; The follow
o
ng keybindings are for standard ISO keyboards
;; The follow
i
ng keybindings are for standard ISO keyboards
;; as they are used with IBM compatible PCs, IBM RS/6000,
;; MACs, many X-Stations and probably more
(
define-key
global-map
[S-right]
'forward-char-mark
)
...
...
@@ -533,7 +533,7 @@ the MAC GUI or MS-Windows (sorry for the last one)."
(
define-key
global-map
[C-insert]
'copy-region-as-kill
)
(
define-key
global-map
[S-delete]
'kill-region
)
;; The following bindings are us
u
eful on Sun Type 3 keyboards
;; The following bindings are useful on Sun Type 3 keyboards
;; They implement the Get-Delete-Put (copy-cut-paste)
;; functions from sunview on the L6, L8 and L10 keys
(
define-key
global-map
[f16]
'yank
)
...
...
lisp/emulation/viper-keym.el
View file @
a7acbbe4
...
...
@@ -31,8 +31,7 @@
(
defvar
vip-insert-intercept-map
(
make-sparse-keymap
))
(
defvar
vip-emacs-intercept-map
(
make-sparse-keymap
))
;; keymap used to zap all keymaps other than function-key-map,
;; devide-function-key-map, etc.
;; keymap used to zap all keymaps other than function-key-map, etc.
(
defvar
vip-overriding-map
(
make-sparse-keymap
))
(
vip-deflocalvar
vip-vi-local-user-map
(
make-sparse-keymap
)
...
...
lisp/emulation/viper-util.el
View file @
a7acbbe4
...
...
@@ -766,7 +766,7 @@
;; Emacs has a bug in eventp, which causes (eventp nil) to return (nil)
;; instead of nil, if '(nil) was previously inadvert
a
ntly assigned to
;; instead of nil, if '(nil) was previously inadvert
e
ntly assigned to
;; unread-command-events
(
defun
vip-event-key
(
event
)
(
or
(
and
event
(
eventp
event
))
...
...
lisp/faces.el
View file @
a7acbbe4
...
...
@@ -150,7 +150,7 @@ in that frame; otherwise change each frame."
;; For a specific frame, use gray stipple instead of gray color
;; if the display does not support a gray color.
(
if
(
and
frame
(
not
(
eq
frame
t
))
color
;; Check for support
edness
for foreground, not for background!
;; Check for support for foreground, not for background!
;; face-color-supported-p is smart enough to know
;; that grays are "supported" as background
;; because we are supposed to use stipple for them!
...
...
lisp/gnus-cite.el
View file @
a7acbbe4
...
...
@@ -452,12 +452,12 @@ See also the documentation for `gnus-article-highlight-citation'."
;; loose attribution lines, otherwise the first prefix will be used.
;;
;; If AFTER is non-nil, only citations after the attribution line
;; will be con
c
idered.
;; will be con
s
idered.
;;
;; If FUN is non-nil, it will be called with the arguments (WROTE
;; PREFIX TAG) and expected to return a regular expression. Only
;; citations whose prefix matches the regular expression will be
;; con
c
idered.
;; con
s
idered.
;;
;; WROTE is the attribution line number.
;; PREFIX is the attribution line prefix.
...
...
lisp/gnus-ems.el
View file @
a7acbbe4
...
...
@@ -415,7 +415,7 @@ NOTE: This command only works with newsgroups that use real or simulated NNTP."
;; Fucking XEmacs redisplay bug with truncated lines.
(
goto-char
b
)
(
sit-for
0
)
;; Grumble.. Fucking XEmacs stick
y
ness of text properties.
;; Grumble.. Fucking XEmacs stick
i
ness of text properties.
(
remove-text-properties
(
1+
b
)
(
1+
(
gnus-point-at-eol
))
'
(
gnus-number
nil
gnus-mark
nil
gnus-level
nil
))
...
...
lisp/gnus-msg.el
View file @
a7acbbe4
...
...
@@ -580,7 +580,7 @@ will attempt to use the foreign server to post the article."
(
match-beginning
0
)))
;; Correct newsgroups field: change sequence of spaces to comma and
;; eliminate spaces around commas. Eliminate
i
mbedded line breaks.
;; eliminate spaces around commas. Eliminate
e
mbedded line breaks.
(
goto-char
(
point-min
))
(
if
(
re-search-forward
"^Newsgroups: +"
nil
t
)
(
save-restriction
...
...
@@ -1353,7 +1353,7 @@ domain is undefined, the domain name is got from it."
;; You might for example insert a "." somewhere (not next to another dot
;; or string boundary), or modify the newsreader name to "Ding".
(
defun
gnus-inews-unique-id
()
;; Dont use microseconds from (current-time), they may be unsupported.
;; Don
'
t use microseconds from (current-time), they may be unsupported.
;; Instead we use this randomly inited counter.
(
setq
gnus-unique-id-char
(
%
(
1+
(
or
gnus-unique-id-char
(
logand
(
random
t
)
(
1-
(
lsh
1
20
)))))
...
...
lisp/gnus-score.el
View file @
a7acbbe4
...
...
@@ -910,7 +910,7 @@ SCORE is the score to add."
(
if
last
(
progn
;; Insert the line, with a text property on the
;; terminating newline refering to the articles with
;; terminating newline refer
r
ing to the articles with
;; this line.
(
insert
last
?\n
)
(
put-text-property
(
1-
(
point
))
(
point
)
'articles
alike
)))
...
...
@@ -1252,7 +1252,7 @@ SCORE is the score to add."
(
defun
gnus-score-string
(
score-list
header
now
expire
&optional
trace
)
;; Score ARTICLES according to HEADER in SCORE-LIST.
;; Update match
es
entries to NOW and remove unmatched entrie
d
older
;; Update match
ing
entries to NOW and remove unmatched entrie
s
older
;; than EXPIRE.
;; Insert the unique article headers in the buffer.
...
...
@@ -1281,7 +1281,7 @@ SCORE is the score to add."
(
if
last
(
progn
;; Insert the line, with a text property on the
;; terminating newline refering to the articles with
;; terminating newline refer
r
ing to the articles with
;; this line.
(
insert
last
?\n
)
(
put-text-property
(
1-
(
point
))
(
point
)
'articles
alike
)))
...
...
lisp/ielm.el
View file @
a7acbbe4
...
...
@@ -87,7 +87,7 @@ This variable is buffer-local.")
(
defvar
ielm-header
(
concat
"*** Welcome to IELM version "
(
substring
"$Revision: 1.
4
$"
11
-2
)
(
substring
"$Revision: 1.
5
$"
11
-2
)
" *** Type (describe-mode) for help.\n"
"IELM has ABSOLUTELY NO WARRANTY; type (describe-no-warranty) for details.\n"
)
"Message to display when IELM is started."
)
...
...
@@ -145,7 +145,7 @@ This variable is buffer-local.")
(
or
;; the buffer has been modified
(
not
(
=
btick
(
buffer-modified-tick
)))
;; a completions buffer has been modifed or created
;; a completions buffer has been modif
i
ed or created
(
if
cbuffer
(
not
(
=
ctick
(
buffer-modified-tick
cbuffer
)))
(
get-buffer
"*Completions*"
)))))
...
...
lisp/imenu.el
View file @
a7acbbe4
...
...
@@ -369,7 +369,7 @@ This function is called after the function pointed out by
(
/
(
*
100
(
1-
pos
))
(
max
total
1
)))))
;;;
;;; Function for suporting general looking submenu names.
;;; Function for sup
p
orting general looking submenu names.
;;; Uses `imenu-submenu-name-format' for creating the name.
;;; NAME is the base of the new submenu name.
;;;
...
...
lisp/ledit.el
View file @
a7acbbe4
...
...
@@ -3,7 +3,7 @@
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keyord: languages
;; Key
w
ord: languages
;; This file is part of GNU Emacs.
...
...
lisp/mail/rnews.el
View file @
a7acbbe4
...
...
@@ -43,7 +43,7 @@
;; tower@prep Sep 3 1986
;; added news-rotate-buffer-body
;; tower@prep Oct 17 1986
;; made messages more user friendly, clean
up
ed news-inews
;; made messages more user friendly, cleaned
up
news-inews
;; move posting and mail code to new file rnewpost.el
;; tower@prep Oct 29 1986
;; added caesar-region, rename news-caesar-buffer-body, hacked accordingly
...
...
@@ -796,7 +796,7 @@ Using ls was found to be too slow in a previous version."
(
setq
tem
news-list-of-files
)
(
while
tem
(
if
(
or
(
not
(
string-match
"^[0-9]*$"
(
car
tem
)))
;; dont get confused by directories that look like numbers
;; don
'
t get confused by directories that look like numbers
(
file-directory-p
(
concat
file-directory
"/"
(
car
tem
)))
(
<=
(
string-to-int
(
car
tem
))
end-file-no
))
...
...
@@ -858,7 +858,7 @@ Using ls was found to be too slow in a previous version."
(
defun
news-add-news-group
(
gp
)
"Resubscribe to or add a USENET news group named GROUP (a string)."
; @@ (completing-read ...)
; @@ could be based on news library file ../active (slightly facist)
; @@ could be based on news library file ../active (slightly fa
s
cist)
; @@ or (expensive to compute) all directories under the news spool directory
(
interactive
"sAdd news group: "
)
(
let
((
file-dir
(
concat
news-path
(
string-subst-char
?/
?.
gp
))))
...
...
lisp/mail/rnewspost.el
View file @
a7acbbe4
...
...
@@ -46,7 +46,7 @@
;; imported from rmail and modified to work with rnews ...
;; Mon Mar 25,1985 at 03:07:04 ads@mit-hermes.
;; this is done so that rnews can operate independently from rmail.el and
;; sendmail and do
s
en't have to autoload these functions.
;; sendmail and doe
s
n't have to autoload these functions.
;;
;;; >> Nuked by Mly to autoload those functions again, as the duplication of
;;; >> code was making maintenance too difficult.
...
...
lisp/man.el
View file @
a7acbbe4
...
...
@@ -35,7 +35,7 @@
;; ========== Credits and History ==========
;; In mid 1991, several people posted some interesting improvements to
;; man.el from the standard emacs 18.57 distribution. I liked many of
;; these, but wanted everthing in one single package, so I decided
;; these, but wanted ever
y
thing in one single package, so I decided
;; to incorporate them into a single manual browsing mode. While
;; much of the code here has been rewritten, and some features added,
;; these folks deserve lots of credit for providing the initial
...
...
@@ -56,7 +56,7 @@
;; Francesco Potorti` <pot@cnuce.cnr.it> cleaned it up thoroughly,
;; making it faster, more robust and more tolerant of different
;; systems' man idiosync
h
rasies.
;; systems' man idiosyncrasies.
;; ========== Features ==========
;; + Runs "man" in the background and pipes the results through a
...
...
lisp/nnbabyl.el
View file @
a7acbbe4
...
...
@@ -354,7 +354,7 @@
;; If FORCE, delete article no matter how many X-Gnus-Newsgroup
;; headers there are. If LEAVE-DELIM, don't delete the Unix mbox
;; delim
e
ter line.
;; delim
i
ter line.
(
defun
nnbabyl-delete-mail
(
&optional
force
leave-delim
)
;; Delete the current X-Gnus-Newsgroup line.
(
or
force
...
...
lisp/nneething.el
View file @
a7acbbe4
...
...
@@ -201,7 +201,7 @@
nneething-group-alist
)))))))
(
defun
nneething-map-file
()
;; We make sure that the .neething directory exists.
;; We make sure that the .
n
neething directory exists.
(
make-directory
nneething-map-file-directory
'parents
)
;; We store it in a special directory under the user's home dir.
(
concat
(
file-name-as-directory
nneething-map-file-directory
)
...
...
lisp/nnfolder.el
View file @
a7acbbe4
...
...
@@ -42,7 +42,7 @@
(
concat
(
file-name-as-directory
nnfolder-directory
)
"active"
)
"The name of the active file."
)
;; I renamed this variable to some
h
ting more in keeping with the general GNU
;; I renamed this variable to somet
h
ing more in keeping with the general GNU
;; style. -SLB
(
defvar
nnfolder-ignore-active-file
nil
...
...
@@ -566,7 +566,7 @@ such things as moving mail. All buffers always get killed upon server close.")
;; accidentally gotten new mail with something other than Gnus (but why
;; would _that_ ever happen? :-). In that case, we will be in the middle of
;; processing the file, ready to add new X-Gnus article number markers, and
;; we'll run ac
c
ross a message with no ID yet - the active list _may_not_ be
;; we'll run across a message with no ID yet - the active list _may_not_ be
;; ready for us yet.
;; To handle this, I'm modifying this routine to maintain the maximum ID seen
...
...
@@ -593,7 +593,7 @@ such things as moving mail. All buffers always get killed upon server close.")
activenumber
activemin
start
end
)
(
goto-char
(
point-min
))
;;
;; Anytime the active number is 1 or 0, it is supect. In that case,
;; Anytime the active number is 1 or 0, it is su
s
pect. In that case,
;; search the file manually to find the active number. Or, of course,
;; if we're being paranoid. (This would also be the place to build
;; other lists from the header markers, such as expunge lists, etc., if
...
...
lisp/nnkiboze.el
View file @
a7acbbe4
...
...
@@ -101,7 +101,7 @@ If the stream is opened, return T, otherwise return NIL."
"Select article by message number."
(
nnkiboze-possibly-change-newsgroups
newsgroup
)
(
if
(
not
(
numberp
article
))
;; This is a real
c
ludge. It might not work at times, but it
;; This is a real
k
ludge. It might not work at times, but it
;; does no harm I think. The only alternative is to offer no
;; article fetching by message-id at all.
(
nntp-request-article
article
newsgroup
gnus-nntp-server
buffer
)
...
...
lisp/nnmbox.el
View file @
a7acbbe4
...
...
@@ -338,7 +338,7 @@
;; If FORCE, delete article no matter how many X-Gnus-Newsgroup
;; headers there are. If LEAVE-DELIM, don't delete the Unix mbox
;; delim
e
ter line.
;; delim
i
ter line.
(
defun
nnmbox-delete-mail
(
&optional
force
leave-delim
)
;; Delete the current X-Gnus-Newsgroup line.
(
or
force
...
...
lisp/nnmh.el
View file @
a7acbbe4
...
...
@@ -311,7 +311,7 @@
(
and
(
nnmail-activate
'nnmh
)
;; We trick the choosing function into believing that only one
;; group is avail
i
able.
;; group is available.
(
let
((
nnmail-split-methods
(
list
(
list
group
""
))))
(
car
(
nnmh-save-mail
))))
(
and
...
...
lisp/nnml.el
View file @
a7acbbe4
...
...
@@ -327,7 +327,7 @@ all. This may very well take some time.")
(
and
(
nnmail-activate
'nnml
)
;; We trick the choosing function into believing that only one
;; group is avail
i
able.
;; group is available.
(
let
((
nnmail-split-methods
(
list
(
list
group
""
))))
(
setq
result
(
car
(
nnml-save-mail
))))
(
progn
...
...