🚀 go-pugleaf

> loop yelling about no mark in this buffer. I have not found a way out of

I do not know about who ic complaining, but an old emacs fix I have will
put a mark in all buffers, which should eliminate the symptom if not the
problem.

;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Emacs-Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;
;; mark.el -- Makes all buffers have a mark
;; 
;; AFSID           : $__Header$
;; Author          : Lynn Slater x2048
;; Created On      : Tue Jan 22 18:39:38 1991
;; Last Modified By: Lynn Slater x2048
;; Last Modified On: Tue Feb 12 14:09:51 1991
;; Update Count    : 2
;; Status          : Unknown, Use with caution!
;; 
;; PURPOSE
;;   The interactive function barfs on "\nr" if the region is not set
;;   yet.  I consider this to be a defect in emacs because
;;    1. There is not a "safe" alternative to \nr
;;    2. As a user, I always think that I have a region
;;    3. As a developer, I cannot write functions that use the region in
;;    some cases and not in others.  The scribe-comment command above
;;    does not use the region unless there is an argu<ement, but you
;;    cannot call the function immediately after finding a file because
;;    the region is not set, even if you were using the regionless operation.
;;    Perhaps I can get around this by adopting a convention that
;;    all functions that use the region must use it all the time and
;;    must be called by functions that check for the region. (Note that
;;    there is no function that can check for the region without also
;;    generating a disturbing message to the user in case of error.)
;;  
;;    The solution is to be sure that there is always a region!
;;    This should go into the filesys stuff, but for now, I shall
;;    do it using a provided hook.  Hopefully the scribe mode stuff is
;;    loaded before the hook is checked.
;; TABLE OF CONTENTS
;; HISTORY
;; 22-Jan-1991		Lynn Slater x2048	
;;    documented better
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defun push-mark-quietly (&optional location message)
  "An arguementless version of push mark that generates no message by default."
  (push-mark location (not message)))

(if (not (memq 'push-mark-quietly find-file-hooks))
    (setq find-file-hooks (cons 'push-mark-quietly find-file-hooks)))