mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-77
Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 504-513) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: .cvsignore: Add `lock'. * gnus--rel--5.10 (patch 99-103) - Update from CVS
This commit is contained in:
Miles Bader
commit
5e10f34207
231 changed files with 1119 additions and 577 deletions
|
|
@ -1,3 +1,7 @@
|
|||
2005-08-03 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* .cvsignore: Add `lock'.
|
||||
|
||||
2005-07-28 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* .cvsignore: Add `data' and `site-lisp' (for in-place installs).
|
||||
|
|
|
|||
|
|
@ -96,17 +96,18 @@ you're going to handle.
|
|||
DIRECTORY STATUS IN CHARGE
|
||||
--------- ------ ---------
|
||||
leim working Kenichi Handa
|
||||
lisp/calc working Thien-Thi Nguyen
|
||||
lisp/calc done Thien-Thi Nguyen
|
||||
lisp/calendar working Glenn Morris
|
||||
lisp/emulation working Thien-Thi Nguyen
|
||||
lisp/eshell working Thien-Thi Nguyen
|
||||
lisp/emulation done Thien-Thi Nguyen
|
||||
lisp/eshell done Thien-Thi Nguyen
|
||||
lisp/international done Kenichi Handa
|
||||
lisp/languages done Kenichi Handa
|
||||
lisp/mh-e working Bill Wohler
|
||||
lisp/net working Thien-Thi Nguyen
|
||||
lisp/play working Thien-Thi Nguyen
|
||||
lisp/term working Thien-Thi Nguyen
|
||||
lisp/toolbar working Thien-Thi Nguyen
|
||||
lisp/net done Thien-Thi Nguyen
|
||||
lisp/play done Thien-Thi Nguyen
|
||||
lisp/progmodes done Nick Roberts
|
||||
lisp/term done Thien-Thi Nguyen
|
||||
lisp/toolbar done Thien-Thi Nguyen
|
||||
lisp/url working Thien-Thi Nguyen
|
||||
|
||||
** Check the Emacs manual.
|
||||
|
|
|
|||
|
|
@ -1,13 +1,25 @@
|
|||
|
||||
|
||||
THIS DOCUMENT IS UNDER REVIEW.
|
||||
|
||||
DO NOT FOLLOW THESE INSTRUCTIONS -- THEY ARE NOT CORRECT.
|
||||
|
||||
|
||||
How to Maintain Copyright Years for GNU Emacs
|
||||
|
||||
|
||||
"Our lawyer says it is ok if we add, to each file that has been in Emacs
|
||||
since Emacs 21 came out in 2001, all the subsequent years. We don't
|
||||
need to check whether *that file* was changed in those years.
|
||||
It's sufficient that *Emacs* was changed in those years (and it was!).
|
||||
|
||||
For those files that have been added since then, we should add
|
||||
the year it was added to Emacs, and all subsequent years."
|
||||
|
||||
--RMS, 2005-07-13
|
||||
|
||||
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
|
||||
Following is the policy that we tried to write down one time (mid 2005).
|
||||
Although it is incorrect, we keep it around to remind us how complicated
|
||||
things used to be (and may become in the future).
|
||||
|
||||
|
||||
Principle: Individual files need to have the year of the release
|
||||
in the copyright notice if there is significant change.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,3 +1,7 @@
|
|||
2005-08-05 Kenichi Handa <handa@m17n.org>
|
||||
|
||||
* NEWS: Fix the entry describing code-pages.
|
||||
|
||||
2005-07-28 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* .cvsignore: Add `icons' (for in-place installs).
|
||||
|
|
|
|||
11
etc/NEWS
11
etc/NEWS
|
|
@ -1201,12 +1201,11 @@ in CNS encoding; it accepts both Big 5 and CNS as input; on saving,
|
|||
Big 5 is then converted to CNS.
|
||||
|
||||
---
|
||||
*** Many new coding systems are available by loading the `code-pages'
|
||||
library. These include complete versions of most of those in
|
||||
codepage.el, based on Unicode mappings. `codepage-setup' is now
|
||||
obsolete and is used only in the MS-DOS port of Emacs. windows-1252
|
||||
and windows-1251 are preloaded since the former is so common and the
|
||||
latter is used by GNU locales.
|
||||
*** Many new coding systems are available in the `code-pages' library.
|
||||
These include complete versions of most of those in codepage.el, based
|
||||
on Unicode mappings. `codepage-setup' is now obsolete and is used
|
||||
only in the MS-DOS port of Emacs. All coding systems defined in
|
||||
`code-pages' are auto-loaded.
|
||||
|
||||
---
|
||||
*** New variable `utf-translate-cjk-unicode-range' controls which
|
||||
|
|
|
|||
130
lisp/ChangeLog
130
lisp/ChangeLog
|
|
@ -1,3 +1,123 @@
|
|||
2005-08-05 Kenichi Handa <handa@m17n.org>
|
||||
|
||||
* international/code-pages.el: Add autoload cookies for all coding
|
||||
systems.
|
||||
|
||||
2005-08-04 Luc Teirlinck <teirllm@auburn.edu>
|
||||
|
||||
* cus-start.el (all): Put undo.c where it alphabetically belongs.
|
||||
|
||||
2005-08-04 Juri Linkov <juri@jurta.org>
|
||||
|
||||
* progmodes/compile.el (compilation-mode-map):
|
||||
* progmodes/grep.el (grep-mode-map):
|
||||
Bind TAB to `compilation-next-error' and [backtab] to
|
||||
`compilation-previous-error'.
|
||||
|
||||
* progmodes/grep.el (grep-regexp-alist): Replace complex regexp
|
||||
matching line numbers, column numbers and their ranges with regexp
|
||||
matching only line numbers.
|
||||
(grep-context-face): New face variable.
|
||||
(grep-mode-font-lock-keywords): Use it.
|
||||
|
||||
* faces.el (read-face-name): Delete duplicate faces.
|
||||
|
||||
2005-08-02 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* thumbs.el (thumbs-find-image): Don't make variables
|
||||
automatically buffer local.
|
||||
(thumbs-current-tmp-filename, thumbs-current-image-filename)
|
||||
(thumbs-image-num): Make automatically buffer local.
|
||||
(thumbs-show-thumbs-list): Use `make-local-variable', not
|
||||
`make-variable-buffer-local'.
|
||||
(thumbs-insert-image): Make `thumbs-current-image-size'
|
||||
buffer-local.
|
||||
|
||||
* play/doctor.el (doctor-type-symbol): "?\ " -> "?\s".
|
||||
(**mad**, *debug*, *print-space*, *print-upcase*, abuselst)
|
||||
(abusewords, account, afraidof, arerelated, areyou, bak, beclst)
|
||||
(bother, bye, canyou, chatlst, continue, deathlst, describe)
|
||||
(drnk, drugs, eliza-flag, elizalst, famlst, feared, fears)
|
||||
(feelings-about, foullst, found, hello, history, howareyoulst)
|
||||
(howdyflag, huhlst, ibelieve, improve, inter, isee, isrelated)
|
||||
(lincount, longhuhlst, lover, machlst, mathlst, maybe, moods)
|
||||
(neglst, obj, object, owner, please, problems, qlist)
|
||||
(random-adjective, relation, remlst, repetitive-shortness)
|
||||
(replist, rms-flag, schoollst, sent, sexlst, shortbeclst)
|
||||
(shortlst, something, sportslst, stallmanlst, states, subj)
|
||||
(suicide-flag, sure, things, thlst, toklst, typos, verb, want)
|
||||
(whatwhen, whereoutp, whysay, whywant, zippy-flag, zippylst):
|
||||
Defvar at compile time.
|
||||
|
||||
* progmodes/ada-mode.el (ada-mode): Use `make-local-variable',
|
||||
not `make-variable-buffer-local'.
|
||||
|
||||
2005-08-02 Kim F. Storm <storm@cua.dk>
|
||||
|
||||
* emulation/cua-rect.el (cua--highlight-rectangle): Only show
|
||||
rectangle overlay in selected window.
|
||||
|
||||
2005-08-01 Luc Teirlinck <teirllm@auburn.edu>
|
||||
|
||||
* cus-start.el (all): Put `indicate-empty-lines' in fringe group
|
||||
instead of display group. Make `indicate-buffer-boundaries'
|
||||
customizable through Custom.
|
||||
|
||||
2005-08-01 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* progmodes/gdb-ui.el (gdb-frame-address, gdb-var-changed)
|
||||
(gdb-output-sink, gdba, gdb-cpp-define-alist-program)
|
||||
(gdb-set-gud-minor-mode, gdb-exited, gdb-setup-windows)
|
||||
(gdb-put-string): Fix typos in docstrings.
|
||||
|
||||
2005-08-01 Nick Roberts <nickrob@snap.net.nz>
|
||||
|
||||
Update copyright notices of files in progmodes directory for
|
||||
release of Emacs 22.1.
|
||||
|
||||
* progmodes/gdb-ui.el (gdb-enable-debug-log): Add autoload cookie.
|
||||
|
||||
* progmodes/gud.el (gud-tooltip-mode): Add autoload cookie. Don't
|
||||
barf if the GUD buffer has been killed.
|
||||
|
||||
2005-08-01 Kim F. Storm <storm@cua.dk>
|
||||
|
||||
* textmodes/table.el (table-yank-handler): Change defcustom to defvar.
|
||||
|
||||
2005-07-29 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* emacs-lisp/bytecomp.el (byte-compile-make-variable-buffer-local)
|
||||
(byte-compile-form-make-variable-buffer-local): New functions to warn
|
||||
about misuses of make-variable-buffer-local where make-local-variable
|
||||
was meant.
|
||||
|
||||
2005-07-29 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* bs.el (bs-attributes-list): Doc fix.
|
||||
(bs): Update url-link.
|
||||
|
||||
* desktop.el (desktop-save-buffer): Fix typos in docstring.
|
||||
(desktop-load-default): Simplify.
|
||||
|
||||
* ibuffer.el (ibuffer-columnize-and-insert-list)
|
||||
(ibuffer-mouse-toggle-mark, ibuffer-count-marked-lines)
|
||||
(ibuffer-unmark-all, ibuffer-toggle-marks)
|
||||
(ibuffer-unmark-forward, ibuffer-unmark-backward)
|
||||
(ibuffer-compile-make-format-form, ibuffer-format-column)
|
||||
(ibuffer-current-buffers-with-marks)
|
||||
(ibuffer-update-title-and-summary): "?\ " -> "?\s".
|
||||
(ibuffer): Doc fix.
|
||||
(ibuffer-mode): Fix typo in docstring.
|
||||
(ibuffer-hooks, ibuffer-mode-hooks): Make obsolete and declare
|
||||
with `define-obsolete-variable-alias'.
|
||||
(ibuffer-elide-long-columns): Mark as obsolete. Doc fix.
|
||||
|
||||
2005-07-29 Kenichi Handa <handa@m17n.org>
|
||||
|
||||
* international/mule-cmds.el (select-message-coding-system):
|
||||
Be sure to use LF for end-of-line. If no coding system is decided,
|
||||
return iso-8859-1-unix.
|
||||
|
||||
2005-07-28 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* net/ange-ftp.el (ange-ftp-gateway-fatal-msgs)
|
||||
|
|
@ -62,17 +182,15 @@
|
|||
|
||||
* term/README: Describe the terminal-init-* functionality.
|
||||
|
||||
* startup.el (command-line): After loading the terminal
|
||||
initialization file call the corresponding terminal initialization
|
||||
function.
|
||||
* startup.el (command-line): After loading the terminal initialization
|
||||
file call the corresponding terminal initialization function.
|
||||
|
||||
2005-07-27 Kenichi Handa <handa@m17n.org>
|
||||
|
||||
* ps-bdf.el (bdf-read-font-info): Ignore glyphs whose ENCODING is
|
||||
negative.
|
||||
|
||||
* ps-mule.el (ps-mule-bitmap-prologue): Fix arguments to
|
||||
setcharwidth.
|
||||
* ps-mule.el (ps-mule-bitmap-prologue): Fix arguments to setcharwidth.
|
||||
(ps-mule-composition-prologue): Fix for the case that
|
||||
RelativeCompose is false.
|
||||
|
||||
|
|
@ -140,8 +258,6 @@
|
|||
|
||||
2005-07-22 Juri Linkov <juri@jurta.org>
|
||||
|
||||
* simple.el (line-move-1): Fix comments.
|
||||
|
||||
* startup.el (normal-splash-screen): Update menu name.
|
||||
|
||||
* tempo.el (tempo-insert-template): Fix 2005-07-16 change.
|
||||
|
|
|
|||
20
lisp/bs.el
20
lisp/bs.el
|
|
@ -25,7 +25,7 @@
|
|||
;;; Commentary:
|
||||
|
||||
;; Version: 1.17
|
||||
;; X-URL: http://home.netsurf.de/olaf.sylvester/emacs
|
||||
;; X-URL: http://www.geekware.de/software/emacs
|
||||
;;
|
||||
;; The bs-package contains a main function bs-show for poping up a
|
||||
;; buffer in a way similar to `list-buffers' and `electric-buffer-list':
|
||||
|
|
@ -138,7 +138,7 @@
|
|||
"Buffer Selection: Maintaining buffers by buffer menu."
|
||||
:version "21.1"
|
||||
:link '(emacs-commentary-link "bs")
|
||||
:link '(url-link "http://home.netsurf.de/olaf.sylvester/emacs")
|
||||
:link '(url-link "http://www.geekware.de/software/emacs")
|
||||
:group 'convenience)
|
||||
|
||||
(defgroup bs-appearance nil
|
||||
|
|
@ -160,15 +160,17 @@
|
|||
"*List specifying the layout of a Buffer Selection Menu buffer.
|
||||
Each entry specifies a column and is a list of the form of:
|
||||
\(HEADER MINIMUM-LENGTH MAXIMUM-LENGTH ALIGNMENT FUN-OR-STRING)
|
||||
HEADER : string for header for first line or a function
|
||||
|
||||
HEADER : String for header for first line or a function
|
||||
which calculates column title.
|
||||
MINIMUM-LENGTH : minimum width of column (number or name of function).
|
||||
MINIMUM-LENGTH : Minimum width of column (number or name of function).
|
||||
The function must return a positive integer.
|
||||
MAXIMUM-LENGTH : maximum width of column (number or name of function)
|
||||
(currently ignored)
|
||||
ALIGNMENT : alignment of column: (`left' `right' `middle')
|
||||
FUN-OR-STRING : Name of a function for calculating the value or
|
||||
a string for a constant value.
|
||||
MAXIMUM-LENGTH : Maximum width of column (number or name of function)
|
||||
(currently ignored).
|
||||
ALIGNMENT : Alignment of column (`left', `right', `middle').
|
||||
FUN-OR-STRING : Name of a function for calculating the value or a
|
||||
string for a constant value.
|
||||
|
||||
The function gets as parameter the buffer where we have started
|
||||
buffer selection and the list of all buffers to show. The function must
|
||||
return a string representing the column's value."
|
||||
|
|
|
|||
|
|
@ -40,20 +40,6 @@
|
|||
;; alloc.c
|
||||
(gc-cons-threshold alloc integer)
|
||||
(garbage-collection-messages alloc boolean)
|
||||
;; undo.c
|
||||
(undo-limit undo integer)
|
||||
(undo-strong-limit undo integer)
|
||||
(undo-outer-limit undo
|
||||
(choice integer
|
||||
(const :tag "No limit"
|
||||
:format "%t\n%d"
|
||||
:doc
|
||||
"With this choice, \
|
||||
the undo info for the current command never gets discarded.
|
||||
This should only be chosen under exceptional circumstances,
|
||||
since it could result in memory overflow and make Emacs crash."
|
||||
nil))
|
||||
"22.1")
|
||||
;; buffer.c
|
||||
(mode-line-format modeline sexp) ;Hard to do right.
|
||||
(default-major-mode internal function)
|
||||
|
|
@ -65,7 +51,47 @@ since it could result in memory overflow and make Emacs crash."
|
|||
(ctl-arrow display boolean)
|
||||
(truncate-lines display boolean)
|
||||
(selective-display-ellipses display boolean)
|
||||
(indicate-empty-lines display boolean "21.1")
|
||||
(indicate-empty-lines fringe boolean "21.1")
|
||||
(indicate-buffer-boundaries
|
||||
fringe
|
||||
(choice
|
||||
(const :tag "No indicators" nil)
|
||||
(const :tag "On left, with arrows" left)
|
||||
(const :tag "On right, with arrows" right)
|
||||
(set :tag "Pick your own design"
|
||||
:value ((t . nil))
|
||||
:format "%{%t%}:\n%v\n%d"
|
||||
:doc "You can specify a default and then override it \
|
||||
for individual indicators.
|
||||
Leaving \"Default\" unchecked is equivalent with specifying a default of
|
||||
\"Do not show\"."
|
||||
(choice :tag "Default"
|
||||
:value (t . nil)
|
||||
(const :tag "Do not show" (t . nil))
|
||||
(const :tag "On the left" (t . left))
|
||||
(const :tag "On the right" (t . right)))
|
||||
(choice :tag "Top"
|
||||
:value (top . left)
|
||||
(const :tag "Do not show" (top . nil))
|
||||
(const :tag "On the left" (top . left))
|
||||
(const :tag "On the right" (top . right)))
|
||||
(choice :tag "Bottom"
|
||||
:value (bottom . left)
|
||||
(const :tag "Do not show" (bottom . nil))
|
||||
(const :tag "On the left" (bottom . left))
|
||||
(const :tag "On the right" (bottom . right)))
|
||||
(choice :tag "Up arrow"
|
||||
:value (up . left)
|
||||
(const :tag "Do not show" (up . nil))
|
||||
(const :tag "On the left" (up . left))
|
||||
(const :tag "On the right" (up . right)))
|
||||
(choice :tag "Down arrow"
|
||||
:value (down . left)
|
||||
(const :tag "Do not show" (down . nil))
|
||||
(const :tag "On the left" (down . left))
|
||||
(const :tag "On the right" (down . right))))
|
||||
(other :tag "On left, no arrows" t))
|
||||
"22.1")
|
||||
(scroll-up-aggressively windows
|
||||
(choice (const :tag "off" nil) number)
|
||||
"21.1")
|
||||
|
|
@ -220,6 +246,20 @@ since it could result in memory overflow and make Emacs crash."
|
|||
(words-include-escapes editing-basics boolean)
|
||||
(open-paren-in-column-0-is-defun-start editing-basics boolean
|
||||
"21.1")
|
||||
;; undo.c
|
||||
(undo-limit undo integer)
|
||||
(undo-strong-limit undo integer)
|
||||
(undo-outer-limit undo
|
||||
(choice integer
|
||||
(const :tag "No limit"
|
||||
:format "%t\n%d"
|
||||
:doc
|
||||
"With this choice, \
|
||||
the undo info for the current command never gets discarded.
|
||||
This should only be chosen under exceptional circumstances,
|
||||
since it could result in memory overflow and make Emacs crash."
|
||||
nil))
|
||||
"22.1")
|
||||
;; window.c
|
||||
(temp-buffer-show-function windows (choice (const nil) function))
|
||||
(display-buffer-function windows (choice (const nil) function))
|
||||
|
|
|
|||
|
|
@ -106,7 +106,8 @@ desktop is saved."
|
|||
:group 'desktop)
|
||||
|
||||
;; Maintained for backward compatibility
|
||||
(define-obsolete-variable-alias 'desktop-enable 'desktop-save-mode "22.1")
|
||||
(define-obsolete-variable-alias 'desktop-enable
|
||||
'desktop-save-mode "22.1")
|
||||
|
||||
(defcustom desktop-save 'ask-if-new
|
||||
"*Specifies whether the desktop should be saved when it is killed.
|
||||
|
|
@ -136,7 +137,8 @@ determine where the desktop is saved."
|
|||
"Name of file for Emacs desktop, excluding the directory part."
|
||||
:type 'file
|
||||
:group 'desktop)
|
||||
(define-obsolete-variable-alias 'desktop-basefilename 'desktop-base-file-name "22.1")
|
||||
(define-obsolete-variable-alias 'desktop-basefilename
|
||||
'desktop-base-file-name "22.1")
|
||||
|
||||
(defcustom desktop-path '("." "~")
|
||||
"List of directories to search for the desktop file.
|
||||
|
|
@ -292,8 +294,8 @@ See `desktop-restore-eager'."
|
|||
"When non-nil, save buffer status in desktop file.
|
||||
This variable becomes buffer local when set.
|
||||
|
||||
If the value is a function, it called by `desktop-save' with argument
|
||||
DESKTOP-DIRNAME to obtain auxiliary information to saved in the desktop
|
||||
If the value is a function, it is called by `desktop-save' with argument
|
||||
DESKTOP-DIRNAME to obtain auxiliary information to save in the desktop
|
||||
file along with the state of the buffer for which it was called.
|
||||
|
||||
When file names are returned, they should be formatted using the call
|
||||
|
|
@ -776,11 +778,11 @@ It returns t if a desktop file was loaded, nil otherwise."
|
|||
(defun desktop-load-default ()
|
||||
"Load the `default' start-up library manually.
|
||||
Also inhibit further loading of it."
|
||||
(if (not inhibit-default-init) ; safety check
|
||||
(progn
|
||||
(unless inhibit-default-init ; safety check
|
||||
(load "default" t t)
|
||||
(setq inhibit-default-init t))))
|
||||
(make-obsolete 'desktop-load-default 'desktop-save-mode "22.1")
|
||||
(setq inhibit-default-init t)))
|
||||
(make-obsolete 'desktop-load-default
|
||||
'desktop-save-mode "22.1")
|
||||
|
||||
;; ----------------------------------------------------------------------------
|
||||
;;;###autoload
|
||||
|
|
|
|||
|
|
@ -3792,6 +3792,19 @@ that suppresses all warnings during execution of BODY."
|
|||
(defun byte-compile-no-warnings (form)
|
||||
(let (byte-compile-warnings)
|
||||
(byte-compile-form (cons 'progn (cdr form)))))
|
||||
|
||||
;; Warn about misuses of make-variable-buffer-local.
|
||||
(byte-defop-compiler-1 make-variable-buffer-local byte-compile-make-variable-buffer-local)
|
||||
(defun byte-compile-make-variable-buffer-local (form)
|
||||
(if (eq (car-safe (car-safe (cdr-safe form))) 'quote)
|
||||
(byte-compile-warn
|
||||
"`make-variable-buffer-local' should be called at toplevel"))
|
||||
(byte-compile-normal-call form))
|
||||
(put 'make-variable-buffer-local
|
||||
'byte-hunk-handler 'byte-compile-form-make-variable-buffer-local)
|
||||
(defun byte-compile-form-make-variable-buffer-local (form)
|
||||
(byte-compile-keep-pending form 'byte-compile-normal-call))
|
||||
|
||||
|
||||
;;; tags
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*-
|
||||
|
||||
;; Copyright (C) 1993,2000,2003 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1993, 2000, 2003, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Dave Gillespie <daveg@synaptics.com>
|
||||
;; Keywords: extensions
|
||||
|
|
@ -38,9 +38,7 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(or (memq 'cl-19 features)
|
||||
(error "Tried to load `cl-extra' before `cl'!"))
|
||||
|
||||
(require 'cl)
|
||||
|
||||
;;; Type coercion.
|
||||
|
||||
|
|
@ -763,5 +761,5 @@ This also does some trivial optimizations to make the form prettier."
|
|||
|
||||
(run-hooks 'cl-extra-load-hook)
|
||||
|
||||
;;; arch-tag: bcd03437-0871-43fb-a8f1-ad0e0b5427ed
|
||||
;; arch-tag: bcd03437-0871-43fb-a8f1-ad0e0b5427ed
|
||||
;;; cl-extra.el ends here
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; crisp.el --- CRiSP/Brief Emacs emulator
|
||||
|
||||
;; Copyright (C) 1997, 1998, 1999, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1997, 1998, 1999, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Gary D. Foster <Gary.Foster@Corp.Sun.COM>
|
||||
;; Keywords: emulations brief crisp
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; cua-base.el --- emulate CUA key bindings
|
||||
|
||||
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2005
|
||||
;; Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Kim F. Storm <storm@cua.dk>
|
||||
;; Keywords: keyboard emulation convenience cua
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; cua-gmrk.el --- CUA unified global mark support
|
||||
|
||||
;; Copyright (C) 1997-2002 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Kim F. Storm <storm@cua.dk>
|
||||
;; Keywords: keyboard emulations convenience cua mark
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; cua-rect.el --- CUA unified rectangle support
|
||||
|
||||
;; Copyright (C) 1997-2002, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Kim F. Storm <storm@cua.dk>
|
||||
;; Keywords: keyboard emulations convenience CUA
|
||||
|
|
@ -832,6 +833,7 @@ If command is repeated at same position, delete the rectangle."
|
|||
(overlay-put overlay 'after-string as)
|
||||
(overlay-put overlay 'face rface)
|
||||
(overlay-put overlay 'keymap cua--overlay-keymap)
|
||||
(overlay-put overlay 'window (selected-window))
|
||||
(setq new (cons overlay new))))))
|
||||
;; Trim old trailing overlays.
|
||||
(mapcar (function delete-overlay) old)
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; edt-lk201.el --- enhanced EDT keypad mode emulation for LK-201 keyboards
|
||||
|
||||
;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1986, 1992, 1993, 1995, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Kevin Gallagher <kevingal@onramp.net>
|
||||
;; Maintainer: Kevin Gallagher <kevingal@onramp.net>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; edt-mapper.el --- create an EDT LK-201 map file for X-Windows Emacs
|
||||
|
||||
;; Copyright (C) 1994, 1995, 2000, 2001 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1994, 1995, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Kevin Gallagher <kevingal@onramp.net>
|
||||
;; Maintainer: Kevin Gallagher <kevingal@onramp.net>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; edt-pc.el --- enhanced EDT keypad mode emulation for PC 101 keyboards
|
||||
|
||||
;; Copyright (C) 1986, 1994, 1995 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1986, 1994, 1995, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Kevin Gallagher <kevingal@onramp.net>
|
||||
;; Maintainer: Kevin Gallagher <kevingal@onramp.net>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; edt-vt100.el --- enhanced EDT keypad mode emulation for VT series terminals
|
||||
|
||||
;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1986, 1992, 1993, 1995, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Kevin Gallagher <kevingal@onramp.net>
|
||||
;; Maintainer: Kevin Gallagher <kevingal@onramp.net>
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 19
|
||||
|
||||
;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001
|
||||
;; Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001, 2002, 2003,
|
||||
;; 2004, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Kevin Gallagher <kevingal@onramp.net>
|
||||
;; Maintainer: Kevin Gallagher <kevingal@onramp.net>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; keypad.el --- simplified keypad bindings
|
||||
|
||||
;; Copyright (C) 2002 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Kim F. Storm <storm@cua.dk>
|
||||
;; Keywords: keyboard convenience
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; pc-mode.el --- emulate certain key bindings used on PCs
|
||||
|
||||
;; Copyright (C) 1995 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Maintainer: FSF
|
||||
;; Keywords: emulations
|
||||
|
|
|
|||
|
|
@ -2,7 +2,8 @@
|
|||
;;; (or MAC GUI or MS-windoze (bah)) look-and-feel
|
||||
;;; including key bindings.
|
||||
|
||||
;; Copyright (C) 1995, 1996, 1997, 2000, 2001, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Michael Staats <michael@thp.Uni-Duisburg.DE>
|
||||
;; Keywords: convenience emulation
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; tpu-edt.el --- Emacs emulating TPU emulating EDT
|
||||
|
||||
;; Copyright (C) 1993, 1994, 1995, 2000, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1993, 1994, 1995, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Rob Riepel <riepel@networking.stanford.edu>
|
||||
;; Maintainer: Rob Riepel <riepel@networking.stanford.edu>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; tpu-extras.el --- scroll margins and free cursor mode for TPU-edt
|
||||
|
||||
;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1993, 1994, 1995, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Rob Riepel <riepel@networking.stanford.edu>
|
||||
;; Maintainer: Rob Riepel <riepel@networking.stanford.edu>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; tpu-mapper.el --- create a TPU-edt X-windows keymap file
|
||||
|
||||
;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1993, 1994, 1995, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Rob Riepel <riepel@networking.stanford.edu>
|
||||
;; Maintainer: Rob Riepel <riepel@networking.stanford.edu>
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; vip.el --- a VI Package for GNU Emacs
|
||||
|
||||
;; Copyright (C) 1986, 1987, 1988, 1992, 1993, 1998, 2005
|
||||
;; Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1986, 1987, 1988, 1992, 1993, 1998, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Masahiko Sato <ms@sail.stanford.edu>
|
||||
;; Keywords: emulations
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; viper-cmd.el --- Vi command support for Viper
|
||||
|
||||
;; Copyright (C) 1997, 98, 99, 2000, 01, 02, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; viper-ex.el --- functions implementing the Ex commands for Viper
|
||||
|
||||
;; Copyright (C) 1994, 95, 96, 97, 98, 2000, 01, 02, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003,
|
||||
;; 2004, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; viper-init.el --- some common definitions for Viper
|
||||
|
||||
;; Copyright (C) 1997, 98, 99, 2000, 01, 02, 05 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; viper-keym.el --- Viper keymaps
|
||||
|
||||
;; Copyright (C) 1994, 95, 96, 97, 2000, 01, 02, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1994, 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; viper-macs.el --- functions implementing keyboard macros for Viper
|
||||
|
||||
;; Copyright (C) 1994, 95, 96, 97, 2000, 01, 02, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1994, 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; viper-mous.el --- mouse support for Viper
|
||||
|
||||
;; Copyright (C) 1994, 95, 96, 97, 2001, 02 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1994, 1995, 1996, 1997, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; viper-util.el --- Utilities used by viper.el
|
||||
|
||||
;; Copyright (C) 1994, 95, 96, 97, 99, 2000, 01, 02, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003,
|
||||
;; 2004, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
|
||||
|
||||
|
|
|
|||
|
|
@ -3,7 +3,8 @@
|
|||
;; and a venomous VI PERil.
|
||||
;; Viper Is also a Package for Emacs Rebels.
|
||||
|
||||
;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000, 01, 02, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
|
||||
;; 2003, 2004, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
|
||||
;; Keywords: emulations
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; ws-mode.el --- WordStar emulation mode for GNU Emacs
|
||||
|
||||
;; Copyright (C) 1991 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1991, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Juergen Nickelsen <nickel@cs.tu-berlin.de>
|
||||
;; Version: 0.7
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-alias.el --- creation and management of command aliases
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2004 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-banner.el --- sample module that displays a login banner
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-basic.el --- basic shell builtin commands
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-cmpl.el --- completion using the TAB key
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-dirs.el --- directory navigation commands
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2004 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-glob.el --- extended file name globbing
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-hist.el --- history list management
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2004 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-ls.el --- implementation of ls in Lisp
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2005 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-pred.el --- argument predicates and modifiers (ala zsh)
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-prompt.el --- command prompts
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2005 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-rebind.el --- rebind keys when point is at current input
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-script.el --- Eshell script files
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-smart.el --- smart display of output
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-term.el --- running visual commands
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-unix.el --- UNIX command aliases
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2001, 2004 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; em-xtra.el --- extra alias functions
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; esh-arg.el --- argument processing
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; esh-cmd.el --- command invocation
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; esh-ext.el --- commands external to Eshell
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; esh-io.el --- I/O management
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2005 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; esh-maint.el --- init code for building eshell -*- no-byte-compile: t -*-
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; esh-mode.el --- user interface
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2001, 2004 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; esh-module.el --- Eshell modules
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2004 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
;; Keywords: processes
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; esh-opt.el --- command options processing
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2003 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; esh-proc.el --- process management
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; esh-test.el --- Eshell test suite
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2005 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; esh-util.el --- general utilities
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2001 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; esh-var.el --- handling of variables
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2005 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; eshell.el --- the Emacs command shell
|
||||
|
||||
;; Copyright (C) 1999, 2000 Free Software Foundation
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
;; Version: 2.4.2
|
||||
|
|
|
|||
|
|
@ -882,6 +882,7 @@ Otherwise, return a single face."
|
|||
(push f faces)))
|
||||
(if (symbolp faceprop)
|
||||
(push faceprop faces)))
|
||||
(delete-dups faces)
|
||||
|
||||
;; Build up the completion tables.
|
||||
(mapatoms (lambda (s)
|
||||
|
|
|
|||
|
|
@ -1,8 +1,74 @@
|
|||
2005-08-05 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* mm-bodies.el (mm-encode-body): Use coding system rather than
|
||||
charset to encode text.
|
||||
|
||||
* mm-util.el (mm-find-mime-charset-region): Attempt to reduce the
|
||||
number of charsets if utf-8 is available (XEmacs).
|
||||
|
||||
2005-08-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
* gnus-art.el (article-unsplit-urls): Don't anchor urls to the
|
||||
start of the lines.
|
||||
(gnus-picon-databases): Add /usr/share/picons.
|
||||
|
||||
2005-08-04 Reiner Steib <Reiner.Steib@gmx.de>
|
||||
|
||||
* gnus-art.el (gnus-button-valid-localpart-regexp): New variable
|
||||
taken from `gnus-button-mid-or-mail-regexp'.
|
||||
(gnus-button-mid-or-mail-regexp, gnus-button-alist): Use it.
|
||||
(gnus-button-alist): Improve regexp for domain part of the MIDs
|
||||
for news:localpart@domain buttons.
|
||||
(gnus-button-ctan-directory-regexp): Update.
|
||||
|
||||
* message.el (message-kill-buffer): Raise the current frame.
|
||||
(message-bury): Use `window-dedicated-p'.
|
||||
|
||||
2005-08-02 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* sieve-manage.el (sieve-manage-interactive-login): Use
|
||||
make-local-variable rather than make-variable-buffer-local.
|
||||
(sieve-manage-open): Ditto.
|
||||
(sieve-manage-authenticate): Ditto.
|
||||
|
||||
* mml.el (mml-generate-mime-1): Make the content type default to
|
||||
text/plain if the filename is not specified.
|
||||
|
||||
2005-08-01 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* gnus-uu.el (gnus-uu-save-article): Use insert-buffer-substring
|
||||
instead of insert-buffer.
|
||||
|
||||
* message.el (message-yank-original): Ditto; set the mark at the
|
||||
end of the yanked message.
|
||||
|
||||
2005-07-29 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* gnus-art.el (gnus-article-next-page-1): Reduce the number of
|
||||
lines to scroll rather than to stop it.
|
||||
|
||||
* mml.el (mml-generate-default-type): Add doc string.
|
||||
(mml-generate-mime-1): Use mm-default-file-encoding or make it
|
||||
default to application/octet-stream when determining the content
|
||||
type if it is not specified for the part or the mml contents; add
|
||||
a comment about mml-generate-default-type.
|
||||
|
||||
2005-07-29 Reiner Steib <Reiner.Steib@gmx.de>
|
||||
|
||||
* mml.el (mml-generate-mime-1): Use mm-default-file-encoding or
|
||||
make it default to application/octet-stream when determining the
|
||||
content type if it is not specified for the external contents.
|
||||
|
||||
2005-07-28 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* rfc2231.el (rfc2231-parse-string): Take care that not only a
|
||||
segmented parameter but also other parameters might be there.
|
||||
|
||||
2005-07-27 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* mm-decode.el (mm-display-external): Delete temp file, directory
|
||||
and buffer immediately if the external process is exited.
|
||||
|
||||
2005-07-26 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* gnus-art.el (gnus-article-next-page-1): Don't scroll if there're
|
||||
|
|
|
|||
|
|
@ -842,7 +842,8 @@ be controlled by `gnus-treat-body-boundary'."
|
|||
:type '(choice (item :tag "None" :value nil)
|
||||
string))
|
||||
|
||||
(defcustom gnus-picon-databases '("/usr/lib/picon" "/usr/local/faces")
|
||||
(defcustom gnus-picon-databases '("/usr/lib/picon" "/usr/local/faces"
|
||||
"/usr/share/picons")
|
||||
"Defines the location of the faces database.
|
||||
For information on obtaining this database of pretty pictures, please
|
||||
see http://www.cs.indiana.edu/picons/ftp/index.html"
|
||||
|
|
@ -2428,7 +2429,7 @@ If READ-CHARSET, ask for a coding system."
|
|||
(let ((inhibit-read-only t))
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward
|
||||
"^\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil t)
|
||||
"\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil t)
|
||||
(replace-match "\\1\\3" t)))
|
||||
(when (interactive-p)
|
||||
(gnus-treat-article nil))))
|
||||
|
|
@ -5197,17 +5198,23 @@ specifies."
|
|||
1 0)))))))
|
||||
|
||||
(defun gnus-article-next-page-1 (lines)
|
||||
(unless (and (not (featurep 'xemacs))
|
||||
(> (symbol-value 'scroll-margin) 0)
|
||||
(<= (count-lines (window-start) (point-max))
|
||||
(symbol-value 'scroll-margin)))
|
||||
(when (and (not (featurep 'xemacs))
|
||||
(numberp lines)
|
||||
(> lines 0)
|
||||
(numberp (symbol-value 'scroll-margin))
|
||||
(> (symbol-value 'scroll-margin) 0))
|
||||
;; Protect against the bug that Emacs 21.x hangs up when scrolling up for
|
||||
;; too many number of lines if `scroll-margin' is set as two or greater.
|
||||
(setq lines (min lines
|
||||
(max 0 (- (count-lines (window-start) (point-max))
|
||||
(symbol-value 'scroll-margin))))))
|
||||
(condition-case ()
|
||||
(let ((scroll-in-place nil))
|
||||
(scroll-up lines))
|
||||
(end-of-buffer
|
||||
;; Long lines may cause an end-of-buffer error.
|
||||
(goto-char (point-max))))
|
||||
(gnus-article-beginning-of-window)))
|
||||
(gnus-article-beginning-of-window))
|
||||
|
||||
(defun gnus-article-prev-page (&optional lines)
|
||||
"Show previous page of current article.
|
||||
|
|
@ -5880,6 +5887,14 @@ groups."
|
|||
:group 'gnus-article-buttons
|
||||
:type 'regexp)
|
||||
|
||||
;; Regexp suggested by Felix Wiemann in <87oeuomcz9.fsf@news2.ososo.de>
|
||||
(defcustom gnus-button-valid-localpart-regexp
|
||||
"[a-z0-9$%(*-=?[_][^<>\")!;:,{}\n\t ]*"
|
||||
"Regular expression that matches a localpart of mail addresses or MIDs."
|
||||
:version "22.1"
|
||||
:group 'gnus-article-buttons
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-button-man-handler 'manual-entry
|
||||
"Function to use for displaying man pages.
|
||||
The function must take at least one argument with a string naming the
|
||||
|
|
@ -5919,12 +5934,11 @@ The function must take one argument, the string naming the URL."
|
|||
(regexp :tag "Other")))
|
||||
|
||||
(defcustom gnus-button-ctan-directory-regexp
|
||||
(concat
|
||||
"\\("; Cannot use `\(?: ... \)' (compatibility with Emacs 20).
|
||||
"biblio\\|digests\\|dviware\\|fonts\\|graphics\\|help\\|"
|
||||
"indexing\\|info\\|language\\|macros\\|support\\|systems\\|"
|
||||
"tds\\|tools\\|usergrps\\|web\\|nonfree\\|obsolete"
|
||||
"\\)")
|
||||
(regexp-opt
|
||||
(list "archive-tools" "biblio" "bibliography" "digests" "documentation"
|
||||
"dviware" "fonts" "graphics" "help" "indexing" "info" "language"
|
||||
"languages" "macros" "nonfree" "obsolete" "support" "systems"
|
||||
"tds" "tools" "usergrps" "web") t)
|
||||
"Regular expression for ctan directories.
|
||||
It should match all directories in the top level of `gnus-ctan-url'."
|
||||
:version "22.1"
|
||||
|
|
@ -5932,8 +5946,7 @@ It should match all directories in the top level of `gnus-ctan-url'."
|
|||
:type 'regexp)
|
||||
|
||||
(defcustom gnus-button-mid-or-mail-regexp
|
||||
(concat "\\b\\(<?[a-z0-9$%(*-=?[_][^<>\")!;:,{}\n\t ]*@"
|
||||
;; Felix Wiemann in <87oeuomcz9.fsf@news2.ososo.de>
|
||||
(concat "\\b\\(<?" gnus-button-valid-localpart-regexp "@"
|
||||
gnus-button-valid-fqdn-regexp
|
||||
">?\\)\\b")
|
||||
"Regular expression that matches a message ID or a mail address."
|
||||
|
|
@ -6248,8 +6261,9 @@ positives are possible."
|
|||
(defcustom gnus-button-alist
|
||||
'(("<\\(url:[>\n\t ]*?\\)?\\(nntp\\|news\\):[>\n\t ]*\\([^>\n\t ]*@[^>\n\t ]*\\)>"
|
||||
0 (>= gnus-button-message-level 0) gnus-button-handle-news 3)
|
||||
("\\b\\(nntp\\|news\\):\\([^>\n\t ]*@[^>)!;:,\n\t ]*\\)" 0 t
|
||||
gnus-button-handle-news 2)
|
||||
((concat "\\b\\(nntp\\|news\\):\\("
|
||||
gnus-button-valid-localpart-regexp "@[a-z0-9.-]+[a-z]\\)")
|
||||
0 t gnus-button-handle-news 2)
|
||||
("\\(\\b<\\(url:[>\n\t ]*\\)?\\(nntp\\|news\\):[>\n\t ]*\\(//\\)?\\([^>\n\t ]*\\)>\\)"
|
||||
1 (>= gnus-button-message-level 0) gnus-button-fetch-group 5)
|
||||
("\\b\\(nntp\\|news\\):\\(//\\)?\\([^'\">\n\t ]+\\)"
|
||||
|
|
|
|||
|
|
@ -917,16 +917,16 @@ When called interactively, prompt for REGEXP."
|
|||
(if (and message-forward-as-mime gnus-uu-digest-buffer)
|
||||
(with-current-buffer gnus-uu-digest-buffer
|
||||
(erase-buffer)
|
||||
(insert-buffer "*gnus-uu-pre*")
|
||||
(insert-buffer-substring "*gnus-uu-pre*")
|
||||
(goto-char (point-max))
|
||||
(insert-buffer "*gnus-uu-body*"))
|
||||
(insert-buffer-substring "*gnus-uu-body*"))
|
||||
(save-excursion
|
||||
(set-buffer "*gnus-uu-pre*")
|
||||
(insert (format "\n\n%s\n\n" (make-string 70 ?-)))
|
||||
(if gnus-uu-digest-buffer
|
||||
(with-current-buffer gnus-uu-digest-buffer
|
||||
(erase-buffer)
|
||||
(insert-buffer "*gnus-uu-pre*"))
|
||||
(insert-buffer-substring "*gnus-uu-pre*"))
|
||||
(let ((coding-system-for-write mm-text-coding-system))
|
||||
(gnus-write-buffer gnus-uu-saved-article-name))))
|
||||
(save-excursion
|
||||
|
|
@ -939,7 +939,7 @@ When called interactively, prompt for REGEXP."
|
|||
(if gnus-uu-digest-buffer
|
||||
(with-current-buffer gnus-uu-digest-buffer
|
||||
(goto-char (point-max))
|
||||
(insert-buffer "*gnus-uu-body*"))
|
||||
(insert-buffer-substring "*gnus-uu-body*"))
|
||||
(let ((coding-system-for-write mm-text-coding-system)
|
||||
(file-name-coding-system nnmail-pathname-coding-system))
|
||||
(write-region
|
||||
|
|
|
|||
|
|
@ -3206,7 +3206,9 @@ prefix, and don't delete any headers."
|
|||
(when (and message-reply-buffer
|
||||
message-cite-function)
|
||||
(delete-windows-on message-reply-buffer t)
|
||||
(insert-buffer message-reply-buffer)
|
||||
(push-mark (save-excursion
|
||||
(insert-buffer-substring message-reply-buffer)
|
||||
(point)))
|
||||
(unless arg
|
||||
(funcall message-cite-function))
|
||||
(message-exchange-point-and-mark)
|
||||
|
|
@ -3416,8 +3418,15 @@ Instead, just auto-save the buffer and then bury it."
|
|||
(file-exists-p auto-save-file-name))
|
||||
(and file-name
|
||||
(file-exists-p file-name)))
|
||||
(progn
|
||||
;; If the message buffer has lived in a dedicated window,
|
||||
;; `kill-buffer' has killed the frame. Thus the
|
||||
;; `yes-or-no-p' may show up in a lowered frame. Make sure
|
||||
;; that the user can see the question by raising the
|
||||
;; current frame:
|
||||
(raise-frame)
|
||||
(yes-or-no-p (format "Remove the backup file%s? "
|
||||
(if modified " too" ""))))
|
||||
(if modified " too" "")))))
|
||||
(ignore-errors
|
||||
(delete-file auto-save-file-name))
|
||||
(let ((message-draft-article draft-article))
|
||||
|
|
@ -3428,8 +3437,7 @@ Instead, just auto-save the buffer and then bury it."
|
|||
"Bury this mail BUFFER."
|
||||
(let ((newbuf (other-buffer buffer)))
|
||||
(bury-buffer buffer)
|
||||
(if (and (fboundp 'frame-parameters)
|
||||
(cdr (assq 'dedicated (frame-parameters)))
|
||||
(if (and (window-dedicated-p (selected-window))
|
||||
(not (null (delq (selected-frame) (visible-frame-list)))))
|
||||
(delete-frame (selected-frame))
|
||||
(switch-to-buffer newbuf))))
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; mm-bodies.el --- Functions for decoding MIME things
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2004
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2004, 2005
|
||||
;; Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
|
|
@ -95,7 +95,8 @@ If no encoding was done, nil is returned."
|
|||
(save-excursion
|
||||
(if charset
|
||||
(progn
|
||||
(mm-encode-coding-region (point-min) (point-max) charset)
|
||||
(mm-encode-coding-region (point-min) (point-max)
|
||||
(mm-charset-to-coding-system charset))
|
||||
charset)
|
||||
(goto-char (point-min))
|
||||
(let ((charsets (mm-find-mime-charset-region (point-min) (point-max))))
|
||||
|
|
|
|||
|
|
@ -817,11 +817,32 @@ external if displayed external."
|
|||
(let ((command (mm-mailcap-command
|
||||
method file (mm-handle-type handle))))
|
||||
(unwind-protect
|
||||
(progn
|
||||
(start-process "*display*"
|
||||
(setq buffer
|
||||
(generate-new-buffer " *mm*"))
|
||||
shell-file-name
|
||||
shell-command-switch command)
|
||||
(set-process-sentinel
|
||||
(get-buffer-process buffer)
|
||||
`(lambda (process state)
|
||||
(when (eq 'exit (process-status process))
|
||||
;; Don't use `ignore-errors'.
|
||||
(condition-case nil
|
||||
(delete-file ,file)
|
||||
(error))
|
||||
(condition-case nil
|
||||
(delete-directory ,(file-name-directory file))
|
||||
(error))
|
||||
(condition-case nil
|
||||
(kill-buffer ,buffer)
|
||||
(error))
|
||||
(condition-case nil
|
||||
,(macroexpand (list 'mm-handle-set-undisplayer
|
||||
(list 'quote handle)
|
||||
nil))
|
||||
(error))
|
||||
(message "Displaying %s...done" ,command)))))
|
||||
(mm-handle-set-external-undisplayer
|
||||
handle (cons file buffer)))
|
||||
(message "Displaying %s..." command))
|
||||
|
|
|
|||
|
|
@ -123,7 +123,13 @@ unknown encoding; `use-ascii': always use ASCII for those characters
|
|||
with unknown encoding; `multipart': always send messages with more than
|
||||
one charsets.")
|
||||
|
||||
(defvar mml-generate-default-type "text/plain")
|
||||
(defvar mml-generate-default-type "text/plain"
|
||||
"Content type by which the Content-Type header can be omitted.
|
||||
The Content-Type header will not be put in the MIME part if the type
|
||||
equals the value and there's no parameter (e.g. charset, format, etc.)
|
||||
and `mml-insert-mime-headers-always' is nil. The value will be bound
|
||||
to \"message/rfc822\" when encoding an article to be forwarded as a MIME
|
||||
part. This is for the internal use, you should never modify the value.")
|
||||
|
||||
(defvar mml-buffer-list nil)
|
||||
|
||||
|
|
@ -399,9 +405,14 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
|
|||
(mml-tweak-part cont)
|
||||
(cond
|
||||
((or (eq (car cont) 'part) (eq (car cont) 'mml))
|
||||
(let ((raw (cdr (assq 'raw cont)))
|
||||
coded encoding charset filename type flowed)
|
||||
(setq type (or (cdr (assq 'type cont)) "text/plain"))
|
||||
(let* ((raw (cdr (assq 'raw cont)))
|
||||
(filename (cdr (assq 'filename cont)))
|
||||
(type (or (cdr (assq 'type cont))
|
||||
(if filename
|
||||
(or (mm-default-file-encoding filename)
|
||||
"application/octet-stream")
|
||||
"text/plain")))
|
||||
coded encoding charset flowed)
|
||||
(if (and (not raw)
|
||||
(member (car (split-string type "/")) '("text" "message")))
|
||||
(progn
|
||||
|
|
@ -413,7 +424,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
|
|||
(cond
|
||||
((cdr (assq 'buffer cont))
|
||||
(insert-buffer-substring (cdr (assq 'buffer cont))))
|
||||
((and (setq filename (cdr (assq 'filename cont)))
|
||||
((and filename
|
||||
(not (equal (cdr (assq 'nofile cont)) "yes")))
|
||||
(let ((coding-system-for-read charset))
|
||||
(mm-insert-file-contents filename)))
|
||||
|
|
@ -433,6 +444,10 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
|
|||
(cond
|
||||
((eq (car cont) 'mml)
|
||||
(let ((mml-boundary (mml-compute-boundary cont))
|
||||
;; It is necessary for the case where this
|
||||
;; function is called recursively since
|
||||
;; `m-g-d-t' will be bound to "message/rfc822"
|
||||
;; when encoding an article to be forwarded.
|
||||
(mml-generate-default-type "text/plain"))
|
||||
(mml-to-mime))
|
||||
(let ((mm-7bit-chars (concat mm-7bit-chars "\x1b")))
|
||||
|
|
@ -474,7 +489,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
|
|||
(insert (with-current-buffer (cdr (assq 'buffer cont))
|
||||
(mm-with-unibyte-current-buffer
|
||||
(buffer-string)))))
|
||||
((and (setq filename (cdr (assq 'filename cont)))
|
||||
((and filename
|
||||
(not (equal (cdr (assq 'nofile cont)) "yes")))
|
||||
(let ((coding-system-for-read mm-binary-coding-system))
|
||||
(mm-insert-file-contents filename nil nil nil nil t)))
|
||||
|
|
@ -515,15 +530,21 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
|
|||
"access-type=url"))
|
||||
(when parameters
|
||||
(mml-insert-parameter-string
|
||||
cont '(expiration size permission))))
|
||||
cont '(expiration size permission)))
|
||||
(insert "\n\n")
|
||||
(insert "Content-Type: " (cdr (assq 'type cont)) "\n")
|
||||
(insert "Content-Type: "
|
||||
(or (cdr (assq 'type cont))
|
||||
(if name
|
||||
(or (mm-default-file-encoding name)
|
||||
"application/octet-stream")
|
||||
"text/plain"))
|
||||
"\n")
|
||||
(insert "Content-ID: " (message-make-message-id) "\n")
|
||||
(insert "Content-Transfer-Encoding: "
|
||||
(or (cdr (assq 'encoding cont)) "binary"))
|
||||
(insert "\n\n")
|
||||
(insert (or (cdr (assq 'contents cont))))
|
||||
(insert "\n"))
|
||||
(insert "\n")))
|
||||
((eq (car cont) 'multipart)
|
||||
(let* ((type (or (cdr (assq 'type cont)) "mixed"))
|
||||
(mml-generate-default-type (if (equal type "digest")
|
||||
|
|
@ -559,7 +580,8 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
|
|||
(message-options-set 'message-sender sender))
|
||||
(if (setq recipients (cdr (assq 'recipients cont)))
|
||||
(message-options-set 'message-recipients recipients))
|
||||
(let ((style (mml-signencrypt-style (first (or sign-item encrypt-item)))))
|
||||
(let ((style (mml-signencrypt-style
|
||||
(first (or sign-item encrypt-item)))))
|
||||
;; check if: we're both signing & encrypting, both methods
|
||||
;; are the same (why would they be different?!), and that
|
||||
;; the signencrypt style allows for combined operation.
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
;;; sieve-manage.el --- Implementation of the managesive protocol in elisp
|
||||
;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Simon Josefsson <simon@josefsson.org>
|
||||
|
||||
|
|
@ -184,8 +184,8 @@ LOGINFUNC is passed a username and a password, it should return t if
|
|||
it where sucessful authenticating itself to the server, nil otherwise.
|
||||
Returns t if login was successful, nil otherwise."
|
||||
(with-current-buffer buffer
|
||||
(make-variable-buffer-local 'sieve-manage-username)
|
||||
(make-variable-buffer-local 'sieve-manage-password)
|
||||
(make-local-variable 'sieve-manage-username)
|
||||
(make-local-variable 'sieve-manage-password)
|
||||
(let (user passwd ret reason)
|
||||
;; (condition-case ()
|
||||
(while (or (not user) (not passwd))
|
||||
|
|
@ -370,7 +370,7 @@ Optional variable BUFFER is buffer (buffer, or string naming buffer)
|
|||
to work in."
|
||||
(setq buffer (or buffer (format " *sieve* %s:%d" server (or port 2000))))
|
||||
(with-current-buffer (get-buffer-create buffer)
|
||||
(mapcar 'make-variable-buffer-local sieve-manage-local-variables)
|
||||
(mapcar 'make-local-variable sieve-manage-local-variables)
|
||||
(sieve-manage-disable-multibyte)
|
||||
(buffer-disable-undo)
|
||||
(setq sieve-manage-server (or server sieve-manage-server))
|
||||
|
|
@ -458,8 +458,8 @@ password is remembered in the buffer."
|
|||
(with-current-buffer (or buffer (current-buffer))
|
||||
(if (not (eq sieve-manage-state 'nonauth))
|
||||
(eq sieve-manage-state 'auth)
|
||||
(make-variable-buffer-local 'sieve-manage-username)
|
||||
(make-variable-buffer-local 'sieve-manage-password)
|
||||
(make-local-variable 'sieve-manage-username)
|
||||
(make-local-variable 'sieve-manage-password)
|
||||
(if user (setq sieve-manage-username user))
|
||||
(if passwd (setq sieve-manage-password passwd))
|
||||
(if (funcall (nth 2 (assq sieve-manage-auth
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; ibuffer.el --- operate on buffers like dired
|
||||
|
||||
;; Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005
|
||||
;; Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Colin Walters <walters@verbum.org>
|
||||
;; Maintainer: John Paul Wallington <jpw@gnu.org>
|
||||
|
|
@ -193,11 +194,12 @@ view of the buffers."
|
|||
(defvar ibuffer-sorting-reversep nil)
|
||||
|
||||
(defcustom ibuffer-elide-long-columns nil
|
||||
"If non-nil, then elide column entries which exceed their max length.
|
||||
This variable is deprecated; use the :elide argument of
|
||||
`ibuffer-formats' to elide just certain columns."
|
||||
"If non-nil, then elide column entries which exceed their max length."
|
||||
:type 'boolean
|
||||
:group 'ibuffer)
|
||||
(make-obsolete-variable 'ibuffer-elide-long-columns
|
||||
"use the :elide argument of `ibuffer-formats'."
|
||||
"22.1")
|
||||
|
||||
(defcustom ibuffer-eliding-string "..."
|
||||
"The string to use for eliding long columns."
|
||||
|
|
@ -307,13 +309,15 @@ directory, like `default-directory'."
|
|||
"Hook run when `ibuffer' is called."
|
||||
:type 'hook
|
||||
:group 'ibuffer)
|
||||
(defvaralias 'ibuffer-hooks 'ibuffer-hook)
|
||||
(define-obsolete-variable-alias 'ibuffer-hooks
|
||||
'ibuffer-hook "22.1")
|
||||
|
||||
(defcustom ibuffer-mode-hook nil
|
||||
"Hook run upon entry into `ibuffer-mode'."
|
||||
:type 'hook
|
||||
:group 'ibuffer)
|
||||
(defvaralias 'ibuffer-mode-hooks 'ibuffer-mode-hook)
|
||||
(define-obsolete-variable-alias 'ibuffer-mode-hooks
|
||||
'ibuffer-mode-hook "22.1")
|
||||
|
||||
(defcustom ibuffer-load-hook nil
|
||||
"Hook run when Ibuffer is loaded."
|
||||
|
|
@ -838,7 +842,7 @@ width and the longest string in LIST."
|
|||
(while list
|
||||
(dotimes (i (1- columns))
|
||||
(insert (concat (car list) (make-string (- max (length (car list)))
|
||||
? )))
|
||||
?\s)))
|
||||
(setq list (cdr list)))
|
||||
(when (not (null list))
|
||||
(insert (pop list)))
|
||||
|
|
@ -861,7 +865,7 @@ width and the longest string in LIST."
|
|||
(let ((mark (ibuffer-current-mark)))
|
||||
(setq buffer-read-only nil)
|
||||
(if (eq mark ibuffer-marked-char)
|
||||
(ibuffer-set-mark ? )
|
||||
(ibuffer-set-mark ?\s)
|
||||
(ibuffer-set-mark ibuffer-marked-char)))))
|
||||
(setq buffer-read-only t)))
|
||||
|
||||
|
|
@ -1153,7 +1157,7 @@ a new window in the current frame, splitting vertically."
|
|||
(if all
|
||||
(ibuffer-map-lines-nomodify
|
||||
#'(lambda (buf mark)
|
||||
(not (char-equal mark ? ))))
|
||||
(not (char-equal mark ?\s))))
|
||||
(ibuffer-map-lines-nomodify
|
||||
#'(lambda (buf mark)
|
||||
(char-equal mark ibuffer-marked-char)))))
|
||||
|
|
@ -1227,18 +1231,18 @@ a new window in the current frame, splitting vertically."
|
|||
((char-equal mark ibuffer-marked-char)
|
||||
(ibuffer-map-marked-lines
|
||||
#'(lambda (buf mark)
|
||||
(ibuffer-set-mark-1 ? )
|
||||
(ibuffer-set-mark-1 ?\s)
|
||||
t)))
|
||||
((char-equal mark ibuffer-deletion-char)
|
||||
(ibuffer-map-deletion-lines
|
||||
#'(lambda (buf mark)
|
||||
(ibuffer-set-mark-1 ? )
|
||||
(ibuffer-set-mark-1 ?\s)
|
||||
t)))
|
||||
(t
|
||||
(ibuffer-map-lines
|
||||
#'(lambda (buf mark)
|
||||
(when (not (char-equal mark ? ))
|
||||
(ibuffer-set-mark-1 ? ))
|
||||
(when (not (char-equal mark ?\s))
|
||||
(ibuffer-set-mark-1 ?\s))
|
||||
t)))))
|
||||
(ibuffer-redisplay t))
|
||||
|
||||
|
|
@ -1255,9 +1259,9 @@ group."
|
|||
(ibuffer-map-lines
|
||||
#'(lambda (buf mark)
|
||||
(cond ((eq mark ibuffer-marked-char)
|
||||
(ibuffer-set-mark-1 ? )
|
||||
(ibuffer-set-mark-1 ?\s)
|
||||
nil)
|
||||
((eq mark ? )
|
||||
((eq mark ?\s)
|
||||
(ibuffer-set-mark-1 ibuffer-marked-char)
|
||||
t)
|
||||
(t
|
||||
|
|
@ -1276,13 +1280,13 @@ If point is on a group name, this function operates on that group."
|
|||
"Unmark the buffer on this line, and move forward ARG lines.
|
||||
If point is on a group name, this function operates on that group."
|
||||
(interactive "P")
|
||||
(ibuffer-mark-interactive arg ? 1))
|
||||
(ibuffer-mark-interactive arg ?\s 1))
|
||||
|
||||
(defun ibuffer-unmark-backward (arg)
|
||||
"Unmark the buffer on this line, and move backward ARG lines.
|
||||
If point is on a group name, this function operates on that group."
|
||||
(interactive "P")
|
||||
(ibuffer-mark-interactive arg ? -1))
|
||||
(ibuffer-mark-interactive arg ?\s -1))
|
||||
|
||||
(defun ibuffer-mark-interactive (arg mark movement)
|
||||
(assert (eq major-mode 'ibuffer-mode))
|
||||
|
|
@ -1409,8 +1413,8 @@ If point is on a group name, this function operates on that group."
|
|||
`(substring ,strvar 0 ,maxvar)))
|
||||
|
||||
(defun ibuffer-compile-make-format-form (strvar widthform alignment)
|
||||
(let* ((left `(make-string tmp2 ? ))
|
||||
(right `(make-string (- tmp1 tmp2) ? )))
|
||||
(let* ((left `(make-string tmp2 ?\s))
|
||||
(right `(make-string (- tmp1 tmp2) ?\s)))
|
||||
`(progn
|
||||
(setq tmp1 ,widthform
|
||||
tmp2 (/ tmp1 2))
|
||||
|
|
@ -1724,8 +1728,8 @@ If point is on a group name, this function operates on that group."
|
|||
filename)))
|
||||
|
||||
(defun ibuffer-format-column (str width alignment)
|
||||
(let ((left (make-string (/ width 2) ? ))
|
||||
(right (make-string (- width (/ width 2)) ? )))
|
||||
(let ((left (make-string (/ width 2) ?\s))
|
||||
(right (make-string (- width (/ width 2)) ?\s)))
|
||||
(case alignment
|
||||
(:right (concat left right str))
|
||||
(:center (concat left str right))
|
||||
|
|
@ -1881,7 +1885,7 @@ the value of point at the beginning of the line for that buffer."
|
|||
(mapcar #'(lambda (buf) (let ((e (assq buf bufs)))
|
||||
(if e
|
||||
e
|
||||
(cons buf ? ))))
|
||||
(cons buf ?\s))))
|
||||
curbufs)))
|
||||
|
||||
(defun ibuffer-buf-matches-predicates (buf predicates)
|
||||
|
|
@ -1989,10 +1993,10 @@ the value of point at the beginning of the line for that buffer."
|
|||
(buffer-substring (point) (line-end-position)))))
|
||||
(apply #'insert (mapcar
|
||||
#'(lambda (c)
|
||||
(if (not (or (char-equal c ? )
|
||||
(if (not (or (char-equal c ?\s)
|
||||
(char-equal c ?\n)))
|
||||
?-
|
||||
? ))
|
||||
?\s))
|
||||
str)))
|
||||
(insert "\n"))
|
||||
(point))
|
||||
|
|
@ -2011,7 +2015,7 @@ the value of point at the beginning of the line for that buffer."
|
|||
(dolist (element format)
|
||||
(insert
|
||||
(if (stringp element)
|
||||
(make-string (length element) ? )
|
||||
(make-string (length element) ?\s)
|
||||
(let ((sym (car element)))
|
||||
(let ((min (cadr element))
|
||||
;; (max (caddr element))
|
||||
|
|
@ -2023,7 +2027,7 @@ the value of point at the beginning of the line for that buffer."
|
|||
(funcall (get sym 'ibuffer-column-summarizer)
|
||||
(get sym 'ibuffer-column-summary))
|
||||
(make-string (length (get sym 'ibuffer-column-name))
|
||||
? )))
|
||||
?\s)))
|
||||
(len (length summary)))
|
||||
(if (< len min)
|
||||
(ibuffer-format-column summary
|
||||
|
|
@ -2241,22 +2245,22 @@ buffers which are visiting a file."
|
|||
;;;###autoload
|
||||
(defun ibuffer (&optional other-window-p name qualifiers noselect
|
||||
shrink filter-groups formats)
|
||||
"Begin using `ibuffer' to edit a list of buffers.
|
||||
"Begin using Ibuffer to edit a list of buffers.
|
||||
Type 'h' after entering ibuffer for more information.
|
||||
|
||||
Optional argument OTHER-WINDOW-P says to use another window.
|
||||
Optional argument NAME specifies the name of the buffer; it defaults
|
||||
to \"*Ibuffer*\".
|
||||
Optional argument QUALIFIERS is an initial set of filtering qualifiers
|
||||
to use; see `ibuffer-filtering-qualifiers'.
|
||||
Optional argument NOSELECT means don't select the Ibuffer buffer.
|
||||
Optional argument SHRINK means shrink the buffer to minimal size. The
|
||||
special value `onewindow' means always use another window.
|
||||
Optional argument FILTER-GROUPS is an initial set of filtering
|
||||
groups to use; see `ibuffer-filter-groups'.
|
||||
Optional argument FORMATS is the value to use for `ibuffer-formats'.
|
||||
If specified, then the variable `ibuffer-formats' will have that value
|
||||
locally in this buffer."
|
||||
All arguments are optional.
|
||||
OTHER-WINDOW-P says to use another window.
|
||||
NAME specifies the name of the buffer (defaults to \"*Ibuffer*\").
|
||||
QUALIFIERS is an initial set of filtering qualifiers to use;
|
||||
see `ibuffer-filtering-qualifiers'.
|
||||
NOSELECT means don't select the Ibuffer buffer.
|
||||
SHRINK means shrink the buffer to minimal size. The special
|
||||
value `onewindow' means always use another window.
|
||||
FILTER-GROUPS is an initial set of filtering groups to use;
|
||||
see `ibuffer-filter-groups'.
|
||||
FORMATS is the value to use for `ibuffer-formats'.
|
||||
If specified, then the variable `ibuffer-formats' will have
|
||||
that value locally in this buffer."
|
||||
(interactive "P")
|
||||
(when ibuffer-use-other-window
|
||||
(setq other-window-p t))
|
||||
|
|
@ -2297,7 +2301,7 @@ locally in this buffer."
|
|||
(put 'ibuffer-mode 'mode-class 'special)
|
||||
(defun ibuffer-mode ()
|
||||
"A major mode for viewing a list of buffers.
|
||||
In ibuffer, you can conveniently perform many operations on the
|
||||
In Ibuffer, you can conveniently perform many operations on the
|
||||
currently open buffers, in addition to filtering your view to a
|
||||
particular subset of them, and sorting by various criteria.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; ange-ftp.el --- transparent FTP support for GNU Emacs
|
||||
|
||||
;; Copyright (C) 1989,90,91,92,93,94,95,96,98, 2000, 2001, 2005
|
||||
;; Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998,
|
||||
;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Andy Norman (ange@hplb.hpl.hp.com)
|
||||
;; Maintainer: FSF
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; browse-url.el --- pass a URL to a WWW browser
|
||||
|
||||
;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001, 2005
|
||||
;; Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
|
||||
;; 2003, 2004, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Denis Howe <dbh@doc.ic.ac.uk>
|
||||
;; Maintainer: FSF
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; eudc-bob.el --- Binary Objects Support for EUDC
|
||||
|
||||
;; Copyright (C) 1999, 2000, 2002 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Oscar Figueiredo <oscar@cpe.fr>
|
||||
;; Maintainer: Pavel Janík <Pavel@Janik.cz>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; eudc-export.el --- functions to export EUDC query results
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Oscar Figueiredo <oscar@cpe.fr>
|
||||
;; Maintainer: Pavel Janík <Pavel@Janik.cz>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; eudc-hotlist.el --- hotlist management for EUDC
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Oscar Figueiredo <oscar@cpe.fr>
|
||||
;; Maintainer: Pavel Janík <Pavel@Janik.cz>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; eudc-vars.el --- Emacs Unified Directory Client
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Oscar Figueiredo <oscar@cpe.fr>
|
||||
;; Maintainer: Pavel Janík <Pavel@Janik.cz>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; eudc.el --- Emacs Unified Directory Client
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Oscar Figueiredo <oscar@cpe.fr>
|
||||
;; Maintainer: Pavel Janík <Pavel@Janik.cz>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; eudcb-bbdb.el --- Emacs Unified Directory Client - BBDB Backend
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Oscar Figueiredo <oscar@cpe.fr>
|
||||
;; Maintainer: Pavel Janík <Pavel@Janik.cz>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; eudcb-ldap.el --- Emacs Unified Directory Client - LDAP Backend
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Oscar Figueiredo <oscar@cpe.fr>
|
||||
;; Maintainer: Pavel Janík <Pavel@Janik.cz>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Oscar Figueiredo <oscar@cpe.fr>
|
||||
;; Maintainer: Pavel Janík <Pavel@Janik.cz>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; goto-addr.el --- click to browse URL or to send to e-mail address
|
||||
|
||||
;; Copyright (C) 1995, 2000, 2001, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1995, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Eric Ding <ericding@alum.mit.edu>
|
||||
;; Maintainer: FSF
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; ldap.el --- client interface to LDAP for Emacs
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Oscar Figueiredo <oscar@cpe.fr>
|
||||
;; Maintainer: FSF
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; net-utils.el --- network functions
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Peter Breton <pbreton@cs.umb.edu>
|
||||
;; Created: Sun Mar 16 1997
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;; netrc.el --- .netrc parsing functionality
|
||||
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002
|
||||
;; Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
;; Keywords: news
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; quickurl.el --- insert an URL based on text at point in buffer
|
||||
|
||||
;; Copyright (C) 1999,2000,2001,2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Dave Pearson <davep@davep.org>
|
||||
;; Maintainer: Dave Pearson <davep@davep.org>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; rcompile.el --- run a compilation on a remote machine
|
||||
|
||||
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1993, 1994, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Albert <alon@milcse.rtsg.mot.com>
|
||||
;; Maintainer: FSF
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; rlogin.el --- remote login interface
|
||||
|
||||
;; Copyright (C) 1992, 93, 94, 95, 97, 1998, 2002, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1992, 1993, 1994, 1995, 1997, 1998, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Noah Friedman
|
||||
;; Maintainer: Noah Friedman <friedman@splode.com>
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode
|
||||
|
||||
;; Copyright (C) 1995, 1998, 2002, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1995, 1998, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Paul D. Smith <psmith@BayNetworks.com>
|
||||
;; Keywords: data
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; telnet.el --- run a telnet session from within an Emacs buffer
|
||||
|
||||
;; Copyright (C) 1985, 88, 1992, 94, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1985, 1988, 1992, 1994, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: William F. Schelter
|
||||
;; Maintainer: FSF
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; tls.el --- TLS/SSL support via wrapper around GnuTLS
|
||||
|
||||
;; Copyright (C) 1996-1999, 2003, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1996, 1997, 1998, 1999, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Simon Josefsson <simon@josefsson.org>
|
||||
;; Keywords: comm, tls, gnutls, ssl
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
;;; -*- coding: iso-2022-7bit; -*-
|
||||
;;; tramp-uu.el --- uuencode in Lisp
|
||||
|
||||
;; Copyright (C) 2002, 2004, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
|
||||
;; Keywords: comm, terminals
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; tramp-vc.el --- Version control integration for TRAMP.el
|
||||
|
||||
;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 by Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Daniel Pittman <daniel@danann.net>
|
||||
;; Keywords: comm, processes
|
||||
|
|
|
|||
|
|
@ -1,7 +1,8 @@
|
|||
;;; -*- mode: Emacs-Lisp; coding: iso-2022-7bit; -*-
|
||||
;;; tramp.el --- Transparent Remote Access, Multiple Protocol
|
||||
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: kai.grossjohann@gmx.net
|
||||
;; Keywords: comm, processes
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@
|
|||
;;; trampver.el --- Transparent Remote Access, Multiple Protocol
|
||||
;;; lisp/trampver.el. Generated from trampver.el.in by configure.
|
||||
|
||||
;; Copyright (C) 2003, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Kai.Grossjohann@CS.Uni-Dortmund.DE
|
||||
;; Keywords: comm, processes
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
;;; webjump.el --- programmable Web hotlist
|
||||
|
||||
;; Copyright (C) 1996, 1997, 2005 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 1996, 1997, 2002, 2003, 2004,
|
||||
;; 2005 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Neil W. Van Dyke <nwv@acm.org>
|
||||
;; Created: 09-Aug-1996
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Add a link
Reference in a new issue