diff options
| -rw-r--r-- | doc/lispref/help.texi | 4 | ||||
| -rw-r--r-- | etc/NEWS | 6 | ||||
| -rw-r--r-- | lisp/calendar/todo-mode.el | 16 | ||||
| -rw-r--r-- | lisp/rect.el | 8 | ||||
| -rw-r--r-- | lisp/vc/vc-git.el | 2 |
5 files changed, 21 insertions, 15 deletions
diff --git a/doc/lispref/help.texi b/doc/lispref/help.texi index 0b8182c521a..58a11f29a4c 100644 --- a/doc/lispref/help.texi +++ b/doc/lispref/help.texi @@ -362,6 +362,10 @@ this'} with grave accent and apostrophe, the standard style before Emacs version 25. The default value @code{nil} acts like @code{curve} if curved single quotes are displayable, and like @code{grave} otherwise. + +This variable can be used by experts on platforms that have problems +with curved quotes. As it is not intended for casual use, it is not a +user option. @end defvar @defun substitute-command-keys string @@ -1913,7 +1913,8 @@ Set it to 'curve' for curved single quotes, to 'straight' for straight apostrophes, and to 'grave' for grave accent and apostrophe. The default value nil acts like 'curve' if curved single quotes are displayable, and like 'grave' otherwise. The new variable affects -display of diagnostics and help, but not of info. +display of diagnostics and help, but not of info. As the variable is +not intended for casual use, it is not a user option. +++ ** substitute-command-keys now replaces quotes. @@ -2467,6 +2468,9 @@ emoji) display is disabled. This feature was accidentally added when Emacs 24.4 included the new Core Text based font backend code that was originally implemented for a non-mainline port. This will be enabled again once it is also implemented in Emacs on free operating systems. +If some symbols, such as emoji, do not display, we suggest to install +an appropriate font, such as Symbola; then they will be displayed, +albeit without the color effects. --- ** The new function 'w32-application-type' returns the type of an diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index 9574c03043e..0529e970333 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -612,11 +612,12 @@ Otherwise, `todo-show' always visits `todo-default-todo-file'." (defun todo-show (&optional solicit-file interactive) "Visit a todo file and display one of its categories. -When invoked in Todo mode, prompt for which todo file to visit. -When invoked outside of Todo mode with non-nil prefix argument -SOLICIT-FILE prompt for which todo file to visit; otherwise visit -`todo-default-todo-file'. Subsequent invocations from outside -of Todo mode revisit this file or, with option +When invoked in Todo mode, Todo Archive mode or Todo Filtered +Items mode, or when invoked anywhere else with a prefix argument, +prompt for which todo file to visit. When invoked outside of a +Todo mode buffer without a prefix argument, visit +`todo-default-todo-file'. Subsequent invocations from outside of +Todo mode revisit this file or, with option `todo-show-current-file' non-nil (the default), whichever todo file was last visited. @@ -643,10 +644,7 @@ In Todo mode just the category's unfinished todo items are shown by default. The done items are hidden, but typing `\\[todo-toggle-view-done-items]' displays them below the todo items. With non-nil user option `todo-show-with-done' both todo -and done items are always shown on visiting a category. - -Invoking this command in Todo Archive mode visits the -corresponding todo file, displaying the corresponding category." +and done items are always shown on visiting a category." (interactive "P\np") (when todo-default-todo-file (todo-check-file (todo-absolute-file-name todo-default-todo-file))) diff --git a/lisp/rect.el b/lisp/rect.el index 53fe46772b2..8803a47215f 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -788,7 +788,7 @@ Ignores `line-move-visual'." (if (not old) (let ((ol (make-overlay left right))) (overlay-put ol 'window window) - (overlay-put ol 'face 'rectangle-preview) + (overlay-put ol 'face 'region) ol) (let ((ol (pop old))) (move-overlay ol left right (current-buffer)) @@ -820,7 +820,7 @@ Ignores `line-move-visual'." (overlay-put ol 'after-string nil))) ((< mright rightcol) ;`rightcol' is past EOL. (let ((str (rectangle--space-to rightcol))) - (put-text-property 0 (length str) 'face 'rectangle-preview str) + (put-text-property 0 (length str) 'face 'region str) ;; If cursor happens to be here, draw it at the right place. (rectangle--place-cursor leftcol left str) (overlay-put ol 'after-string str))) @@ -832,7 +832,7 @@ Ignores `line-move-visual'." (overlay-put ol 'after-string nil) (goto-char right) (let ((str (rectangle--space-to rightcol))) - (put-text-property 0 (length str) 'face 'rectangle-preview str) + (put-text-property 0 (length str) 'face 'region str) (when (= left right) (rectangle--place-cursor leftcol left str)) (overlay-put ol 'after-string str)))) @@ -842,7 +842,7 @@ Ignores `line-move-visual'." ;; Make zero-width rectangles visible! (overlay-put ol 'after-string (concat (propertize " " - 'face '(rectangle-preview (:height 0.2))) + 'face '(region (:height 0.2))) (overlay-get ol 'after-string)))) (push ol nrol))) start end)) diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index 8568a94bbdb..16cbeef57ea 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -278,7 +278,7 @@ Should be consistent with the Git config value i18n.logOutputEncoding." (defun vc-git-mode-line-string (file) "Return a string for `vc-mode-line' to put in the mode line for FILE." - (let* ((rev (vc-working-revision file)) + (let* ((rev (vc-working-revision file 'Git)) (disp-rev (or (vc-git--symbolic-ref file) (substring rev 0 7))) (def-ml (vc-default-mode-line-string 'Git file)) |