diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cus-start.el | 11 | ||||
| -rw-r--r-- | lisp/display-fill-column-indicator.el | 8 | ||||
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 11 | ||||
| -rw-r--r-- | lisp/hi-lock.el | 20 | ||||
| -rw-r--r-- | lisp/menu-bar.el | 4 | ||||
| -rw-r--r-- | lisp/progmodes/vhdl-mode.el | 2 |
6 files changed, 39 insertions, 17 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index dff4d9a6060..6632687da47 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -771,9 +771,16 @@ since it could result in memory overflow and make Emacs crash." :safe (lambda (value) (or (booleanp value) (integerp value)))) (display-fill-column-indicator-character display-fill-column-indicator - character + (choice + (character :tag "Use U+2502 to indicate fill column" + :value ?│) + (character :tag "Use | to indicate fill column" + :value ?|) + (const :tag "If possible, use U+2502 to indicate fill column, otherwise use |" + :value nil) + character) "27.1" - :safe characterp) + :safe (lambda (value) (or (characterp value) (null value)))) ;; xfaces.c (scalable-fonts-allowed display boolean "22.1") ;; xfns.c diff --git a/lisp/display-fill-column-indicator.el b/lisp/display-fill-column-indicator.el index 25259aadf6b..3f947bdc1c9 100644 --- a/lisp/display-fill-column-indicator.el +++ b/lisp/display-fill-column-indicator.el @@ -31,7 +31,7 @@ ;; NOTE: Customization variables for ;; `display-fill-column-indicator-column' and -;; `display-fill-column-indicator-char' itself are defined in +;; `display-fill-column-indicator-character' itself are defined in ;; cus-start.el. ;;; Code: @@ -39,7 +39,8 @@ (defgroup display-fill-column-indicator nil "Display a fill column indicator in the buffer." :group 'convenience - :group 'display) + :group 'display + :link '(info-link "(emacs)Displaying Boundaries")) ;;;###autoload @@ -49,7 +50,8 @@ This uses `display-fill-column-indicator' internally. To change the position of the column displayed by default customize `display-fill-column-indicator-column'. You can change the -character for the indicator setting `display-fill-column-indicator-character'." +character for the indicator setting `display-fill-column-indicator-character'. +See Info node `Displaying Boundaries' for details." :lighter nil (if display-fill-column-indicator-mode (progn diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index fa769adb061..88e21b73fed 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -536,11 +536,12 @@ wrong number of parameters, say (zot 1 2)) The warnings that can be suppressed are a subset of the warnings -in `byte-compile-warning-types'; see this variable for a fuller -explanation of the warning types. The types that can be -suppressed with this macro are `free-vars', `callargs', -`redefine', `obsolete', `interactive-only', `lexical', `mapcar', -`constants' and `suspicious'. +in `byte-compile-warning-types'; see the variable +`byte-compile-warnings' for a fuller explanation of the warning +types. The types that can be suppressed with this macro are +`free-vars', `callargs', `redefine', `obsolete', +`interactive-only', `lexical', `mapcar', `constants' and +`suspicious'. For the `mapcar' case, only the `mapcar' function can be used in the symbol list. For `suspicious', only `set-buffer' can be used." diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 08d82173e41..a18310322ad 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -322,7 +322,10 @@ or add (global-hi-lock-mode 1) to your init file. In buffers where Font Lock mode is enabled, patterns are highlighted using font lock. In buffers where Font Lock mode is disabled, patterns are applied using overlays; in this case, the -highlighting will not be updated as you type. +highlighting will not be updated as you type. The Font Lock mode +is considered \"enabled\" in a buffer if its `major-mode' +causes `font-lock-specified-p' to return non-nil, which means +the major mode specifies support for Font Lock. When Hi Lock mode is enabled, a \"Regexp Highlighting\" submenu is added to the \"Edit\" menu. The commands in the submenu, @@ -480,7 +483,10 @@ and `search-upper-case' is non-nil, the matching is case-sensitive. Use Font lock mode, if enabled, to highlight REGEXP. Otherwise, use overlays for highlighting. If overlays are used, the -highlighting will not update as you type." +highlighting will not update as you type. The Font Lock mode +is considered \"enabled\" in a buffer if its `major-mode' +causes `font-lock-specified-p' to return non-nil, which means +the major mode specifies support for Font Lock." (interactive (list (hi-lock-regexp-okay @@ -510,7 +516,10 @@ Also set `search-spaces-regexp' to the value of `search-whitespace-regexp'. Use Font lock mode, if enabled, to highlight REGEXP. Otherwise, use overlays for highlighting. If overlays are used, the -highlighting will not update as you type." +highlighting will not update as you type. The Font Lock mode +is considered \"enabled\" in a buffer if its `major-mode' +causes `font-lock-specified-p' to return non-nil, which means +the major mode specifies support for Font Lock." (interactive (list (hi-lock-regexp-okay @@ -538,7 +547,10 @@ If REGEXP contains upper case characters (excluding those preceded by `\\') and `search-upper-case' is non-nil, the matching is case-sensitive. This uses Font lock mode if it is enabled; otherwise it uses overlays, -in which case the highlighting will not update as you type." +in which case the highlighting will not update as you type. The Font +Lock mode is considered \"enabled\" in a buffer if its `major-mode' +causes `font-lock-specified-p' to return non-nil, which means +the major mode specifies support for Font Lock." (interactive) (let* ((regexp (hi-lock-regexp-okay (find-tag-default-as-symbol-regexp))) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 731da193ef1..9bc667acd61 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -1085,10 +1085,10 @@ The selected font will be the default on both the existing and future frames." :visible (display-graphic-p) :button (:radio . (and tool-bar-mode - (frame-parameter + (eq (frame-parameter (menu-bar-frame-for-menubar) 'tool-bar-position) - 'left)))) + 'left))))) (bindings--define-key menu [showhide-tool-bar-right] '(menu-item "On the Right" diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index 22c61586266..9cd84cf713b 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -14730,7 +14730,7 @@ if required." (speedbar-add-mode-functions-list '("vhdl directory" (speedbar-item-info . vhdl-speedbar-item-info) - (speedbar-line-directory . speedbar-files-line-path))) + (speedbar-line-directory . speedbar-files-line-directory))) (speedbar-add-mode-functions-list '("vhdl project" (speedbar-item-info . vhdl-speedbar-item-info) |