Mercurial > hg > xemacs-beta
annotate lib-src/add-big-package.sh @ 5860:916b48abd1c6
event-stream.c, support help-event-list as does GNU.
src/ChangeLog addition:
2015-03-14 Aidan Kehoe <kehoea@parhasard.net>
Add support for GNU's help-event-list here, useful for accepting
F1 and C-h as the help character at the same time.
* event-stream.c:
* event-stream.c (echo_key_event):
Be better about calculation, comments here, in passing.
* event-stream.c (help_char_p): New.
* event-stream.c (execute_help_form):
There's no need to reset the command builder here; the code that
did relied on zero-termination, which we can't anymore, and did
not actually discard the help character. Remove this.
* event-stream.c (Fnext_event): Use help_char_p ().
* event-stream.c (command_builder_find_leaf_no_jit_binding):
Use help_char_p ().
* event-stream.c (vars_of_event_stream):
Make help-event-list available.
man/ChangeLog addition:
2015-03-14 Aidan Kehoe <kehoea@parhasard.net>
* lispref/help.texi (Help Functions):
Document help-event-list, just added.
lisp/ChangeLog addition:
2015-03-14 Aidan Kehoe <kehoea@parhasard.net>
* cus-start.el (all): Describe help-event-list for Custom.
* keydefs.el (help-event-list): Initialise it.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 14 Mar 2015 01:16:45 +0000 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 428 | 1 #! /bin/sh |
| 2 # add-big-package.sh --- Add multiple file package to Package Lisp Hierarchy | |
| 3 # Copyright (C) 1997 Free Software Foundation, Inc. | |
| 4 | |
| 5 # Author: SL Baur <steve@xemacs.org> | |
| 6 # Maintainer: SL Baur <steve@xemacs.org> | |
| 7 # Keywords: packages internal | |
| 8 | |
| 9 # This file is part of XEmacs. | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
10 # |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
11 # XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
12 # under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
13 # Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
14 # option) any later version. |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
15 # |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
16 # XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
17 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
18 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
19 # for more details. |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
20 # |
| 428 | 21 # You should have received a copy of the GNU General Public License |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
22 # along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 428 | 23 |
| 24 ### Commentary: | |
| 25 | |
| 26 ## This file copies a single lisp file into an XEmacs package hierarchy and | |
| 27 ## performs the necessary magic so that it will be autoloaded at the next | |
| 28 ## dump. | |
| 29 | |
| 30 ## Parameters: | |
| 31 ## $1 -- Full path to an XEmacsen later than 20.3 | |
| 32 ## $2 -- Full path to a lisp package tarball to install | |
| 33 ## $3 -- Full path to a lisp directory in an XEmacs package hierarchy | |
| 34 ## This directory will be created if it does not exist. | |
| 35 ## NOTE: the directory name should *not* end in a trailing slash | |
| 36 | |
| 37 | |
| 38 ### Code: | |
| 39 | |
| 40 XEMACS="$1" # Not used at present | |
| 41 LISP_FILE="$2" # Should be a binary package tarball | |
| 42 DEST_DIR="$3" # Should be a top level package directory | |
| 43 | |
| 44 # Test for valid XEmacs executable and valid input file | |
| 45 if [ ! -f "${LISP_FILE}" -o ! -x "${XEMACS}" ]; then | |
| 46 exit 1 | |
| 47 fi | |
| 48 | |
| 49 # Test for destination directory, creating if necessary | |
| 50 test -d "${DEST_DIR}" || mkdir "${DEST_DIR}" | |
| 51 test -d "${DEST_DIR}" || exit 1; | |
| 52 | |
| 53 # Very simple minded extraction for the first cut | |
| 54 # We'll get more sophisticated later | |
| 55 cd "${DEST_DIR}" | |
| 56 gunzip -c "${LISP_FILE}" | tar xvf - | |
| 57 | |
| 58 # Need to refresh the info/dir file, I don't know how to do that. | |
| 59 | |
| 60 exit 0 | |
| 61 | |
| 62 ### add-big-package.sh ends here |