diff options
| author | Glenn Morris | 2014-06-08 16:41:43 -0700 |
|---|---|---|
| committer | Glenn Morris | 2014-06-08 16:41:43 -0700 |
| commit | fd60bf6c902b47daadda6ebf442045dbe1328941 (patch) | |
| tree | fd351a1fc087aefbca38b87102f06edf9f8b04ff /lisp | |
| parent | ff2d0e8336c05cb7d3e86f7406784cefc1d6589e (diff) | |
| parent | 4181427f24e591f539122db2e3d8d8b55a7de7cd (diff) | |
| download | emacs-fd60bf6c902b47daadda6ebf442045dbe1328941.tar.gz emacs-fd60bf6c902b47daadda6ebf442045dbe1328941.zip | |
Merge from emacs-24; up to 2014-06-02T11:35:40Z!michael.albinus@gmx.de
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/bookmark.el | 3 | ||||
| -rw-r--r-- | lisp/files.el | 2 | ||||
| -rw-r--r-- | lisp/startup.el | 15 | ||||
| -rw-r--r-- | lisp/uniquify.el | 30 |
5 files changed, 36 insertions, 22 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 80105470985..2ce06f6ba54 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2014-06-08 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * startup.el (initial-buffer-choice): Doc fix. | ||
| 4 | Reset :version (adding an option does not merit a :version bump). | ||
| 5 | |||
| 6 | * bookmark.el (bookmark-load): | ||
| 7 | * uniquify.el (uniquify-buffer-name-style): Doc fixes. | ||
| 8 | |||
| 1 | 2014-06-08 Juri Linkov <juri@jurta.org> | 9 | 2014-06-08 Juri Linkov <juri@jurta.org> |
| 2 | 10 | ||
| 3 | * desktop.el: Activate auto-saving on window configuration changes. | 11 | * desktop.el: Activate auto-saving on window configuration changes. |
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index e4e4ed9afcb..7ea54a8e2b4 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el | |||
| @@ -1420,8 +1420,7 @@ explicitly. | |||
| 1420 | 1420 | ||
| 1421 | If you load a file containing bookmarks with the same names as | 1421 | If you load a file containing bookmarks with the same names as |
| 1422 | bookmarks already present in your Emacs, the new bookmarks will get | 1422 | bookmarks already present in your Emacs, the new bookmarks will get |
| 1423 | unique numeric suffixes \"<2>\", \"<3>\", ... following the same | 1423 | unique numeric suffixes \"<2>\", \"<3>\", etc." |
| 1424 | method buffers use to resolve name collisions." | ||
| 1425 | (interactive | 1424 | (interactive |
| 1426 | (list (read-file-name | 1425 | (list (read-file-name |
| 1427 | (format "Load bookmarks from: (%s) " | 1426 | (format "Load bookmarks from: (%s) " |
diff --git a/lisp/files.el b/lisp/files.el index cf54df710c2..0b3e1d6f552 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1637,6 +1637,8 @@ killed." | |||
| 1637 | (let (kill-buffer-query-functions kill-buffer-hook) | 1637 | (let (kill-buffer-query-functions kill-buffer-hook) |
| 1638 | (kill-buffer obuf)))))) | 1638 | (kill-buffer obuf)))))) |
| 1639 | 1639 | ||
| 1640 | ;; FIXME we really need to fold the uniquify stuff in here by default, | ||
| 1641 | ;; not using advice, and add it to the doc string. | ||
| 1640 | (defun create-file-buffer (filename) | 1642 | (defun create-file-buffer (filename) |
| 1641 | "Create a suitably named buffer for visiting FILENAME, and return it. | 1643 | "Create a suitably named buffer for visiting FILENAME, and return it. |
| 1642 | FILENAME (sans directory) is used unchanged if that name is free; | 1644 | FILENAME (sans directory) is used unchanged if that name is free; |
diff --git a/lisp/startup.el b/lisp/startup.el index 5a4ddf335c4..aa448848cea 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -42,20 +42,21 @@ | |||
| 42 | "Buffer to show after starting Emacs. | 42 | "Buffer to show after starting Emacs. |
| 43 | If the value is nil and `inhibit-startup-screen' is nil, show the | 43 | If the value is nil and `inhibit-startup-screen' is nil, show the |
| 44 | startup screen. If the value is a string, switch to a buffer | 44 | startup screen. If the value is a string, switch to a buffer |
| 45 | visiting the file or directory specified by that string. If the | 45 | visiting the file or directory that the string specifies. If the |
| 46 | value is a function, switch to the buffer returned by that | 46 | value is a function, call it with no arguments and switch to the buffer |
| 47 | function. If t, open the `*scratch*' buffer. | 47 | that it returns. If t, open the `*scratch*' buffer. |
| 48 | 48 | ||
| 49 | A string value also causes emacsclient to open the specified file | 49 | If you use `emacsclient' with no target file, then it obeys any |
| 50 | or directory when no target file is specified." | 50 | string or function value that this variable has." |
| 51 | :type '(choice | 51 | :type '(choice |
| 52 | (const :tag "Startup screen" nil) | 52 | (const :tag "Startup screen" nil) |
| 53 | (directory :tag "Directory" :value "~/") | 53 | (directory :tag "Directory" :value "~/") |
| 54 | (file :tag "File" :value "~/.emacs") | 54 | (file :tag "File" :value "~/.emacs") |
| 55 | (const :tag "Notes buffer" remember-notes) | 55 | ;; Note sure about hard-coding this as an option... |
| 56 | (const :tag "Remember Mode notes buffer" remember-notes) | ||
| 56 | (function :tag "Function") | 57 | (function :tag "Function") |
| 57 | (const :tag "Lisp scratch buffer" t)) | 58 | (const :tag "Lisp scratch buffer" t)) |
| 58 | :version "24.4" | 59 | :version "23.1" |
| 59 | :group 'initialization) | 60 | :group 'initialization) |
| 60 | 61 | ||
| 61 | (defcustom inhibit-startup-screen nil | 62 | (defcustom inhibit-startup-screen nil |
diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 5d973c72897..f0e86dc544f 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el | |||
| @@ -26,7 +26,7 @@ | |||
| 26 | 26 | ||
| 27 | ;;; Commentary: | 27 | ;;; Commentary: |
| 28 | 28 | ||
| 29 | ;; Emacs's standard method for making buffer names unique adds <2>, <3>, | 29 | ;; Emacs's traditional method for making buffer names unique adds <2>, <3>, |
| 30 | ;; etc. to the end of (all but one of) the buffers. This file replaces | 30 | ;; etc. to the end of (all but one of) the buffers. This file replaces |
| 31 | ;; that behavior, for buffers visiting files and dired buffers, with a | 31 | ;; that behavior, for buffers visiting files and dired buffers, with a |
| 32 | ;; uniquification that adds parts of the file name until the buffer names | 32 | ;; uniquification that adds parts of the file name until the buffer names |
| @@ -94,23 +94,27 @@ | |||
| 94 | 94 | ||
| 95 | 95 | ||
| 96 | (defcustom uniquify-buffer-name-style 'post-forward-angle-brackets | 96 | (defcustom uniquify-buffer-name-style 'post-forward-angle-brackets |
| 97 | "If non-nil, buffer names are uniquified with parts of directory name. | 97 | "How to construct unique buffer names for files with the same base name. |
| 98 | The value determines the buffer name style and is one of `forward', | 98 | The value can be one of: `forward', `reverse', `post-forward', |
| 99 | `reverse', `post-forward', or `post-forward-angle-brackets'. | 99 | `post-forward-angle-brackets', or nil. |
| 100 | For example, files `/foo/bar/mumble/name' and `/baz/quux/mumble/name' | 100 | |
| 101 | For example, the files `/foo/bar/mumble/name' and `/baz/quux/mumble/name' | ||
| 101 | would have the following buffer names in the various styles: | 102 | would have the following buffer names in the various styles: |
| 102 | forward bar/mumble/name quux/mumble/name | 103 | |
| 103 | reverse name\\mumble\\bar name\\mumble\\quux | 104 | forward bar/mumble/name quux/mumble/name |
| 104 | post-forward name|bar/mumble name|quux/mumble | 105 | reverse name\\mumble\\bar name\\mumble\\quux |
| 105 | post-forward-angle-brackets name<bar/mumble> name<quux/mumble> | 106 | post-forward name|bar/mumble name|quux/mumble |
| 106 | nil name name<2> | 107 | post-forward-angle-brackets name<bar/mumble> name<quux/mumble> |
| 107 | Of course, the \"mumble\" part may be stripped as well, depending on the setting | 108 | nil name name<2> |
| 108 | of `uniquify-strip-common-suffix'." | 109 | |
| 110 | The \"mumble\" part may be stripped as well, depending on the | ||
| 111 | setting of `uniquify-strip-common-suffix'. For more options that | ||
| 112 | you can set, browse the `uniquify' custom group." | ||
| 109 | :type '(radio (const forward) | 113 | :type '(radio (const forward) |
| 110 | (const reverse) | 114 | (const reverse) |
| 111 | (const post-forward) | 115 | (const post-forward) |
| 112 | (const post-forward-angle-brackets) | 116 | (const post-forward-angle-brackets) |
| 113 | (const :tag "standard Emacs behavior (nil)" nil)) | 117 | (const :tag "numeric suffixes" nil)) |
| 114 | :version "24.4" | 118 | :version "24.4" |
| 115 | :require 'uniquify | 119 | :require 'uniquify |
| 116 | :group 'uniquify) | 120 | :group 'uniquify) |