aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorStefan Kangas2019-05-30 13:05:46 +0200
committerEli Zaretskii2019-06-09 10:08:33 +0300
commitb7e26952f0f6ee3061b9bb855e36dee8e1ea6bf4 (patch)
tree5cd92b0dc57745a6ef921621037719d5249ba3ba /lisp
parent8c4d114ee200081b0722aa9e008ed2ccbc2ca8dc (diff)
downloademacs-b7e26952f0f6ee3061b9bb855e36dee8e1ea6bf4.tar.gz
emacs-b7e26952f0f6ee3061b9bb855e36dee8e1ea6bf4.zip
Fix TODO to convert defvar with leading '*' to defcustom
* etc/TODO: Remove done TODO to remove '*' from defvar. * doc/misc/gnus.texi: Remove leading '*' from defvar example. * lisp/kermit.el (kermit-esc-char): Convert to defcustom. * lisp/desktop.el (desktop-header): * lisp/obsolete/cc-compat.el (c-indent-level) (c-brace-imaginary-offset, c-brace-offset, c-argdecl-indent) (c-label-offset, c-continued-statement-offset) (c-continued-brace-offset): Remove leading '*' from docstring. * lisp/progmodes/dcl-mode.el: Remove leading '*' from docstring in comment. * test/manual/cedet/tests/test.el: Add comment asking if example of defvar with leading '*' should be removed. (Bug#35994) (The previous commit is also for the same bug.)
Diffstat (limited to 'lisp')
-rw-r--r--lisp/desktop.el2
-rw-r--r--lisp/kermit.el8
-rw-r--r--lisp/obsolete/cc-compat.el14
-rw-r--r--lisp/progmodes/dcl-mode.el2
4 files changed, 16 insertions, 10 deletions
diff --git a/lisp/desktop.el b/lisp/desktop.el
index 33d7643d1b7..59610a128a3 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -616,7 +616,7 @@ DIRNAME omitted or nil means use `desktop-dirname'."
616";; -------------------------------------------------------------------------- 616";; --------------------------------------------------------------------------
617;; Desktop File for Emacs 617;; Desktop File for Emacs
618;; -------------------------------------------------------------------------- 618;; --------------------------------------------------------------------------
619" "*Header to place in Desktop file.") 619" "Header to place in Desktop file.")
620 620
621(defvar desktop-delay-hook nil 621(defvar desktop-delay-hook nil
622 "Hooks run after all buffers are loaded; intended for internal use.") 622 "Hooks run after all buffers are loaded; intended for internal use.")
diff --git a/lisp/kermit.el b/lisp/kermit.el
index f6ed1fbda1c..ec5d91749c4 100644
--- a/lisp/kermit.el
+++ b/lisp/kermit.el
@@ -77,7 +77,13 @@
77 77
78(require 'shell) 78(require 'shell)
79 79
80(defvar kermit-esc-char "\C-\\" "*Kermit's escape char.") 80(defgroup kermit nil
81 "Kermit support."
82 :group 'comm)
83
84(defcustom kermit-esc-char "\C-\\"
85 "Kermit's escape char."
86 :type 'string)
81 87
82(defun kermit-esc () 88(defun kermit-esc ()
83 "For sending escape sequences to a kermit running in shell mode." 89 "For sending escape sequences to a kermit running in shell mode."
diff --git a/lisp/obsolete/cc-compat.el b/lisp/obsolete/cc-compat.el
index bbacd121135..8e9d9e72625 100644
--- a/lisp/obsolete/cc-compat.el
+++ b/lisp/obsolete/cc-compat.el
@@ -59,21 +59,21 @@
59 59
60;; In case c-mode.el isn't loaded 60;; In case c-mode.el isn't loaded
61(defvar c-indent-level 2 61(defvar c-indent-level 2
62 "*Indentation of C statements with respect to containing block.") 62 "Indentation of C statements with respect to containing block.")
63;;;###autoload(put 'c-indent-level 'safe-local-variable 'integerp) 63;;;###autoload(put 'c-indent-level 'safe-local-variable 'integerp)
64 64
65(defvar c-brace-imaginary-offset 0 65(defvar c-brace-imaginary-offset 0
66 "*Imagined indentation of a C open brace that actually follows a statement.") 66 "Imagined indentation of a C open brace that actually follows a statement.")
67(defvar c-brace-offset 0 67(defvar c-brace-offset 0
68 "*Extra indentation for braces, compared with other text in same context.") 68 "Extra indentation for braces, compared with other text in same context.")
69(defvar c-argdecl-indent 5 69(defvar c-argdecl-indent 5
70 "*Indentation level of declarations of C function arguments.") 70 "Indentation level of declarations of C function arguments.")
71(defvar c-label-offset -2 71(defvar c-label-offset -2
72 "*Offset of C label lines and case statements relative to usual indentation.") 72 "Offset of C label lines and case statements relative to usual indentation.")
73(defvar c-continued-statement-offset 2 73(defvar c-continued-statement-offset 2
74 "*Extra indent for lines not starting new statements.") 74 "Extra indent for lines not starting new statements.")
75(defvar c-continued-brace-offset 0 75(defvar c-continued-brace-offset 0
76 "*Extra indent for substatements that start with open-braces. 76 "Extra indent for substatements that start with open-braces.
77This is in addition to c-continued-statement-offset.") 77This is in addition to c-continued-statement-offset.")
78 78
79 79
diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el
index d5803c77bb4..864074fe191 100644
--- a/lisp/progmodes/dcl-mode.el
+++ b/lisp/progmodes/dcl-mode.el
@@ -459,7 +459,7 @@ Preloaded with all known option names from dcl-option-alist")
459; ("GOSUB" (, (concat dcl-cmd-r 459; ("GOSUB" (, (concat dcl-cmd-r
460; "GOSUB[ \t]+\\([A-Za-z0-9_$]+\\)")) 5) 460; "GOSUB[ \t]+\\([A-Za-z0-9_$]+\\)")) 5)
461; ("CALL" (, (concat dcl-cmd-r "CALL[ \t]+\\([A-Za-z0-9_$]+\\)")) 5))) 461; ("CALL" (, (concat dcl-cmd-r "CALL[ \t]+\\([A-Za-z0-9_$]+\\)")) 5)))
462; "*Default imenu generic expression for DCL. 462; "Default imenu generic expression for DCL.
463 463
464;The default includes SUBROUTINE labels in the main listing and 464;The default includes SUBROUTINE labels in the main listing and
465;sub-listings for other labels, CALL, GOTO and GOSUB statements. 465;sub-listings for other labels, CALL, GOTO and GOSUB statements.