unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* [PATCH 4/4] octave.el: Use `locate-user-emacs-file'.
@ 2013-09-27 15:20 Rüdiger Sonderfeld
  2013-09-28  0:35 ` Stefan Monnier
  2013-09-28  2:10 ` Leo Liu
  0 siblings, 2 replies; 7+ messages in thread
From: Rüdiger Sonderfeld @ 2013-09-27 15:20 UTC (permalink / raw)
  To: emacs-devel; +Cc: Leo Liu

Initialize `inferior-octave-startup-file' with
`locate-user-emacs-file' and support new "~/.emacs.d/init_octave.m"
style.

* lisp/progmodes/octave.el (inferior-octave-startup-file): Use
  `locate-user-emacs-file'.

Signed-off-by: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
---
 lisp/progmodes/octave.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index aeb17d0..1e3e466 100644
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -609,8 +609,9 @@ (defcustom inferior-octave-prompt-read-only comint-prompt-
read-only
   :version "24.4")
 
 (defcustom inferior-octave-startup-file
-  (convert-standard-filename
-   (concat "~/.emacs-" (file-name-nondirectory inferior-octave-program)))
+  (locate-user-emacs-file
+   (concat "init_" (file-name-nondirectory inferior-octave-program) ".m")
+   (concat ".emacs-" (file-name-nondirectory inferior-octave-program)))
   "Name of the inferior Octave startup file.
 The contents of this file are sent to the inferior Octave process on
 startup."
-- 
1.8.4




^ permalink raw reply related	[flat|nested] 7+ messages in thread

end of thread, other threads:[~2013-10-02 20:42 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-09-27 15:20 [PATCH 4/4] octave.el: Use `locate-user-emacs-file' Rüdiger Sonderfeld
2013-09-28  0:35 ` Stefan Monnier
2013-09-28  2:10 ` Leo Liu
2013-09-28 11:59   ` Rüdiger Sonderfeld
2013-09-30  1:16     ` Leo Liu
2013-09-30  1:20     ` Leo Liu
2013-10-02 20:42       ` Rüdiger Sonderfeld

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).