← Back to branch summary

~ubuntu-branches/debian/sid/geiser/sid

« back to all changes in this revision

Viewing changes to elisp/geiser-racket.el

  • Committer: Package Import Robot
  • Author(s): David Bremner
  • Date: 2012-01-24 20:20:32 UTC
  • mfrom: (1.1.2)
  • Revision ID: package-import@ubuntu.com-20120124202032-dsmjv26u95clot9i
Tags: 0.1.4-1
New upstream release.

Show diffs side-by-side

added added

removed removed

Lines of Context:
elisp/geiser-racket.el
213
213
  (when msg
214
214
    (let ((p (point)))
215
215
      (insert msg)
216
 
      (when key
217
 
        (let ((end (point)))
 
216
      (let ((end (point)))
218
217
        (goto-char p)
219
 
        (geiser-racket--purge-trace)
 
218
        (when key (geiser-racket--purge-trace))
220
219
        (mapc 'geiser-edit--buttonize-files geiser-racket--file-rxs)
221
220
        (goto-char end)
222
 
        (newline)))))
 
221
        (newline))))
223
222
  (or key (not (zerop (length msg)))))
224
223
 
225
224
 
232
231
      (geiser-racket--explicit-module)))
233
232
 
234
233
 
235
 
;;; Keywords
 
234
;;; Keywords and syntax
236
235
(defun geiser-racket--keywords ()
237
236
  (cons '("^#lang\\>" . 0)
238
237
        (when geiser-racket-extra-keywords
239
238
          `((,(format "[[(]%s\\>" (regexp-opt geiser-racket-extra-keywords 1))
240
239
             . 1)))))
241
240
 
 
241
(geiser-syntax--scheme-indent
 
242
 (splicing-let 1)
 
243
 (splicing-letrec 1)
 
244
 (splicing-let-values 1)
 
245
 (splicing-letrec-values 1)
 
246
 (splicing-let-syntax 1)
 
247
 (splicing-letrec-syntax 1)
 
248
 (splicing-let-syntaxes 1)
 
249
 (splicing-letrec-syntaxes 1)
 
250
 (splicing-letrec-syntaxes+values 1)
 
251
 (splicing-local 1))
 
252
 
242
253
 
243
254
;;; Remote REPLs
244
255