← Back to branch summary

~ubuntu-branches/ubuntu/quantal/texmacs/quantal

« back to all changes in this revision

Viewing changes to TeXmacs/progs/generic/generic-edit.scm

  • Committer: Bazaar Package Importer
  • Author(s): Atsuhito KOHDA, Kamaraju Kusumanchi, kohda
  • Date: 2009-04-26 19:35:14 UTC
  • mfrom: (1.1.10 upstream) (4.1.4 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090426193514-9yo3oggdslgdls4b
Tags: 1:1.0.7.2-1
http://bugs.debian.org/484073
http://bugs.debian.org/497021
[Kamaraju Kusumanchi <kamaraju@gmail.com>]
* New upstream release
* texmacs crashes if /usr/share/texmacs/TeXmacs/misc/pixmaps/unknown.ps
  is not present. Do not remove it. (Closes: #484073, #497021)
* update patches 03_mupad.dpatch, 04_axiom.dpatch, 11-desktop-file.dpatch
* fix the mime problem in gnome. Thanks to Andrea Gamba for the fix.
[kohda]
* Refined a fix for the mime problem in gnome a bit.
* Try to fix /bin/sh problem (debian/fixsh) but it is not complete fix yet.
* Try to fix hard coded settings for ipa fonts(patches/09_ipa.dpatch), 
  especially for Debian where no ipa fonts exist yet.
* Fixed obsolete Build-Depends: changed libltdl3-dev to 
  libltdl-dev | libltdl7-dev (the latter for Ubuntu?)

Show diffs side-by-side

added added

removed removed

Lines of Context:
TeXmacs/progs/generic/generic-edit.scm
5
5
;; DESCRIPTION : Generic editing routines
6
6
;; COPYRIGHT   : (C) 2001  Joris van der Hoeven
7
7
;;
8
 
;; This software falls under the GNU general public license and comes WITHOUT
9
 
;; ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for details.
10
 
;; If you don't have this file, write to the Free Software Foundation, Inc.,
11
 
;; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
8
;; This software falls under the GNU general public license version 3 or later.
 
9
;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
 
10
;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
12
11
;;
13
12
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14
13
 
41
40
 
42
41
(tm-define (kbd-remove forward?) (remove-text forward?))
43
42
(tm-define (kbd-remove forward?)
44
 
  (:mode with-active-selection?)
45
 
  (clipboard-cut "primary"))
 
43
  (:mode with-any-selection?)
 
44
  (clipboard-cut "nowhere")
 
45
  (clipboard-clear "nowhere"))
46
46
 
47
47
(tm-define (kbd-tab)
48
48
  (if (not (complete-try?))
297
297
  (clipboard-cut "primary"))
298
298
 
299
299
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
300
 
;; Inserting miscellaneous content
 
300
;; Inserting various kinds of content
301
301
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
302
302
 
 
303
(tm-define (make-label)
 
304
  (make 'label))
 
305
 
303
306
(tm-define (make-specific s)
304
307
  (if (or (== s "texmacs") (in-source?))
305
308
      (insert-go-to `(specific ,s "") '(1 0))