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
60370d40
Commit
60370d40
authored
Jul 15, 2001
by
Pavel Janík
Browse files
Some fixes to follow coding conventions.
parent
715a2ca2
Changes
118
Hide whitespace changes
Inline
Side-by-side
Showing
20 changed files
with
112 additions
and
42 deletions
+112
-42
lisp/ChangeLog
lisp/ChangeLog
+47
-0
lisp/composite.el
lisp/composite.el
+3
-1
lisp/diff.el
lisp/diff.el
+1
-1
lisp/emacs-lisp/elp.el
lisp/emacs-lisp/elp.el
+8
-8
lisp/emacs-lisp/levents.el
lisp/emacs-lisp/levents.el
+1
-1
lisp/emacs-lisp/lmenu.el
lisp/emacs-lisp/lmenu.el
+2
-0
lisp/emacs-lisp/lselect.el
lisp/emacs-lisp/lselect.el
+3
-1
lisp/emacs-lisp/lucid.el
lisp/emacs-lisp/lucid.el
+4
-2
lisp/emulation/pc-mode.el
lisp/emulation/pc-mode.el
+4
-2
lisp/emulation/viper-cmd.el
lisp/emulation/viper-cmd.el
+5
-3
lisp/emulation/viper-ex.el
lisp/emulation/viper-ex.el
+5
-3
lisp/emulation/viper-init.el
lisp/emulation/viper-init.el
+4
-2
lisp/emulation/viper-keym.el
lisp/emulation/viper-keym.el
+4
-2
lisp/emulation/viper-macs.el
lisp/emulation/viper-macs.el
+4
-2
lisp/emulation/viper-mous.el
lisp/emulation/viper-mous.el
+5
-3
lisp/emulation/viper-util.el
lisp/emulation/viper-util.el
+4
-3
lisp/emulation/viper.el
lisp/emulation/viper.el
+5
-5
lisp/eshell/em-alias.el
lisp/eshell/em-alias.el
+1
-1
lisp/eshell/em-banner.el
lisp/eshell/em-banner.el
+1
-1
lisp/eshell/em-basic.el
lisp/eshell/em-basic.el
+1
-1
No files found.
lisp/ChangeLog
View file @
60370d40
2001-07-15 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
* eshell/em-alias.el, eshell/em-banner.el, eshell/em-basic.el,
eshell/em-cmpl.el, eshell/em-dirs.el, eshell/em-glob.el,
eshell/em-hist.el, eshell/em-ls.el, eshell/em-pred.el,
eshell/em-prompt.el, eshell/em-rebind.el, eshell/em-script.el,
eshell/em-smart.el, eshell/em-term.el, eshell/em-unix.el,
eshell/em-xtra.el, eshell/esh-arg.el, eshell/esh-cmd.el,
eshell/esh-ext.el, eshell/esh-io.el, eshell/esh-maint.el,
eshell/esh-mode.el, eshell/esh-module.el, eshell/esh-opt.el,
eshell/esh-proc.el, eshell/esh-test.el, eshell/esh-util.el,
eshell/esh-var.el, eshell/eshell.el: Some fixes to follow coding
conventions in Eshell files.
* composite.el, diff.el, emacs-lisp/levents.el,
emacs-lisp/lmenu.el, emacs-lisp/lselect.el, emacs-lisp/lucid.el,
emulation/pc-mode.el, emulation/viper-cmd.el,
emulation/viper-ex.el, emulation/viper-init.el,
emulation/viper-keym.el, emulation/viper-macs.el,
emulation/viper-mous.el, emulation/viper-util.el,
emulation/viper.el, forms-pass.el, international/ccl.el,
international/characters.el, international/encoded-kb.el,
international/fontset.el, international/ja-dic-cnv.el,
international/ja-dic-utl.el, international/kinsoku.el,
international/kkc.el, international/mule-cmds.el,
international/mule-diag.el, international/mule-util.el,
international/mule.el, international/titdic-cnv.el,
language/china-util.el, language/chinese.el,
language/cyril-util.el, language/cyrillic.el, language/english.el,
language/greek.el, language/hebrew.el, language/japan-util.el,
language/japanese.el, language/korea-util.el, language/korean.el,
language/lao-util.el, language/lao.el, language/misc-lang.el,
language/slovak.el, language/thai-util.el, language/thai.el,
language/viet-util.el, language/vietnamese.el, mail/mh-comp.el,
mail/mh-e.el, mail/mh-funcs.el, mail/mh-mime.el, mail/mh-pick.el,
mail/mh-seq.el, mail/mh-utils.el, mail/sc.el, mail/unrmail.el,
midnight.el, patcomp.el, pcmpl-cvs.el, pcmpl-gnu.el,
pcmpl-linux.el, pcmpl-rpm.el, pcmpl-unix.el, play/studly.el,
play/zone.el, replace.el, select.el, subr.el, talk.el, term.el,
term/apollo.el, term/bobcat.el, term/linux.el, term/lk201.el,
term/vt102.el, term/vt125.el, term/vt200.el, term/vt201.el,
term/vt220.el, term/vt240.el, term/vt300.el, term/vt320.el,
term/vt400.el, term/vt420.el, x-apollo.el, x-menu.el: Some fixes
to follow coding conventions in files without maintainer or in
files with clear maintainer (but without Maintainer header stating
so).
* emacs-lisp/elp.el: A fix to follow coding conventions.
* gnus/binhex.el, gnus/binhex.el, gnus/earcon.el,
gnus/gnus-agent.el, gnus/gnus-art.el, gnus/gnus-audio.el,
gnus/gnus-logic.el, gnus/gnus-ml.el, gnus/gnus-mlspl.el,
...
...
lisp/composite.el
View file @
60370d40
;;; composite.el ---
S
upport character composition
.
;;; composite.el ---
s
upport character composition
;; Copyright (C) 1999 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
...
...
@@ -22,6 +22,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
;;;###autoload
...
...
lisp/diff.el
View file @
60370d40
;;; diff.el ---
R
un `diff' in compilation-mode
.
;;; diff.el ---
r
un `diff' in compilation-mode
;; Copyright (C) 1992, 1994, 1996 Free Software Foundation, Inc.
...
...
lisp/emacs-lisp/elp.el
View file @
60370d40
...
...
@@ -2,10 +2,10 @@
;; Copyright (C) 1994,1995,1997,1998, 2001 Free Software Foundation, Inc.
;; Author:
1994-1998
Barry A. Warsaw
;; Maintainer:
FSF
;; Created:
26-Feb-1994
;; Keywords:
debugging lisp tools
;; Author: Barry A. Warsaw
;; Maintainer: FSF
;; Created: 26-Feb-1994
;; Keywords: debugging lisp tools
;; This file is part of GNU Emacs.
...
...
@@ -331,7 +331,7 @@ For example, to instrument all ELP functions, do the following:
\\[elp-instrument-package] RET elp- RET"
(
interactive
"sPrefix of package to instrument: "
)
(
if
(
zerop
(
length
prefix
))
(
error
"Instrumenting all Emacs functions would render Emacs unusable
.
"
))
(
error
"Instrumenting all Emacs functions would render Emacs unusable"
))
(
elp-instrument-list
(
mapcar
'intern
...
...
@@ -362,7 +362,7 @@ Use optional LIST if provided instead."
(
interactive
"aFunction to reset: "
)
(
let
((
info
(
get
funsym
elp-timer-info-property
)))
(
or
info
(
error
"%s is not instrumented for profiling
.
"
funsym
))
(
error
"%s is not instrumented for profiling"
funsym
))
(
aset
info
0
0
)
;reset call counter
(
aset
info
1
0.0
)
;reset total time
;; don't muck with aref 2 as that is the old symbol definition
...
...
@@ -417,7 +417,7 @@ original definition, use \\[elp-restore-function] or \\[elp-restore-all]."
(
func
(
aref
info
2
))
result
)
(
or
func
(
error
"%s is not instrumented for profiling
.
"
funsym
))
(
error
"%s is not instrumented for profiling"
funsym
))
(
if
(
not
elp-record-p
)
;; when not recording, just call the original function symbol
;; and return the results.
...
...
@@ -591,4 +591,4 @@ displayed."
(
provide
'elp
)
;; elp.el ends here
;;
;
elp.el ends here
lisp/emacs-lisp/levents.el
View file @
60370d40
;;; levents.el --- emulate the Lucid event data type and associated functions
.
;;; levents.el --- emulate the Lucid event data type and associated functions
;; Copyright (C) 1993 Free Software Foundation, Inc.
...
...
lisp/emacs-lisp/lmenu.el
View file @
60370d40
...
...
@@ -21,6 +21,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
...
...
lisp/emacs-lisp/lselect.el
View file @
60370d40
...
...
@@ -24,6 +24,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
;;; The selection code requires us to use certain symbols whose names are
...
...
@@ -229,4 +231,4 @@ the kill ring or the Clipboard."
(
provide
'lselect
)
;;; lselect.el ends here
.
;;; lselect.el ends here
lisp/emacs-lisp/lucid.el
View file @
60370d40
;;; lucid.el ---
E
mulate some Lucid Emacs functions
.
;;; lucid.el ---
e
mulate some Lucid Emacs functions
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
...
...
@@ -19,6 +19,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
;; XEmacs autoloads CL so we might as well make use of it.
...
...
@@ -224,4 +226,4 @@ bottom of the buffer stack."
(
provide
'lucid
)
;;;
end of
lucid.el
;;; lucid.el
ends here
lisp/emulation/pc-mode.el
View file @
60370d40
;;; pc-mode.el --- emulate certain key bindings used on PCs
.
;;; pc-mode.el --- emulate certain key bindings used on PCs
;; Copyright (C) 1995 Free Software Foundation, Inc.
...
...
@@ -21,6 +21,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;;; Code:
;;;###autoload
...
...
@@ -51,4 +53,4 @@ C-Escape does list-buffers."
(
provide
'pc-mode
)
;; pc-mode.el ends here
;;
;
pc-mode.el ends here
lisp/emulation/viper-cmd.el
View file @
60370d40
...
...
@@ -18,7 +18,9 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; Code
;;; Commentary:
;;; Code:
(provide 'viper-cmd)
(require 'advice)
...
...
@@ -1489,7 +1491,7 @@ If the prefix argument, ARG, is non-nil, it is used instead of `val'."
(com (nth 2 viper-d-com))
(reg (nth 3 viper-d-com)))
(if (null val) (setq val (nth 1 viper-d-com)))
(if (null m-com) (error "No previous command to repeat
.
"))
(if (null m-com) (error "No previous command to repeat"))
(setq viper-use-register reg)
(if (nth 4 viper-d-com) ; text inserted by command
(setq viper-last-insertion (nth 4 viper-d-com)
...
...
@@ -4902,4 +4904,4 @@ Mail anyway (y or n)? ")
;;;
viper-cmd.el ends here
;;; viper-cmd.el ends here
lisp/emulation/viper-ex.el
View file @
60370d40
...
...
@@ -19,7 +19,9 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; Code
;;; Commentary:
;;; Code:
(
provide
'viper-ex
)
...
...
@@ -1436,7 +1438,7 @@ reversed."
(
if
name
(
if
(
eq
1
(
length
name
))
(
setq
char
(
string-to-char
name
))
(
error
"`%s': Spurious text \"%s\" after mark name
.
"
(
error
"`%s': Spurious text \"%s\" after mark name"
name
(
substring
name
1
)
viper-SpuriousText
))
(
save-window-excursion
(
setq
viper-ex-work-buf
(
get-buffer-create
viper-ex-work-buf-name
))
...
...
@@ -2221,4 +2223,4 @@ Please contact your system administrator. "
;;;
viper-ex.el ends here
;;; viper-ex.el ends here
lisp/emulation/viper-init.el
View file @
60370d40
...
...
@@ -19,7 +19,9 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; Code
;;; Commentary:
;;; Code:
(
provide
'viper-init
)
...
...
@@ -986,4 +988,4 @@ Should be set in `~/.viper' file."
;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
;;; End:
;;;
viper-
ex
.el ends here
;;; viper-
init
.el ends here
lisp/emulation/viper-keym.el
View file @
60370d40
...
...
@@ -19,7 +19,9 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; Code
;;; Commentary:
;;; Code:
(
provide
'viper-keym
)
...
...
@@ -630,4 +632,4 @@ form ((key . function) (key . function) ... )."
;;; End:
;;;
viper-keym.el ends here
;;; viper-keym.el ends here
lisp/emulation/viper-macs.el
View file @
60370d40
...
...
@@ -19,7 +19,9 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; Code
;;; Commentary:
;;; Code:
(
provide
'viper-macs
)
...
...
@@ -945,4 +947,4 @@ name from there."
(
call-last-kbd-macro
)))
;;;
viper-macs.el ends here
;;; viper-macs.el ends here
lisp/emulation/viper-mous.el
View file @
60370d40
...
...
@@ -19,7 +19,9 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; Code
;;; Commentary:
;;; Code:
(
provide
'viper-mous
)
...
...
@@ -247,7 +249,7 @@ On single or double click, returns the word as determined by
(
goto-char
click-pos
)
(
setq
click-word
(
funcall
viper-surrounding-word-function
count
click-count
)))
(
error
"Click must be over a window
.
"
))
(
error
"Click must be over a window"
))
click-word
))))
...
...
@@ -664,4 +666,4 @@ This buffer may be different from the one where the click occurred."
;;; End:
;;;
viper-mous.el ends here
;;; viper-mous.el ends here
lisp/emulation/viper-util.el
View file @
60370d40
;;; viper-util.el ---
U
tilities used by viper.el
;;; viper-util.el ---
u
tilities used by viper.el
;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
...
...
@@ -19,8 +19,9 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; Code
;;
;
Code
:
;; Compiler pacifier
(
defvar
viper-overriding-map
)
...
...
@@ -1382,4 +1383,4 @@ This option is appropriate if you like Emacs-style words."
;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
;;; End:
;;;
viper-util.el ends here
;;; viper-util.el ends here
lisp/emulation/viper.el
View file @
60370d40
;;; viper.el ---
A
full-featured Vi emulator for GNU Emacs and XEmacs,
;;; viper.el ---
a
full-featured Vi emulator for GNU Emacs and XEmacs,
;; a VI Plan for Emacs Rescue,
;; and a venomous VI PERil.
;; Viper Is also a Package for Emacs Rebels.
;;
;;
Keywords: emulations
;;
Author: Michael Kifer <kifer@cs.sunysb.edu>
;; Keywords: emulations
;; Author: Michael Kifer <kifer@cs.sunysb.edu>
;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000, 01 Free Software Foundation, Inc.
...
...
@@ -294,7 +294,7 @@
;; much easier.
;;
;; Code
;;
;
Code
:
(
require
'advice
)
(
require
'cl
)
...
...
@@ -1280,4 +1280,4 @@ These two lines must come in the order given.
;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
;;; End:
;;;
viper.el ends here
;;; viper.el ends here
lisp/eshell/em-alias.el
View file @
60370d40
;;; em-alias --- creation and management of command aliases
;;; em-alias
.el
--- creation and management of command aliases
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/em-banner.el
View file @
60370d40
;;; em-banner --- sample module that displays a login banner
;;; em-banner
.el
--- sample module that displays a login banner
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/em-basic.el
View file @
60370d40
;;; em-basic --- basic shell builtin commands
;;; em-basic
.el
--- basic shell builtin commands
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
Prev
1
2
3
4
5
6
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