aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/simple.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/simple.el')
-rw-r--r--lisp/simple.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index c967559553e..fc6d2a502ac 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1,8 +1,7 @@
1;;; simple.el --- basic editing commands for Emacs 1;;; simple.el --- basic editing commands for Emacs
2 2
3;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 3;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4;; 2000, 2001, 2002, 2003, 2004, 2005 4;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
5;; Free Software Foundation, Inc.
6 5
7;; Maintainer: FSF 6;; Maintainer: FSF
8;; Keywords: internal 7;; Keywords: internal
@@ -309,7 +308,7 @@ select the source buffer."
309When turned on, cursor motion in the compilation, grep, occur or diff 308When turned on, cursor motion in the compilation, grep, occur or diff
310buffer causes automatic display of the corresponding source code 309buffer causes automatic display of the corresponding source code
311location." 310location."
312 :group 'next-error :init-value " Fol" 311 :group 'next-error :init-value nil :lighter " Fol"
313 (if (not next-error-follow-minor-mode) 312 (if (not next-error-follow-minor-mode)
314 (remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t) 313 (remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t)
315 (add-hook 'post-command-hook 'next-error-follow-mode-post-command-hook nil t) 314 (add-hook 'post-command-hook 'next-error-follow-mode-post-command-hook nil t)
@@ -3241,8 +3240,8 @@ as a fallback, and won't change the buffer bounds.")
3241 (or (and (>= position (point-min)) 3240 (or (and (>= position (point-min))
3242 (<= position (point-max))) 3241 (<= position (point-max)))
3243 (if widen-automatically 3242 (if widen-automatically
3244 (error "Global mark position is outside accessible part of buffer") 3243 (widen)
3245 (widen))) 3244 (error "Global mark position is outside accessible part of buffer")))
3246 (goto-char position) 3245 (goto-char position)
3247 (switch-to-buffer buffer))) 3246 (switch-to-buffer buffer)))
3248 3247