From 98bd4fe92cc04166120d978fcbc1c3db1b088aec661f18f4a60830fec4e96bd8 Mon Sep 17 00:00:00 2001 From: "Dr. Werner Fink" Date: Wed, 2 Aug 2023 07:58:03 +0000 Subject: [PATCH] . OBS-URL: https://build.opensuse.org/package/show/editors/emacs?expand=0&rev=349 --- emacs-28.1.dif | 754 ------------------------------------------------- 1 file changed, 754 deletions(-) delete mode 100644 emacs-28.1.dif diff --git a/emacs-28.1.dif b/emacs-28.1.dif deleted file mode 100644 index b5685f9..0000000 --- a/emacs-28.1.dif +++ /dev/null @@ -1,754 +0,0 @@ ---- - Makefile.in | 7 +- - configure | 6 -- - configure.ac | 6 -- - doc/man/etags.1 | 20 ++++---- - lib-src/Makefile.in | 6 +- - lib-src/pop.c | 1 - lib/Makefile.in | 2 - lisp/cmuscheme.el | 3 - - lisp/international/mule-cmds.el | 1 - lisp/net/ange-ftp.el | 8 +-- - lisp/site-load.el | 45 ++++++++++++++++++ - lisp/speedbar.el | 1 - lisp/textmodes/ispell.el | 82 ++++++++++++++++++++++++++++++++- - site-lisp/term/func-keys.el | 33 +++++++++++++ - site-lisp/term/gnome.el | 97 ++++++++++++++++++++++++++++++++++++++++ - site-lisp/term/kvt.el | 97 ++++++++++++++++++++++++++++++++++++++++ - site-lisp/term/linux.el | 79 ++++++++++++++++++++++++++++++++ - site-lisp/term/locale.el | 13 +++++ - 18 files changed, 475 insertions(+), 32 deletions(-) - ---- Makefile.in -+++ Makefile.in 2020-08-11 10:21:15.194072175 +0000 -@@ -519,11 +519,11 @@ install-arch-dep: src install-arch-indep - umask 022; ${MKDIR_P} "$(DESTDIR)${bindir}" - $(MAKE) -C lib-src install - ifeq (${ns_self_contained},no) -- ${INSTALL_PROGRAM} $(INSTALL_STRIP) src/emacs${EXEEXT} "$(DESTDIR)${bindir}/$(EMACSFULL)" -+ ${INSTALL_PROGRAM} $(INSTALL_STRIP) src/emacs${EXEEXT} "$(DESTDIR)${bindir}/$(EMACS)" - ifeq (${DUMPING},pdumper) - ${INSTALL_DATA} src/emacs.pdmp "$(DESTDIR)${libexecdir}/emacs/${version}/${configuration}"/emacs.pdmp - endif -- -chmod 755 "$(DESTDIR)${bindir}/$(EMACSFULL)" -+ -chmod 755 "$(DESTDIR)${bindir}/$(EMACS)" - ifndef NO_BIN_LINK - rm -f "$(DESTDIR)${bindir}/$(EMACS)" - cd "$(DESTDIR)${bindir}" && $(LN_S_FILEONLY) "$(EMACSFULL)" "$(EMACS)" -@@ -712,6 +712,7 @@ install-man: - umask 022; ${MKDIR_P} "$(DESTDIR)${man1dir}" - thisdir=`/bin/pwd`; \ - cd ${mansrcdir}; \ -+ cp ctags.1 gnuctags.1; \ - for page in *.1; do \ - test "$$page" = ChangeLog.1 && continue; \ - dest=`echo "$${page}" | sed -e 's/\.1$$//' -e '$(TRANSFORM)'`.1; \ -@@ -843,7 +844,7 @@ uninstall: uninstall-$(NTDIR) uninstall- - for page in *.1; do \ - rm -f "$(DESTDIR)${man1dir}"/`echo "$${page}" | sed -e 's/\.1$$//' -e '$(TRANSFORM)'`.1$$ext; done; \ - fi) -- rm -f "$(DESTDIR)${bindir}/$(EMACS)" "$(DESTDIR)${bindir}/$(EMACSFULL)" -+ rm -f "$(DESTDIR)${bindir}/$(EMACS)" - (if cd "$(DESTDIR)${icondir}"; then \ - rm -f hicolor/*x*/apps/"${EMACS_NAME}.png" \ - "hicolor/scalable/apps/${EMACS_NAME}.svg" \ -|--- configure -|+++ configure 2020-08-11 10:17:21.102266456 +0000 -|@@ -10750,10 +10750,8 @@ fi -| LD_SWITCH_X_SITE_RPATH= -| if test "${x_libraries}" != NONE; then -| if test -n "${x_libraries}"; then -|- LD_SWITCH_X_SITE=-L`$as_echo "$x_libraries" | sed -e 's/:/ -L/g'` -|- LD_SWITCH_X_SITE_RPATH=-Wl,-rpath,` -|- $as_echo "$x_libraries" | sed -e 's/:/ -Wl,-rpath,/g' -|- ` -|+ LD_SWITCH_X_SITE="-L ${x_libraries%%:*}" -|+ LD_SWITCH_X_SITE_RPATH="-Wl,-rpath-link,${x_libraries%%:*}" -| fi -| x_default_search_path="" -| x_search_path=${x_libraries} ---- configure.ac -+++ configure.ac 2020-08-11 10:17:21.102266456 +0000 -@@ -1832,10 +1832,8 @@ fi - LD_SWITCH_X_SITE_RPATH= - if test "${x_libraries}" != NONE; then - if test -n "${x_libraries}"; then -- LD_SWITCH_X_SITE=-L`AS_ECHO(["$x_libraries"]) | sed -e 's/:/ -L/g'` -- LD_SWITCH_X_SITE_RPATH=-Wl,-rpath,` -- AS_ECHO(["$x_libraries"]) | sed -e 's/:/ -Wl,-rpath,/g' -- ` -+ LD_SWITCH_X_SITE="-L ${x_libraries%%:*}" -+ LD_SWITCH_X_SITE_RPATH="-Wl,-rpath-link,${x_libraries%%:*}" - fi - x_default_search_path="" - x_search_path=${x_libraries} ---- doc/man/etags.1 -+++ doc/man/etags.1 2020-08-11 10:17:21.102266456 +0000 -@@ -7,7 +7,7 @@ - .. - - .SH NAME --etags, ctags \- generate tag file for Emacs, vi -+etags, gnuctags \- generate tag file for Emacs, vi - .SH SYNOPSIS - .hy 0 - .na -@@ -25,7 +25,7 @@ etags, ctags \- generate tag file for Em - [\|\-\-help\|] [\|\-\-version\|] - \fIfile\fP .\|.\|. - --\fBctags\fP [\|\-aCdgIQRVh\|] [\|\-BtTuvwx\|] [\|\-l \fIlanguage\fP\|] -+\fBgnuctags\fP [\|\-aCdgIQRVh\|] [\|\-BtTuvwx\|] [\|\-l \fIlanguage\fP\|] - .if n .br - [\|\-o \fItagfile\fP\|] [\|\-r \fIregexp\fP\|] - [\|\-\-parse\-stdin=\fIfile\fP\|] -@@ -45,7 +45,7 @@ etags, ctags \- generate tag file for Em - The \|\fBetags\fP\| program is used to create a tag table file, in a format - understood by - .BR emacs ( 1 )\c --\&; the \|\fBctags\fP\| program is used to create a similar table in a -+\&; the \|\fBgnuctags\fP\| program is used to create a similar table in a - format understood by - .BR vi ( 1 )\c - \&. Both forms of the program understand -@@ -55,7 +55,7 @@ Perl, Ruby, Rust, PHP, PostScript, Pytho - assembler\-like syntaxes. - Both forms read the files specified on the command line, and write a tag - table (defaults: \fBTAGS\fP for \fBetags\fP, \fBtags\fP for --\fBctags\fP) in the current working directory. -+\fBgnuctags\fP) in the current working directory. - Files specified with relative file names will be recorded in the tag - table with file names relative to the directory where the tag table - resides. If the tag table is in /dev or is the standard output, -@@ -71,7 +71,7 @@ parsing of the file names following the - language, overriding guesses based on filename extensions. - .SH OPTIONS - Some options make sense only for the \fBvi\fP style tag files produced --by ctags; -+by gnuctags; - \fBetags\fP does not recognize them. - The programs accept unambiguous abbreviations for long option names. - .TP -@@ -85,7 +85,7 @@ expression search instructions; the \fB\ - the delimiter "\|\fB?\fP\|", to search \fIbackwards\fP through files. - The default is to use the delimiter "\|\fB/\fP\|", to search \fIforwards\fP - through files. --Only \fBctags\fP accepts this option. -+Only \fBgnuctags\fP accepts this option. - .TP - .B \-\-declarations - In C and derived languages, create tags for function declarations, -@@ -183,7 +183,7 @@ the previous ones. The regexps are of o - where \fItagregexp\fP is used to match the tag. It should not match - useless characters. If the match is such that more characters than - needed are unavoidably matched by \fItagregexp\fP, it may be useful to --add a \fInameregexp\fP, to narrow down the tag scope. \fBctags\fP -+add a \fInameregexp\fP, to narrow down the tag scope. \fBgnuctags\fP - ignores regexps without a \fInameregexp\fP. The syntax of regexps is - the same as in emacs. The following character escape sequences are - supported: \\a, \\b, \\d, \\e, \\f, \\n, \\r, \\t, \\v, which -@@ -262,15 +262,15 @@ tag entries for other files in place. C - by deleting the existing entries for the given files and then - rewriting the new entries at the end of the tags file. It is often - faster to simply rebuild the entire tag file than to use this. --Only \fBctags\fP accepts this option. -+Only \fBgnuctags\fP accepts this option. - .TP - .B \-v, \-\-vgrind - Instead of generating a tag file, write index (in \fBvgrind\fP format) --to standard output. Only \fBctags\fP accepts this option. -+to standard output. Only \fBgnuctags\fP accepts this option. - .TP - .B \-x, \-\-cxref - Instead of generating a tag file, write a cross reference (in --\fBcxref\fP format) to standard output. Only \fBctags\fP accepts this option. -+\fBcxref\fP format) to standard output. Only \fBgnuctags\fP accepts this option. - .TP - .B \-h, \-H, \-\-help - Print usage information. Followed by one or more \-\-language=LANG ---- lib-src/Makefile.in -+++ lib-src/Makefile.in 2020-08-11 10:31:37.642931244 +0000 -@@ -134,7 +136,7 @@ MKDIR_P = @MKDIR_P@ - CLIENTW = @CLIENTW@ - - # Things that a user might actually run, which should be installed in bindir. --INSTALLABLES = etags${EXEEXT} ctags${EXEEXT} emacsclient${EXEEXT} $(CLIENTW) \ -+INSTALLABLES = etags${EXEEXT} gnuctags${EXEEXT} emacsclient${EXEEXT} $(CLIENTW) \ - ebrowse${EXEEXT} - - # Things that Emacs runs internally, or during the build process, -@@ -382,7 +382,7 @@ etags${EXEEXT}: ${etags_deps} - ## etags.o files on top of each other. - ## FIXME? - ## Can't we use a wrapper that calls 'etags --ctags'? --ctags${EXEEXT}: ${srcdir}/ctags.c ${etags_deps} -+gnuctags${EXEEXT}: ${srcdir}/ctags.c ${etags_deps} - $(AM_V_CCLD)$(CC) ${ALL_CFLAGS} -o $@ $< $(etags_libs) - - ebrowse${EXEEXT}: ${srcdir}/ebrowse.c ${srcdir}/../lib/min-max.h $(NTLIB) \ ---- lib-src/pop.c -+++ lib-src/pop.c 2020-08-11 10:17:21.102266456 +0000 -@@ -26,6 +26,7 @@ along with GNU Emacs. If not, see -+#include - #ifdef WINDOWSNT - #include "ntlib.h" - #undef _WIN32_WINNT ---- lisp/cmuscheme.el -+++ lisp/cmuscheme.el 2020-08-11 10:17:21.106266385 +0000 -@@ -231,7 +231,8 @@ is run). - (read-string "Run Scheme: " scheme-program-name) - scheme-program-name))) - (if (not (comint-check-proc "*scheme*")) -- (let ((cmdlist (split-string-and-unquote cmd))) -+ (let ((cmdlist (split-string-and-unquote cmd)) -+ process-connection-type) - (set-buffer (apply #'make-comint "scheme" (car cmdlist) - (scheme-start-file (car cmdlist)) (cdr cmdlist))) - (inferior-scheme-mode))) ---- lisp/international/mule-cmds.el -+++ lisp/international/mule-cmds.el 2020-08-11 10:17:21.106266385 +0000 -@@ -39,6 +39,7 @@ - - (defvar mule-keymap - (let ((map (make-sparse-keymap))) -+ (define-key map "m" 'toggle-enable-multibyte-characters) - (define-key map "f" 'set-buffer-file-coding-system) - (define-key map "r" 'revert-buffer-with-coding-system) - (define-key map "F" 'set-file-name-coding-system) ---- lisp/net/ange-ftp.el -+++ lisp/net/ange-ftp.el 2020-08-11 10:17:21.106266385 +0000 -@@ -5076,7 +5076,7 @@ NEWNAME should be the name to give the n - ; "If a host matches this regexp then it is assumed to be running VOS.") - ; - ;(defun ange-ftp-vos-host (host) --; (and ange-ftp-vos-host-regexp -+; (and host ange-ftp-vos-host-regexp - ; (save-match-data - ; (string-match ange-ftp-vos-host-regexp host)))) - ; -@@ -5191,7 +5191,7 @@ NEWNAME should be the name to give the n - - ;; Return non-nil if HOST is running VMS. - (defun ange-ftp-vms-host (host) -- (and ange-ftp-vms-host-regexp -+ (and host ange-ftp-vms-host-regexp - (string-match-p ange-ftp-vms-host-regexp host))) - - ;; Because some VMS ftp servers convert filenames to lower case -@@ -5699,7 +5699,7 @@ Other orders of $ and _ seem to all work - - ;; Return non-nil if HOST is running MTS. - (defun ange-ftp-mts-host (host) -- (and ange-ftp-mts-host-regexp -+ (and host ange-ftp-mts-host-regexp - (string-match-p ange-ftp-mts-host-regexp host))) - - ;; Parse the current buffer which is assumed to be in mts ftp dir format. -@@ -5897,7 +5897,7 @@ Other orders of $ and _ seem to all work - - ;; Return non-nil if HOST is running CMS. - (defun ange-ftp-cms-host (host) -- (and ange-ftp-cms-host-regexp -+ (and host ange-ftp-cms-host-regexp - (string-match-p ange-ftp-cms-host-regexp host))) - - (defun ange-ftp-add-cms-host (host) ---- lisp/site-load.el -+++ lisp/site-load.el 2020-08-11 10:17:21.106266385 +0000 -@@ -0,0 +1,45 @@ -+;;;; -+;;; emacs-27.1/lisp/site-load.el -+;;; Copyright (c) 1995,96,98,99 SuSE Gmbh Nuernberg, Germany. All rights reserved. -+;;; -+;;; Autor: Werner Fink , No warranty of any kind -+;;;; -+;; CONFIGURATION (under bash): -+;; (export CC=gcc; \ -+;; export CFLAGS="-O2 $(arch dependent flags) -pipe \ -+;; -DSYSTEM_PURESIZE_EXTRA=25000 -DSITELOAD_PURESIZE_EXTRA=10000" ; \ -+;; ./configure $(arch)-suse-linux --with-x --with-x-toolkit=lucid \ -+;; --with-gcc --with-pop --with-system-malloc --prefix=/usr \ -+;; --exec-prefix=/usr \ -+;; --x-includes=/usr/X11R6/include --x-libraries=/usr/X11R6/lib ) -+;; -+;; include bug fixes you have -+;; -+;; MAKE: -+;; make LDFLAGS=-s CC=gcc CFLAGS="-O2 $(arch dependent flags) -pipe \ -+;; -DSYSTEM_PURESIZE_EXTRA=25000 -DSITELOAD_PURESIZE_EXTRA=10000" -+;; -+;; DOC: -+;; lisp/delsel.elc lisp/lpr.elc added to src/Makefile.in for DOCumentation -+;; -+;;;; -+(garbage-collect) -+ -+(load "emacs-lisp/pcase") -+(load "emacs-lisp/easy-mmode") -+(garbage-collect) -+ -+(load "lpr") -+(setq lpr-headers-switches (list "-h")) -+(setq lpr-add-switches t) -+(garbage-collect) -+ -+;; Overwrite `load delsel' -+;; Choose `t' in your ~/.emacs -+(custom-set-variables '(delete-selection-mode nil)) -+(garbage-collect) -+ -+(setq gnus-default-nntp-server "news") -+(garbage-collect) -+ -+;;; site-load.el ends here ---- lisp/speedbar.el -+++ lisp/speedbar.el 2020-08-11 10:17:21.106266385 +0000 -@@ -732,6 +732,7 @@ If you want to change this while speedba - - ;; Navigation. - (define-key map "n" 'speedbar-next) -+ (define-key map [tab] 'speedbar-next) - (define-key map "p" 'speedbar-prev) - (define-key map "\M-n" 'speedbar-restricted-next) - (define-key map "\M-p" 'speedbar-restricted-prev) ---- lisp/textmodes/ispell.el -+++ lisp/textmodes/ispell.el 2020-08-11 10:30:39.847965024 +0000 -@@ -191,13 +191,15 @@ Must be greater than 1." - :type 'integer) - - (defcustom ispell-program-name -- (or (executable-find "aspell") -- (executable-find "ispell") -- (executable-find "hunspell") -- ;; Enchant is commonly installed as `enchant-2', so use this -- ;; name and avoid old versions of `enchant'. -- (executable-find "enchant-2") -- "ispell") -+ (if (functionp 'append-ispell-dict-alist) -+ "ispell" -+ (or (executable-find "aspell") -+ (executable-find "ispell") -+ (executable-find "hunspell") -+ ;; Enchant is commonly installed as `enchant-2', so use this -+ ;; name and avoid old versions of `enchant'. -+ (executable-find "enchant-2") -+ "ispell")) - "Program invoked by \\[ispell-word] and \\[ispell-region] commands." - :type 'string - :set (lambda (symbol value) -@@ -1396,6 +1398,78 @@ The variable `ispell-library-directory' - - ;; Define commands in menu in opposite order you want them to appear. - (let ((map (make-sparse-keymap "Spell"))) -+ ;; Begin adding list for ispell dictonaries installed on SuSE -+ (if (and (functionp 'append-ispell-dict-alist) -+ (symbolp 'ispell-program-name) -+ (string-match "ispell" ispell-program-name)) -+ (let ((dicts (reverse (cons (cons "default" nil) -+ (append ispell-local-dictionary-alist ispell-dictionary-alist)))) -+ (path (and (boundp 'ispell-library-path) ispell-library-path)) -+ name load-dict) -+ (dolist (dict dicts) -+ (setq name (car dict) -+ load-dict (car (cdr (member "-d" (nth 5 dict))))) -+ (cond ((not (stringp name)) -+ (define-key map (vector 'default) -+ (cons "Select Default Dict" -+ (cons "Dictionary for which Ispell was configured" -+ (list 'lambda () '(interactive) -+ (list 'ispell-change-dictionary "default")))))) -+ ((or (not path) ; load all if library dir not defined -+ (file-exists-p (concat path "/" name ".hash")) -+ (file-exists-p (concat path "/" name ".has")) -+ (and load-dict -+ (or (file-exists-p(concat path "/" load-dict ".hash")) -+ (file-exists-p(concat path "/" load-dict ".has"))))) -+ (define-key map (vector (intern name)) -+ (cons (concat "Select " (capitalize name) " Dict") -+ (list 'lambda () '(interactive) -+ (list 'ispell-change-dictionary name)))))))) -+ (if (and (functionp 'ispell-find-aspell-dictionaries) -+ (symbolp 'ispell-program-name) -+ (string-match "aspell" ispell-program-name)) -+ (progn -+ (ispell-find-aspell-dictionaries) -+ (let ((dicts (reverse (cons (cons "default" nil) -+ (append ispell-local-dictionary-alist ispell-dictionary-alist)))) -+ name load-dict) -+ (dolist (dict dicts) -+ (setq name (car dict)) -+ (cond ((not (stringp name)) -+ (define-key map (vector 'default) -+ (cons "Select Default Dict" -+ (cons "Dictionary for which Aspell was configured" -+ (list 'lambda () '(interactive) -+ (list 'ispell-change-dictionary "default")))))) -+ ((and (stringp name) -+ (ispell-aspell-find-dictionary name)) -+ (define-key map (vector (intern name)) -+ (cons (concat "Select " (capitalize name) " Dict") -+ (list 'lambda () '(interactive) -+ (list 'ispell-change-dictionary name))))))))) -+ (if (and (functionp 'ispell-find-hunspell-dictionaries) -+ (symbolp 'ispell-program-name) -+ (string-match "hunspell" ispell-program-name)) -+ (progn -+ (ispell-find-hunspell-dictionaries) -+ (let ((dicts (reverse (cons (cons "default" nil) -+ (append ispell-local-dictionary-alist ispell-hunspell-dictionary-alist)))) -+ name load-dict) -+ (dolist (dict dicts) -+ (setq name (car dict)) -+ (cond ((not (stringp name)) -+ (define-key map (vector 'default) -+ (cons "Select Default Dict" -+ (cons "Dictionary for which Hunspell was configured" -+ (list 'lambda () '(interactive) -+ (list 'ispell-change-dictionary "default")))))) -+ ((stringp name) -+ (define-key map (vector (intern name)) -+ (cons (concat "Select " (capitalize name) " Dict") -+ (list 'lambda () '(interactive) -+ (list 'ispell-change-dictionary name) -+ ))))))))))) -+ ;; End adding list for ispell dictonaries installed on SuSE - (define-key map [ispell-change-dictionary] - `(menu-item ,(purecopy "Change Dictionary...") ispell-change-dictionary - :help ,(purecopy "Supply explicit dictionary file name"))) ---- site-lisp/term/func-keys.el -+++ site-lisp/term/func-keys.el 2020-08-11 10:17:21.106266385 +0000 -@@ -0,0 +1,33 @@ -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+;;; term/func-keys.el for site-lisp path -+;;; Copyright (c) 1996-2001 SuSE Gmbh Nuernberg, Germany. -+;;; -+;;; Author: Werner Fink , No warranty of any kind -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+;; num block -+;; kp_f1 .. kp_f4 and kp_tab not found on MF-102 -+ (global-set-key [kp-f1] esc-map) ; Escape -+ (global-set-key [kp-f2] 'undo) ; Undo -+ (global-set-key [kp-f3] 'isearch-forward) ; Search -+ (global-set-key [kp-f4] 'kill-line) ; Kill-Line -+;; -+;; Backspace, Delete and any thing else -+;; -+(if (not window-system) -+ ; Do nothing within terminals because they know about -+ nil -+ (if (fboundp 'normal-erase-is-backspace-mode) -+ (normal-erase-is-backspace-mode 1) -+ (global-set-key [delete] 'delete-char)) -+ ;(global-set-key [delete] '[127]) -+ ;(global-unset-key [backspace]) -+ ;(global-set-key [backspace] '[127]) -+) -+;; -+;; Wheel mouse support -+;; -+(if (fboundp 'mouse-wheel-mode) -+ (mouse-wheel-mode 1) -+) -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+;; Ende von func-keys.el ---- site-lisp/term/gnome.el -+++ site-lisp/term/gnome.el 2020-08-11 10:17:21.106266385 +0000 -@@ -0,0 +1,97 @@ -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+;;; term/gnomw.el for site-lisp path -+;;; Copyright (c) 2000 SuSE Gmbh Nuernberg, Germany. All rights reserved. -+;;; -+;;; Author: Werner Fink , No warranty of any kind -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+; (define-key function-key-map "\e[1~" [find]) -+; (define-key function-key-map "\eOH" [home]) -+ (define-key function-key-map "\e[1~" [home]) -+ (define-key function-key-map "\e[2~" [insertchar]) -+ (define-key function-key-map "\e[3~" [deletechar]) -+; (define-key function-key-map "\e[4~" [select]) -+; (define-key function-key-map "\eOF" [end]) -+ (define-key function-key-map "\e[4~" [end]) -+ (define-key function-key-map "\e[5~" [prior]) -+ (define-key function-key-map "\e[6~" [next]) -+ (define-key function-key-map "\e[OP" [f1]) -+ (define-key function-key-map "\e[OQ" [f2]) -+ (define-key function-key-map "\e[OR" [f3]) -+ (define-key function-key-map "\e[OS" [f4]) -+ (define-key function-key-map "\e[15~" [f5]) -+ (define-key function-key-map "\e[17~" [f6]) -+ (define-key function-key-map "\e[18~" [f7]) -+ (define-key function-key-map "\e[19~" [f8]) -+ (define-key function-key-map "\e[20~" [f9]) -+ (define-key function-key-map "\e[21~" [f10]) -+ (define-key function-key-map "\e[23~" [f11]) -+ (define-key function-key-map "\e[24~" [f12]) -+ (define-key function-key-map "\e[25~" [f13]) -+ (define-key function-key-map "\e[26~" [f14]) -+ (define-key function-key-map "\e[28~" [help]) -+ (define-key function-key-map "\e[29~" [menu]) -+ (define-key function-key-map "\e?\e[28~" [M-help]) -+ (define-key function-key-map "\e?\e[29~" [M-menu]) -+ (define-key function-key-map "\e[31~" [f17]) -+ (define-key function-key-map "\e[32~" [f18]) -+ (define-key function-key-map "\e[33~" [f19]) -+ (define-key function-key-map "\e[34~" [f20]) -+;; -+;; num block -+;; [home] and [end] found in num block -+; (define-key function-key-map "\eOH" [home]) -+; (define-key function-key-map "\eOF" [end]) -+ (define-key function-key-map "\e[1~" [home]) -+ (define-key function-key-map "\e[4~" [end]) -+;; -+;; Locked num block -+ (define-key function-key-map "\eOI" [kp-tab]) -+ (define-key function-key-map "\eOj" [kp-multiply]) -+ (define-key function-key-map "\eOk" [kp-add]) -+ (define-key function-key-map "\eOl" [kp-separator]) -+ (define-key function-key-map "\eOM" [kp-enter]) -+ (define-key function-key-map "\eOm" [kp-subtract]) -+ (define-key function-key-map "\eOn" [kp-decimal]) -+; (define-key function-key-map "\eOn" [kp-period]) ; [kp-decimal] -+ (define-key function-key-map "\eOo" [kp-divide]) -+ (define-key function-key-map "\eOp" [kp-0]) -+ (define-key function-key-map "\eOq" [kp-1]) -+ (define-key function-key-map "\eOr" [kp-2]) -+ (define-key function-key-map "\eOs" [kp-3]) -+ (define-key function-key-map "\eOt" [kp-4]) -+ (define-key function-key-map "\eOu" [kp-5]) -+ (define-key function-key-map "\eOv" [kp-6]) -+ (define-key function-key-map "\eOw" [kp-7]) -+ (define-key function-key-map "\eOx" [kp-8]) -+ (define-key function-key-map "\eOy" [kp-9]) -+;; -+;; Undefine some ESC ESC behavior --- for later use -+ (global-unset-key "\e\e") -+ (define-key esc-map "\e" nil) -+;; -+ (define-key function-key-map "\eOD" [left]) -+ (define-key function-key-map "\eOC" [right]) -+ (define-key function-key-map "\eOA" [up]) -+ (define-key function-key-map "\eOB" [down]) -+;; -+ (define-key function-key-map "\e\eOD" [M-left]) -+ (define-key function-key-map "\e\eOC" [M-right]) -+ (define-key function-key-map "\e\eOA" [M-up]) -+ (define-key function-key-map "\e\eOB" [M-down]) -+;; -+;; Not in Use? -+ (define-key function-key-map "\C-?\eOD" [C-left]) -+ (define-key function-key-map "\C-?\eOC" [C-right]) -+ (define-key function-key-map "\C-?\eOA" [C-up]) -+ (define-key function-key-map "\C-?\eOB" [C-down]) -+;; -+;; Backspace, Delete and any thing else -+;; -+ (global-unset-key [insertchar]) -+ (global-set-key [insertchar] 'overwrite-mode) -+ (global-unset-key [deletechar]) -+ (global-set-key [deletechar] 'delete-char) -+;; -+(load "term/func-keys" nil t) -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+;; Ende von gnomw.el ---- site-lisp/term/kvt.el -+++ site-lisp/term/kvt.el 2020-08-11 10:17:21.106266385 +0000 -@@ -0,0 +1,97 @@ -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+;;; term/kvt.el for site-lisp path -+;;; Copyright (c) 2000 SuSE Gmbh Nuernberg, Germany. All rights reserved. -+;;; -+;;; Author: Werner Fink , No warranty of any kind -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+ (define-key function-key-map "\e[1~" [find]) -+ (define-key function-key-map "\eOH" [home]) -+ (define-key function-key-map "\e[2~" [insertchar]) -+ (define-key function-key-map "\e[3~" [deletechar]) -+ (define-key function-key-map "\e[4~" [select]) -+ (define-key function-key-map "\eOF" [end]) -+ (define-key function-key-map "\e[5~" [prior]) -+ (define-key function-key-map "\e[6~" [next]) -+ (define-key function-key-map "\e[11~" [f1]) -+ (define-key function-key-map "\e[12~" [f2]) -+ (define-key function-key-map "\e[13~" [f3]) -+ (define-key function-key-map "\e[14~" [f4]) -+ (define-key function-key-map "\e[15~" [f5]) -+ (define-key function-key-map "\e[17~" [f6]) -+ (define-key function-key-map "\e[18~" [f7]) -+ (define-key function-key-map "\e[19~" [f8]) -+ (define-key function-key-map "\e[20~" [f9]) -+ (define-key function-key-map "\e[21~" [f10]) -+ (define-key function-key-map "\e[23~" [f11]) -+ (define-key function-key-map "\e[24~" [f12]) -+ (define-key function-key-map "\e[25~" [f13]) -+ (define-key function-key-map "\e[26~" [f14]) -+ (define-key function-key-map "\e[28~" [help]) -+ (define-key function-key-map "\e[29~" [menu]) -+ (define-key function-key-map "\e?\e[28~" [M-help]) -+ (define-key function-key-map "\e?\e[29~" [M-menu]) -+ (define-key function-key-map "\e[31~" [f17]) -+ (define-key function-key-map "\e[32~" [f18]) -+ (define-key function-key-map "\e[33~" [f19]) -+ (define-key function-key-map "\e[34~" [f20]) -+;; -+;; num block -+;; [home] and [end] found in num block -+ (define-key function-key-map "\eOH" [home]) -+ (define-key function-key-map "\eOF" [end]) -+;; -+;; Locked num block -+ (define-key function-key-map "\eOP" [kp-f1]) -+ (define-key function-key-map "\eOQ" [kp-f2]) -+ (define-key function-key-map "\eOR" [kp-f3]) -+ (define-key function-key-map "\eOS" [kp-f4]) -+ (define-key function-key-map "\eOI" [kp-tab]) -+ (define-key function-key-map "\eOj" [kp-multiply]) -+ (define-key function-key-map "\eOk" [kp-add]) -+ (define-key function-key-map "\eOl" [kp-separator]) -+ (define-key function-key-map "\eOM" [kp-enter]) -+ (define-key function-key-map "\eOm" [kp-subtract]) -+ (define-key function-key-map "\eOn" [kp-decimal]) -+; (define-key function-key-map "\eOn" [kp-period]) ; [kp-decimal] -+ (define-key function-key-map "\eOo" [kp-divide]) -+ (define-key function-key-map "\eOp" [kp-0]) -+ (define-key function-key-map "\eOq" [kp-1]) -+ (define-key function-key-map "\eOr" [kp-2]) -+ (define-key function-key-map "\eOs" [kp-3]) -+ (define-key function-key-map "\eOt" [kp-4]) -+ (define-key function-key-map "\eOu" [kp-5]) -+ (define-key function-key-map "\eOv" [kp-6]) -+ (define-key function-key-map "\eOw" [kp-7]) -+ (define-key function-key-map "\eOx" [kp-8]) -+ (define-key function-key-map "\eOy" [kp-9]) -+;; -+;; Undefine some ESC ESC behavior --- for later use -+ (global-unset-key "\e\e") -+ (define-key esc-map "\e" nil) -+;; -+ (define-key function-key-map "\eOD" [left]) -+ (define-key function-key-map "\eOC" [right]) -+ (define-key function-key-map "\eOA" [up]) -+ (define-key function-key-map "\eOB" [down]) -+;; -+ (define-key function-key-map "\e\eOD" [M-left]) -+ (define-key function-key-map "\e\eOC" [M-right]) -+ (define-key function-key-map "\e\eOA" [M-up]) -+ (define-key function-key-map "\e\eOB" [M-down]) -+;; -+;; Not in Use? -+ (define-key function-key-map "\C-?\eOD" [C-left]) -+ (define-key function-key-map "\C-?\eOC" [C-right]) -+ (define-key function-key-map "\C-?\eOA" [C-up]) -+ (define-key function-key-map "\C-?\eOB" [C-down]) -+;; -+;; Backspace, Delete and any thing else -+;; -+ (global-unset-key [insertchar]) -+ (global-set-key [insertchar] 'overwrite-mode) -+ (global-unset-key [deletechar]) -+ (global-set-key [deletechar] 'delete-char) -+;; -+(load "term/func-keys" nil t) -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+;; Ende von kvt.el ---- site-lisp/term/linux.el -+++ site-lisp/term/linux.el 2020-08-11 10:17:21.106266385 +0000 -@@ -0,0 +1,79 @@ -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+;;; term/linux.el for site-lisp path -+;;; Copyright (c) 1996 SuSE Gmbh Nuernberg, Germany. All rights reserved. -+;;; -+;;; Author: Werner Fink , No warranty of any kind -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+ (define-key function-key-map "\e[1~" [home]) -+ (define-key function-key-map "\e[2~" [insertchar]) -+ (define-key function-key-map "\e[3~" [deletechar]) -+ (define-key function-key-map "\e[4~" [end]) -+ (define-key function-key-map "\e[5~" [prior]) -+ (define-key function-key-map "\e[6~" [next]) -+ (define-key function-key-map "\e[[A" [f1]) -+ (define-key function-key-map "\e[[B" [f2]) -+ (define-key function-key-map "\e[[C" [f3]) -+ (define-key function-key-map "\e[[D" [f4]) -+ (define-key function-key-map "\e[[E" [f5]) -+ (define-key function-key-map "\e[17~" [f6]) -+ (define-key function-key-map "\e[18~" [f7]) -+ (define-key function-key-map "\e[19~" [f8]) -+ (define-key function-key-map "\e[20~" [f9]) -+ (define-key function-key-map "\e[21~" [f10]) -+ (define-key function-key-map "\e[23~" [f11]) -+ (define-key function-key-map "\e[24~" [f12]) -+ (define-key function-key-map "\e[25~" [f13]) -+ (define-key function-key-map "\e[26~" [f14]) -+ (define-key function-key-map "\e[28~" [help]) -+ (define-key function-key-map "\e[29~" [menu]) -+ (define-key function-key-map "\e?\e[28~" [M-help]) -+ (define-key function-key-map "\e?\e[29~" [M-menu]) -+ (define-key function-key-map "\e[31~" [f17]) -+ (define-key function-key-map "\e[32~" [f18]) -+ (define-key function-key-map "\e[33~" [f19]) -+ (define-key function-key-map "\e[34~" [f20]) -+;; -+;; Not in Use? -+;; ---------------------------------- -+;; Console-Setting for Linux ??? -+ (define-key function-key-map "\e[H" [M-up]) -+ (define-key function-key-map "\e[Y" [M-down]) -+ (define-key function-key-map "\e[M" [menu]) -+ (define-key function-key-map "\e?\e[M" [M-menu]) -+ (define-key function-key-map "\e[P" [pause]) -+;; -+;; num block -+ (define-key function-key-map "\e[G" [begin]) -+;; -+;; Locked num block Nothing to do :-) -+;; -+;; Undefine some ESC ESC behavior --- for later use -+ (global-unset-key "\e\e") -+ (define-key esc-map "\e" nil) -+;; -+ (define-key function-key-map "\e[D" [left]) -+ (define-key function-key-map "\e[C" [right]) -+ (define-key function-key-map "\e[A" [up]) -+ (define-key function-key-map "\e[B" [down]) -+;; -+ (define-key function-key-map "\e\e[D" [M-left]) -+ (define-key function-key-map "\e\e[C" [M-right]) -+ (define-key function-key-map "\e\e[A" [M-up]) -+ (define-key function-key-map "\e\e[B" [M-down]) -+;; -+;; Not in Use? -+ (define-key function-key-map "\C-?\e[D" [C-left]) -+ (define-key function-key-map "\C-?\e[C" [C-right]) -+ (define-key function-key-map "\C-?\e[A" [C-up]) -+ (define-key function-key-map "\C-?\e[B" [C-down]) -+;; -+;; Backspace, Delete and any thing else -+;; -+ (global-unset-key [insertchar]) -+ (global-set-key [insertchar] 'overwrite-mode) -+ (global-unset-key [deletechar]) -+ (global-set-key [deletechar] 'delete-char) -+;; -+(load "term/func-keys" nil t) -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+;; Ende von linux.el ---- site-lisp/term/locale.el -+++ site-lisp/term/locale.el 2020-08-11 10:17:21.106266385 +0000 -@@ -0,0 +1,13 @@ -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+;;; term/locale.el for site-lisp path -+;;; Copyright (c) 1996-2003 SuSE Linux AG Nuernberg, Germany. -+;;; Copyright (c) 2007 SuSE LINUX Products GmbH Nuernberg, Germany. -+;;; -+;;; Author: Werner Fink , No warranty of any kind -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+ -+(add-hook 'term-setup-hook (function (lambda () -+ (load "term/func-keys" t t)))) -+;; -+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -+;; Ende von locale.el