diff options
| author | Glenn Morris | 2014-05-13 23:59:12 -0700 |
|---|---|---|
| committer | Glenn Morris | 2014-05-13 23:59:12 -0700 |
| commit | a5d09243e7259152291f8a14b9528d7c177b6639 (patch) | |
| tree | b384dd32244ee257a1e46b2e2ad5dbde29ce2dc9 /lisp | |
| parent | e95b937a425af518f97837c5d9b41a8b2e8c0e58 (diff) | |
| download | emacs-a5d09243e7259152291f8a14b9528d7c177b6639.tar.gz emacs-a5d09243e7259152291f8a14b9528d7c177b6639.zip | |
Make some pointless/useless emerge.el options obsolete
* vc/emerge.el (emerge-temp-file-prefix): Make pointless option obsolete.
(emerge-temp-file-mode): Make non-functional option obsolete.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/vc/emerge.el | 9 |
2 files changed, 15 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 803ef1f60b2..da8f90d3b3b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2014-05-14 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * vc/emerge.el (emerge-temp-file-prefix): | ||
| 4 | Make pointless option obsolete. | ||
| 5 | (emerge-temp-file-mode): Make non-functional option obsolete. | ||
| 6 | |||
| 1 | 2014-05-13 Michael Albinus <michael.albinus@gmx.de> | 7 | 2014-05-13 Michael Albinus <michael.albinus@gmx.de> |
| 2 | 8 | ||
| 3 | * net/browse-url.el (browse-url): | 9 | * net/browse-url.el (browse-url): |
diff --git a/lisp/vc/emerge.el b/lisp/vc/emerge.el index 0cf4484aac1..d4638616dd7 100644 --- a/lisp/vc/emerge.el +++ b/lisp/vc/emerge.el | |||
| @@ -261,11 +261,19 @@ Do not start with `~/' or `~USERNAME/'." | |||
| 261 | :type 'string | 261 | :type 'string |
| 262 | :group 'emerge) | 262 | :group 'emerge) |
| 263 | 263 | ||
| 264 | (make-obsolete-variable 'emerge-temp-file-prefix | ||
| 265 | "customize `temporary-file-directory' instead." | ||
| 266 | "24.4" 'set) | ||
| 267 | |||
| 264 | (defcustom emerge-temp-file-mode 384 ; u=rw only | 268 | (defcustom emerge-temp-file-mode 384 ; u=rw only |
| 265 | "Mode for Emerge temporary files." | 269 | "Mode for Emerge temporary files." |
| 266 | :type 'integer | 270 | :type 'integer |
| 267 | :group 'emerge) | 271 | :group 'emerge) |
| 268 | 272 | ||
| 273 | (make-obsolete-variable 'emerge-temp-file-mode | ||
| 274 | "it has no effect, temporary files are always private." | ||
| 275 | "24.4" 'set) | ||
| 276 | |||
| 269 | (defcustom emerge-combine-versions-template | 277 | (defcustom emerge-combine-versions-template |
| 270 | "#ifdef NEW\n%b#else /* not NEW */\n%a#endif /* not NEW */\n" | 278 | "#ifdef NEW\n%b#else /* not NEW */\n%a#endif /* not NEW */\n" |
| 271 | "Template for `emerge-combine-versions' to combine the two versions. | 279 | "Template for `emerge-combine-versions' to combine the two versions. |
| @@ -2881,6 +2889,7 @@ keymap. Leaves merge in fast mode." | |||
| 2881 | (let (f (old-modes (default-file-modes))) | 2889 | (let (f (old-modes (default-file-modes))) |
| 2882 | (unwind-protect | 2890 | (unwind-protect |
| 2883 | (progn | 2891 | (progn |
| 2892 | ;; This has no effect, since make-temp-file sets umask = 700. | ||
| 2884 | (set-default-file-modes emerge-temp-file-mode) | 2893 | (set-default-file-modes emerge-temp-file-mode) |
| 2885 | (setq f (make-temp-file (concat emerge-temp-file-prefix prefix)))) | 2894 | (setq f (make-temp-file (concat emerge-temp-file-prefix prefix)))) |
| 2886 | (set-default-file-modes old-modes)) | 2895 | (set-default-file-modes old-modes)) |