(non-essential): New var.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9e8ea511e654eb20d6da3c3547271551b19f71a..f2330b0763ccadbc6e67e2b7f0e11dd04afb43e1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-04-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * simple.el (non-essential): New var.
+
        Add a new field `location' to bookmarks for non-file bookmarks.
        * bookmark.el (bookmark-location): Use the new field, if present.
        (bookmark-insert-location): Undo last change, not needed any more.

diff --git a/lisp/simple.el b/lisp/simple.el
index 34e31b102762ab7870ddb720931da237a1fd07cc..d071c76e2b18c3c869836625c9448d1a4b03facc 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3940,6 +3940,14 @@ the current accessible part of the buffer.
 If `widen-automatically' is nil, these commands will do something else
 as a fallback, and won't change the buffer bounds.")
 
+(defvar non-essential nil
+  "Whether the currently executing code is performing an essential task.
+This variable should be non-nil only when running code which should not
+disturb the user.  E.g. it can be used to prevent Tramp from prompting the
+user for a password when we are simply scanning a set of files in the
+background or displaying possible completions before the user even asked
+for it.")
+
 (defun pop-global-mark ()
   "Pop off global mark ring and jump to the top location."
   (interactive)