This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(require 'cl) | |
(defun my-pop-to-buffer (buffer &optional action norecord) | |
(message "buffer: %s | action: %s | norecord: %s" buffer action norecord)) | |
(defun test-fn () | |
"Doc-string." | |
(interactive) | |
(cl-letf (((symbol-function 'pop-to-buffer) #'my-pop-to-buffer)) | |
(pop-to-buffer (current-buffer)))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(require 'org) | |
(setq org-archive-location "~/Dropbox/logs/archive.org::") | |
(defun org-archive-save-buffer () | |
(let ((afile (org-extract-archive-file (org-get-local-archive-location)))) | |
(if (file-exists-p afile) | |
(let ((buffer (find-file-noselect afile))) | |
(if (y-or-n-p (format "Save (%s)" buffer)) | |
(with-current-buffer buffer |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
https://emacs.stackexchange.com/q/34314/2287 | |
undo-tree: Create a separate copy of `buffer-undo-tree` in Emacs 26.0.50 | |
Q: Using Emacs 26.0.50, how to copy the buffer-undo-tree preserving the structure and create a completely separate copy -- including the hash-table (aka object-pool)? | |
When using Emacs 25.2.1, setting the hash-table of the copy of buffer-undo-tree to a nil value does not alter the original buffer-undo-tree. | |
When using Emacs 26.0.50 (master branch), setting the hash-table of the copy of buffer-undo-tree to a nil value alters the original buffer-undo-tree -- setting it to nil. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/lisp/term/common-win.el b/lisp/term/common-win.el | |
index 937e47f..165263a 100644 | |
--- a/lisp/term/common-win.el | |
+++ b/lisp/term/common-win.el | |
@@ -73,6 +73,8 @@ | |
(cons (logior (lsh 0 16) 12) 'ns-new-frame) | |
(cons (logior (lsh 0 16) 13) 'ns-toggle-toolbar) | |
(cons (logior (lsh 0 16) 14) 'ns-show-prefs) | |
+ (cons (logior (lsh 0 16) 20) 'ns-check-spelling) | |
+ (cons (logior (lsh 0 16) 21) 'ns-spelling-change) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/lisp/term/common-win.el b/lisp/term/common-win.el | |
index 937e47f..165263a 100644 | |
--- a/lisp/term/common-win.el | |
+++ b/lisp/term/common-win.el | |
@@ -73,6 +73,8 @@ | |
(cons (logior (lsh 0 16) 12) 'ns-new-frame) | |
(cons (logior (lsh 0 16) 13) 'ns-toggle-toolbar) | |
(cons (logior (lsh 0 16) 14) 'ns-show-prefs) | |
+ (cons (logior (lsh 0 16) 20) 'ns-check-spelling) | |
+ (cons (logior (lsh 0 16) 21) 'ns-spelling-change) |
NewerOlder