mirror of
git://projects.qi-hardware.com/openwrt-packages.git
synced 2024-11-25 17:07:11 +02:00
emacs: fix load-history problem by disabling gpm-mouse-mode by default
remove previous, non-working workaround from site-start.el
This commit is contained in:
parent
b091aa657a
commit
bf91bebc61
@ -20,8 +20,3 @@
|
|||||||
;; or tmm-menubar
|
;; or tmm-menubar
|
||||||
(menu-bar-mode 0)
|
(menu-bar-mode 0)
|
||||||
|
|
||||||
;; ugly work-around for load-history entry (require . t-mouse) added by
|
|
||||||
;; linux.el Not good, as it costs some memory.
|
|
||||||
(setq load-history
|
|
||||||
(apply 'nconc (mapcar (lambda (v) (if (stringp (car v)) (list v) nil))
|
|
||||||
load-history)))
|
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
Index: emacs23.2-openwrt-q/src/emacs.c
|
Index: emacs/src/emacs.c
|
||||||
===================================================================
|
===================================================================
|
||||||
--- emacs23.2-openwrt-q.orig/src/emacs.c 2010-12-18 20:24:35.000000000 +0100
|
--- emacs.orig/src/emacs.c 2010-12-18 20:37:40.000000000 +0100
|
||||||
+++ emacs23.2-openwrt-q/src/emacs.c 2010-12-18 20:28:41.000000000 +0100
|
+++ emacs/src/emacs.c 2010-12-18 20:37:40.000000000 +0100
|
||||||
@@ -1735,6 +1735,10 @@
|
@@ -1735,6 +1735,10 @@
|
||||||
#endif /* HAVE_NTGUI */
|
#endif /* HAVE_NTGUI */
|
||||||
}
|
}
|
||||||
|
13
emacs/patches/020-disable-gpm-mode.patch
Normal file
13
emacs/patches/020-disable-gpm-mode.patch
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
Index: emacs-23.2/lisp/t-mouse.el
|
||||||
|
===================================================================
|
||||||
|
--- emacs-23.2.orig/lisp/t-mouse.el 2011-02-26 13:06:10.000000000 +0100
|
||||||
|
+++ emacs-23.2/lisp/t-mouse.el 2011-02-26 13:06:25.000000000 +0100
|
||||||
|
@@ -73,7 +73,7 @@
|
||||||
|
This allows the use of the mouse when operating on a GNU/Linux console,
|
||||||
|
in the same way as you can use the mouse under X11.
|
||||||
|
It relies on the `gpm' daemon being activated."
|
||||||
|
- :global t :group 'mouse :init-value t
|
||||||
|
+ :global t :group 'mouse :init-value nil
|
||||||
|
(dolist (terminal (terminal-list))
|
||||||
|
(when (and (eq t (terminal-live-p terminal))
|
||||||
|
(not (eq gpm-mouse-mode
|
Loading…
Reference in New Issue
Block a user