← Back to branch summary

~ubuntu-branches/ubuntu/raring/ess/raring-proposed

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Dirk Eddelbuettel
  • Date: 2011-02-03 16:10:05 UTC
  • mfrom: (1.2.19 upstream)
  • Revision ID: james.westby@ubuntu.com-20110203161005-g1bg3cd5mtu15uh3
Tags: 5.13-1
New upstream version released today

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/ess-sas-a.el
4
4
;;      Maechler, Kurt Hornik, Rodney Sparapani, and Stephen Eglen.
5
5
 
6
6
;; Original Author: Rodney A. Sparapani
7
 
;; Maintainer: ESS-core@stat.math.ethz.ch
 
7
;; Maintainer: ESS-core@r-project.org
8
8
;; Created: 17 November 1999
9
9
;; Keywords: SAS
10
10
 
567
567
          (if ess-tmp-glyph (progn
568
568
                (switch-to-buffer (file-name-nondirectory ess-tmp-graph))
569
569
                (ess-xemacs-insert-glyph
570
 
                    (make-glyph (vector ess-tmp-glyph :file ess-tmp-graph))))    
 
570
                    (make-glyph (vector ess-tmp-glyph :file ess-tmp-graph))))
571
571
 
572
572
          ;;else use the appropriate graphics file image viewer
573
573
            (while (< ess-tmp-counter ess-tmp-length)
668
668
 
669
669
              (if revert
670
670
                  (if (and (> ess-sas-log-max 0) (string-equal suffix "log")
671
 
                           (> (ess-num-or-zero (nth 7 (file-attributes ess-sas-temp-file))) 
 
671
                           (> (ess-num-or-zero (nth 7 (file-attributes ess-sas-temp-file)))
672
672
                              ess-sas-log-max))
673
673
                      (progn
674
674
                        (insert-file-contents ess-sas-temp-file nil 0
1133
1133
(defun ess-sas-toggle-sas-log-mode ()
1134
1134
  "Toggle SAS-log-mode for .log files."
1135
1135
  (interactive)
1136
 
  
 
1136
 
1137
1137
  (ess-sas-goto-log)
1138
 
  (kill-buffer nil)  
 
1138
  (kill-buffer nil)
1139
1139
 
1140
1140
;  (if (equal (cdr (assoc "\\.[lL][oO][gG]\\'" auto-mode-alist)) 'SAS-log-mode) (progn
1141
1141
;      (setq auto-mode-alist (delete '("\\.[lL][oO][gG]\\'" . SAS-log-mode) auto-mode-alist))
1148
1148
;      (font-lock-mode 1)
1149
1149
;      (font-lock-fontify-buffer))
1150
1150
 
1151
 
  (if (equal (cdr (assoc "\\.[lL][oO][gG]\\'" auto-mode-alist)) 'SAS-log-mode) 
 
1151
  (if (equal (cdr (assoc "\\.[lL][oO][gG]\\'" auto-mode-alist)) 'SAS-log-mode)
1152
1152
      (setq auto-mode-alist (delete '("\\.[lL][oO][gG]\\'" . SAS-log-mode) auto-mode-alist))
1153
1153
      (setq auto-mode-alist (append '(("\\.[lL][oO][gG]\\'" . SAS-log-mode)) auto-mode-alist)))
1154
1154
  (ess-sas-goto-log))