← Back to branch summary

~ubuntu-branches/ubuntu/wily/ess/wily-proposed

« back to all changes in this revision

Viewing changes to lisp/ess-sas-d.el

  • Committer: Package Import Robot
  • Author(s): Dirk Eddelbuettel
  • Date: 2013-09-27 18:41:32 UTC
  • mto: This revision was merged to the branch mainline in revision 37.
  • Revision ID: package-import@ubuntu.com-20130927184132-dxa7ufsry9hjd9dc
Tags: upstream-13.09
Import upstream version 13.09

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/ess-sas-d.el
187
187
    (inferior-ess-start-args       . inferior-SAS-args-temp)
188
188
    (inferior-ess-font-lock-defaults . SAS-mode-font-lock-defaults)
189
189
    ;; (ess-pre-run-hook              . 'ess-SAS-pre-run-hook)
190
 
    (ess-local-process-name        . nil))
 
190
    ;; (ess-local-process-name        . nil)
 
191
    )
191
192
  "Variables to customize for SAS")
192
193
 
193
194
;;; The functions of interest (mode, inferior mode)
244
245
 
245
246
;; rmh Jul 10 2003
246
247
(defun ess-electric-run-semicolon (arg)
247
 
  "Insert character.  If the line contains \"run;\" and nothing else then indent line."
 
248
  "Insert character.  If the line contains \"run;\" or \"quit;\" and nothing else then indent line."
248
249
  (interactive "P")
249
250
  (if ess-sas-edit-keys-toggle (insert ";") (let (insertpos)
250
251
                                              (if (and (not arg)
252
253
                                                       (save-excursion
253
254
                                                         (skip-chars-backward " \t")
254
255
                                                         (backward-word 1)
255
 
                                                         (and (looking-at "run")
 
256
                                                         (and (looking-at "run\\|quit")
256
257
                                                              (progn
257
258
                                                                (skip-chars-backward " \t")
258
259
                                                                (bolp)))))