diff options
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 9 |
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." | |||
| 309 | When turned on, cursor motion in the compilation, grep, occur or diff | 308 | When turned on, cursor motion in the compilation, grep, occur or diff |
| 310 | buffer causes automatic display of the corresponding source code | 309 | buffer causes automatic display of the corresponding source code |
| 311 | location." | 310 | location." |
| 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 | ||