-(defun ff/make-shell-scripts-executable (&optional filename)
- (setq filename (or filename (buffer-name)))
- (when (and (string-match "\\.sh$\\|\\.pl$\\|\\.rb" filename)
- (not (file-executable-p filename))
- )
- (set-file-modes filename 493)
- (message "Made %s executable" filename)))
+;; (defun ff/make-shell-scripts-executable (&optional filename)
+ ;; (setq filename (or filename (buffer-name)))
+ ;; (when (and (string-match "\\.sh$\\|\\.pl$\\|\\.rb" filename)
+ ;; (not (file-executable-p filename))
+ ;; )
+ ;; (set-file-modes filename 493)
+ ;; (message "Made %s executable" filename)))