bug#13251: Wishlist: Add ability to set initial buffer for new frames.

[Constantin Kulikov <zxnotdead@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 1441 bytes --]

argh. :( Sorry made a small typo in patch attached in previous message.



2012/12/22 Constantin Kulikov <zxnotdead@gmail.com>

> Thanks for the tips.
>
>
>
> 2012/12/22 martin rudalics <rudalics@gmx.at>
>
>> > (defcustom initial-buffer-choice nil
>> >   "Buffer to show after starting Emacs.
>> > If the value is nil and `inhibit-startup-screen' is nil, show the
>> > startup screen.  If the value is a string, visit the specified file
>> > or directory using `find-file'.  If t, open the `*scratch*'
>> > buffer. If function, switch to a buffer returned by this function.
>>
>> As for the last sentence I'd prefer "If it is a function, switch to the
>> buffer returned by that function."
>>
>> > A string value also causes emacsclient to open the specified file
>> > or directory when no target file is specified."
>> >   :type '(choice
>> >       (const     :tag "Startup screen" nil)
>> >       (directory :tag "Directory" :value "~/")
>> >       (file      :tag "File" :value "~/.emacs")
>> >       (function  :tag "Function")
>> >       (const     :tag "Lisp scratch buffer" t))
>> >   :version "23.1"
>>
>> Too late for "23.1" use "24.4" instead.
>>
>> >   :group 'initialization)
>> >
>> > This code allows setting `initial-buffer-choice' to a function returning
>> > needed buffer.
>>
>> Could you please send us a patch based on these remarks (including the
>> change you sketched in your second mail)?
>>
>> Thanks, martin
>>
>
>

[-- Attachment #1.2: Type: text/html, Size: 2408 bytes --]

[-- Attachment #2: initial-buffer-choice-as-function.patch --]
[-- Type: application/octet-stream, Size: 1919 bytes --]

=== modified file 'lisp/server.el'
--- lisp/server.el	2012-11-09 06:28:27 +0000
+++ lisp/server.el	2012-12-22 19:36:57 +0000
@@ -1256,12 +1256,18 @@
           (mapc 'funcall (nreverse commands))
 
 	  ;; If we were told only to open a new client, obey
-	  ;; `initial-buffer-choice' if it specifies a file.
-	  (unless (or files commands)
-	    (if (stringp initial-buffer-choice)
-		(find-file initial-buffer-choice)
-	      (switch-to-buffer (get-buffer-create "*scratch*")
-				'norecord)))
+	  ;; `initial-buffer-choice' if it specifies a file
+          ;; or a function
+          (unless (or files commands)
+            (switch-to-buffer
+             (get-buffer-create
+              (cond
+               ((stringp initial-buffer-choice)
+                (find-file-noselect initial-buffer-choice))
+               ((functionp initial-buffer-choice)
+                (funcall initial-buffer-choice))
+               (t "*scratch*")))
+             'norecord))
 
           ;; Delete the client if necessary.
           (cond

=== modified file 'lisp/startup.el'
--- lisp/startup.el	2012-12-01 02:08:30 +0000
+++ lisp/startup.el	2012-12-22 20:09:27 +0000
@@ -43,7 +43,7 @@
 If the value is nil and `inhibit-startup-screen' is nil, show the
 startup screen.  If the value is a string, visit the specified file
 or directory using `find-file'.  If t, open the `*scratch*'
-buffer.
+buffer. If function, switch to a buffer returned by this function.
 
 A string value also causes emacsclient to open the specified file
 or directory when no target file is specified."
@@ -51,8 +51,9 @@
 	  (const     :tag "Startup screen" nil)
 	  (directory :tag "Directory" :value "~/")
 	  (file      :tag "File" :value "~/.emacs")
+          (function  :tag "Function")
 	  (const     :tag "Lisp scratch buffer" t))
-  :version "23.1"
+  :version "24.4"
   :group 'initialization)
 
 (defcustom inhibit-startup-screen nil