Prefer curved quotes in examples if users will typically see
curved quotes when the examples run.
Mention format-message when appropriate.
Don’t use @code in examples.
Quote an apostrophe with @kbd.
16 files changed:
@group
(defun type-of-animal (characteristic)
"Print message in echo area depending on CHARACTERISTIC.
@group
(defun type-of-animal (characteristic)
"Print message in echo area depending on CHARACTERISTIC.
-If the CHARACTERISTIC is the symbol `fierce',
+If the CHARACTERISTIC is the symbol ‘fierce’,
then warn of a tiger."
(if (equal characteristic 'fierce)
then warn of a tiger."
(if (equal characteristic 'fierce)
- (message "It's a tiger!")))
+ (message "It’s a tiger!")))
@end group
@end smallexample
@end group
@end smallexample
@c Following sentences rewritten to prevent overfull hbox.
@noindent
When you evaluate @code{(type-of-animal 'fierce)}, you will see the
@c Following sentences rewritten to prevent overfull hbox.
@noindent
When you evaluate @code{(type-of-animal 'fierce)}, you will see the
-following message printed in the echo area: @code{"It's a tiger!"}; and
+following message printed in the echo area: @code{"It’s a tiger!"}; and
when you evaluate @code{(type-of-animal 'zebra)} you will see @code{nil}
printed in the echo area.
when you evaluate @code{(type-of-animal 'zebra)} you will see @code{nil}
printed in the echo area.
@group
(defun type-of-animal (characteristic)
"Print message in echo area depending on CHARACTERISTIC.
@group
(defun type-of-animal (characteristic)
"Print message in echo area depending on CHARACTERISTIC.
-If the CHARACTERISTIC is the symbol `fierce',
+If the CHARACTERISTIC is the symbol ‘fierce’,
then warn of a tiger."
@var{body: the} @code{if} @var{expression})
@end group
then warn of a tiger."
@var{body: the} @code{if} @var{expression})
@end group
@smallexample
@group
(if (equal characteristic 'fierce)
@smallexample
@group
(if (equal characteristic 'fierce)
- (message "It's a tiger!")))
+ (message "It’s a tiger!")))
@end group
@end smallexample
@end group
@end smallexample
is equal to @code{fierce}, the expression, @code{(equal characteristic
'fierce)}, returns a value of true. When this happens, the @code{if}
evaluates the second argument or then-part of the @code{if}:
is equal to @code{fierce}, the expression, @code{(equal characteristic
'fierce)}, returns a value of true. When this happens, the @code{if}
evaluates the second argument or then-part of the @code{if}:
-@code{(message "It's tiger!")}.
+@code{(message "It’s a tiger!")}.
On the other hand, in the second exercise of @code{type-of-animal}, the
argument @code{zebra} is passed to @code{type-of-animal}. @code{zebra}
On the other hand, in the second exercise of @code{type-of-animal}, the
argument @code{zebra} is passed to @code{type-of-animal}. @code{zebra}
@group
(defun type-of-animal (characteristic) ; @r{Second version.}
"Print message in echo area depending on CHARACTERISTIC.
@group
(defun type-of-animal (characteristic) ; @r{Second version.}
"Print message in echo area depending on CHARACTERISTIC.
-If the CHARACTERISTIC is the symbol `fierce',
-then warn of a tiger;
-else say it's not fierce."
+If the CHARACTERISTIC is the symbol ‘fierce’,
+then warn of a tiger; else say it’s not fierce."
(if (equal characteristic 'fierce)
(if (equal characteristic 'fierce)
- (message "It's a tiger!")
- (message "It's not fierce!")))
+ (message "It’s a tiger!")
+ (message "It’s not fierce!")))
@end group
@end smallexample
@sp 1
@end group
@end smallexample
@sp 1
@c Following sentence rewritten to prevent overfull hbox.
@noindent
When you evaluate @code{(type-of-animal 'fierce)}, you will see the
@c Following sentence rewritten to prevent overfull hbox.
@noindent
When you evaluate @code{(type-of-animal 'fierce)}, you will see the
-following message printed in the echo area: @code{"It's a tiger!"}; but
+following message printed in the echo area: @code{"It’s a tiger!"}; but
when you evaluate @code{(type-of-animal 'zebra)}, you will see
when you evaluate @code{(type-of-animal 'zebra)}, you will see
-@code{"It's not fierce!"}.
+@code{"It’s not fierce!"}.
(Of course, if the @var{characteristic} were @code{ferocious}, the
(Of course, if the @var{characteristic} were @code{ferocious}, the
-message @code{"It's not fierce!"} would be printed; and it would be
+message @code{"It’s not fierce!"} would be printed; and it would be
misleading! When you write code, you need to take into account the
possibility that some such argument will be tested by the @code{if}
and write your program accordingly.)
misleading! When you write code, you need to take into account the
possibility that some such argument will be tested by the @code{if}
and write your program accordingly.)
from the true beginning.
@end group
@group
from the true beginning.
@end group
@group
-Don't use this in Lisp programs!
+Don’t use this in Lisp programs!
\(goto-char (point-min)) is faster
and does not set the mark."
(interactive "P")
\(goto-char (point-min)) is faster
and does not set the mark."
(interactive "P")
@smallexample
@group
(defun zap-to-char (arg char)
@smallexample
@group
(defun zap-to-char (arg char)
- "Kill up to and including ARG'th occurrence of CHAR.
-Case is ignored if `case-fold-search' is non-nil in the current buffer.
+ "Kill up to and including ARG’th occurrence of CHAR.
+Case is ignored if ‘case-fold-search’ is non-nil in the current buffer.
Goes backward if ARG is negative; error if CHAR not found."
(interactive "p\ncZap to char: ")
(if (char-table-p translation-table-for-input)
Goes backward if ARG is negative; error if CHAR not found."
(interactive "p\ncZap to char: ")
(if (char-table-p translation-table-for-input)
In Lisp code, optional third arg YANK-HANDLER, if non-nil,
specifies the yank-handler text property to be set on the killed
In Lisp code, optional third arg YANK-HANDLER, if non-nil,
specifies the yank-handler text property to be set on the killed
-text. See `insert-for-yank'."
+text. See ‘insert-for-yank’."
;; Pass point first, then mark, because the order matters
;; when calling kill-append.
(interactive (list (point) (mark)))
;; Pass point first, then mark, because the order matters
;; when calling kill-append.
(interactive (list (point) (mark)))
@smallexample
@group
(defun copy-region-as-kill (beg end)
@smallexample
@group
(defun copy-region-as-kill (beg end)
- "Save the region as if killed, but don't kill it.
+ "Save the region as if killed, but don’t kill it.
In Transient Mark mode, deactivate the mark.
In Transient Mark mode, deactivate the mark.
-If `interprogram-cut-function' is non-nil, also save the text for a window
+If ‘interprogram-cut-function’ is non-nil, also save the text for a window
system cut and paste."
(interactive "r")
@end group
system cut and paste."
(interactive "r")
@end group
@group
(defun kill-new (string &optional replace yank-handler)
"Make STRING the latest kill in the kill ring.
@group
(defun kill-new (string &optional replace yank-handler)
"Make STRING the latest kill in the kill ring.
-Set `kill-ring-yank-pointer' to point to it.
+Set ‘kill-ring-yank-pointer’ to point to it.
-If `interprogram-cut-function' is non-nil, apply it to STRING.
+If `interprogram-cut-function’ is non-nil, apply it to STRING.
Optional second argument REPLACE non-nil means that STRING will replace
the front of the kill ring, rather than being added to the list.
@dots{}"
Optional second argument REPLACE non-nil means that STRING will replace
the front of the kill ring, rather than being added to the list.
@dots{}"
@smallexample
@group
(defvar shell-command-default-error-buffer nil
@smallexample
@group
(defvar shell-command-default-error-buffer nil
- "*Buffer name for `shell-command' @dots{} error output.
+ "*Buffer name for ‘shell-command’ @dots{} error output.
@dots{} ")
@end group
@end smallexample
@dots{} ")
@end group
@end smallexample
(defun current-kill (n &optional do-not-move)
"Rotate the yanking point by N places, and then return that kill.
(defun current-kill (n &optional do-not-move)
"Rotate the yanking point by N places, and then return that kill.
-If N is zero, `interprogram-paste-function' is set, and calling it
+If N is zero, ‘interprogram-paste-function’ is set, and calling it
returns a string, then that string is added to the front of the
kill ring and returned as the latest kill.
returns a string, then that string is added to the front of the
kill ring and returned as the latest kill.
-If optional arg DO-NOT-MOVE is non-nil, then don't actually move the
+If optional arg DO-NOT-MOVE is non-nil, then don’t actually move the
yanking point; just return the Nth kill forward."
(let ((interprogram-paste (and (= n 0)
interprogram-paste-function
yanking point; just return the Nth kill forward."
(let ((interprogram-paste (and (= n 0)
interprogram-paste-function
@smallexample
@group
(defun triangle-using-dotimes (number-of-rows)
@smallexample
@group
(defun triangle-using-dotimes (number-of-rows)
- "Using dotimes, add up the number of pebbles in a triangle."
+ "Using ‘dotimes’, add up the number of pebbles in a triangle."
(let ((total 0)) ; otherwise a total is a void variable
(dotimes (number number-of-rows total)
(setq total (+ total (1+ number))))))
(let ((total 0)) ; otherwise a total is a void variable
(dotimes (number number-of-rows total)
(setq total (+ total (1+ number))))))
@group
(defun triangle-recursive-helper (sum counter number)
"Return SUM, using COUNTER, through NUMBER inclusive.
@group
(defun triangle-recursive-helper (sum counter number)
"Return SUM, using COUNTER, through NUMBER inclusive.
-This is the `helper' component of a two function duo
+This is the “helper” component of a two function duo
that uses recursion."
(if (> counter number)
sum
that uses recursion."
(if (> counter number)
sum
@smallexample
@group
(defun forward-sentence (&optional arg)
@smallexample
@group
(defun forward-sentence (&optional arg)
- "Move forward to next `sentence-end'. With argument, repeat.
-With negative argument, move backward repeatedly to `sentence-beginning'.
+ "Move forward to next ‘sentence-end’. With argument, repeat.
+With negative argument, move backward repeatedly to ‘sentence-beginning’.
-The variable `sentence-end' is a regular expression that matches ends of
+The variable ‘sentence-end’ is a regular expression that matches ends of
sentences. Also, every paragraph boundary terminates sentences as well."
@end group
@group
sentences. Also, every paragraph boundary terminates sentences as well."
@end group
@group
@group
(let* ((foo 7)
(bar (* 3 foo)))
@group
(let* ((foo 7)
(bar (* 3 foo)))
- (message "'bar' is %d." bar))
- @result{} 'bar' is 21.
+ (message "‘bar’ is %d." bar))
+ @result{} ‘bar’ is 21.
@end group
@end smallexample
@end group
@end smallexample
"Print number of words in the region.
Words are defined as at least one word-constituent
character followed by at least one character that
"Print number of words in the region.
Words are defined as at least one word-constituent
character followed by at least one character that
-is not a word-constituent. The buffer's syntax
+is not a word-constituent. The buffer’s syntax
table determines which characters these are."
(interactive "r")
(message "Counting words in region ... ")
table determines which characters these are."
(interactive "r")
(message "Counting words in region ... ")
(defun @value{COUNT-WORDS} (beginning end)
"Print number of words in the region.
Words are defined as at least one word-constituent character followed
(defun @value{COUNT-WORDS} (beginning end)
"Print number of words in the region.
Words are defined as at least one word-constituent character followed
-by at least one character that is not a word-constituent. The buffer's
+by at least one character that is not a word-constituent. The buffer’s
syntax table determines which characters these are."
@end group
@group
syntax table determines which characters these are."
@end group
@group
@smallexample
@group
(defun lengths-list-file (filename)
@smallexample
@group
(defun lengths-list-file (filename)
- "Return list of definitions' lengths within FILE.
+ "Return list of definitions’ lengths within FILE.
The returned list is a list of numbers.
Each number is the number of words or
symbols in one function definition."
@end group
@group
The returned list is a list of numbers.
Each number is the number of words or
symbols in one function definition."
@end group
@group
- (message "Working on '%s' ... " filename)
+ (message "Working on ‘%s’ ... " filename)
(save-excursion
(let ((buffer (find-file-noselect filename))
(lengths-list))
(save-excursion
(let ((buffer (find-file-noselect filename))
(lengths-list))
160 170 180 190 200
210 220 230 240 250
260 270 280 290 300)
160 170 180 190 200
210 220 230 240 250
260 270 280 290 300)
- "List specifying ranges for `defuns-per-range'.")
+ "List specifying ranges for ‘defuns-per-range’.")
@end group
@end smallexample
@end group
@end smallexample
@group
(defun load-library (library)
"Load the library named LIBRARY.
@group
(defun load-library (library)
"Load the library named LIBRARY.
-This is an interface to the function `load'."
+This is an interface to the function ‘load’."
(interactive
(list (completing-read "Load library: "
(apply-partially 'locate-file-completion-table
(interactive
(list (completing-read "Load library: "
(apply-partially 'locate-file-completion-table
@group
(defun current-kill (n &optional do-not-move)
"Rotate the yanking point by N places, and then return that kill.
@group
(defun current-kill (n &optional do-not-move)
"Rotate the yanking point by N places, and then return that kill.
-If N is zero, `interprogram-paste-function' is set, and calling it
+If N is zero, ‘interprogram-paste-function’ is set, and calling it
returns a string, then that string is added to the front of the
kill ring and returned as the latest kill.
@end group
@group
returns a string, then that string is added to the front of the
kill ring and returned as the latest kill.
@end group
@group
-If optional arg DO-NOT-MOVE is non-nil, then don't actually move the
+If optional arg DO-NOT-MOVE is non-nil, then don’t actually move the
yanking point; just return the Nth kill forward."
(let ((interprogram-paste (and (= n 0)
interprogram-paste-function
yanking point; just return the Nth kill forward."
(let ((interprogram-paste (and (= n 0)
interprogram-paste-function
recently killed stretch of killed text.
When this command inserts killed text into the buffer, it honors
recently killed stretch of killed text.
When this command inserts killed text into the buffer, it honors
-`yank-excluded-properties' and `yank-handler' as described in the
-doc string for `insert-for-yank-1', which see.
+‘yank-excluded-properties’ and ‘yank-handler’ as described in the
+doc string for ‘insert-for-yank-1’, which see.
See also the command \\[yank-pop]."
@end group
See also the command \\[yank-pop]."
@end group
@group
(defun Y-axis-element (number full-Y-label-width)
"Construct a NUMBERed label element.
@group
(defun Y-axis-element (number full-Y-label-width)
"Construct a NUMBERed label element.
-A numbered element looks like this ' 5 - ',
+A numbered element looks like this ‘ 5 - ’,
and is padded as needed so all line up with
the element for the largest number."
@end group
and is padded as needed so all line up with
the element for the largest number."
@end group
Height must be the maximum height of the graph.
Full width is the width of the highest label element."
;; Value of height and full-Y-label-width
Height must be the maximum height of the graph.
Full width is the width of the highest label element."
;; Value of height and full-Y-label-width
-;; are passed by 'print-graph'.
+;; are passed by ‘print-graph’.
@end group
@group
(let ((start (point)))
@end group
@group
(let ((start (point)))
@end group
@group
;; Value of symbol-width and full-Y-label-width
@end group
@group
;; Value of symbol-width and full-Y-label-width
-;; are passed by 'print-graph'.
+;; are passed by ‘print-graph’.
(let* ((leading-spaces
(make-string full-Y-label-width ? ))
;; symbol-width @r{is provided by} graph-body-print
(let* ((leading-spaces
(make-string full-Y-label-width ? ))
;; symbol-width @r{is provided by} graph-body-print
110 120 130 140 150
160 170 180 190 200
210 220 230 240 250)
110 120 130 140 150
160 170 180 190 200
210 220 230 240 250)
- "List specifying ranges for `defuns-per-range'.")
+ "List specifying ranges for ‘defuns-per-range’.")
@smallexample
@group
(defun lengths-list-file (filename)
@smallexample
@group
(defun lengths-list-file (filename)
- "Return list of definitions' lengths within FILE.
+ "Return list of definitions’ lengths within FILE.
The returned list is a list of numbers.
Each number is the number of words or
symbols in one function definition."
@end group
@group
The returned list is a list of numbers.
Each number is the number of words or
symbols in one function definition."
@end group
@group
- (message "Working on '%s' ... " filename)
+ (message "Working on ‘%s’ ... " filename)
(save-excursion
(let ((buffer (find-file-noselect filename))
(lengths-list))
(save-excursion
(let ((buffer (find-file-noselect filename))
(lengths-list))
@group
(defun Y-axis-element (number full-Y-label-width)
"Construct a NUMBERed label element.
@group
(defun Y-axis-element (number full-Y-label-width)
"Construct a NUMBERed label element.
-A numbered element looks like this ' 5 - ',
+A numbered element looks like this ‘ 5 - ’,
and is padded as needed so all line up with
the element for the largest number."
@end group
and is padded as needed so all line up with
the element for the largest number."
@end group
@end group
@group
;; Value of height and full-Y-label-width
@end group
@group
;; Value of height and full-Y-label-width
-;; are passed by 'print-graph'.
+;; are passed by ‘print-graph’.
(let ((start (point)))
(insert-rectangle
(Y-axis-column height full-Y-label-width vertical-step))
(let ((start (point)))
(insert-rectangle
(Y-axis-column height full-Y-label-width vertical-step))
@end group
@group
;; Value of symbol-width and full-Y-label-width
@end group
@group
;; Value of symbol-width and full-Y-label-width
-;; are passed by 'print-graph'.
+;; are passed by ‘print-graph’.
(let* ((leading-spaces
(make-string full-Y-label-width ? ))
;; symbol-width @r{is provided by} graph-body-print
(let* ((leading-spaces
(make-string full-Y-label-width ? ))
;; symbol-width @r{is provided by} graph-body-print
@example
(pcase (get-return-code x)
(`success (message "Done!"))
@example
(pcase (get-return-code x)
(`success (message "Done!"))
- (`would-block (message "Sorry, can't do it now"))
+ (`would-block (message "Sorry, can’t do it now"))
(`read-only (message "The shmliblick is read-only"))
(`access-denied (message "You do not have the needed rights"))
(code (message "Unknown return code %S" code)))
(`read-only (message "The shmliblick is read-only"))
(`access-denied (message "You do not have the needed rights"))
(code (message "Unknown return code %S" code)))
@end defun
@defun lwarn type level message &rest args
@end defun
@defun lwarn type level message &rest args
-This function reports a warning using the value of @code{(format
+This function reports a warning using the value of @code{(format-message
@var{message} @var{args}...)} as the message in the @file{*Warnings*}
buffer. In other respects it is equivalent to @code{display-warning}.
@end defun
@defun warn message &rest args
@var{message} @var{args}...)} as the message in the @file{*Warnings*}
buffer. In other respects it is equivalent to @code{display-warning}.
@end defun
@defun warn message &rest args
-This function reports a warning using the value of @code{(format
+This function reports a warning using the value of @code{(format-message
@var{message} @var{args}...)} as the message, @code{(emacs)} as the
type, and @code{:warning} as the severity level. It exists for
compatibility only; we recommend not using it, because you should
@var{message} @var{args}...)} as the message, @code{(emacs)} as the
type, and @code{:warning} as the severity level. It exists for
compatibility only; we recommend not using it, because you should
@example
(defadvice foo (around foo-around)
@example
(defadvice foo (around foo-around)
- "Ignore case in `foo'."
+ "Ignore case in ‘foo’."
(let ((case-fold-search t))
ad-do-it))
(ad-activate 'foo)
(let ((case-fold-search t))
ad-do-it))
(ad-activate 'foo)
@example
(defun foo--foo-around (orig-fun &rest args)
@example
(defun foo--foo-around (orig-fun &rest args)
- "Ignore case in `foo'."
+ "Ignore case in ‘foo’."
(let ((case-fold-search t))
(apply orig-fun args)))
(advice-add 'foo :around #'foo--foo-around)
(let ((case-fold-search t))
(apply orig-fun args)))
(advice-add 'foo :around #'foo--foo-around)
"Major mode for editing text written for humans to read.
In this mode, paragraphs are delimited only by blank or white lines.
You can thus get the full benefit of adaptive filling
"Major mode for editing text written for humans to read.
In this mode, paragraphs are delimited only by blank or white lines.
You can thus get the full benefit of adaptive filling
- (see the variable `adaptive-fill-mode').
+ (see the variable ‘adaptive-fill-mode’).
-Turning on Text mode runs the normal hook `text-mode-hook'."
+Turning on Text mode runs the normal hook ‘text-mode-hook’."
@end group
@group
(set (make-local-variable 'text-mode-variant) t)
@end group
@group
(set (make-local-variable 'text-mode-variant) t)
@dots{}
map)
"Keymap for ordinary Lisp mode.
@dots{}
map)
"Keymap for ordinary Lisp mode.
-All commands in `lisp-mode-shared-map' are inherited by this map.")
+All commands in ‘lisp-mode-shared-map’ are inherited by this map.")
@end group
@end smallexample
@end group
@end smallexample
Blank lines separate paragraphs. Semicolons start comments.
\\@{lisp-mode-map@}
Blank lines separate paragraphs. Semicolons start comments.
\\@{lisp-mode-map@}
-Note that `run-lisp' may be used either to start an inferior Lisp job
+Note that ‘run-lisp’ may be used either to start an inferior Lisp job
or to switch back to an existing one.
@end group
@group
or to switch back to an existing one.
@end group
@group
-Entry to this mode calls the value of `lisp-mode-hook'
+Entry to this mode calls the value of ‘lisp-mode-hook’
if that value is non-nil."
(lisp-mode-variables nil t)
(set (make-local-variable 'find-tag-default-function)
if that value is non-nil."
(lisp-mode-variables nil t)
(set (make-local-variable 'find-tag-default-function)
(defcustom msb-mode nil
"Toggle msb-mode.
Setting this variable directly does not take effect;
(defcustom msb-mode nil
"Toggle msb-mode.
Setting this variable directly does not take effect;
-use either \\[customize] or the function `msb-mode'."
+use either \\[customize] or the function ‘msb-mode’."
:set 'custom-set-minor-mode
:initialize 'custom-initialize-default
:version "20.4"
:set 'custom-set-minor-mode
:initialize 'custom-initialize-default
:version "20.4"
Interactively with no argument, this command toggles the mode.
A positive prefix argument enables the mode, any other prefix
argument disables it. From Lisp, argument omitted or nil enables
Interactively with no argument, this command toggles the mode.
A positive prefix argument enables the mode, any other prefix
argument disables it. From Lisp, argument omitted or nil enables
-the mode, `toggle' toggles the state.
+the mode, ‘toggle’ toggles the state.
When Hungry mode is enabled, the control delete key
gobbles all preceding whitespace except the last.
When Hungry mode is enabled, the control delete key
gobbles all preceding whitespace except the last.
@example
(defvar my-resume-timer nil
@example
(defvar my-resume-timer nil
- "Timer for `my-timer-function' to reschedule itself, or nil.")
+ "Timer for ‘my-timer-function’ to reschedule itself, or nil.")
(defun my-timer-function ()
;; @r{If the user types a command while @code{my-resume-timer}}
(defun my-timer-function ()
;; @r{If the user types a command while @code{my-resume-timer}}
-(format "The word '%7s' has %d letters in it."
+(format "The word ‘%7s’ has %d letters in it."
- @result{} "The word ' foo' has 3 letters in it."
-(format "The word '%7s' has %d letters in it."
+ @result{} "The word ‘ foo’ has 3 letters in it."
+(format "The word ‘%7s’ has %d letters in it."
"specification" (length "specification"))
"specification" (length "specification"))
- @result{} "The word 'specification' has 13 letters in it."
+ @result{} "The word ‘specification’ has 13 letters in it."
(format "%06d is padded on the left with zeros" 123)
@result{} "000123 is padded on the left with zeros"
(format "%06d is padded on the left with zeros" 123)
@result{} "000123 is padded on the left with zeros"
-(format "'%-6d' is padded on the right" 123)
- @result{} "'123 ' is padded on the right"
+(format "‘%-6d’ is padded on the right" 123)
+ @result{} "‘123 ’ is padded on the right"
-(format "The word '%-7s' actually has %d letters in it."
+(format "The word ‘%-7s’ actually has %d letters in it."
- @result{} "The word 'foo ' actually has 3 letters in it."
+ @result{} "The word ‘foo ’ actually has 3 letters in it."
@group
REVERSE (non-nil means reverse order),\
BEG and END (region to sort).
@group
REVERSE (non-nil means reverse order),\
BEG and END (region to sort).
-The variable `sort-fold-case' determines\
+The variable ‘sort-fold-case’ determines\
whether alphabetic case affects
the sort order."
@end group
whether alphabetic case affects
the sort order."
@end group
- "Return the root fcn for `default-directory'"
+ "Return the root fcn for ‘default-directory’"
;; You might be able to use 'ede-cpp-root-project-root'
;; and not write this at all.
)
(defun MY-LOAD (dir)
;; You might be able to use 'ede-cpp-root-project-root'
;; and not write this at all.
)
(defun MY-LOAD (dir)
- "Load a project of type `cpp-root' for the directory DIR.
-Return nil if there isn't one."
+ "Load a project of type ‘cpp-root’ for the directory DIR.
+Return nil if there isn’t one."
;; Use your preferred construction method here.
(ede-cpp-root-project "NAME" :file (expand-file-name "FILE" dir)
:locate-fcn 'MYFCN)
;; Use your preferred construction method here.
(ede-cpp-root-project "NAME" :file (expand-file-name "FILE" dir)
:locate-fcn 'MYFCN)
@lisp
(defun rmail-reply-t ()
@lisp
(defun rmail-reply-t ()
- "Reply only to the sender of the current message. (See rmail-reply.)"
+ "Reply only to the sender of the current message. (See ‘rmail-reply’.)"
(interactive)
(rmail-reply t))
(interactive)
(rmail-reply t))
nil
"Default parent class for classes with no specified parent class.
Its slots are automatically adopted by classes with no specified
nil
"Default parent class for classes with no specified parent class.
Its slots are automatically adopted by classes with no specified
-parents. This class is not stored in the `parent' slot of a class vector."
+parents. This class is not stored in the ‘parent’ slot of a class vector."
:abstract t)
@end example
:abstract t)
@end example
(setq message-user-fqdn fqdn)
(gnus-message 1 "Redefining `message-make-fqdn'.")
(defun message-make-fqdn ()
(setq message-user-fqdn fqdn)
(gnus-message 1 "Redefining `message-make-fqdn'.")
(defun message-make-fqdn ()
- "Return user's fully qualified domain name."
+ "Return user’s fully qualified domain name."
fqdn))))
@end example
@noindent
fqdn))))
@end example
@noindent
@example
(defun my-archive-article (&optional n)
@example
(defun my-archive-article (&optional n)
- "Copies one or more article(s) to a corresponding `nnml:' group, e.g.,
-`gnus.ding' goes to `nnml:1.gnus.ding'. And `nnml:List-gnus.ding' goes
-to `nnml:1.List-gnus-ding'.
+ "Copies one or more article(s) to a corresponding ‘nnml:’ group, e.g.,
+‘gnus.ding’ goes to ‘nnml:1.gnus.ding’. And ‘nnml:List-gnus.ding’ goes
+to ‘nnml:1.List-gnus-ding’.
Use process marks or mark a region in the summary buffer to archive
more then one article."
Use process marks or mark a region in the summary buffer to archive
more then one article."
@lisp
(defun gnus-decay-score (score)
@lisp
(defun gnus-decay-score (score)
- "Decay SCORE according to `gnus-score-decay-constant'
-and `gnus-score-decay-scale'."
+ "Decay SCORE according to ‘gnus-score-decay-constant’
+and ‘gnus-score-decay-scale’."
(let ((n (- score
(* (if (< score 0) -1 1)
(min (abs score)
(let ((n (- score
(* (if (< score 0) -1 1)
(min (abs score)
@lisp
(defun my-gnus-raze-spam ()
@lisp
(defun my-gnus-raze-spam ()
- "Submit SPAM to Vipul's Razor, then mark it as expirable."
+ "Submit SPAM to Vipul’s Razor, then mark it as expirable."
(interactive)
(gnus-summary-save-in-pipe "razor-report -f -d" t)
(gnus-summary-mark-as-expirable 1))
(interactive)
(gnus-summary-save-in-pipe "razor-report -f -d" t)
(gnus-summary-mark-as-expirable 1))
@smalllisp
@group
(defvar my-mh-screen-saved nil
@smalllisp
@group
(defvar my-mh-screen-saved nil
- "Set to non-@code{nil} when MH-E window configuration shown.")
+ "Set to non-nil when MH-E window configuration shown.")
(defvar my-normal-screen nil "Normal window configuration.")
(defvar my-mh-screen nil "MH-E window configuration.")
(defun my-mh-rmail (&optional arg)
"Toggle between MH-E and normal screen configurations.
(defvar my-normal-screen nil "Normal window configuration.")
(defvar my-mh-screen nil "MH-E window configuration.")
(defun my-mh-rmail (&optional arg)
"Toggle between MH-E and normal screen configurations.
-With non-@code{nil} or prefix argument, @i{inc} mailbox as well
+With non-nil or prefix argument, include mailbox as well
when going into mail."
(interactive "P") ; @r{user callable function, P=prefix arg}
(setq my-mh-screen-saved ; @r{save state}
when going into mail."
(interactive "P") ; @r{user callable function, P=prefix arg}
(setq my-mh-screen-saved ; @r{save state}
@smalllisp
@group
(defvar my-mh-init-done nil
@smalllisp
@group
(defvar my-mh-init-done nil
- "Non-@code{nil} when one-time MH-E settings made.")
+ "Non-nil when one-time MH-E settings made.")
(defun my-mh-folder-mode-hook ()
"Hook to set key bindings in MH-Folder mode."
(defun my-mh-folder-mode-hook ()
"Hook to set key bindings in MH-Folder mode."
"Reconnect the server process."
(interactive "i")
(unless process
"Reconnect the server process."
(interactive "i")
(unless process
- (error "There's no process for this target"))
+ (error "There’s no process for this target"))
(let* ((server (car (process-contact process)))
(port (process-contact process :service))
(nick (rcirc-nick process))
(let* ((server (car (process-contact process)))
(port (process-contact process :service))
(nick (rcirc-nick process))
formulas.
You can override the variable @code{ses--symbolic-formulas} to be a list of
formulas.
You can override the variable @code{ses--symbolic-formulas} to be a list of
-symbols (as parenthesized strings) to show as completions for the '
+symbols (as parenthesized strings) to show as completions for the @kbd{'}
command. This initial completions list is used instead of the actual
set of symbols-as-formulas in the spreadsheet.
command. This initial completions list is used instead of the actual
set of symbols-as-formulas in the spreadsheet.