forked from pool/xemacs
Accepting request 130343 from home:ailin_nemui:branches:M17N:back
I see, please have a look at this then OBS-URL: https://build.opensuse.org/request/show/130343 OBS-URL: https://build.opensuse.org/package/show/M17N/xemacs?expand=0&rev=54
This commit is contained in:
10
xemacs.patch
10
xemacs.patch
@@ -268,18 +268,18 @@ Index: xemacs-21.5.29/lisp/x-win-xfree86.el
|
||||
===================================================================
|
||||
--- xemacs-21.5.29.orig/lisp/x-win-xfree86.el
|
||||
+++ xemacs-21.5.29/lisp/x-win-xfree86.el
|
||||
@@ -101,6 +101,10 @@
|
||||
@@ -99,6 +99,11 @@
|
||||
;; define also the control, meta, and meta-control versions.
|
||||
(loop for mods in '(() (control) (meta) (meta control)) do
|
||||
(define-key function-key-map `[(,@mods ,key)] `[(shift ,@mods ,sane-key)])
|
||||
- ))))
|
||||
-
|
||||
+ )))
|
||||
(define-key function-key-map `[(,@mods ,key)]
|
||||
- `[(shift ,@mods ,sane-key)])))))
|
||||
+ `[(shift ,@mods ,sane-key)]))))
|
||||
+;; Begin insert
|
||||
+;; <werner@suse.de> set Symbol delete == [delete] to delete-char
|
||||
+ (load "term/func-keys" t t)
|
||||
+;; End insert
|
||||
+)
|
||||
|
||||
;;; x-win-xfree86.el ends here
|
||||
Index: xemacs-21.5.29/site-packages/lisp/term/func-keys.el
|
||||
===================================================================
|
||||
|
Reference in New Issue
Block a user