mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.

Browse Source 
(t-mouse-mode): New compatibility alias.
This commit is contained in:
Stefan Monnier 2007-09-28 20:13:31 +00:00
parent 4ce5ab773b
commit 0e2806fa7e
3 changed files with 47 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
doc/misc/ChangeLog
View File

@ -1,3 +1,12 @@
2007-09-26 Carsten Dominik <dominik@science.uva.nl>
* org.texi: Change links to webpage and maintained email.
(Remember): Promote to Chapter, significant changes.
(Fast access to TODO states): New section.
(Faces for TODO keywords): New section.
(Export options): Example for #+DATE.
(Progress logging): Section moved.
2007-09-26 Bill Wohler <wohler@newt.com>
* mh-e.texi (HTML): Mention binding of S-mouse-2 to

35
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2007-09-28 Stefan Monnier <monnier@iro.umontreal.ca>
* t-mouse.el (gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
(t-mouse-mode): New compatibility alias.
2007-09-28 Dan Nicolaescu <dann@ics.uci.edu>
* server.el (server-delete-client): Only delete the terminal if it
@ -21,15 +26,15 @@
* net/tramp-cache.el (tramp-cache-print): Pacify byte-compiler.
* net/tramp-fish.el (tramp-fish-handle-expand-file-name): Apply
`tramp-completion-mode-p'.
* net/tramp-fish.el (tramp-fish-handle-expand-file-name):
Apply `tramp-completion-mode-p'.
(tramp-fish-handle-set-file-times)
(tramp-fish-handle-executable-find)
(tramp-fish-handle-process-file, tramp-fish-get-file-entries)
(tramp-fish-retrieve-data): Pacify byte-compiler.
* net/tramp-gw.el (tramp-gw-basic-authentication): Call
`tramp-read-passwd' with first parameter `nil'.
* net/tramp-gw.el (tramp-gw-basic-authentication):
Call `tramp-read-passwd' with first parameter `nil'.
2007-09-28 Glenn Morris <rgm@gnu.org>
@ -78,10 +83,8 @@
2007-09-26 Bastien Guerry <bzg@altern.org>
* org-export-latex.el (org-export-latex-tables-verbatim): New
function.
(org-export-latex-remove-from-headlines): Name changed because of
typo.
* org-export-latex.el (org-export-latex-tables-verbatim): New function.
(org-export-latex-remove-from-headlines): Name changed because of typo.
(org-export-latex-quotation-marks-convention): Option removed.
(org-export-latex-make-preamble): Handle the DATE option.
(org-export-latex-cleaned-string): Now the only cleaning function,
@ -102,9 +105,8 @@
(org-archive-subtree): No need to split return of `org-get-tags'.
(org-set-tags, org-entry-properties): Call `org-get-tags-string'
instead of `org-get-tags'.
(org-agenda-format-date): Renamed from `org-agenda-date-format'.
(org-time-from-absolute, org-agenda-format-date-aligned): New
functions.
(org-agenda-format-date): Rename from `org-agenda-date-format'.
(org-time-from-absolute, org-agenda-format-date-aligned): New funs.
(org-compatible-face): New argument INHERITS. Inherit from this
face if possible.
(org-level-1, org-level-2, org-level-3, org-level-4)
@ -128,8 +130,8 @@
(org-get-location): Complete rewrite.
(org-goto-exit-command): New variable.
(org-goto-selected-point): New variable.
(org-goto-ret, org-goto-left, org-goto-right, org-goto-quit): Set
the new variables.
(org-goto-ret, org-goto-left, org-goto-right, org-goto-quit):
Set the new variables.
(org-paste-subtree): Whitespace insertion strategy revised.
(org-remember-apply-template): Protect v-A from the possibility
that v-a might be nil.
@ -138,13 +140,6 @@
(org-up-heading-safe): New function.
(org-entry-get-with-inheritance): Use `org-up-heading-safe'.
* org.texi: Change links to webpage and maintained email.
(Remember): Promoted to Chapter, significant changes.
(Fast access to TODO states): New section.
(Faces for TODO keywords): New section.
(Export options): Example for #+DATE.
(Progress logging): Section moved.
2007-09-26 Dan Nicolaescu <dann@ics.uci.edu>
* progmodes/cc-cmds.el (c-indent-line-or-region): Only indent the

44
lisp/t-mouse.el
View File

@ -40,29 +40,31 @@
;;; Code:
;;;###autoload
(define-minor-mode t-mouse-mode
"Toggle t-mouse mode to use the mouse in Linux consoles.
With prefix arg, turn t-mouse mode on if arg is positive, otherwise turn it
off.
(define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1")
;;;###autoload
(define-minor-mode gpm-mouse-mode
"Toggle gpm-mouse mode to use the mouse in GNU/Linux consoles.
With prefix arg, turn gpm-mouse mode on if arg is positive,
otherwise turn it off.
This allows the use of the mouse when operating on a Linux console, in the
same way as you can use the mouse under X11.
It requires the `mev' program, part of the `gpm' utilities."
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
(if window-system
(error "t-mouse only works in the console on GNU/Linux")
(if t-mouse-mode
(progn
(unless (fboundp 'term-open-connection)
(progn
(setq t-mouse-mode nil)
(error "Emacs must be built with Gpm to use this mode")))
(unless (term-open-connection)
(progn
(setq t-mouse-mode nil)
(error "Can't open mouse connection"))))
;; Turn it off
(term-close-connection))))
(let ((activated nil))
(unwind-protect
(progn
(unless (fboundp 'gpm-mouse-start)
(error "Emacs must be built with Gpm to use this mode"))
(when gpm-mouse-mode
(gpm-mouse-start)
(setq activated t)))
;; If the user asked to turn it off do that.
;; If something failed to turn it on, try to turn it off as well,
;; just in case.
(when (and (fboundp 'gpm-mouse-stop) (not activated))
(setq gpm-mouse-mode nil)
(gpm-mouse-stop)))))
(provide 't-mouse)