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
60370d40
Commit
60370d40
authored
Jul 15, 2001
by
Pavel Janík
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Some fixes to follow coding conventions.
parent
715a2ca2
Changes
118
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
118 changed files
with
345 additions
and
165 deletions
+345
-165
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
lisp/eshell/em-cmpl.el
lisp/eshell/em-cmpl.el
+1
-1
lisp/eshell/em-dirs.el
lisp/eshell/em-dirs.el
+1
-1
lisp/eshell/em-glob.el
lisp/eshell/em-glob.el
+1
-1
lisp/eshell/em-hist.el
lisp/eshell/em-hist.el
+1
-1
lisp/eshell/em-ls.el
lisp/eshell/em-ls.el
+1
-1
lisp/eshell/em-pred.el
lisp/eshell/em-pred.el
+3
-1
lisp/eshell/em-prompt.el
lisp/eshell/em-prompt.el
+1
-1
lisp/eshell/em-rebind.el
lisp/eshell/em-rebind.el
+1
-1
lisp/eshell/em-script.el
lisp/eshell/em-script.el
+1
-1
lisp/eshell/em-smart.el
lisp/eshell/em-smart.el
+1
-1
lisp/eshell/em-term.el
lisp/eshell/em-term.el
+1
-1
lisp/eshell/em-unix.el
lisp/eshell/em-unix.el
+1
-1
lisp/eshell/em-xtra.el
lisp/eshell/em-xtra.el
+1
-1
lisp/eshell/esh-arg.el
lisp/eshell/esh-arg.el
+1
-1
lisp/eshell/esh-cmd.el
lisp/eshell/esh-cmd.el
+1
-1
lisp/eshell/esh-ext.el
lisp/eshell/esh-ext.el
+1
-1
lisp/eshell/esh-io.el
lisp/eshell/esh-io.el
+1
-1
lisp/eshell/esh-maint.el
lisp/eshell/esh-maint.el
+1
-1
lisp/eshell/esh-mode.el
lisp/eshell/esh-mode.el
+1
-1
lisp/eshell/esh-module.el
lisp/eshell/esh-module.el
+1
-1
lisp/eshell/esh-opt.el
lisp/eshell/esh-opt.el
+1
-1
lisp/eshell/esh-proc.el
lisp/eshell/esh-proc.el
+1
-1
lisp/eshell/esh-test.el
lisp/eshell/esh-test.el
+1
-1
lisp/eshell/esh-util.el
lisp/eshell/esh-util.el
+1
-1
lisp/eshell/esh-var.el
lisp/eshell/esh-var.el
+1
-1
lisp/eshell/eshell.el
lisp/eshell/eshell.el
+1
-1
lisp/forms-pass.el
lisp/forms-pass.el
+8
-0
lisp/international/ccl.el
lisp/international/ccl.el
+2
-2
lisp/international/characters.el
lisp/international/characters.el
+3
-1
lisp/international/encoded-kb.el
lisp/international/encoded-kb.el
+5
-1
lisp/international/fontset.el
lisp/international/fontset.el
+3
-1
lisp/international/ja-dic-cnv.el
lisp/international/ja-dic-cnv.el
+3
-3
lisp/international/ja-dic-utl.el
lisp/international/ja-dic-utl.el
+3
-3
lisp/international/kinsoku.el
lisp/international/kinsoku.el
+2
-2
lisp/international/kkc.el
lisp/international/kkc.el
+1
-1
lisp/international/mule-cmds.el
lisp/international/mule-cmds.el
+3
-1
lisp/international/mule-diag.el
lisp/international/mule-diag.el
+5
-1
lisp/international/mule-util.el
lisp/international/mule-util.el
+3
-1
lisp/international/mule.el
lisp/international/mule.el
+2
-0
lisp/international/titdic-cnv.el
lisp/international/titdic-cnv.el
+3
-3
lisp/language/china-util.el
lisp/language/china-util.el
+2
-0
lisp/language/chinese.el
lisp/language/chinese.el
+1
-1
lisp/language/cyril-util.el
lisp/language/cyril-util.el
+5
-3
lisp/language/cyrillic.el
lisp/language/cyrillic.el
+1
-1
lisp/language/english.el
lisp/language/english.el
+2
-2
lisp/language/greek.el
lisp/language/greek.el
+1
-1
lisp/language/hebrew.el
lisp/language/hebrew.el
+1
-1
lisp/language/japan-util.el
lisp/language/japan-util.el
+3
-2
lisp/language/japanese.el
lisp/language/japanese.el
+1
-1
lisp/language/korea-util.el
lisp/language/korea-util.el
+3
-1
lisp/language/korean.el
lisp/language/korean.el
+1
-1
lisp/language/lao-util.el
lisp/language/lao-util.el
+2
-0
lisp/language/lao.el
lisp/language/lao.el
+3
-1
lisp/language/misc-lang.el
lisp/language/misc-lang.el
+4
-1
lisp/language/slovak.el
lisp/language/slovak.el
+2
-2
lisp/language/thai-util.el
lisp/language/thai-util.el
+2
-0
lisp/language/thai.el
lisp/language/thai.el
+1
-1
lisp/language/viet-util.el
lisp/language/viet-util.el
+1
-1
lisp/language/vietnamese.el
lisp/language/vietnamese.el
+1
-1
lisp/mail/mh-comp.el
lisp/mail/mh-comp.el
+7
-5
lisp/mail/mh-e.el
lisp/mail/mh-e.el
+4
-4
lisp/mail/mh-funcs.el
lisp/mail/mh-funcs.el
+5
-4
lisp/mail/mh-mime.el
lisp/mail/mh-mime.el
+7
-5
lisp/mail/mh-pick.el
lisp/mail/mh-pick.el
+6
-4
lisp/mail/mh-seq.el
lisp/mail/mh-seq.el
+5
-4
lisp/mail/mh-utils.el
lisp/mail/mh-utils.el
+4
-4
lisp/mail/sc.el
lisp/mail/sc.el
+7
-1
lisp/mail/unrmail.el
lisp/mail/unrmail.el
+3
-1
lisp/midnight.el
lisp/midnight.el
+5
-5
lisp/patcomp.el
lisp/patcomp.el
+8
-0
lisp/pcmpl-cvs.el
lisp/pcmpl-cvs.el
+1
-1
lisp/pcmpl-gnu.el
lisp/pcmpl-gnu.el
+3
-1
lisp/pcmpl-linux.el
lisp/pcmpl-linux.el
+1
-1
lisp/pcmpl-rpm.el
lisp/pcmpl-rpm.el
+2
-2
lisp/pcmpl-unix.el
lisp/pcmpl-unix.el
+3
-1
lisp/play/studly.el
lisp/play/studly.el
+2
-0
lisp/play/zone.el
lisp/play/zone.el
+4
-4
lisp/replace.el
lisp/replace.el
+1
-1
lisp/select.el
lisp/select.el
+4
-2
lisp/subr.el
lisp/subr.el
+2
-0
lisp/talk.el
lisp/talk.el
+1
-1
lisp/term.el
lisp/term.el
+6
-4
lisp/term/apollo.el
lisp/term/apollo.el
+2
-0
lisp/term/bobcat.el
lisp/term/bobcat.el
+2
-0
lisp/term/linux.el
lisp/term/linux.el
+2
-0
lisp/term/lk201.el
lisp/term/lk201.el
+2
-0
lisp/term/vt102.el
lisp/term/vt102.el
+2
-0
lisp/term/vt125.el
lisp/term/vt125.el
+2
-0
lisp/term/vt200.el
lisp/term/vt200.el
+2
-0
lisp/term/vt201.el
lisp/term/vt201.el
+1
-0
lisp/term/vt220.el
lisp/term/vt220.el
+1
-0
lisp/term/vt240.el
lisp/term/vt240.el
+2
-0
lisp/term/vt300.el
lisp/term/vt300.el
+2
-0
lisp/term/vt320.el
lisp/term/vt320.el
+2
-0
lisp/term/vt400.el
lisp/term/vt400.el
+2
-0
lisp/term/vt420.el
lisp/term/vt420.el
+2
-0
lisp/x-apollo.el
lisp/x-apollo.el
+2
-0
lisp/x-menu.el
lisp/x-menu.el
+3
-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
...
...
lisp/eshell/em-cmpl.el
View file @
60370d40
;;; em-cmpl --- completion using the TAB key
;;; em-cmpl
.el
--- completion using the TAB key
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/em-dirs.el
View file @
60370d40
;;; em-dirs --- directory navigation commands
;;; em-dirs
.el
--- directory navigation commands
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/em-glob.el
View file @
60370d40
;;; em-glob --- extended file name globbing
;;; em-glob
.el
--- extended file name globbing
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/em-hist.el
View file @
60370d40
;;; em-hist --- history list management
;;; em-hist
.el
--- history list management
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/em-ls.el
View file @
60370d40
;;; em-ls --- implementation of ls in Lisp
;;; em-ls
.el
--- implementation of ls in Lisp
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/em-pred.el
View file @
60370d40
;;; em-pred --- argument predicates and modifiers (ala zsh)
;;; em-pred
.el
--- argument predicates and modifiers (ala zsh)
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
@@ -58,6 +58,8 @@ ordinary strings."
;; See the zsh docs for more on the syntax ([(zsh.info)Filename
;; Generation]).
;;; Code:
;;; User Variables:
(
defcustom
eshell-pred-load-hook
'
(
eshell-pred-initialize
)
...
...
lisp/eshell/em-prompt.el
View file @
60370d40
;;; em-prompt --- command prompts
;;; em-prompt
.el
--- command prompts
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/em-rebind.el
View file @
60370d40
;;; em-rebind --- rebind keys when point is at current input
;;; em-rebind
.el
--- rebind keys when point is at current input
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/em-script.el
View file @
60370d40
;;; em-script --- Eshell script files
;;; em-script
.el
--- Eshell script files
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/em-smart.el
View file @
60370d40
;;; em-smart --- smart display of output
;;; em-smart
.el
--- smart display of output
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/em-term.el
View file @
60370d40
;;; em-term --- running visual commands
;;; em-term
.el
--- running visual commands
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/em-unix.el
View file @
60370d40
;;; em-unix --- UNIX command aliases
;;; em-unix
.el
--- UNIX command aliases
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation
...
...
lisp/eshell/em-xtra.el
View file @
60370d40
;;; em-xtra --- extra alias functions
;;; em-xtra
.el
--- extra alias functions
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/esh-arg.el
View file @
60370d40
;;; esh-arg --- argument processing
;;; esh-arg
.el
--- argument processing
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/esh-cmd.el
View file @
60370d40
;;; esh-cmd --- command invocation
;;; esh-cmd
.el
--- command invocation
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/esh-ext.el
View file @
60370d40
;;; esh-ext --- commands external to Eshell
;;; esh-ext
.el
--- commands external to Eshell
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/esh-io.el
View file @
60370d40
;;; esh-io --- I/O management
;;; esh-io
.el
--- I/O management
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/esh-maint.el
View file @
60370d40
;;; esh-maint --- init code for building eshell
;;; esh-maint
.el
--- init code for building eshell
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/esh-mode.el
View file @
60370d40
;;; esh-mode --- user interface
;;; esh-mode
.el
--- user interface
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/esh-module.el
View file @
60370d40
;;; esh-module --- Eshell modules
;;; esh-module
.el
--- Eshell modules
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/esh-opt.el
View file @
60370d40
;;; esh-opt --- command options processing
;;; esh-opt
.el
--- command options processing
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/esh-proc.el
View file @
60370d40
;;; esh-proc --- process management
;;; esh-proc
.el
--- process management
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/esh-test.el
View file @
60370d40
;;; esh-test --- Eshell test suite
;;; esh-test
.el
--- Eshell test suite
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/esh-util.el
View file @
60370d40
;;; esh-util --- general utilities
;;; esh-util
.el
--- general utilities
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation
...
...
lisp/eshell/esh-var.el
View file @
60370d40
;;; esh-var --- handling of variables
;;; esh-var
.el
--- handling of variables
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/eshell/eshell.el
View file @
60370d40
;;; eshell --- the Emacs command shell
;;; eshell
.el
--- the Emacs command shell
;; Copyright (C) 1999, 2000 Free Software Foundation
...
...
lisp/forms-pass.el
View file @
60370d40
;;; forms-pass.el --- passwd file demo for forms-mode
;; This file is part of GNU Emacs.
;;; Commentary:
;; This demo visits your passwd file.
;;; Code:
;; use yp if present
(
or
(
file-exists-p
(
setq
forms-file
"/var/yp/src/passwd"
))
(
setq
forms-file
"/etc/passwd"
))
...
...
@@ -23,3 +29,5 @@
"\n\n"
"Shell: "
7
"\n"
))
;;; forms-pass.el ends here
lisp/international/ccl.el
View file @
60370d40
...
...
@@ -317,7 +317,7 @@
(
defun
ccl-check-register
(
arg
cmd
)
(
if
(
get
arg
'ccl-register-number
)
arg
(
error
"CCL: Invalid register %s in %s
.
"
arg
cmd
)))
(
error
"CCL: Invalid register %s in %s"
arg
cmd
)))
;; Check if ARG is a valid CCL command.
(
defun
ccl-check-compile-function
(
arg
cmd
)
...