aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/auto-show.el9
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/auto-show.el b/lisp/auto-show.el
index 2cae3c334e0..65e2962aa7a 100644
--- a/lisp/auto-show.el
+++ b/lisp/auto-show.el
@@ -42,7 +42,8 @@
42The default value is t. To change the default, do this: 42The default value is t. To change the default, do this:
43 (set-default 'auto-show-mode nil) 43 (set-default 'auto-show-mode nil)
44See also command `auto-show-mode'. 44See also command `auto-show-mode'.
45This variable has no effect when lines are not being truncated.") 45This variable has no effect when lines are not being truncated.
46This variable is automatically local in each buffer where it is set.")
46 47
47(make-variable-buffer-local 'auto-show-mode) 48(make-variable-buffer-local 'auto-show-mode)
48 49
@@ -63,7 +64,9 @@ visible. Setting this to 0 disables this feature.")
63;;;###autoload 64;;;###autoload
64(defun auto-show-mode (arg) 65(defun auto-show-mode (arg)
65 "Turn automatic horizontal scroll mode on or off. 66 "Turn automatic horizontal scroll mode on or off.
66With arg, turn auto scrolling on if arg is positive, off otherwise." 67With arg, turn auto scrolling on if arg is positive, off otherwise.
68This mode is enabled or disabled for each buffer individually.
69It takes effect only when `truncate-lines' is non-nil."
67 (interactive "P") 70 (interactive "P")
68 (setq auto-show-mode 71 (setq auto-show-mode
69 (if (null arg) 72 (if (null arg)
@@ -74,7 +77,7 @@ With arg, turn auto scrolling on if arg is positive, off otherwise."
74 "Scroll horizontally to make point visible, if that is enabled. 77 "Scroll horizontally to make point visible, if that is enabled.
75This function only does something if `auto-show-mode' is non-nil 78This function only does something if `auto-show-mode' is non-nil
76and longlines are being truncated in the selected window. 79and longlines are being truncated in the selected window.
77See also the command `auto-show-toggle'." 80See also the command `auto-show-mode'."
78 (interactive) 81 (interactive)
79 (if (and auto-show-mode (auto-show-truncationp) 82 (if (and auto-show-mode (auto-show-truncationp)
80 (equal (window-buffer) (current-buffer))) 83 (equal (window-buffer) (current-buffer)))