Some fixes to follow coding conventions.
This commit is contained in:
Pavel Janík
parent
715a2ca2fc
commit
60370d4073
118 changed files with 345 additions and 165 deletions
|
|
@ -1,5 +1,52 @@
|
|||
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,
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; composite.el --- Support character composition.
|
||||
;;; composite.el --- support 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
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; diff.el --- Run `diff' in compilation-mode.
|
||||
;;; diff.el --- run `diff' in compilation-mode
|
||||
|
||||
;; Copyright (C) 1992, 1994, 1996 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; 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.
|
||||
|
||||
|
|
|
|||
|
|
@ -21,6 +21,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; lucid.el --- Emulate some Lucid Emacs functions.
|
||||
;;; lucid.el --- emulate 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
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; 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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; viper-util.el --- Utilities used by viper.el
|
||||
;;; viper-util.el --- utilities 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
|
||||
|
|
|
|||
|
|
@ -1,10 +1,10 @@
|
|||
;;; 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
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-alias --- creation and management of command aliases
|
||||
;;; em-alias.el --- creation and management of command aliases
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; 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
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-basic --- basic shell builtin commands
|
||||
;;; em-basic.el --- basic shell builtin commands
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-cmpl --- completion using the TAB key
|
||||
;;; em-cmpl.el --- completion using the TAB key
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-dirs --- directory navigation commands
|
||||
;;; em-dirs.el --- directory navigation commands
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-glob --- extended file name globbing
|
||||
;;; em-glob.el --- extended file name globbing
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-hist --- history list management
|
||||
;;; em-hist.el --- history list management
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-ls --- implementation of ls in Lisp
|
||||
;;; em-ls.el --- implementation of ls in Lisp
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; 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)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-prompt --- command prompts
|
||||
;;; em-prompt.el --- command prompts
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; 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
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-script --- Eshell script files
|
||||
;;; em-script.el --- Eshell script files
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-smart --- smart display of output
|
||||
;;; em-smart.el --- smart display of output
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-term --- running visual commands
|
||||
;;; em-term.el --- running visual commands
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-unix --- UNIX command aliases
|
||||
;;; em-unix.el --- UNIX command aliases
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; em-xtra --- extra alias functions
|
||||
;;; em-xtra.el --- extra alias functions
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; esh-arg --- argument processing
|
||||
;;; esh-arg.el --- argument processing
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; esh-cmd --- command invocation
|
||||
;;; esh-cmd.el --- command invocation
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; esh-ext --- commands external to Eshell
|
||||
;;; esh-ext.el --- commands external to Eshell
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; esh-io --- I/O management
|
||||
;;; esh-io.el --- I/O management
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; esh-maint --- init code for building eshell
|
||||
;;; esh-maint.el --- init code for building eshell
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; esh-mode --- user interface
|
||||
;;; esh-mode.el --- user interface
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; esh-module --- Eshell modules
|
||||
;;; esh-module.el --- Eshell modules
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; esh-opt --- command options processing
|
||||
;;; esh-opt.el --- command options processing
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; esh-proc --- process management
|
||||
;;; esh-proc.el --- process management
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; esh-test --- Eshell test suite
|
||||
;;; esh-test.el --- Eshell test suite
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; esh-util --- general utilities
|
||||
;;; esh-util.el --- general utilities
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; esh-var --- handling of variables
|
||||
;;; esh-var.el --- handling of variables
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; eshell --- the Emacs command shell
|
||||
;;; eshell.el --- the Emacs command shell
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,13 @@
|
|||
;;; 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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
@ -1483,4 +1483,4 @@ See the documentation of `define-ccl-program' for the detail of CCL program."
|
|||
|
||||
(provide 'ccl)
|
||||
|
||||
;; ccl.el ends here
|
||||
;;; ccl.el ends here
|
||||
|
|
|
|||
|
|
@ -30,6 +30,8 @@
|
|||
;; This file does not define the syntax for Latin-N character sets;
|
||||
;; those are defined by the files latin-N.el.
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;; Predefined categories.
|
||||
|
||||
;; For each character set.
|
||||
|
|
@ -827,4 +829,4 @@
|
|||
;;; coding: iso-2022-7bit
|
||||
;;; End:
|
||||
|
||||
;;; end of characters.el
|
||||
;;; characters.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; encoded-kb.el --- Handler to input multibyte characters encoded somehow
|
||||
;;; encoded-kb.el --- handler to input multibyte characters encoded somehow
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
@ -20,6 +20,10 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defvar encoded-kbd-mode nil
|
||||
"Non-nil if in Encoded-kbd minor mode.")
|
||||
(put 'encoded-kbd-mode 'permanent-local t)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; fontset.el --- Commands for handling fontset.
|
||||
;;; fontset.el --- commands for handling fontset
|
||||
|
||||
;; Copyright (C) 1995, 1997 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:
|
||||
|
||||
;; Set standard fontname specification of characters in the default
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ja-dic-cnv.el --- Convert a Japanese dictionary (SKK-JISYO.L) to Emacs Lisp
|
||||
;;; ja-dic-cnv.el --- convert a Japanese dictionary (SKK-JISYO.L) to Emacs Lisp
|
||||
|
||||
;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
@ -562,8 +562,8 @@ To get complete usage, invoke:
|
|||
|
||||
(provide 'ja-dic-cnv)
|
||||
|
||||
;; ja-dic-cnv.el ends here
|
||||
|
||||
;; Local Variables:
|
||||
;; coding: iso-2022-7bit
|
||||
;; End:
|
||||
|
||||
;;; ja-dic-cnv.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ja-dic-utl.el --- Utilities for handling Japanese dictionary (SKK-JISYO.L)
|
||||
;;; ja-dic-utl.el --- utilities for handling Japanese dictionary (SKK-JISYO.L)
|
||||
|
||||
;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
@ -213,8 +213,8 @@ LEIM is available from the same ftp directory as Emacs."))
|
|||
;;
|
||||
(provide 'ja-dic-utl)
|
||||
|
||||
;; ja-dic-utl.el ends here
|
||||
|
||||
;; Local Variables:
|
||||
;; coding: iso-2022-7bit
|
||||
;; End:
|
||||
|
||||
;;; ja-dic-utl.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; kinsoku.el --- `Kinsoku' processing funcs. -*- coding: iso-2022-7bit; -*-
|
||||
;;; kinsoku.el --- `Kinsoku' processing funcs -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
@ -170,4 +170,4 @@ the context of text formatting."
|
|||
(aref (char-category-set (preceding-char)) ?<))
|
||||
(kinsoku-shorter linebeg))))
|
||||
|
||||
;; kinsoku.el ends here
|
||||
;;; kinsoku.el ends here
|
||||
|
|
|
|||
|
|
@ -655,4 +655,4 @@ and change the current conversion to the last one in the group."
|
|||
;;
|
||||
(provide 'kkc)
|
||||
|
||||
;; kkc.el ends here
|
||||
;;; kkc.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; mule-cmds.el --- Commands for mulitilingual environment
|
||||
;;; mule-cmds.el --- commands for mulitilingual environment
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
@ -23,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile (defvar dos-codepage))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; mule-diag.el --- Show diagnosis of multilingual environment (Mule)
|
||||
;;; mule-diag.el --- show diagnosis of multilingual environment (Mule)
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
@ -22,6 +22,10 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;; General utility function
|
||||
|
||||
;; Print all arguments with single space separator in one line.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; mule-util.el --- Utility functions for mulitilingual environment (mule)
|
||||
;;; mule-util.el --- utility functions for mulitilingual environment (mule)
|
||||
|
||||
;; Copyright (C) 1995 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:
|
||||
|
||||
;;; String manipulations while paying attention to multibyte
|
||||
|
|
|
|||
|
|
@ -23,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defconst mule-version "5.0 (SAKAKI)" "\
|
||||
|
|
|
|||
|
|
@ -22,7 +22,7 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Comments:
|
||||
;;; Commentary:
|
||||
|
||||
;; Convert cxterm dictionary (of TIT format) to quail-package.
|
||||
;;
|
||||
|
|
@ -1179,8 +1179,8 @@ to store generated Quail packages."
|
|||
(miscdic-convert filename dir))))
|
||||
(kill-emacs 0))
|
||||
|
||||
;;; titdic-cnv.el ends here
|
||||
|
||||
;; Local Variables:
|
||||
;; coding: iso-2022-7bit
|
||||
;; End:
|
||||
|
||||
;;; titdic-cnv.el ends here
|
||||
|
|
|
|||
|
|
@ -22,6 +22,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Hz/ZW encoding stuffs
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; chinese.el --- Support for Chinese -*- coding: iso-2022-7bit; -*-
|
||||
;;; chinese.el --- support for Chinese -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; cyril-util.el --- utilities for Cyrillic scripts
|
||||
;;; cyril-util.el --- utilities for Cyrillic scripts
|
||||
|
||||
;; Copyright (C) 1997 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
|
||||
|
|
@ -189,8 +191,8 @@ If the argument is nil, we return the display table to its standard state."
|
|||
;;
|
||||
(provide 'cyril-util)
|
||||
|
||||
;;; cyril-util.el ends here
|
||||
|
||||
;; Local Variables:
|
||||
;; coding: iso-2022-7bit
|
||||
;; End:
|
||||
|
||||
;;; cyril-util.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; cyrillic.el --- Support for Cyrillic -*- coding: iso-2022-7bit; -*-
|
||||
;;; cyrillic.el --- support for Cyrillic -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; english.el --- English support
|
||||
;;; english.el --- support for English
|
||||
|
||||
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
@ -28,7 +28,7 @@
|
|||
;; English as a language environment is one of the ways to reset
|
||||
;; various multilingual environment to the original settting.
|
||||
|
||||
;;; Code
|
||||
;;; Code:
|
||||
|
||||
(set-language-info-alist
|
||||
"English" '((tutorial . "TUTORIAL")
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; greek.el --- Support for Greek
|
||||
;;; greek.el --- support for Greek
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; hebrew.el --- Support for Hebrew -*- coding: iso-2022-7bit; -*-
|
||||
;;; hebrew.el --- support for Hebrew -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
|
|||
|
|
@ -1,5 +1,4 @@
|
|||
;;; japan-util.el --- utilities for Japanese -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;;; japan-util.el --- utilities for Japanese -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
@ -24,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defvar sentence-end-save nil)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; japanese.el --- Japanese support -*- coding: iso-2022-7bit; -*-
|
||||
;;; japanese.el --- support for Japanese -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
|
|||
|
|
@ -21,6 +21,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;;###autoload
|
||||
|
|
@ -133,4 +135,4 @@
|
|||
;;
|
||||
(provide 'korea-util)
|
||||
|
||||
;;; korean-util.el ends here
|
||||
;;; korea-util.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; korean.el --- Support for Korean -*- coding: iso-2022-7bit; -*-
|
||||
;;; korean.el --- support for Korean -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995 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:
|
||||
|
||||
;; Setting information of Thai characters.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; lao.el --- Support for Lao -*- coding: iso-2022-7bit; -*-
|
||||
;;; lao.el --- support for Lao -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1997 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:
|
||||
|
||||
(make-coding-system
|
||||
|
|
|
|||
|
|
@ -22,6 +22,10 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;; IPA (International Phonetic Alphabet)
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
@ -40,4 +44,3 @@ and Italian.")))
|
|||
(provide 'misc-lang)
|
||||
|
||||
;;; misc-lang.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; slovak.el --- Support for Slovak -*- coding: iso-2022-7bit; -*-
|
||||
;;; slovak.el --- support for Slovak -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1998, 2001 Free Software Foundation.
|
||||
|
||||
|
|
@ -48,4 +48,4 @@ and select's the Slovak tutorial."))
|
|||
|
||||
(provide 'slovak)
|
||||
|
||||
;; slovak.el ends here
|
||||
;;; slovak.el ends here
|
||||
|
|
|
|||
|
|
@ -22,6 +22,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Setting information of Thai characters.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; thai.el --- Support for Thai -*- coding: iso-2022-7bit; -*-
|
||||
;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; viet-util.el --- utilities for Vietnamese -*- coding: iso-2022-7bit; -*-
|
||||
;;; viet-util.el --- utilities for Vietnamese -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; vietnamese.el --- Support for Vietnamese -*- coding: iso-2022-7bit; -*-
|
||||
;;; vietnamese.el --- support for Vietnamese -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
;;; mh-comp --- mh-e functions for composing messages
|
||||
;; Time-stamp: <95/08/19 17:48:59 gildea>
|
||||
;;; mh-comp.el --- mh-e functions for composing messages
|
||||
;; Time-stamp: <2001-07-15 09:36:30 pavel>
|
||||
|
||||
;; Copyright (C) 1993,1995,1997,2000 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -7,7 +7,7 @@
|
|||
;; Keywords: mail
|
||||
;; Bug-reports: include `M-x mh-version' output in any correspondence
|
||||
|
||||
;; This file is part of mh-e, part of GNU Emacs.
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
|
|
@ -30,7 +30,7 @@
|
|||
|
||||
;;; Change Log:
|
||||
|
||||
;; $Id: mh-comp.el,v 1.20 2000/11/02 12:37:38 gerd Exp $
|
||||
;; $Id: mh-comp.el,v 1.21 2001/02/08 00:01:35 fx Exp $
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
|
@ -576,7 +576,7 @@ See also documentation for `\\[mh-send]' function."
|
|||
(if (y-or-n-p
|
||||
(format "A draft exists. Use for %s? " use))
|
||||
(if mh-error-if-no-draft
|
||||
(error "A prior draft exists."))
|
||||
(error "A prior draft exists"))
|
||||
t)))
|
||||
(erase-buffer)
|
||||
(insert-file-contents initial-contents)
|
||||
|
|
@ -1103,3 +1103,5 @@ various types of components in a message, see
|
|||
(autoload 'mh-revert-mhn-edit "mh-mime"
|
||||
"Undoes the effect of \\[mh-edit-mhn] by reverting to the backup file.
|
||||
Optional non-nil argument means don't ask for confirmation." t)
|
||||
|
||||
;;; mh-comp.el ends here
|
||||
|
|
|
|||
|
|
@ -7,7 +7,7 @@
|
|||
;; Keywords: mail
|
||||
;; Bug-reports: include `M-x mh-version' output in any correspondence
|
||||
|
||||
;; This file is part of mh-e, part of GNU Emacs.
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
|
|
@ -60,7 +60,7 @@
|
|||
;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
|
||||
;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu
|
||||
;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu
|
||||
(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.26 2000/08/16 20:38:40 monnier Exp $")
|
||||
(defconst mh-e-RCS-id "$Id: mh-e.el,v 1.27 2000/11/02 12:37:54 gerd Exp $")
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
|
@ -629,7 +629,7 @@ Flush mh-e's state out to MH. The message at the cursor becomes current."
|
|||
(save-excursion
|
||||
(mh-goto-msg msg nil t)
|
||||
(if (looking-at mh-refiled-msg-regexp)
|
||||
(error "Message %d is refiled. Undo refile before deleting." msg))
|
||||
(error "Message %d is refiled. Undo refile before deleting" msg))
|
||||
(if (looking-at mh-deleted-msg-regexp)
|
||||
nil
|
||||
(mh-set-folder-modified-p t)
|
||||
|
|
@ -643,7 +643,7 @@ Flush mh-e's state out to MH. The message at the cursor becomes current."
|
|||
(save-excursion
|
||||
(mh-goto-msg msg nil t)
|
||||
(cond ((looking-at mh-deleted-msg-regexp)
|
||||
(error "Message %d is deleted. Undo delete before moving." msg))
|
||||
(error "Message %d is deleted. Undo delete before moving" msg))
|
||||
((looking-at mh-refiled-msg-regexp)
|
||||
(if (y-or-n-p
|
||||
(format "Message %d already refiled. Copy to %s as well? "
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
;;; mh-funcs --- mh-e functions not everyone will use right away
|
||||
;; Time-stamp: <95/08/19 16:44:06 gildea>
|
||||
;;; mh-funcs.el --- mh-e functions not everyone will use right away
|
||||
;; Time-stamp: <2001-07-14 13:08:45 pavel>
|
||||
|
||||
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of mh-e, part of GNU Emacs.
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
|
|
@ -28,7 +28,7 @@
|
|||
|
||||
;;; Change Log:
|
||||
|
||||
;; $Id: mh-funcs.el,v 1.4 1995/11/03 02:29:34 kwzh Exp erik $
|
||||
;; $Id: mh-funcs.el,v 1.5 1996/01/14 07:34:30 erik Exp $
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
|
@ -352,3 +352,4 @@ Default directory is the last directory used, or initially the value of
|
|||
(mh-handle-process-error command value))
|
||||
(insert "\n(mh-store finished)\n")))
|
||||
|
||||
;;; mh-funcs.el ends here
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
;;; mh-mime --- mh-e support for composing MIME messages
|
||||
;; Time-stamp: <95/08/19 16:45:17 gildea>
|
||||
;;; mh-mime.el --- mh-e support for composing MIME messages
|
||||
;; Time-stamp: <2001-07-15 09:52:45 pavel>
|
||||
|
||||
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of mh-e, part of GNU Emacs.
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
|
|
@ -28,7 +28,7 @@
|
|||
|
||||
;;; Change Log:
|
||||
|
||||
;; $Id: mh-mime.el,v 1.7 1997/01/13 03:25:05 rms Exp kwzh $
|
||||
;; $Id: mh-mime.el,v 1.8 1998/09/23 21:51:50 kwzh Exp $
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
|
@ -234,8 +234,10 @@ Optional non-nil argument means don't ask for confirmation."
|
|||
(or noconfirm
|
||||
(yes-or-no-p (format "Revert buffer from file %s? "
|
||||
backup-file))
|
||||
(error "mhn edit revert not confirmed."))
|
||||
(error "mhn edit revert not confirmed"))
|
||||
(let ((buffer-read-only nil))
|
||||
(erase-buffer)
|
||||
(insert-file-contents backup-file))
|
||||
(after-find-file nil)))
|
||||
|
||||
;;; mh-mime.el ends here
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
;;; mh-pick --- make a search pattern and search for a message in mh-e
|
||||
;; Time-stamp: <95/08/19 16:45:16 gildea>
|
||||
;;; mh-pick.el --- make a search pattern and search for a message in mh-e
|
||||
;; Time-stamp: <2001-07-14 13:09:34 pavel>
|
||||
|
||||
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of mh-e, part of GNU Emacs.
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
|
|
@ -26,7 +26,7 @@
|
|||
|
||||
;;; Change Log:
|
||||
|
||||
;; $Id: mh-pick.el,v 1.4 1995/11/03 02:30:09 kwzh Exp erik $
|
||||
;; $Id: mh-pick.el,v 1.5 1996/01/14 07:34:30 erik Exp $
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
|
@ -193,3 +193,5 @@ Add the messages found to the sequence named `search'."
|
|||
(define-key mh-pick-mode-map "\C-c\C-fr" 'mh-to-field)
|
||||
(define-key mh-pick-mode-map "\C-c\C-fs" 'mh-to-field)
|
||||
(define-key mh-pick-mode-map "\C-c\C-ft" 'mh-to-field)
|
||||
|
||||
;;; mh-pick.el ends here
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
;;; mh-seq --- mh-e sequences support
|
||||
;; Time-stamp: <95/08/19 16:45:15 gildea>
|
||||
;;; mh-seq.el --- mh-e sequences support
|
||||
;; Time-stamp: <2001-07-14 13:10:33 pavel>
|
||||
|
||||
;; Copyright (C) 1993, 1995 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of mh-e, part of GNU Emacs.
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
|
|
@ -26,7 +26,7 @@
|
|||
|
||||
;;; Change Log:
|
||||
|
||||
;; $Id: mh-seq.el,v 1.5 1996/01/14 07:34:30 erik Exp kwzh $
|
||||
;; $Id: mh-seq.el,v 1.6 1996/01/29 23:16:57 kwzh Exp $
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
|
@ -235,3 +235,4 @@ If optional prefix argument provided, then prompt for the message sequence."
|
|||
(goto-char location)
|
||||
(insert-buffer-substring (current-buffer) beginning-of-line end))))
|
||||
|
||||
;;; mh-seq.el ends here
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
;;; mh-utils.el --- mh-e code needed for both sending and reading
|
||||
;; Time-stamp: <95/10/22 17:58:16 gildea>
|
||||
;; Time-stamp: <2001-07-15 09:52:59 pavel>
|
||||
|
||||
;; Copyright (C) 1993, 1995, 1997, 2000 Free Software Foundation, Inc.
|
||||
|
||||
;; This file is part of mh-e, part of GNU Emacs.
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; GNU Emacs is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
|
|
@ -579,7 +579,7 @@ Non-nil third argument means not to show the message."
|
|||
(if (not (mh-folder-name-p mh-draft-folder))
|
||||
(setq mh-draft-folder (format "+%s" mh-draft-folder)))
|
||||
(if (not (file-exists-p (mh-expand-file-name mh-draft-folder)))
|
||||
(error "Draft folder \"%s\" not found. Create it and try again."
|
||||
(error "Draft folder \"%s\" not found. Create it and try again"
|
||||
(mh-expand-file-name mh-draft-folder)))))
|
||||
(setq mh-inbox (mh-get-profile-field "Inbox:"))
|
||||
(cond ((not mh-inbox)
|
||||
|
|
@ -978,7 +978,7 @@ directory names."
|
|||
(end-of-line)
|
||||
(point))))
|
||||
(display-buffer (current-buffer))
|
||||
(error "%s failed with status %d. See error message in other window."
|
||||
(error "%s failed with status %d. See error message in other window"
|
||||
command status)))))))
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,12 @@
|
|||
;;; sc.el --- old name for supercite
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'supercite)
|
||||
(provide 'sc)
|
||||
|
||||
;; sc.el ends here
|
||||
;;; sc.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; unrmail.el --- convert Rmail files to mailbox files.
|
||||
;;; unrmail.el --- convert Rmail files to mailbox files
|
||||
|
||||
;;; Copyright (C) 1992 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -21,6 +21,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defvar command-line-args-left) ;Avoid 'free variable' warning
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
;;; midnight.el --- run something every midnight, e.g., kill old buffers.
|
||||
;;; midnight.el --- run something every midnight, e.g., kill old buffers
|
||||
|
||||
;;; Copyright (C) 1998 Free Software Foundation, Inc.
|
||||
|
||||
;;; Author: Sam Steingold <sds@usa.net>
|
||||
;;; Maintainer: Sam Steingold <sds@usa.net>
|
||||
;;; Created: 1998-05-18
|
||||
;;; Keywords: utilities
|
||||
;; Author: Sam Steingold <sds@usa.net>
|
||||
;; Maintainer: Sam Steingold <sds@usa.net>
|
||||
;; Created: 1998-05-18
|
||||
;; Keywords: utilities
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,5 +1,11 @@
|
|||
;;; patcomp.el --- used by patch files to update Emacs releases
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defun batch-byte-recompile-emacs ()
|
||||
"Recompile the Emacs `lisp' directory.
|
||||
This is used after installing the patches for a new version."
|
||||
|
|
@ -12,3 +18,5 @@ This is used after installing the patches for a new version.
|
|||
It uses the command line arguments to specify the files to compile."
|
||||
(let ((load-path (list (expand-file-name "lisp"))))
|
||||
(batch-byte-compile)))
|
||||
|
||||
;;; patcomp.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; pcmpl-cvs --- functions for dealing with cvs completions
|
||||
;;; pcmpl-cvs.el --- functions for dealing with cvs completions
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; pcmpl-gnu --- completions for GNU project tools
|
||||
;;; pcmpl-gnu.el --- completions for GNU project tools
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
@ -19,6 +19,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(provide 'pcmpl-gnu)
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; pcmpl-linux --- functions for dealing with GNU/Linux completions
|
||||
;;; pcmpl-linux.el --- functions for dealing with GNU/Linux completions
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; pcmpl-rpm --- functions for dealing with rpm completions
|
||||
;;; pcmpl-rpm.el --- functions for dealing with rpm completions
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
@ -324,6 +324,6 @@ You can use \\[eshell-report-bug] to do so."
|
|||
(pcomplete-dirs-or-entries "\\.tar\\'")
|
||||
(pcomplete-dirs-or-entries "\\.spec\\'"))))))
|
||||
(t
|
||||
(error "You must select a mode: -q, -i, -U, --verify, etc."))))))
|
||||
(error "You must select a mode: -q, -i, -U, --verify, etc"))))))
|
||||
|
||||
;;; pcmpl-rpm.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; pcmpl-unix --- standard UNIX completions
|
||||
;;; pcmpl-unix.el --- standard UNIX completions
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
|
||||
|
|
@ -19,6 +19,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(provide 'pcmpl-unix)
|
||||
|
|
|
|||
|
|
@ -3,6 +3,8 @@
|
|||
;;; This is in the public domain, since it was distributed
|
||||
;;; by its author without a copyright notice in 1986.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; Keywords: games
|
||||
|
||||
;;; Commentary:
|
||||
|
|
|
|||
|
|
@ -2,10 +2,10 @@
|
|||
|
||||
;; Copyright (C) 2000 Free Software Foundation, Inc.
|
||||
|
||||
;;; Author: Victor Zandy <zandy@cs.wisc.edu>
|
||||
;;; Maintainer: Thien-Thi Nguyen <ttn@gnu.org>
|
||||
;;; Keywords: games
|
||||
;;; Created: June 6, 1998
|
||||
;; Author: Victor Zandy <zandy@cs.wisc.edu>
|
||||
;; Maintainer: Thien-Thi Nguyen <ttn@gnu.org>
|
||||
;; Keywords: games
|
||||
;; Created: June 6, 1998
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; replace.el --- replace commands for Emacs.
|
||||
;;; replace.el --- replace commands for Emacs
|
||||
|
||||
;; Copyright (C) 1985, 86, 87, 92, 94, 96, 1997, 2000, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; select.el --- lisp portion of standard selection support.
|
||||
;;; select.el --- lisp portion of standard selection support
|
||||
|
||||
;; Keywords: internal
|
||||
|
||||
|
|
@ -22,6 +22,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; This is for temporary compatibility with pre-release Emacs 19.
|
||||
|
|
@ -314,4 +316,4 @@ Cut buffers are considered obsolete; you should use selections instead."
|
|||
|
||||
(provide 'select)
|
||||
|
||||
;;; select.el ends here.
|
||||
;;; select.el ends here
|
||||
|
|
|
|||
|
|
@ -20,6 +20,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
(defvar custom-declare-variable-list nil
|
||||
"Record `defcustom' calls made before `custom.el' is loaded to handle them.
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Reference in a new issue