lawlist

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)

lawlist

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)

lawlist

(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))))

lawlist

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.

lawlist

This gist has been superseded by the following repository:

https://github.com/lawlist/buffer-menu

lawlist

(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

lawlist

(require 'dired)

(defun qlmanage-return-focus-to-emacs ()
"Doc-string."
  (let* ((filename (dired-get-file-for-visit))
         (emacs-executable (concat invocation-directory "Emacs"))
         (emacs-script (concat "tell application \"" emacs-executable "\" to activate")))
      (set-process-sentinel
        (start-process "qlmanage" nil "/usr/bin/qlmanage" "-p" filename)
        `(lambda (p e) (when (= 0 (process-exit-status p))

lawlist

/* *************************************************************************** */
/* BEGIN Feature Request # 16475:  Automatically add/remove scroll bars. */

 finish_scroll_bars:
  ;

  //  ptrdiff_t bob_disregard_narrow = BUF_BEG (buffer);
  ptrdiff_t eob_disregard_narrow = BUF_Z (buffer);

  ptrdiff_t bob_respect_narrow = BUF_BEGV (buffer);

lawlist

 make -C src emacs
make: Entering directory `/c/docume~1/admini~1/desktop/emacs/src'
  GEN      lisp.mk
make: Leaving directory `/c/docume~1/admini~1/desktop/emacs/src'
make: Entering directory `/c/docume~1/admini~1/desktop/emacs/src'
make -C ../lib/ all
make[1]: Entering directory `/c/docume~1/admini~1/desktop/emacs/lib'
  GEN      alloca.h
  GEN      byteswap.h
  GEN      errno.h

lawlist

Feature request 18283 was previously added to Emacs 25 and the master branch in
conjunction with feature request 21415.  In a nutshell, it is now possible to act
upon Emacs (to some degree) using an applescript.

CAVEAT:  Feature request 18283 was implemented primarily to facilitate debugging,
and not to control Emacs per se using applescripts.

(defun get-bounds ()
"Return the bounds of the selected frame."
  (let* ((script (concat "tell front window of application \"Emacs\"\n"