Emacs: using sh-shell for compilation
parent
08998aecb3
commit
86633e6fbd
|
@ -210,7 +210,6 @@ fallback to the mode provided in symbol DEFAULT."
|
||||||
(warn "Could not load %s, fallback to %s"
|
(warn "Could not load %s, fallback to %s"
|
||||||
(symbol-name ',feature) (symbol-name ',default))))))))))
|
(symbol-name ',feature) (symbol-name ',default))))))))))
|
||||||
|
|
||||||
;; TODO: try defadvice.
|
|
||||||
(defun mark-word-from-beginning (&optional arg allow-extend)
|
(defun mark-word-from-beginning (&optional arg allow-extend)
|
||||||
"Set the point at the beginning of the word and call `mark-word'."
|
"Set the point at the beginning of the word and call `mark-word'."
|
||||||
(interactive "P\np")
|
(interactive "P\np")
|
||||||
|
|
|
@ -2,15 +2,15 @@
|
||||||
;; Shell
|
;; Shell
|
||||||
;;==============================================================================
|
;;==============================================================================
|
||||||
|
|
||||||
;; TODO: set sh-shell-file per buffer?
|
|
||||||
|
|
||||||
;; Allow comment indentation.
|
;; Allow comment indentation.
|
||||||
(setq sh-indent-comment t)
|
(setq sh-indent-comment t)
|
||||||
|
|
||||||
(add-hook-and-eval
|
(add-hook-and-eval
|
||||||
'sh-mode-hook
|
'sh-mode-hook
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(set (make-local-variable 'compile-command) (concat sh-shell-file " " buffer-file-name))) )
|
(set (make-local-variable 'defun-prompt-regexp)
|
||||||
|
(concat "^\\(function[ \t]\\|[[:alnum:]_]+[ \t]+()[ \t]+\\)"))
|
||||||
|
(set (make-local-variable 'compile-command) (concat (symbol-name sh-shell) " " buffer-file-name))) )
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue