daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

pkg update and first config fix

Browse Source 
org-brain not working, add org-roam
This commit is contained in:
Daniel Weschke
2022-12-19 23:02:34 +01:00
parent 02b3e07185
commit 82f05baffe
885 changed files with 356098 additions and 36993 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
lisp/ess/ess-sas-a.el
View File

@@ -87,7 +87,7 @@ or `ess-sas-data-view-insight'."
(make-variable-buffer-local 'ess-sas-data-view-insight-statement)
(defcustom ess-sas-graph-view-suffix-regexp
"[.]\\([eE]?[pP][sS]\\|[pP][dD][fF]\\|[gG][iI][fF]\\|[jJ][pP][eE]?[gG]\\|[tT][iI][fF][fF]?\\)"
"[.]\\([eE]?[pP][sS]\\|[pP][dD][fF]\\|[gG][iI][fF]\\|[jJ][pP][eE]?[gG]\\|[tT][iI][fF][fF]?\\|[pP][nN][gG]\\)"
"GSASFILE suffix regexp."
:group 'ess-sas
:type 'string)
@@ -188,18 +188,18 @@ Virtual PC emulator on your Mac; buffer-local."
"Method used by `ess-sas-submit'.
The default is based on the value of the emacs variable `system-type'
and, on Windows, the function `w32-shell-dos-semantics'.
'sh if *shell* runs sh, ksh, csh, tcsh or bash
'ms-dos if *shell* follows MS-DOS semantics
\\='sh if *shell* runs sh, ksh, csh, tcsh or bash
\\='ms-dos if *shell* follows MS-DOS semantics
Unix users will get 'sh by default.
Unix users will get \\='sh by default.
Windows users running bash in *shell* will get 'sh by default.
Windows users running bash in *shell* will get \\='sh by default.
Windows users running MS-DOS in *shell* will get 'ms-dos by default.
Windows users running MS-DOS in *shell* will get \\='ms-dos by default.
Users accessing a remote machine with `telnet', `rlogin', `ssh', etc.,
should set this variable to 'sh regardless of their local shell
(since their remote shell is 'sh).")
should set this variable to \\='sh regardless of their local shell
(since their remote shell is \\='sh).")
(defcustom ess-sas-graph-view-viewer-default
(if ess-microsoft-p "explorer"
@@ -576,15 +576,22 @@ Use the current buffer if nil."
(setq ess-tmp-graph (read-string "GSASFILE: "
(or ess-tmp-graph ess-sas-file-path)))
;;GNU Emacs graphics file image viewing mode loaded?
(if (and (bound-and-true-p auto-image-file-mode)
;; whether the image libraries are configured is what is important here
(if (and (string-match "JPEG" system-configuration-features)
(string-match "[.][jJ][pP][eE]?[gG]" ess-tmp-graph))
(find-file ess-tmp-graph)
;;else XEmacs graphics file image viewing mode loaded?
(if (and (fboundp 'image-mode)
(string-match "[.]\\([jJ][pP][eE]?[gG]\\|[gG][iI][fF]\\)"
ess-tmp-graph))
(find-file ess-tmp-graph)
(if (and (string-match "PNG" system-configuration-features)
(string-match "[.][pP][nN][gG]" ess-tmp-graph))
(find-file ess-tmp-graph)
;; ;;GNU Emacs graphics file image viewing mode loaded?
;; (if (and (bound-and-true-p auto-image-file-mode)
;; (string-match "[.][jJ][pP][eE]?[gG]" ess-tmp-graph))
;; (find-file ess-tmp-graph)
;; ;;else XEmacs graphics file image viewing mode loaded?
;; (if (and (fboundp 'image-mode)
;; (string-match "[.]\\([jJ][pP][eE]?[gG]\\|[gG][iI][fF]\\)"
;; ess-tmp-graph))
;; (find-file ess-tmp-graph)
;;else use the appropriate graphics file image viewer
(while (< ess-tmp-counter ess-tmp-length)
(setq ess-tmp-graph-alist
@@ -1397,7 +1404,7 @@ directory that you specify with the same name, but without the
(comint-send-input)
;; (insert (read-string "Press Return to connect to Kermit: " nil nil "\C-\\c"))
;; (comint-send-input)
;; (insert (read-string "Press Return when Kermit is ready to recieve: " nil nil
;; (insert (read-string "Press Return when Kermit is ready to receive: " nil nil
;; (concat "receive ]" ess-sas-temp-file)))
;; (comint-send-input)
;; (insert (read-string "Press Return when transfer is complete: " nil nil "c"))
@@ -1441,7 +1448,7 @@ directory with the same name, but without the `ess-kermit-prefix'."
(comint-send-input)
;; (insert (read-string "Press Return to connect to Kermit: " nil nil "\C-\\c"))
;; (comint-send-input)
;; (insert (read-string "Press Return when Kermit is ready to recieve: " nil nil
;; (insert (read-string "Press Return when Kermit is ready to receive: " nil nil
;; (concat "receive ]" ess-sas-temp-file)))
;; (comint-send-input)
;; (insert (read-string "Press Return when transfer is complete: " nil nil "c"))