Some fixes to follow coding conventions.
This commit is contained in:
Pavel Janík
parent
4cba8c0bdc
commit
e8af40eed4
147 changed files with 455 additions and 323 deletions
|
|
@ -1,3 +1,55 @@
|
|||
2001-07-16 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
|
||||
|
||||
* align.el, apropos.el, autorevert.el, battery.el, bookmark.el,
|
||||
calculator.el, calendar/todo-mode.el, complete.el, cus-dep.el,
|
||||
cus-edit.el, cus-face.el, delim-col.el, dos-fns.el, double.el,
|
||||
edmacro.el, elide-head.el, emacs-lisp/autoload.el,
|
||||
emacs-lisp/checkdoc.el, emacs-lisp/cl-compat.el,
|
||||
emacs-lisp/cl-specs.el, emacs-lisp/copyright.el,
|
||||
emacs-lisp/cust-print.el, emacs-lisp/easy-mmode.el,
|
||||
emacs-lisp/elint.el, emacs-lisp/ewoc.el, emacs-lisp/find-func.el,
|
||||
emacs-lisp/pp.el, emacs-lisp/re-builder.el, emacs-lisp/shadow.el,
|
||||
emacs-lisp/sregex.el, emerge.el, emulation/edt-lk201.el,
|
||||
emulation/edt-mapper.el, emulation/edt-pc.el,
|
||||
emulation/edt-vt100.el, emulation/edt.el, emulation/pc-select.el,
|
||||
emulation/tpu-edt.el, emulation/tpu-extras.el,
|
||||
emulation/tpu-mapper.el, emulation/vip.el, expand.el, finder.el,
|
||||
foldout.el, follow.el, format.el, forms-d2.el, forms.el,
|
||||
generic.el, hi-lock.el, hilit-chg.el, hippie-exp.el, info-look.el,
|
||||
international/isearch-x.el, international/iso-cvt.el,
|
||||
international/ogonek.el, international/quail.el,
|
||||
international/utf-8.el, jit-lock.el, language/devan-util.el,
|
||||
language/devanagari.el, language/ethio-util.el,
|
||||
language/ethiopic.el, language/european.el, language/indian.el,
|
||||
language/romanian.el, language/tibet-util.el, language/tibetan.el,
|
||||
mail/feedmail.el, mail/footnote.el, mail/mail-hist.el,
|
||||
mail/mailheader.el, mail/mspools.el, mail/supercite.el,
|
||||
mouse-sel.el, net/browse-url.el, net/net-utils.el,
|
||||
net/quickurl.el, net/snmp-mode.el, net/webjump.el,
|
||||
net/zone-mode.el, pcomplete.el, progmodes/antlr-mode.el,
|
||||
progmodes/autoconf.el, progmodes/cmacexp.el,
|
||||
progmodes/cperl-mode.el, progmodes/cpp.el, progmodes/cwarn.el,
|
||||
progmodes/delphi.el, progmodes/ebnf-bnf.el, progmodes/ebnf-iso.el,
|
||||
progmodes/ebnf-otz.el, progmodes/ebnf-yac.el,
|
||||
progmodes/ebnf2ps.el, progmodes/executable.el,
|
||||
progmodes/fortran.el, progmodes/idlw-shell.el,
|
||||
progmodes/idlw-toolbar.el, progmodes/idlwave.el,
|
||||
progmodes/m4-mode.el, progmodes/mantemp.el,
|
||||
progmodes/meta-mode.el, progmodes/octave-inf.el,
|
||||
progmodes/ps-mode.el, progmodes/scheme.el, progmodes/simula.el,
|
||||
progmodes/tcl.el, ps-bdf.el, ps-mule.el, ps-print.el, recentf.el,
|
||||
rect.el, regi.el, rsz-mini.el, s-region.el, scroll-all.el,
|
||||
shadowfile.el, speedbar.el, term/AT386.el, term/internal.el,
|
||||
term/iris-ansi.el, term/mac-win.el, term/tvi970.el,
|
||||
textmodes/artist.el, textmodes/flyspell.el, textmodes/ispell.el,
|
||||
textmodes/page-ext.el, textmodes/refer.el, textmodes/texinfmt.el,
|
||||
textmodes/texinfo.el, textmodes/texnfo-upd.el,
|
||||
textmodes/two-column.el, time-stamp.el, timezone.el,
|
||||
toolbar/tool-bar.el, vc-rcs.el, vc-sccs.el, view.el, w32-fns.el,
|
||||
which-func.el, whitespace.el, wid-browse.el, widget.el,
|
||||
windmove.el, woman.el, xt-mouse.el: Some fixes to follow coding
|
||||
conventions.
|
||||
|
||||
2001-07-16 Gerd Moellmann <gerd@gnu.org>
|
||||
|
||||
* simple.el (set-variable): Require 'cus-edit' instead of
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; align --- align text to a specific column, by regexp
|
||||
;;; align.el --- align text to a specific column, by regexp
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Sofware Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; apropos.el --- apropos commands for users and programmers.
|
||||
;;; apropos.el --- apropos commands for users and programmers
|
||||
|
||||
;; Copyright (C) 1989, 1994, 1995 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; autorevert --- revert buffers when files on disk change
|
||||
;;; autorevert.el --- revert buffers when files on disk change
|
||||
|
||||
;; Copyright (C) 1997, 1998, 1999, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -373,4 +373,4 @@ the timer when no buffers need to be checked."
|
|||
(if global-auto-revert-mode
|
||||
(global-auto-revert-mode 1))
|
||||
|
||||
;; autorevert.el ends here.
|
||||
;;; autorevert.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; battery.el --- display battery status information.
|
||||
;;; battery.el --- display battery status information
|
||||
|
||||
;; Copyright (C) 1997, 1998, 2000, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later.
|
||||
;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later
|
||||
|
||||
;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 2001 Free Software Foundation
|
||||
|
||||
|
|
@ -77,7 +77,7 @@
|
|||
;; Boy, that's a tough one. Probably Hong Min, or maybe Emperor's
|
||||
;; Choice (both in Chicago's Chinatown). Well, both. How about you?
|
||||
|
||||
;;;; Code:
|
||||
;;; Code:
|
||||
|
||||
(require 'pp)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,10 +1,10 @@
|
|||
;;; calculator.el --- A [not so] simple calculator for Emacs.
|
||||
;;; calculator.el --- a [not so] simple calculator for Emacs
|
||||
|
||||
;; Copyright (C) 1998, 2000 by Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Eli Barzilay <eli@barzilay.org>
|
||||
;; Keywords: tools, convenience
|
||||
;; Time-stamp: <2000-11-19 20:59:59 eli>
|
||||
;; Time-stamp: <2001-07-15 11:04:11 pavel>
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
;; todo-mode.el -- Major mode for editing TODO list files
|
||||
;;; todo-mode.el --- major mode for editing TODO list files
|
||||
|
||||
;; Copyright (C) 1997, 1999, 2001 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Oliver Seidel <os10000@seidel-space.de>
|
||||
;; [Not clear the above works, July 2000]
|
||||
;; Created: 2 Aug 1997
|
||||
;; Version: $Id: todo-mode.el,v 1.45 2001/07/05 13:44:53 gerd Exp $
|
||||
;; Version: $Id: todo-mode.el,v 1.46 2001/07/05 13:51:17 gerd Exp $
|
||||
;; Keywords: calendar, todo
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
@ -97,7 +97,7 @@
|
|||
;;
|
||||
;; Which version of todo-mode.el does this documentation refer to?
|
||||
;;
|
||||
;; $Id: todo-mode.el,v 1.45 2001/07/05 13:44:53 gerd Exp $
|
||||
;; $Id: todo-mode.el,v 1.46 2001/07/05 13:51:17 gerd Exp $
|
||||
;;
|
||||
;; Pre-Requisites
|
||||
;;
|
||||
|
|
|
|||
|
|
@ -946,4 +946,4 @@ absolute rather than relative to some directory on the SEARCH-PATH."
|
|||
|
||||
(provide 'complete)
|
||||
|
||||
;;; End.
|
||||
;;; complete.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; cus-dep.el --- Find customization dependencies.
|
||||
;;; cus-dep.el --- find customization dependencies
|
||||
;;
|
||||
;; Copyright (C) 1997 Free Software Foundation, Inc.
|
||||
;;
|
||||
|
|
@ -22,6 +22,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile (require 'cl))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; cus-edit.el --- Tools for customizing Emacs and Lisp packages.
|
||||
;;; cus-edit.el --- tools for customizing Emacs and Lisp packages
|
||||
;;
|
||||
;; Copyright (C) 1996, 1997, 1999, 2000, 2001 Free Software Foundation, Inc.
|
||||
;;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; cus-face.el -- customization support for faces.
|
||||
;;; cus-face.el --- customization support for faces
|
||||
;;
|
||||
;; Copyright (C) 1996, 1997, 1999, 2000 Free Software Foundation, Inc.
|
||||
;;
|
||||
|
|
|
|||
|
|
@ -1,13 +1,13 @@
|
|||
;;; delim-col.el --- Prettify all columns in a region or rectangle.
|
||||
;;; delim-col.el --- prettify all columns in a region or rectangle
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Time-stamp: <2000/10/28 09:34:15 Vinicius>
|
||||
;; Version: 2.1
|
||||
;; Keywords: internal
|
||||
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
|
||||
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Time-stamp: <2001-07-15 11:12:35 pavel>
|
||||
;; Version: 2.1
|
||||
;; Keywords: internal
|
||||
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; dos-fns.el --- MS-Dos specific functions.
|
||||
;;; dos-fns.el --- MS-Dos specific functions
|
||||
|
||||
;; Copyright (C) 1991, 1993, 1995, 1996 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -244,4 +244,4 @@ that your video hardware might not support 50-line mode."
|
|||
|
||||
(provide 'dos-fns)
|
||||
|
||||
; dos-fns.el ends here
|
||||
;;; dos-fns.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; double.el --- Support for keyboard remapping with double clicking
|
||||
;;; double.el --- support for keyboard remapping with double clicking
|
||||
|
||||
;; Copyright (C) 1994, 1997, 1998 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -208,4 +208,3 @@ when pressed twice. See variable `double-map' for details."
|
|||
(provide 'double)
|
||||
|
||||
;;; double.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -722,4 +722,3 @@ If START or END is negative, it counts from the end."
|
|||
(provide 'edmacro)
|
||||
|
||||
;;; edmacro.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; elid-head.el --- hide headers in files
|
||||
;;; elide-head.el --- hide headers in files
|
||||
|
||||
;; Copyright (C) 1999 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; autoload.el --- maintain autoloads in loaddefs.el.
|
||||
;;; autoload.el --- maintain autoloads in loaddefs.el
|
||||
|
||||
;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; checkdoc --- Check documentation strings for style requirements
|
||||
;;; checkdoc.el --- check documentation strings for style requirements
|
||||
|
||||
;;; Copyright (C) 1997, 1998, 2001 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -186,4 +186,3 @@
|
|||
(provide 'cl-compat)
|
||||
|
||||
;;; cl-compat.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -7,7 +7,7 @@
|
|||
;; LCD Archive Entry:
|
||||
;; cl-specs.el|Daniel LaLiberte|liberte@holonexus.org
|
||||
;; |Edebug specs for cl.el
|
||||
;; |$Date: 2000/04/13 19:10:09 $|1.1|
|
||||
;; |$Date: 2000/08/15 12:39:03 $|1.1|
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
@ -26,13 +26,15 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;;; Commentary:
|
||||
;;; Commentary:
|
||||
|
||||
;; 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 shouldn't hurt.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(provide 'cl-specs)
|
||||
;; Do the above provide before the following require.
|
||||
;; Otherwise if you load this before edebug if cl is already loaded
|
||||
|
|
@ -468,3 +470,4 @@
|
|||
(def-edebug-spec loop-d-type-spec
|
||||
(&or (loop-d-type-spec . [&or nil loop-d-type-spec]) cl-type-spec))
|
||||
|
||||
;;; cl-specs.el ends here
|
||||
|
|
|
|||
|
|
@ -165,4 +165,4 @@ copyright, if any, are updated as well."
|
|||
;; coding: emacs-mule
|
||||
;; End:
|
||||
|
||||
;; copyright.el ends here
|
||||
;;; copyright.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; cust-print.el --- handles print-level and print-circle.
|
||||
;;; cust-print.el --- handles print-level and print-circle
|
||||
|
||||
;; Copyright (C) 1992 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -689,4 +689,3 @@ See `custom-format' for the details."
|
|||
(provide 'cust-print)
|
||||
|
||||
;;; cust-print.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; easy-mmode.el --- easy definition for major and minor modes.
|
||||
;;; easy-mmode.el --- easy definition for major and minor modes
|
||||
|
||||
;; Copyright (C) 1997,2000 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; elint.el -- Lint Emacs Lisp
|
||||
;;; elint.el --- Lint Emacs Lisp
|
||||
|
||||
;; Copyright (C) 1997 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -806,4 +806,3 @@ If no documentation could be found args will be `unknown'."
|
|||
(provide 'elint)
|
||||
|
||||
;;; elint.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ewoc.el -- Utility to maintain a view of a list of objects in a buffer
|
||||
;;; ewoc.el --- utility to maintain a view of a list of objects in a buffer
|
||||
|
||||
;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@
|
|||
;; ("help.el") and `fff-find-loaded-emacs-lisp-function' (Noah Friedman's
|
||||
;; "fff.el").
|
||||
|
||||
;;;; Code:
|
||||
;;; Code:
|
||||
|
||||
(require 'loadhist)
|
||||
|
||||
|
|
|
|||
|
|
@ -21,7 +21,10 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defgroup pp nil
|
||||
"Pretty printer for Emacs Lisp."
|
||||
:prefix "pp-"
|
||||
|
|
@ -162,4 +165,4 @@ Ignores leading comment characters."
|
|||
|
||||
(provide 'pp) ; so (require 'pp) works
|
||||
|
||||
;;; pp.el ends here.
|
||||
;;; pp.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; re-builder.el --- Building Regexps with visual feedback
|
||||
;;; re-builder.el --- building Regexps with visual feedback
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; shadow.el --- Locate Emacs Lisp file shadowings.
|
||||
;;; shadow.el --- locate Emacs Lisp file shadowings
|
||||
|
||||
;; Copyright (C) 1995 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -606,4 +606,3 @@ has one of the following forms:
|
|||
(provide 'sregex)
|
||||
|
||||
;;; sregex.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -2,6 +2,8 @@
|
|||
|
||||
;;; The author has placed this file in the public domain.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; Author: Dale R. Worley <worley@world.std.com>
|
||||
;; Version: 5fsf
|
||||
;; Keywords: unix, tools
|
||||
|
|
@ -19,6 +21,8 @@
|
|||
;; LOST DATA OR LOST PROFITS, OR FOR ANY SPECIAL, INCIDENTAL OR CONSEQUENTIAL
|
||||
;; DAMAGES.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;;###autoload
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; edt-lk201.el --- Enhanced EDT Keypad Mode Emulation for LK-201 Keyboards
|
||||
;;; edt-lk201.el --- enhanced EDT keypad mode emulation for LK-201 keyboards
|
||||
|
||||
;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -23,7 +23,7 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Usage:
|
||||
;;; Commentary:
|
||||
|
||||
;; See edt-user.doc in the Emacs etc directory.
|
||||
|
||||
|
|
@ -39,6 +39,9 @@
|
|||
;; F1 - F5 are not available on many DEC VT series terminals.
|
||||
;; However, this is not always the case. So support for F1 - F5 is
|
||||
;; provided here and in lisp/term/lk201.el.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defconst *EDT-keys*
|
||||
'(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3])
|
||||
("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7])
|
||||
|
|
@ -53,3 +56,5 @@
|
|||
("F11" . [f11]) ("F12" . [f12]) ("F13" . [f13]) ("F14" . [f14])
|
||||
("HELP" . [help]) ("DO" . [menu]) ("F17" . [f17]) ("F18" . [f18])
|
||||
("F19" . [f19]) ("F20" . [f20])))
|
||||
|
||||
;;; edt-lk201.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; edt-mapper.el --- Create an EDT LK-201 Map File for X-Windows Emacs
|
||||
;;; edt-mapper.el --- create an EDT LK-201 map file for X-Windows Emacs
|
||||
|
||||
;; Copyright (C) 1994, 1995, 2000, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; edt-pc.el --- Enhanced EDT Keypad Mode Emulation for PC 101 Keyboards
|
||||
;;; edt-pc.el --- enhanced EDT keypad mode emulation for PC 101 keyboards
|
||||
|
||||
;; Copyright (C) 1986, 1994, 1995 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -23,7 +23,7 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Usage:
|
||||
;;; Commentary:
|
||||
|
||||
;; See edt-user.doc in the Emacs etc directory.
|
||||
|
||||
|
|
@ -68,6 +68,9 @@
|
|||
;; and F17 through F20 do not exist on the PC, so the EDT emulation is
|
||||
;; configured below to ignore attempts to bind functions to those keys.
|
||||
;;
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defconst *EDT-keys*
|
||||
'(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3])
|
||||
("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7])
|
||||
|
|
@ -83,3 +86,5 @@
|
|||
("F11" . [f11]) ("F12" . [f12]) ("F13" . "" ) ("F14" . "" )
|
||||
("HELP" . "" ) ("DO" . "" ) ("F17" . "" ) ("F18" . "" )
|
||||
("F19" . "" ) ("F20" . "" )))
|
||||
|
||||
;;; edt-pc.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; edt-vt100.el --- Enhanced EDT Keypad Mode Emulation for VT Series Terminals
|
||||
;;; edt-vt100.el --- enhanced EDT keypad mode emulation for VT series terminals
|
||||
|
||||
;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -23,12 +23,15 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Usage:
|
||||
;;; Commentary:
|
||||
|
||||
;; See edt-user.doc in the Emacs etc directory.
|
||||
|
||||
;; ====================================================================
|
||||
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Get keyboard function key mapping to EDT keys.
|
||||
(load "edt-lk201" nil t)
|
||||
|
||||
|
|
@ -42,3 +45,5 @@
|
|||
(defun edt-set-term-width-132 ()
|
||||
"Set terminal width to 132 columns."
|
||||
(vt100-wide-mode 1))
|
||||
|
||||
;;; edt-vt100.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; edt.el --- Enhanced EDT Keypad Mode Emulation for GNU Emacs 19
|
||||
;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 19
|
||||
|
||||
;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
|
|||
|
|
@ -77,6 +77,8 @@
|
|||
;; other programs.
|
||||
;;
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;;; Customization:
|
||||
(defgroup pc-select nil
|
||||
"Emulate pc bindings."
|
||||
|
|
|
|||
|
|
@ -1071,7 +1071,7 @@ kills modified buffers without asking."
|
|||
(interactive)
|
||||
(let ((list (tpu-make-file-buffer-list (buffer-list))))
|
||||
(setq list (delq (current-buffer) list))
|
||||
(if (not list) (error "No other buffers."))
|
||||
(if (not list) (error "No other buffers"))
|
||||
(switch-to-buffer (car (reverse list)))))
|
||||
|
||||
(defun tpu-make-file-buffer-list (buffer-list)
|
||||
|
|
@ -1343,7 +1343,7 @@ The text is saved for the tpu-paste command."
|
|||
(delete-region beg end)
|
||||
(tpu-unset-match)))
|
||||
(t
|
||||
(error "No selection active."))))
|
||||
(error "No selection active"))))
|
||||
|
||||
(defun tpu-store-text nil
|
||||
"Copy the selected region to the cut buffer without deleting it.
|
||||
|
|
@ -1365,7 +1365,7 @@ The text is saved for the tpu-paste command."
|
|||
(buffer-substring (tpu-match-beginning) (tpu-match-end)))
|
||||
(tpu-unset-match))
|
||||
(t
|
||||
(error "No selection active."))))
|
||||
(error "No selection active"))))
|
||||
|
||||
(defun tpu-cut (arg)
|
||||
"Copy selected region to the cut buffer. In the absence of an
|
||||
|
|
@ -1392,7 +1392,7 @@ argument, delete the selected region too."
|
|||
(if (not arg) (delete-region beg end))
|
||||
(tpu-unset-match)))
|
||||
(t
|
||||
(error "No selection active."))))
|
||||
(error "No selection active"))))
|
||||
|
||||
(defun tpu-delete-current-line (num)
|
||||
"Delete one or specified number of lines after point.
|
||||
|
|
@ -1532,7 +1532,7 @@ With argument reinserts the character that many times."
|
|||
(not case-replace) (not tpu-regexp-p))
|
||||
(tpu-unset-match)))
|
||||
(t
|
||||
(error "No selection active."))))
|
||||
(error "No selection active"))))
|
||||
|
||||
(defun tpu-substitute (num)
|
||||
"Replace the selected region with the contents of the cut buffer, and
|
||||
|
|
@ -1548,7 +1548,7 @@ A negative argument means replace all occurrences of the search string."
|
|||
(tpu-search-internal-core tpu-search-last-string)))
|
||||
(setq num (1- num))))
|
||||
(t
|
||||
(error "No selection active."))))
|
||||
(error "No selection active"))))
|
||||
|
||||
(defun tpu-lm-replace (from to)
|
||||
"Interactively search for OLD-string and substitute NEW-string."
|
||||
|
|
@ -1558,7 +1558,7 @@ A negative argument means replace all occurrences of the search string."
|
|||
(let ((doit t) (strings 0))
|
||||
|
||||
;; Can't replace null strings
|
||||
(if (string= "" from) (error "No string to replace."))
|
||||
(if (string= "" from) (error "No string to replace"))
|
||||
|
||||
;; Find the first occurrence
|
||||
(tpu-set-search)
|
||||
|
|
@ -1631,7 +1631,7 @@ are performed without asking. Only works in forward direction."
|
|||
or each line in the entire buffer if no region is selected."
|
||||
(interactive
|
||||
(list (tpu-string-prompt "String to add: " 'tpu-add-at-bol-hist)))
|
||||
(if (string= "" text) (error "No string specified."))
|
||||
(if (string= "" text) (error "No string specified"))
|
||||
(cond ((tpu-mark)
|
||||
(save-excursion
|
||||
(if (> (point) (tpu-mark)) (exchange-point-and-mark))
|
||||
|
|
@ -1649,7 +1649,7 @@ or each line in the entire buffer if no region is selected."
|
|||
or each line of the entire buffer if no region is selected."
|
||||
(interactive
|
||||
(list (tpu-string-prompt "String to add: " 'tpu-add-at-eol-hist)))
|
||||
(if (string= "" text) (error "No string specified."))
|
||||
(if (string= "" text) (error "No string specified"))
|
||||
(cond ((tpu-mark)
|
||||
(save-excursion
|
||||
(if (> (point) (tpu-mark)) (exchange-point-and-mark))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; tpu-extras.el --- Scroll margins and free cursor mode for TPU-edt
|
||||
;;; tpu-extras.el --- scroll margins and free cursor mode for TPU-edt
|
||||
|
||||
;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; tpu-mapper.el --- Create a TPU-edt X-windows keymap file
|
||||
;;; tpu-mapper.el --- create a TPU-edt X-windows keymap file
|
||||
|
||||
;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -817,7 +817,7 @@ is the name of the register for COM."
|
|||
(com (car (cdr (cdr vip-d-com))))
|
||||
(reg (nth 3 vip-d-com)))
|
||||
(if (null val) (setq val (car (cdr vip-d-com))))
|
||||
(if (null m-com) (error "No previous command to repeat."))
|
||||
(if (null m-com) (error "No previous command to repeat"))
|
||||
(setq vip-use-register reg)
|
||||
(funcall m-com (cons val com)))))
|
||||
|
||||
|
|
@ -1499,7 +1499,7 @@ used. This behaviour is controlled by the sign of prefix numeric value."
|
|||
(let ((com (vip-getcom arg)))
|
||||
(if (numberp arg)
|
||||
(if (or (> arg 99) (< arg 1))
|
||||
(error "Prefix must be between 1 and 99.")
|
||||
(error "Prefix must be between 1 and 99")
|
||||
(goto-char
|
||||
(if (> (point-max) 80000)
|
||||
(* (/ (point-max) 100) arg)
|
||||
|
|
@ -1693,7 +1693,7 @@ STRING. Search will be forward if FORWARD, otherwise backward."
|
|||
"Repeat previous search."
|
||||
(interactive "P")
|
||||
(let ((val (vip-p-val arg)) (com (vip-getcom arg)))
|
||||
(if (null vip-s-string) (error "No previous search string."))
|
||||
(if (null vip-s-string) (error "No previous search string"))
|
||||
(vip-search vip-s-string vip-s-forward arg)
|
||||
(if com (vip-execute-com 'vip-search-next val com))))
|
||||
|
||||
|
|
@ -1701,7 +1701,7 @@ STRING. Search will be forward if FORWARD, otherwise backward."
|
|||
"Repeat previous search in the reverse direction."
|
||||
(interactive "P")
|
||||
(let ((val (vip-p-val arg)) (com (vip-getcom arg)))
|
||||
(if (null vip-s-string) (error "No previous search string."))
|
||||
(if (null vip-s-string) (error "No previous search string"))
|
||||
(vip-search vip-s-string (not vip-s-forward) arg)
|
||||
(if com (vip-execute-com 'vip-search-Next val com))))
|
||||
|
||||
|
|
@ -1742,11 +1742,11 @@ STRING. Search will be forward if FORWARD, otherwise backward."
|
|||
(if (null buffer-name)
|
||||
(current-buffer)
|
||||
(get-buffer buffer-name)))
|
||||
(if (null buffer) (error "Buffer %s nonexistent." buffer-name))
|
||||
(if (null buffer) (error "Buffer %s nonexistent" buffer-name))
|
||||
(if (or (not (buffer-modified-p buffer))
|
||||
(y-or-n-p "Buffer is modified, are you sure? "))
|
||||
(kill-buffer buffer)
|
||||
(error "Buffer not killed."))))
|
||||
(error "Buffer not killed"))))
|
||||
|
||||
(defun vip-find-file ()
|
||||
"Visit file in the current window."
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; expand.el --- make abbreviations more usable.
|
||||
;;; expand.el --- make abbreviations more usable
|
||||
|
||||
;; Copyright (C) 1995, 1996 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -116,6 +116,7 @@ no arguments compiles from `load-path'."
|
|||
(find-file "finder-inf.el")
|
||||
(erase-buffer)
|
||||
(insert ";;; finder-inf.el --- keyword-to-package mapping\n")
|
||||
(insert ";; This file is part of GNU Emacs.\n")
|
||||
(insert ";; Keywords: help\n")
|
||||
(insert ";;; Commentary:\n")
|
||||
(insert ";; Don't edit this file. It's generated by finder.el\n\n")
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; foldout.el --- Folding extensions for outline-mode and outline-minor-mode.
|
||||
;;; foldout.el --- folding extensions for outline-mode and outline-minor-mode
|
||||
|
||||
;; Copyright (C) 1994 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -568,4 +568,3 @@ Valid modifiers are shift, control, meta, alt, hyper and super.")
|
|||
(provide 'foldout)
|
||||
|
||||
;;; foldout.el ends here
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; follow.el --- Minor mode, Synchronize windows showing the same buffer.
|
||||
;;; follow.el --- synchronize windows showing the same buffer
|
||||
|
||||
;; Copyright (C) 1995, 1996, 1997, 1999, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -462,7 +462,7 @@ the value of `foo'."
|
|||
(cdr list)
|
||||
(let ((p list))
|
||||
(while (not (eq (cdr p) cons))
|
||||
(if (null p) (error "format-delq-cons: not an element."))
|
||||
(if (null p) (error "format-delq-cons: not an element"))
|
||||
(setq p (cdr p)))
|
||||
;; Now (cdr p) is the cons to delete
|
||||
(setcdr p (cdr cons))
|
||||
|
|
|
|||
|
|
@ -3,8 +3,14 @@
|
|||
;; Author: Johan Vromans <jvromans@squirrel.nl>
|
||||
;; Created: 1989
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; This sample forms exploit most of the features of forms mode.
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Set the name of the data file.
|
||||
(setq forms-file "forms-d2.dat")
|
||||
|
||||
|
|
@ -78,3 +84,5 @@ used to fill to the column."
|
|||
))
|
||||
|
||||
;; That's all, folks!
|
||||
|
||||
;;; forms-d2.el ends here
|
||||
|
|
|
|||
|
|
@ -301,10 +301,10 @@
|
|||
(provide 'forms) ;;; official
|
||||
(provide 'forms-mode) ;;; for compatibility
|
||||
|
||||
(defconst forms-version (substring "$Revision: 2.40 $" 11 -2)
|
||||
(defconst forms-version (substring "$Revision: 2.41 $" 11 -2)
|
||||
"The version number of forms-mode (as string). The complete RCS id is:
|
||||
|
||||
$Id: forms.el,v 2.40 1999/11/13 22:05:56 gerd Exp $")
|
||||
$Id: forms.el,v 2.41 2001/02/07 23:40:52 fx Exp $")
|
||||
|
||||
(defcustom forms-mode-hooks nil
|
||||
"Hook run upon entering Forms mode."
|
||||
|
|
@ -1219,7 +1219,7 @@ Commands: Equivalent keys in read-only mode:
|
|||
|
||||
;; Need a file to do this.
|
||||
(if (not (file-exists-p forms-file))
|
||||
(error "Need existing file or explicit 'forms-number-of-records'.")
|
||||
(error "Need existing file or explicit 'forms-number-of-records'")
|
||||
|
||||
;; Visit the file and extract the first record.
|
||||
(setq forms--file-buffer (find-file-noselect forms-file))
|
||||
|
|
@ -2090,4 +2090,4 @@ Usage: (setq forms-number-of-fields
|
|||
(goto-char (point-max))
|
||||
(insert ret)))))
|
||||
|
||||
;;; forms.el ends here.
|
||||
;;; forms.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; generic.el --- Defining simple major modes with comment and font-lock.
|
||||
;;; generic.el --- defining simple major modes with comment and font-lock
|
||||
;;
|
||||
;; Copyright (C) 1997, 1999 Free Software Foundation, Inc.
|
||||
;;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; hi-lock.el --- Minor mode for interactive automatic highlighting.
|
||||
;;; hi-lock.el --- minor mode for interactive automatic highlighting
|
||||
|
||||
;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -22,7 +22,7 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary
|
||||
;;; Commentary:
|
||||
;;
|
||||
;; With the hi-lock commands text matching interactively entered
|
||||
;; regexp's can be highlighted. For example, `M-x highlight-regexp
|
||||
|
|
|
|||
|
|
@ -853,11 +853,11 @@ changes are made, so \\[highlight-changes-next-change] and
|
|||
(if (buffer-modified-p buf-a)
|
||||
(if (y-or-n-p (format "OK to save %s? " file-a))
|
||||
(save-buffer buf-a)
|
||||
(error "Buffer must be saved before comparing with a file.")))
|
||||
(error "Buffer must be saved before comparing with a file")))
|
||||
(if (and existing-buf (buffer-modified-p buf-b))
|
||||
(if (y-or-n-p (format "OK to save %s? " file-b))
|
||||
(save-buffer buf-b)
|
||||
(error "Cannot compare with a file in an unsaved buffer.")))
|
||||
(error "Cannot compare with a file in an unsaved buffer")))
|
||||
(highlight-changes-mode 'active)
|
||||
(if existing-buf (with-current-buffer buf-b
|
||||
(highlight-changes-mode 'active)))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; hippie-exp.el --- expand text trying various ways to find its expansion.
|
||||
;;; hippie-exp.el --- expand text trying various ways to find its expansion
|
||||
|
||||
;; Copyright (C) 1992 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; info-look.el --- major-mode-sensitive Info index lookup facility.
|
||||
;;; info-look.el --- major-mode-sensitive Info index lookup facility
|
||||
;; An older version of this was known as libc.el.
|
||||
|
||||
;; Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
|
||||
|
|
|
|||
|
|
@ -25,6 +25,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;;###autoload
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; iso-cvt.-el -- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*-
|
||||
;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*-
|
||||
;; This file was formerly called gm-lingo.el.
|
||||
|
||||
;; Copyright (C) 1993, 1994, 1995, 1996, 1998, 2000 Free Software Foundation, Inc.
|
||||
|
|
|
|||
|
|
@ -318,7 +318,7 @@ PROMPT is a string to be shown when the user is asked for a new prefix."
|
|||
(format "%s (default %s): " prompt
|
||||
(char-to-string (eval default-prefix-var))))))
|
||||
(if (> (length prefix-string) 1)
|
||||
(error "! Only one character expected.")
|
||||
(error "! Only one character expected")
|
||||
;; set the default prefix character to the one just read
|
||||
(set default-prefix-var
|
||||
(if (string= prefix-string "")
|
||||
|
|
@ -333,7 +333,7 @@ Before returning a result test whether the string ENCODING is in
|
|||
the list `ogonek-name-encoding-alist'"
|
||||
(let ((code-list (assoc encoding ogonek-name-encoding-alist)))
|
||||
(if (null code-list)
|
||||
(error "! Name `%s' not known in `ogonek-name-encoding-alist'."
|
||||
(error "! Name `%s' not known in `ogonek-name-encoding-alist'"
|
||||
encoding)
|
||||
(cdr code-list))))
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; quail.el --- Provides simple input method for multilingual text
|
||||
;;; quail.el --- provides simple input method for multilingual text
|
||||
|
||||
;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; utf-8.el --- Limited UTF-8 decoding/encoding support
|
||||
;;; utf-8.el --- limited UTF-8 decoding/encoding support
|
||||
|
||||
;; Copyright (C) 2001 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
@ -375,3 +375,5 @@ lower-casing commands won't work with them."
|
|||
(valid-codes (0 . 255))))
|
||||
|
||||
(define-coding-system-alias 'utf-8 'mule-utf-8)
|
||||
|
||||
;;; utf-8.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; jit-lock.el --- just-in-time fontification.
|
||||
;;; jit-lock.el --- just-in-time fontification
|
||||
|
||||
;; Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -451,4 +451,4 @@ will take place when text is fontified stealthily."
|
|||
|
||||
(provide 'jit-lock)
|
||||
|
||||
;; jit-lock.el ends here
|
||||
;;; jit-lock.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; devan-util.el --- Support for Devanagari Script Composition
|
||||
;;; devan-util.el --- support for Devanagari Script Composition
|
||||
|
||||
;; Copyright (C) 1996, 2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -1281,8 +1281,8 @@ If there's no corresponding narrow character, return CHAR as is."
|
|||
;;
|
||||
(provide 'devan-util)
|
||||
|
||||
;;; devan-util.el end here
|
||||
|
||||
;; Local Variables:
|
||||
;; coding: iso-2022-7bit
|
||||
;; End:
|
||||
|
||||
;;; devan-util.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; devanagari.el --- Support for Devanagari -*- coding: iso-2022-7bit; -*-
|
||||
;;; devanagari.el --- support for Devanagari -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1996 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -28,6 +28,7 @@
|
|||
;; History:
|
||||
;; 1996.10.18 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
|
||||
;; 1997.1.20 fixed some bugs.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(make-coding-system
|
||||
|
|
|
|||
|
|
@ -24,6 +24,8 @@
|
|||
|
||||
;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; Information for exiting Ethiopic environment.
|
||||
|
|
@ -1296,7 +1298,7 @@ The markers \"<sera>\" and \"</sera>\" themselves are not deleted."
|
|||
composite t))
|
||||
;; neither gemination nor fidel
|
||||
((not (eq (char-charset ch) 'ethiopic))
|
||||
(error "Not a valid character.")))
|
||||
(error "Not a valid character")))
|
||||
|
||||
;; set frequently referred character features
|
||||
(setq ch (ethio-char-to-ethiocode ch)
|
||||
|
|
@ -1306,7 +1308,7 @@ The markers \"<sera>\" and \"</sera>\" themselves are not deleted."
|
|||
(if (or (and (>= ch 344) (<= ch 380)) ;; mYa - `10000
|
||||
(and (>= ch 448) (<= ch 452)) ;; \~X - \~A
|
||||
(>= ch 458)) ;; private punctuations
|
||||
(error "Not a valid character."))
|
||||
(error "Not a valid character"))
|
||||
|
||||
(setq
|
||||
newch
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; ethiopic.el --- Support for Ethiopic -*- coding: iso-2022-7bit; -*-
|
||||
;;; ethiopic.el --- support for Ethiopic -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995, 2001 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
@ -24,6 +24,8 @@
|
|||
|
||||
;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(define-ccl-program ccl-encode-ethio-font
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; european.el --- European languages -*- coding: iso-2022-7bit; -*-
|
||||
;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; indian.el --- Support for Indian Languages -*- coding: iso-2022-7bit; -*-
|
||||
;;; indian.el --- support for Indian Languages -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1995 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; romanian.el --- Support for Romanian -*- coding: iso-latin-2; -*-
|
||||
;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; -*-
|
||||
|
||||
;; Copyright (C) 1998 Free Software Foundation.
|
||||
|
||||
|
|
@ -43,5 +43,4 @@
|
|||
|
||||
(provide 'romanian)
|
||||
|
||||
;; romanian.el ends here
|
||||
|
||||
;;; romanian.el ends here
|
||||
|
|
|
|||
|
|
@ -26,11 +26,13 @@
|
|||
|
||||
;; Created: Feb. 17. 1997
|
||||
|
||||
;; History:
|
||||
;;; History:
|
||||
;; 1997.03.13 Modification in treatment of text properties;
|
||||
;; Support for some special signs and punctuations.
|
||||
;; 1999.10.25 Modification for a new composition way by K.Handa.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;;###autoload
|
||||
|
|
@ -350,4 +352,4 @@ See also docstring of the function tibetan-compose-region."
|
|||
|
||||
(provide 'tibet-util)
|
||||
|
||||
;;; language/tibet-util.el ends here.
|
||||
;;; tibet-util.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; tibetan.el --- Support for Tibetan language -*- coding: iso-2022-7bit; -*-
|
||||
;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*-
|
||||
|
||||
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
|
||||
;; Licensed to the Free Software Foundation.
|
||||
|
|
@ -29,6 +29,8 @@
|
|||
;; History:
|
||||
;; 1997.03.13 Modification for special signs and punctuations.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;; Tibetan Character set.
|
||||
|
|
@ -625,4 +627,4 @@ This also matches some punctuation characters which need conversion.")
|
|||
|
||||
(provide 'tibetan)
|
||||
|
||||
;;; language/tibetan.el ends here
|
||||
;;; tibetan.el ends here
|
||||
|
|
|
|||
|
|
@ -1,6 +1,8 @@
|
|||
;;; feedmail.el --- assist other email packages to massage outgoing messages
|
||||
;;; This file is in the public domain.
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
;; Author: Bill Carpenter <bill@bubblegum.net>, <bill@carpenter.ORG>
|
||||
;; Version: 8
|
||||
;; Keywords: email, queue, mail, sendmail, message, spray, smtp, draft
|
||||
|
|
@ -2667,4 +2669,5 @@ been weeded out."
|
|||
(point-marker))))
|
||||
|
||||
(provide 'feedmail)
|
||||
|
||||
;;; feedmail.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; footnote.el --- Footnote support for message mode -*- coding: iso-latin-1;-*-
|
||||
;;; footnote.el --- footnote support for message mode -*- coding: iso-latin-1;-*-
|
||||
|
||||
;; Copyright (C) 1997, 2000 by Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -670,7 +670,7 @@ specified, jump to the text of that footnote."
|
|||
(goto-char (point-max))
|
||||
(re-search-backward (concat "^" footnote-section-tag-regexp))
|
||||
(forward-line 1))
|
||||
(error "I don't see a footnote here.")))))
|
||||
(error "I don't see a footnote here")))))
|
||||
|
||||
(defun Footnote-back-to-message (&optional arg)
|
||||
"Move cursor back to footnote referent.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; mail-hist.el --- Headers and message body history for outgoing mail.
|
||||
;;; mail-hist.el --- headers and message body history for outgoing mail
|
||||
|
||||
;; Copyright (C) 1994 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -245,7 +245,7 @@ This function normally would be called when the message is sent."
|
|||
(ding)
|
||||
(message "No history for \"%s\"." header))
|
||||
(if (ring-empty-p ring)
|
||||
(error "\"%s\" ring is empty." header)
|
||||
(error "\"%s\" ring is empty" header)
|
||||
(and repeat
|
||||
(delete-region (car mail-hist-last-bounds)
|
||||
(cdr mail-hist-last-bounds)))
|
||||
|
|
@ -293,4 +293,4 @@ received mail."
|
|||
|
||||
(provide 'mail-hist)
|
||||
|
||||
;; mail-hist.el ends here
|
||||
;;; mail-hist.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; mailheader.el --- Mail header parsing, merging, formatting
|
||||
;;; mailheader.el --- mail header parsing, merging, formatting
|
||||
|
||||
;; Copyright (C) 1996 by Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; mspools.el --- show mail spools waiting to be read.
|
||||
;;; mspools.el --- show mail spools waiting to be read
|
||||
|
||||
;; Copyright (C) 1997 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -403,5 +403,5 @@ nil."
|
|||
nil)))
|
||||
|
||||
(provide 'mspools)
|
||||
;;; mspools.el ends here
|
||||
|
||||
;;; mspools.el ends here
|
||||
|
|
|
|||
|
|
@ -32,7 +32,9 @@
|
|||
;; |Mail and news reply citation package
|
||||
;; |1993/09/22 18:58:46|3.1|
|
||||
|
||||
;; Code:
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
||||
(require 'regi)
|
||||
|
|
@ -2096,7 +2098,7 @@ cited."
|
|||
(looking-at "^[ \t]*$")
|
||||
(consp arg))
|
||||
(insert (sc-mail-field "sc-citation"))
|
||||
(error "Line is already cited."))))
|
||||
(error "Line is already cited"))))
|
||||
|
||||
(defun sc-version (arg)
|
||||
"Echo the current version of Supercite in the minibuffer.
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; mouse-sel.el --- Multi-click selection support for Emacs 19
|
||||
;;; mouse-sel.el --- multi-click selection support for Emacs 19
|
||||
|
||||
;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -737,4 +737,4 @@ If `mouse-yank-at-point' is non-nil, insert at point instead."
|
|||
|
||||
(provide 'mouse-sel)
|
||||
|
||||
;; mouse-sel.el ends here.
|
||||
;;; mouse-sel.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; browse-url.el --- Pass a URL to a WWW browser
|
||||
;;; browse-url.el --- pass a URL to a WWW browser
|
||||
|
||||
;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
|
|
@ -1012,13 +1012,13 @@ used instead of `browse-url-new-window-flag'."
|
|||
(switch-to-buffer buf)))
|
||||
(if (eq (following-char) ?_)
|
||||
(cond ((eq browse-url-lynx-input-field 'warn)
|
||||
(error "Please move out of the input field first."))
|
||||
(error "Please move out of the input field first"))
|
||||
((eq browse-url-lynx-input-field 'avoid)
|
||||
(while (and (eq (following-char) ?_) (> n 0))
|
||||
(term-send-down) ; down arrow
|
||||
(sit-for browse-url-lynx-input-delay))
|
||||
(if (eq (following-char) ?_)
|
||||
(error "Cannot move out of the input field, sorry.")))))
|
||||
(error "Cannot move out of the input field, sorry")))))
|
||||
(term-send-string proc (concat "g" ; goto
|
||||
"\C-u" ; kill default url
|
||||
url
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
;;; net-utils.el --- Network functions
|
||||
;;; net-utils.el --- network functions
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Peter Breton <pbreton@cs.umb.edu>
|
||||
;; Created: Sun Mar 16 1997
|
||||
;; Keywords: network communications
|
||||
;; Time-stamp: <2000-10-04 22:39:05 pbreton>
|
||||
;; Time-stamp: <2001-07-15 00:34:52 pavel>
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; quickurl.el --- Insert an URL based on text at point in buffer.
|
||||
;;; quickurl.el --- insert an URL based on text at point in buffer
|
||||
|
||||
;; Copyright (C) 1999,2000,2001 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -7,7 +7,7 @@
|
|||
;; Created: 1999-05-28
|
||||
;; Keywords: hypermedia
|
||||
|
||||
;; This file is 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
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode.
|
||||
;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode
|
||||
|
||||
;; Copyright (C) 1995,1998 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -22,6 +22,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; INTRODUCTION
|
||||
;; ------------
|
||||
;; This package provides a major mode for editing SNMP MIBs. It
|
||||
|
|
@ -82,6 +84,8 @@
|
|||
;; Enabling global-font-lock-mode is also sufficient.
|
||||
;;
|
||||
|
||||
;;; Code:
|
||||
|
||||
;;;----------------------------------------------------------------------------
|
||||
;;
|
||||
;; Customize these:
|
||||
|
|
@ -713,4 +717,4 @@ controls whether case is significant."
|
|||
|
||||
(provide 'snmp-mode)
|
||||
|
||||
;; snmp-mode.el ends here
|
||||
;;; snmp-mode.el ends here
|
||||
|
|
|
|||
|
|
@ -287,14 +287,14 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
|
|||
((symbolp expr)
|
||||
(if (fboundp expr)
|
||||
(funcall expr name)
|
||||
(error "WebJump URL function \"%s\" undefined."
|
||||
(error "WebJump URL function \"%s\" undefined"
|
||||
expr)))
|
||||
(t (error "WebJump URL expression for \"%s\" invalid."
|
||||
(t (error "WebJump URL expression for \"%s\" invalid"
|
||||
name)))))))
|
||||
|
||||
(defun webjump-builtin (expr name)
|
||||
(if (< (length expr) 1)
|
||||
(error "WebJump URL builtin for \"%s\" empty." name))
|
||||
(error "WebJump URL builtin for \"%s\" empty" name))
|
||||
(let ((builtin (aref expr 0)))
|
||||
(cond
|
||||
((eq builtin 'mirrors)
|
||||
|
|
@ -307,12 +307,12 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
|
|||
((eq builtin 'simple-query)
|
||||
(webjump-builtin-check-args expr name 3)
|
||||
(webjump-do-simple-query name (aref expr 1) (aref expr 2) (aref expr 3)))
|
||||
(t (error "WebJump URL builtin \"%s\" for \"%s\" invalid."
|
||||
(t (error "WebJump URL builtin \"%s\" for \"%s\" invalid"
|
||||
builtin name)))))
|
||||
|
||||
(defun webjump-builtin-check-args (expr name count)
|
||||
(or (= (length expr) (1+ count))
|
||||
(error "WebJump URL builtin \"%s\" for \"%s\" needs %d args."
|
||||
(error "WebJump URL builtin \"%s\" for \"%s\" needs %d args"
|
||||
(aref expr 0) name count)))
|
||||
|
||||
(defun webjump-choose-mirror (name urls)
|
||||
|
|
@ -400,4 +400,4 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke
|
|||
|
||||
(provide 'webjump)
|
||||
|
||||
;; webjump.el ends here
|
||||
;;; webjump.el ends here
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; zone-mode.el -- major mode for editing DNS zone files.
|
||||
;;; zone-mode.el --- major mode for editing DNS zone files
|
||||
|
||||
;; Copyright (C) 1998 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -22,6 +22,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;;
|
||||
;;; See the comments in ``define-derived-mode zone-mode''
|
||||
;;; (the last function in this file)
|
||||
|
|
@ -52,7 +54,7 @@
|
|||
((not (string= old-date cur-date))
|
||||
"00") ;; reset sequeence number
|
||||
((>= old-seq-num 99)
|
||||
(error "Serial number's sequenece cannot increment beyond 99."))
|
||||
(error "Serial number's sequenece cannot increment beyond 99"))
|
||||
(t
|
||||
(format "%02d" (1+ old-seq-num)))))
|
||||
(old-serial (concat old-date old-seq))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; pcomplete --- programmable completion
|
||||
;;; pcomplete.el --- programmable completion
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2001 Free Sofware Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; antlr-mode.el --- Major mode for ANTLR grammar files
|
||||
;;; antlr-mode.el --- major mode for ANTLR grammar files
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
|
||||
;;
|
||||
|
|
@ -1532,8 +1532,6 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'."
|
|||
indent-tabs-mode (cadddr elem)
|
||||
alist nil))))))
|
||||
|
||||
;;; antlr-mode.el ends here
|
||||
|
||||
; LocalWords: antlr ANother ANTLR's Cpp Lexer TreeParser esp refs VALUEs ea ee
|
||||
; LocalWords: Java's Nomencl ruledef tokendef ruleref tokenref setType ader ev
|
||||
; LocalWords: ivate syntab lexer treeparser lic rotected rivate bor boi AFAIK
|
||||
|
|
@ -1541,3 +1539,5 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'."
|
|||
; LocalWords: VOCAB EVOCAB Antlr's TokenTypes exportVocab incl excl SUPERS gen
|
||||
; LocalWords: VOCABS IVOCAB exportVocabs importVocabs superclasses vocab kens
|
||||
; LocalWords: sclass evocab ivocab importVocab deps glibs supers sep dep lang
|
||||
|
||||
;;; antlr-mode.el ends here
|
||||
|
|
|
|||
|
|
@ -1,10 +1,10 @@
|
|||
;;; autoconf.el --- Mode for editing Autoconf configure.in files.
|
||||
;;; autoconf.el --- mode for editing Autoconf configure.in files
|
||||
|
||||
;; Copyright (C) 2000 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Dave Love <fx@gnu.org>
|
||||
;; Keywords: languages
|
||||
;; $Revision: $
|
||||
;; $Revision: 1.1 $
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
||||
|
|
|
|||
|
|
@ -23,6 +23,8 @@
|
|||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; USAGE =============================================================
|
||||
|
||||
;; In C mode C-C C-e is bound to c-macro-expand. The result of the
|
||||
|
|
@ -84,6 +86,7 @@
|
|||
;; If the start point of the region is inside a macro definition the
|
||||
;; macro expansion is often inaccurate.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'cc-mode)
|
||||
|
||||
|
|
|
|||
|
|
@ -1001,7 +1001,7 @@ the faces: please specify bold, italic, underline, shadow and box.)
|
|||
(defmacro cperl-ps-extend-face-list (arg)
|
||||
`(ps-extend-face-list ,arg))
|
||||
(defmacro cperl-ps-extend-face-list (arg)
|
||||
`(error "This version of Emacs has no `ps-extend-face-list'.")))
|
||||
`(error "This version of Emacs has no `ps-extend-face-list'")))
|
||||
;; Calling `cperl-enable-font-lock' below doesn't compile on XEmacs,
|
||||
;; macros instead of defsubsts don't work on Emacs, so we do the
|
||||
;; expansion manually. Any other suggestions?
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; cpp.el --- Highlight or hide text according to cpp conditionals.
|
||||
;;; cpp.el --- highlight or hide text according to cpp conditionals
|
||||
|
||||
;; Copyright (C) 1994, 1995 Free Software Foundation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;;; cwarn.el --- Highlight suspicious C and C++ constructions.
|
||||
;;; cwarn.el --- highlight suspicious C and C++ constructions
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
;; delphi.el --- Major mode for editing Delphi source (Object Pascal) in Emacs
|
||||
;;; delphi.el --- major mode for editing Delphi source (Object Pascal) in Emacs
|
||||
|
||||
;; Copyright (C) 1998, 1999 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -65,11 +65,15 @@
|
|||
(provide 'delphi)
|
||||
|
||||
(defconst delphi-version
|
||||
(let ((revision "$Revision: 3.4 $"))
|
||||
(let ((revision "$Revision: 3.5 $"))
|
||||
(string-match ": \\([^ ]+\\)" revision)
|
||||
(match-string 1 revision))
|
||||
"Version of this delphi mode.")
|
||||
;;; $Log: delphi.el,v $
|
||||
;;; Revision 3.5 2001/01/26 20:54:03 fx
|
||||
;;; (delphi-comment-face, delphi-string-face)
|
||||
;;; (delphi-keyword-face, delphi-other-face): Fix :type.
|
||||
;;;
|
||||
;;; Revision 3.4 2000/02/09 07:04:15 blaak
|
||||
;;; Make resourcestring a declaration region, like const and var.
|
||||
;;;
|
||||
|
|
@ -2029,3 +2033,5 @@ no args, if that value is non-nil."
|
|||
(delphi-progress-done))))
|
||||
|
||||
(run-hooks 'delphi-mode-hook))
|
||||
|
||||
;;; delphi.el ends here
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
;;; ebnf-bnf --- Parser for EBNF
|
||||
;;; ebnf-bnf.el --- parser for EBNF
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc.
|
||||
|
||||
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Keywords: wp, ebnf, PostScript
|
||||
;; Time-stamp: <2000/12/19 15:29:04 vinicius>
|
||||
;; Time-stamp: <2001-07-15 01:02:12 pavel>
|
||||
;; Version: 1.5
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
@ -107,7 +107,7 @@
|
|||
;;
|
||||
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; code:
|
||||
;;; Code:
|
||||
|
||||
|
||||
(require 'ebnf-otz)
|
||||
|
|
@ -132,7 +132,7 @@
|
|||
(goto-char start)
|
||||
(setq token (ebnf-bnf-lex))
|
||||
(and (eq token 'end-of-input)
|
||||
(error "Invalid EBNF file format."))
|
||||
(error "Invalid EBNF file format"))
|
||||
(while (not (eq token 'end-of-input))
|
||||
(ebnf-message-float
|
||||
"Parsing...%s%%"
|
||||
|
|
@ -154,12 +154,12 @@
|
|||
body)
|
||||
(setq ebnf-action nil)
|
||||
(or (eq token 'non-terminal)
|
||||
(error "Invalid header production."))
|
||||
(error "Invalid header production"))
|
||||
(or (eq (ebnf-bnf-lex) 'equal)
|
||||
(error "Invalid production: missing `='."))
|
||||
(error "Invalid production: missing `='"))
|
||||
(setq body (ebnf-body))
|
||||
(or (eq (car body) 'period)
|
||||
(error "Invalid production: missing `.'."))
|
||||
(error "Invalid production: missing `.'"))
|
||||
(setq body (cdr body))
|
||||
(ebnf-eps-add-production header)
|
||||
(cons (ebnf-bnf-lex)
|
||||
|
|
@ -217,7 +217,7 @@
|
|||
(let ((kind (ebnf-node-kind node)))
|
||||
(cond
|
||||
((eq kind 'ebnf-generate-non-terminal)
|
||||
(error "Exception sequence should not contain a non-terminal."))
|
||||
(error "Exception sequence should not contain a non-terminal"))
|
||||
((eq kind 'ebnf-generate-repeat)
|
||||
(ebnf-no-non-terminal (ebnf-node-separator node)))
|
||||
((memq kind '(ebnf-generate-optional ebnf-generate-except))
|
||||
|
|
@ -240,7 +240,7 @@
|
|||
(ebnf-term token)
|
||||
(let ((times ebnf-bnf-lex))
|
||||
(or (eq (ebnf-bnf-lex) 'repeat)
|
||||
(error "Missing `*'."))
|
||||
(error "Missing `*'"))
|
||||
(ebnf-token-repeat times (ebnf-term (ebnf-bnf-lex))))))
|
||||
|
||||
|
||||
|
|
@ -314,13 +314,13 @@
|
|||
((eq token 'begin-group)
|
||||
(let ((body (ebnf-body)))
|
||||
(or (eq (car body) 'end-group)
|
||||
(error "Missing `)'."))
|
||||
(error "Missing `)'"))
|
||||
(cdr body)))
|
||||
;; optional
|
||||
((eq token 'begin-optional)
|
||||
(let ((body (ebnf-body)))
|
||||
(or (eq (car body) 'end-optional)
|
||||
(error "Missing `]'."))
|
||||
(error "Missing `]'"))
|
||||
(ebnf-token-optional (cdr body))))
|
||||
;; list
|
||||
((eq token 'begin-list)
|
||||
|
|
@ -341,7 +341,7 @@
|
|||
((eq token 'end-zero-or-more)
|
||||
(ebnf-make-zero-or-more list-part sep-part))
|
||||
(t
|
||||
(error "Missing `}+', `}*' or `}'."))
|
||||
(error "Missing `}+', `}*' or `}'"))
|
||||
)))
|
||||
;; no term
|
||||
(t
|
||||
|
|
@ -441,7 +441,7 @@ See documentation for variable `ebnf-bnf-lex'."
|
|||
'end-of-input)
|
||||
;; error
|
||||
((eq token 'error)
|
||||
(error "Illegal character."))
|
||||
(error "Illegal character"))
|
||||
;; default
|
||||
((eq token 'default)
|
||||
(forward-char)
|
||||
|
|
@ -450,7 +450,7 @@ See documentation for variable `ebnf-bnf-lex'."
|
|||
(prog1
|
||||
(ebnf-bnf-lex)
|
||||
(setq ebnf-default-p t))
|
||||
(error "Illegal `default' element.")))
|
||||
(error "Illegal `default' element")))
|
||||
;; integer
|
||||
((eq token 'integer)
|
||||
(setq ebnf-bnf-lex (ebnf-buffer-substring "0-9"))
|
||||
|
|
@ -533,7 +533,7 @@ See documentation for variable `ebnf-bnf-lex'."
|
|||
(forward-char)
|
||||
t)
|
||||
(t
|
||||
(error "Illegal character."))
|
||||
(error "Illegal character"))
|
||||
))
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
;;; ebnf-iso --- Parser for ISO EBNF
|
||||
;;; ebnf-iso.el --- parser for ISO EBNF
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Keywords: wp, ebnf, PostScript
|
||||
;; Time-stamp: <2000/12/19 15:25:16 vinicius>
|
||||
;; Time-stamp: <2001-07-15 01:03:20 pavel>
|
||||
;; Version: 1.5
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
@ -117,7 +117,7 @@
|
|||
;;
|
||||
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; code:
|
||||
;;; Code:
|
||||
|
||||
|
||||
(require 'ebnf-otz)
|
||||
|
|
@ -145,7 +145,7 @@
|
|||
(goto-char start)
|
||||
(setq token (ebnf-iso-lex))
|
||||
(and (eq token 'end-of-input)
|
||||
(error "Invalid ISO EBNF file format."))
|
||||
(error "Invalid ISO EBNF file format"))
|
||||
(while (not (eq token 'end-of-input))
|
||||
(ebnf-message-float
|
||||
"Parsing...%s%%"
|
||||
|
|
@ -167,12 +167,12 @@
|
|||
body)
|
||||
(setq ebnf-action nil)
|
||||
(or (eq token 'non-terminal)
|
||||
(error "Invalid meta identifier syntax rule."))
|
||||
(error "Invalid meta identifier syntax rule"))
|
||||
(or (eq (ebnf-iso-lex) 'equal)
|
||||
(error "Invalid syntax rule: missing `='."))
|
||||
(error "Invalid syntax rule: missing `='"))
|
||||
(setq body (ebnf-iso-definition-list))
|
||||
(or (eq (car body) 'period)
|
||||
(error "Invalid syntax rule: missing `;' or `.'."))
|
||||
(error "Invalid syntax rule: missing `;' or `.'"))
|
||||
(setq body (cdr body))
|
||||
(ebnf-eps-add-production header)
|
||||
(cons (ebnf-iso-lex)
|
||||
|
|
@ -233,7 +233,7 @@
|
|||
(if (eq token 'integer)
|
||||
(let ((times ebnf-iso-lex))
|
||||
(or (eq (ebnf-iso-lex) 'repeat)
|
||||
(error "Missing `*'."))
|
||||
(error "Missing `*'"))
|
||||
(ebnf-token-repeat times (ebnf-iso-primary (ebnf-iso-lex))))
|
||||
(ebnf-iso-primary token)))
|
||||
|
||||
|
|
@ -273,20 +273,20 @@
|
|||
((eq token 'begin-group)
|
||||
(let ((body (ebnf-iso-definition-list)))
|
||||
(or (eq (car body) 'end-group)
|
||||
(error "Missing `)'."))
|
||||
(error "Missing `)'"))
|
||||
(cdr body)))
|
||||
;; optional sequence
|
||||
((eq token 'begin-optional)
|
||||
(let ((body (ebnf-iso-definition-list)))
|
||||
(or (eq (car body) 'end-optional)
|
||||
(error "Missing `]' or `/)'."))
|
||||
(error "Missing `]' or `/)'"))
|
||||
(ebnf-token-optional (cdr body))))
|
||||
;; repeated sequence
|
||||
((eq token 'begin-zero-or-more)
|
||||
(let* ((body (ebnf-iso-definition-list))
|
||||
(repeat (cdr body)))
|
||||
(or (eq (car body) 'end-zero-or-more)
|
||||
(error "Missing `}' or `:)'."))
|
||||
(error "Missing `}' or `:)'"))
|
||||
(ebnf-make-zero-or-more repeat)))
|
||||
;; empty
|
||||
(t
|
||||
|
|
@ -426,7 +426,7 @@ See documentation for variable `ebnf-iso-lex'."
|
|||
'end-of-input)
|
||||
;; error
|
||||
((eq token 'error)
|
||||
(error "Illegal character."))
|
||||
(error "Illegal character"))
|
||||
;; integer
|
||||
((eq token 'integer)
|
||||
(setq ebnf-iso-lex (ebnf-buffer-substring "0-9"))
|
||||
|
|
@ -451,7 +451,7 @@ See documentation for variable `ebnf-iso-lex'."
|
|||
(ebnf-trim-right
|
||||
(ebnf-buffer-substring " 0-9A-Za-z\240-\377"))))
|
||||
(and ebnf-no-meta-identifier
|
||||
(error "Exception sequence should not contain a meta identifier."))
|
||||
(error "Exception sequence should not contain a meta identifier"))
|
||||
'non-terminal)
|
||||
;; begin optional, begin list or begin group
|
||||
((eq token 'left-parenthesis)
|
||||
|
|
@ -511,7 +511,7 @@ See documentation for variable `ebnf-iso-lex'."
|
|||
(while (> pair 0)
|
||||
(skip-chars-forward ebnf-iso-comment-chars ebnf-limit)
|
||||
(cond ((>= (point) ebnf-limit)
|
||||
(error "Missing end of comment: `*)'."))
|
||||
(error "Missing end of comment: `*)'"))
|
||||
((= (following-char) ?*)
|
||||
(skip-chars-forward "*" ebnf-limit)
|
||||
(when (= (following-char) ?\))
|
||||
|
|
@ -525,7 +525,7 @@ See documentation for variable `ebnf-iso-lex'."
|
|||
(forward-char)
|
||||
(setq pair (1+ pair))))
|
||||
(t
|
||||
(error "Illegal character."))
|
||||
(error "Illegal character"))
|
||||
))))
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
;;; ebnf-otz --- Syntatic chart OpTimiZer
|
||||
;;; ebnf-otz.el --- syntatic chart OpTimiZer
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Keywords: wp, ebnf, PostScript
|
||||
;; Time-stamp: <2000/12/19 14:54:41 vinicius>
|
||||
;; Time-stamp: <2001-07-15 01:03:33 pavel>
|
||||
;; Version: 1.0
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
@ -39,7 +39,7 @@
|
|||
;;
|
||||
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; code:
|
||||
;;; Code:
|
||||
|
||||
|
||||
(require 'ebnf2ps)
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
;;; ebnf-yac --- Parser for Yacc/Bison
|
||||
;;; ebnf-yac.el --- parser for Yacc/Bison
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Sofware Foundation, Inc.
|
||||
|
||||
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Keywords: wp, ebnf, PostScript
|
||||
;; Time-stamp: <2000/12/19 15:47:23 vinicius>
|
||||
;; Time-stamp: <2001-07-15 01:04:02 pavel>
|
||||
;; Version: 1.1
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
@ -70,7 +70,7 @@
|
|||
;;
|
||||
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; code:
|
||||
;;; Code:
|
||||
|
||||
|
||||
(require 'ebnf-otz)
|
||||
|
|
@ -109,9 +109,9 @@
|
|||
(goto-char start)
|
||||
(setq token (ebnf-yac-lex))
|
||||
(and (eq token 'end-of-input)
|
||||
(error "Invalid Yacc/Bison file format."))
|
||||
(error "Invalid Yacc/Bison file format"))
|
||||
(or (eq (ebnf-yac-definitions token) 'yac-separator)
|
||||
(error "Missing `%%%%'."))
|
||||
(error "Missing `%%%%'"))
|
||||
(setq token (ebnf-yac-lex))
|
||||
(while (not (memq token '(end-of-input yac-separator)))
|
||||
(ebnf-message-float
|
||||
|
|
@ -140,9 +140,9 @@
|
|||
(setq token (ebnf-yac-lex))
|
||||
(when (eq token 'open-angle)
|
||||
(or (eq (ebnf-yac-lex) 'non-terminal)
|
||||
(error "Missing type name."))
|
||||
(error "Missing type name"))
|
||||
(or (eq (ebnf-yac-lex) 'close-angle)
|
||||
(error "Missing `>'."))
|
||||
(error "Missing `>'"))
|
||||
(setq token (ebnf-yac-lex)))
|
||||
(setq token (ebnf-yac-name-list token)
|
||||
ebnf-yac-token-list (nconc (cdr token)
|
||||
|
|
@ -163,12 +163,12 @@
|
|||
body)
|
||||
(setq ebnf-action nil)
|
||||
(or (eq token 'non-terminal)
|
||||
(error "Invalid rule name."))
|
||||
(error "Invalid rule name"))
|
||||
(or (eq (ebnf-yac-lex) 'colon)
|
||||
(error "Invalid rule: missing `:'."))
|
||||
(error "Invalid rule: missing `:'"))
|
||||
(setq body (ebnf-yac-alternative))
|
||||
(or (eq (car body) 'period)
|
||||
(error "Invalid rule: missing `;'."))
|
||||
(error "Invalid rule: missing `;'"))
|
||||
(setq body (cdr body))
|
||||
(ebnf-eps-add-production header)
|
||||
(cons (ebnf-yac-lex)
|
||||
|
|
@ -243,7 +243,7 @@
|
|||
token (ebnf-yac-lex))
|
||||
(eq token 'comma))
|
||||
(or (eq (ebnf-yac-lex) 'non-terminal)
|
||||
(error "Missing token name."))))
|
||||
(error "Missing token name"))))
|
||||
(cons token names)))
|
||||
|
||||
|
||||
|
|
@ -332,7 +332,7 @@ See documentation for variable `ebnf-yac-lex'."
|
|||
'end-of-input)
|
||||
;; error
|
||||
((eq token 'error)
|
||||
(error "Illegal character."))
|
||||
(error "Illegal character"))
|
||||
;; "string"
|
||||
((eq token 'string)
|
||||
(setq ebnf-yac-lex (ebnf-get-string))
|
||||
|
|
@ -405,7 +405,7 @@ See documentation for variable `ebnf-yac-lex'."
|
|||
((= (following-char) ?\')
|
||||
(ebnf-string " -&(-~" ?\' "character"))
|
||||
(t
|
||||
(error "Illegal character."))
|
||||
(error "Illegal character"))
|
||||
)))
|
||||
(ebnf-yac-skip-spaces))
|
||||
|
||||
|
|
@ -448,7 +448,7 @@ See documentation for variable `ebnf-yac-lex'."
|
|||
(while not-end
|
||||
(skip-chars-forward ebnf-yac-comment-chars ebnf-limit)
|
||||
(cond ((>= (point) ebnf-limit)
|
||||
(error "Missing end of comment: `*/'."))
|
||||
(error "Missing end of comment: `*/'"))
|
||||
((= (following-char) ?*)
|
||||
(skip-chars-forward "*" ebnf-limit)
|
||||
(when (= (following-char) ?/)
|
||||
|
|
@ -456,7 +456,7 @@ See documentation for variable `ebnf-yac-lex'."
|
|||
(forward-char)
|
||||
(setq not-end nil)))
|
||||
(t
|
||||
(error "Illegal character."))
|
||||
(error "Illegal character"))
|
||||
))))
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,11 +1,11 @@
|
|||
;;; ebnf2ps --- Translate an EBNF to a syntatic chart on PostScript
|
||||
;;; ebnf2ps.el --- translate an EBNF to a syntatic chart on PostScript
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
|
||||
;; Keywords: wp, ebnf, PostScript
|
||||
;; Time-stamp: <2001/02/02 15:23:39 vinicius>
|
||||
;; Time-stamp: <2001-07-15 01:05:00 pavel>
|
||||
;; Version: 3.5
|
||||
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/Emacs.html
|
||||
|
||||
|
|
@ -1000,7 +1000,7 @@ Please send all bug fixes and enhancements to
|
|||
;;
|
||||
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; code:
|
||||
;;; Code:
|
||||
|
||||
|
||||
(require 'ps-print)
|
||||
|
|
@ -4974,7 +4974,7 @@ end
|
|||
;;(skip-chars-forward (concat chars "\240-\377") ebnf-limit)
|
||||
(skip-chars-forward (concat chars ebnf-8-bit-chars) ebnf-limit)
|
||||
(if (or (eobp) (/= (following-char) eos-char))
|
||||
(error "Illegal %s: missing `%c'." kind eos-char)
|
||||
(error "Illegal %s: missing `%c'" kind eos-char)
|
||||
(forward-char)
|
||||
(1- (point))))))
|
||||
|
||||
|
|
@ -4992,7 +4992,7 @@ end
|
|||
(goto-char (+ (point) n 1))))
|
||||
(if (= (preceding-char) ?\")
|
||||
(1- (point))
|
||||
(error "Missing `\"'.")))
|
||||
(error "Missing `\"'")))
|
||||
|
||||
|
||||
(defun ebnf-trim-right (str)
|
||||
|
|
@ -5300,5 +5300,4 @@ end
|
|||
|
||||
(provide 'ebnf2ps)
|
||||
|
||||
|
||||
;;; ebnf2ps.el ends here
|
||||
|
|
|
|||
|
|
@ -284,4 +284,4 @@ file modes."
|
|||
|
||||
(provide 'executable)
|
||||
|
||||
;; executable.el ends here
|
||||
;;; executable.el ends here
|
||||
|
|
|
|||
|
|
@ -813,7 +813,7 @@ See also `fortran-window-create-momentarily'."
|
|||
(other-window 1)
|
||||
(switch-to-buffer " fortran-window-extra" t)
|
||||
(select-window (previous-window))))
|
||||
(error (message "No room for Fortran window.")
|
||||
(error (message "No room for Fortran window")
|
||||
'error)))
|
||||
|
||||
(defun fortran-window-create-momentarily (&optional arg)
|
||||
|
|
|
|||
|
|
@ -1,10 +1,10 @@
|
|||
;;; idlw-shell.el --- Run IDL or WAVE as an inferior process of Emacs.
|
||||
;;; idlw-shell.el --- run IDL or WAVE as an inferior process of Emacs
|
||||
;; Copyright (c) 1999, 2000 Free Software Foundation
|
||||
|
||||
;; Author: Chris Chase <chase@att.com>
|
||||
;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl>
|
||||
;; Version: 4.7
|
||||
;; Date: $Date: 2000/12/11 12:44:44 $
|
||||
;; Date: $Date: 2000/12/19 11:13:34 $
|
||||
;; Keywords: processes
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
|
|||
|
|
@ -1,9 +1,9 @@
|
|||
;;; idlw-toolbar.el --- A debugging toolbar for IDLWAVE
|
||||
;;; idlw-toolbar.el --- a debugging toolbar for IDLWAVE
|
||||
;; Copyright (c) 1999, 2000 Free Software Foundation
|
||||
|
||||
;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl>
|
||||
;; Version: 4.7
|
||||
;; Date: $Date: 2000/12/11 12:44:44 $
|
||||
;; Date: $Date: 2000/12/19 11:14:24 $
|
||||
;; Keywords: processes
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
@ -873,5 +873,3 @@ static char * file[] = {
|
|||
(provide 'idlwave-toolbar)
|
||||
|
||||
;;; idlw-toolbar.el ends here
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -4,10 +4,10 @@
|
|||
;; Author: Chris Chase <chase@att.com>
|
||||
;; Maintainer: Carsten Dominik <dominik@strw.leidenuniv.nl>
|
||||
;; Version: 4.7
|
||||
;; Date: $Date: 2000/12/11 12:44:44 $
|
||||
;; Date: $Date: 2000/12/19 11:12:40 $
|
||||
;; Keywords: languages
|
||||
|
||||
;; This file is part of the 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
|
||||
|
|
@ -4256,7 +4256,7 @@ will pop up."
|
|||
(file-name-directory idlwave-libinfo-file))
|
||||
(not (string= "" (file-name-nondirectory
|
||||
idlwave-libinfo-file))))
|
||||
(error "`idlwave-libinfo-file' does not point to file in accessible directory."))
|
||||
(error "`idlwave-libinfo-file' does not point to file in accessible directory"))
|
||||
|
||||
(cond
|
||||
((and arg idlwave-path-alist
|
||||
|
|
@ -5952,7 +5952,7 @@ The list is cashed in `idlwave-class-info' for faster access."
|
|||
(let* ((class (nth 2 (idlwave-current-routine))))
|
||||
;; Check if we are in a class routine
|
||||
(unless class
|
||||
(error "Not in a method procedure or function."))
|
||||
(error "Not in a method procedure or function"))
|
||||
;; Check if we need to update the "current" class
|
||||
(if (not (equal class idlwave-current-tags-class))
|
||||
(idlwave-prepare-class-tag-completion class))
|
||||
|
|
@ -6200,7 +6200,7 @@ Works for system routines and keywords only."
|
|||
(if idlwave-help-is-loaded
|
||||
t ;; everything is OK.
|
||||
(let* ((dir (or (idlwave-help-directory)
|
||||
(error "Online Help is not installed (idlwave-help-directory is unknown).")))
|
||||
(error "Online Help is not installed (idlwave-help-directory is unknown)")))
|
||||
(lfile1 (expand-file-name "idlw-help.elc" dir))
|
||||
(lfile2 (expand-file-name "idlw-help.el" dir))
|
||||
(hfile (expand-file-name "idlw-help.txt" dir)))
|
||||
|
|
@ -6260,7 +6260,7 @@ prefix arg, the class property is cleared out."
|
|||
(if (car module)
|
||||
(apply 'idlwave-display-calling-sequence
|
||||
(idlwave-fix-module-if-obj_new module))
|
||||
(error "Don't know which calling sequence to show.")))))
|
||||
(error "Don't know which calling sequence to show")))))
|
||||
|
||||
(defun idlwave-resolve (&optional arg)
|
||||
"Call RESOLVE on the module name at point.
|
||||
|
|
@ -6364,10 +6364,10 @@ use. With ARG force class query for object methods."
|
|||
((null entry)
|
||||
(error "Nothing known about a module %s" name2))
|
||||
((eq (car source) 'system)
|
||||
(error "Source code for system routine %s is not available."
|
||||
(error "Source code for system routine %s is not available"
|
||||
name2))
|
||||
((equal (cdr source) "")
|
||||
(error "Source code for routine %s is not available."
|
||||
(error "Source code for routine %s is not available"
|
||||
name2))
|
||||
((memq (car source) '(buffer lib compiled))
|
||||
(setq buf1
|
||||
|
|
@ -6663,7 +6663,7 @@ If we do not know about MODULE, just return KEYWORD literally."
|
|||
(error "No %s %s known %s" type name
|
||||
(if initial-class (concat "in class " initial-class) "")))
|
||||
((or (null name) (equal name ""))
|
||||
(error "No function or procedure call at point."))
|
||||
(error "No function or procedure call at point"))
|
||||
((null calling-seq)
|
||||
(error "Calling sequence of %s %s is not available" type name))
|
||||
(t
|
||||
|
|
@ -6945,7 +6945,7 @@ with this command."
|
|||
(not (idlwave-shell-is-running)))
|
||||
(error "Shell is not running"))
|
||||
((null idlwave-compiled-routines)
|
||||
(error "No compiled routines. Maybe you need to update with `C-c C-i'."))
|
||||
(error "No compiled routines. Maybe you need to update with `C-c C-i'"))
|
||||
(t
|
||||
(idlwave-list-load-path-shadows nil idlwave-compiled-routines
|
||||
"in the shell"))))
|
||||
|
|
@ -7603,5 +7603,3 @@ This function was written since `list-abbrevs' looks terrible for IDLWAVE mode."
|
|||
(provide 'idlwave)
|
||||
|
||||
;;; idlwave.el ends here
|
||||
|
||||
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Reference in a new issue