procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Escape ` and ' in doc

Browse source 
Escape apostrophes and grave accents in docstrings if they are
are supposed to stand for themselves and are not quotes.  Remove
apostrophes from docstring examples like ‘'(calendar-nth-named-day
-1 0 10 year)’ that confuse source code with data.  Do some other
minor docstring fixups as well, e.g., insert a missing close
quote.
This commit is contained in:
Paul Eggert 2015-09-01 18:21:42 -07:00
parent 5dc644a6b0
commit 19532d147b
43 changed files with 127 additions and 128 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/calculator.el
View file

@ -191,7 +191,7 @@ Each element in this list is a list of a character and a number that
will be stored in that character's register. will be stored in that character's register.
For example, use this to define the golden ratio number: For example, use this to define the golden ratio number:
(setq calculator-user-registers '((?g . 1.61803398875))) (setq calculator-user-registers \\='((?g . 1.61803398875)))
before you load calculator." before you load calculator."
:type '(repeat (cons character number)) :type '(repeat (cons character number))
:set (lambda (_ val) :set (lambda (_ val)
@ -214,7 +214,7 @@ Examples:
t as a prefix key: t as a prefix key:
(setq calculator-user-operators (setq calculator-user-operators
'((\"tf\" cl-to-fr (+ 32 (/ (* X 9) 5)) 1) \\='((\"tf\" cl-to-fr (+ 32 (/ (* X 9) 5)) 1)
(\"tc\" fr-to-cl (/ (* (- X 32) 5) 9) 1) (\"tc\" fr-to-cl (/ (* (- X 32) 5) 9) 1)
(\"tp\" kg-to-lb (/ X 0.453592) 1) (\"tp\" kg-to-lb (/ X 0.453592) 1)
(\"tk\" lb-to-kg (* X 0.453592) 1) (\"tk\" lb-to-kg (* X 0.453592) 1)
@ -226,8 +226,8 @@ Examples:
version of `X' and `F' for a recursive call. Here is a [very version of `X' and `F' for a recursive call. Here is a [very
inefficient] Fibonacci number calculation: inefficient] Fibonacci number calculation:
(add-to-list 'calculator-user-operators (add-to-list \\='calculator-user-operators
'(\"F\" fib \\='(\"F\" fib
(if (<= TX 1) 1 (+ (F (- TX 1)) (F (- TX 2)))))) (if (<= TX 1) 1 (+ (F (- TX 1)) (F (- TX 2))))))
Note that this will be either postfix or prefix, according to Note that this will be either postfix or prefix, according to

2
lisp/calendar/cal-dst.el
View file

@ -82,7 +82,7 @@ list and for correcting times of day in the solar and lunar calculations.
For example, if daylight saving time ends on the last Sunday in October: For example, if daylight saving time ends on the last Sunday in October:
'(calendar-nth-named-day -1 0 10 year) (calendar-nth-named-day -1 0 10 year)
If the locale never uses daylight saving time, set this to nil." If the locale never uses daylight saving time, set this to nil."
:type 'sexp :type 'sexp

4
lisp/calendar/calendar.el
View file

@ -550,12 +550,12 @@ For example, to display the ISO week numbers:
(setq calendar-week-start-day 1 (setq calendar-week-start-day 1
calendar-intermonth-text calendar-intermonth-text
'(propertize \\='(propertize
(format \"%2d\" (format \"%2d\"
(car (car
(calendar-iso-from-absolute (calendar-iso-from-absolute
(calendar-absolute-from-gregorian (list month day year))))) (calendar-absolute-from-gregorian (list month day year)))))
'font-lock-face 'font-lock-function-name-face)) \\='font-lock-face \\='font-lock-function-name-face))
See also `calendar-intermonth-header'." See also `calendar-intermonth-header'."
:group 'calendar :group 'calendar

4
lisp/cedet/semantic/idle.el
View file

@ -716,8 +716,8 @@ It might be useful to override this variable to add comment faces
specific to a major mode. For example, in jde mode: specific to a major mode. For example, in jde mode:
\(defvar-mode-local jde-mode semantic-idle-summary-out-of-context-faces \(defvar-mode-local jde-mode semantic-idle-summary-out-of-context-faces
(append (default-value 'semantic-idle-summary-out-of-context-faces) (append (default-value \\='semantic-idle-summary-out-of-context-faces)
'(jde-java-font-lock-doc-tag-face \\='(jde-java-font-lock-doc-tag-face
jde-java-font-lock-link-face jde-java-font-lock-link-face
jde-java-font-lock-bold-face jde-java-font-lock-bold-face
jde-java-font-lock-underline-face jde-java-font-lock-underline-face

4
lisp/cus-edit.el
View file

@ -1189,8 +1189,8 @@ and `defface'.
For example, the MH-E package updates this alist as follows: For example, the MH-E package updates this alist as follows:
(add-to-list 'customize-package-emacs-version-alist (add-to-list \\='customize-package-emacs-version-alist
'(MH-E (\"6.0\" . \"22.1\") (\"6.1\" . \"22.1\") \\='(MH-E (\"6.0\" . \"22.1\") (\"6.1\" . \"22.1\")
(\"7.0\" . \"22.1\") (\"7.1\" . \"22.1\") (\"7.0\" . \"22.1\") (\"7.1\" . \"22.1\")
(\"7.2\" . \"22.1\") (\"7.3\" . \"22.1\") (\"7.2\" . \"22.1\") (\"7.3\" . \"22.1\")
(\"7.4\" . \"22.1\") (\"8.0\" . \"22.1\"))) (\"7.4\" . \"22.1\") (\"8.0\" . \"22.1\")))

2
lisp/emacs-lisp/cl.el
View file

@ -568,7 +568,7 @@ may be bound to temporary variables which are introduced
automatically to preserve proper execution order of the arguments. automatically to preserve proper execution order of the arguments.
For example: For example:
(defsetf nth (n x) (v) `(setcar (nthcdr ,n ,x) ,v)) (defsetf nth (n x) (v) \\=`(setcar (nthcdr ,n ,x) ,v))
You can replace this form with `gv-define-setter'. You can replace this form with `gv-define-setter'.

4
lisp/emacs-lisp/eieio.el
View file

@ -683,12 +683,12 @@ This class is not stored in the `parent' slot of a class vector."
"Make a new instance of CLASS based on INITARGS. "Make a new instance of CLASS based on INITARGS.
For example: For example:
(make-instance 'foo) (make-instance \\='foo)
INITARGS is a property list with keywords based on the `:initarg' INITARGS is a property list with keywords based on the `:initarg'
for each slot. For example: for each slot. For example:
(make-instance 'foo :slot1 value1 :slotN valueN)") (make-instance \\='foo :slot1 value1 :slotN valueN)")
(define-obsolete-function-alias 'constructor #'make-instance "25.1") (define-obsolete-function-alias 'constructor #'make-instance "25.1")

4
lisp/emacs-lisp/eldoc.el
View file

@ -337,8 +337,8 @@ and the face `eldoc-highlight-function-argument', if they are to have any
effect. effect.
Major modes should modify this variable using `add-function', for example: Major modes should modify this variable using `add-function', for example:
(add-function :before-until (local 'eldoc-documentation-function) (add-function :before-until (local \\='eldoc-documentation-function)
#'foo-mode-eldoc-function) #\\='foo-mode-eldoc-function)
so that the global documentation function (i.e. the default value of the so that the global documentation function (i.e. the default value of the
variable) is taken into account if the major mode specific function does not variable) is taken into account if the major mode specific function does not
return any documentation.") return any documentation.")

2
lisp/emacs-lisp/gv.el
View file

@ -218,7 +218,7 @@ return a Lisp form that does the assignment.
The first arg in ARGLIST (the one that receives VAL) receives an expression The first arg in ARGLIST (the one that receives VAL) receives an expression
which can do arbitrary things, whereas the other arguments are all guaranteed which can do arbitrary things, whereas the other arguments are all guaranteed
to be pure and copyable. Example use: to be pure and copyable. Example use:
(gv-define-setter aref (v a i) `(aset ,a ,i ,v))" (gv-define-setter aref (v a i) \\=`(aset ,a ,i ,v))"
(declare (indent 2) (debug (&define name sexp body))) (declare (indent 2) (debug (&define name sexp body)))
`(gv-define-expander ,name `(gv-define-expander ,name
(lambda (do &rest args) (lambda (do &rest args)

2
lisp/erc/erc-backend.el
View file

@ -1082,7 +1082,7 @@ As an example:
Would expand to: Would expand to:
(prog2 (prog2
(defvar erc-server-311-functions 'erc-server-311 (defvar erc-server-311-functions \\='erc-server-311
\"Some non-generic variable documentation. \"Some non-generic variable documentation.
Hook called upon receiving a 311 server response. Hook called upon receiving a 311 server response.

7
lisp/erc/erc-networks.el
View file

@ -782,9 +782,9 @@ PORTS should be a list of either:
numbers between LOW and HIGH (inclusive) is returned. numbers between LOW and HIGH (inclusive) is returned.
As an example: As an example:
(erc-ports-list '(1)) => (1) (erc-ports-list \\='(1)) => (1)
(erc-ports-list '((1 5))) => (1 2 3 4 5) (erc-ports-list \\='((1 5))) => (1 2 3 4 5)
(erc-ports-list '(1 (3 5))) => (1 3 4 5)" (erc-ports-list \\='(1 (3 5))) => (1 3 4 5)"
(let (result) (let (result)
(dolist (p ports) (dolist (p ports)
(cond ((numberp p) (cond ((numberp p)
@ -866,4 +866,3 @@ VALUE is the options value.")
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

2
lisp/erc/erc-services.el
View file

@ -172,7 +172,7 @@ You can also use M-x erc-nickserv-identify-mode to change modes."
Example of use: Example of use:
(setq erc-nickserv-passwords (setq erc-nickserv-passwords
'((freenode ((\"nick-one\" . \"password\") \\='((freenode ((\"nick-one\" . \"password\")
(\"nick-two\" . \"password\"))) (\"nick-two\" . \"password\")))
(DALnet ((\"nick\" . \"password\")))))" (DALnet ((\"nick\" . \"password\")))))"
:group 'erc-services :group 'erc-services

4
lisp/erc/erc.el
View file

@ -927,7 +927,7 @@ If no elements match, then the empty string is used.
As an example: As an example:
(setq erc-quit-reason-various-alist (setq erc-quit-reason-various-alist
'((\"xmms\" dme:now-playing) \\='((\"xmms\" dme:now-playing)
(\"version\" erc-quit-reason-normal) (\"version\" erc-quit-reason-normal)
(\"home\" \"Gone home !\") (\"home\" \"Gone home !\")
(\"^$\" \"Default Reason\"))) (\"^$\" \"Default Reason\")))
@ -950,7 +950,7 @@ If no elements match, then the empty string is used.
As an example: As an example:
(setq erc-part-reason-various-alist (setq erc-part-reason-various-alist
'((\"xmms\" dme:now-playing) \\='((\"xmms\" dme:now-playing)
(\"version\" erc-part-reason-normal) (\"version\" erc-part-reason-normal)
(\"home\" \"Gone home !\") (\"home\" \"Gone home !\")
(\"^$\" \"Default Reason\"))) (\"^$\" \"Default Reason\")))

2
lisp/eshell/esh-opt.el
View file

@ -82,7 +82,7 @@ and `eshell-stringify-list'.
For example, OPTIONS might look like: For example, OPTIONS might look like:
'((?C nil nil multi-column \"multi-column display\") ((?C nil nil multi-column \"multi-column display\")
(nil \"help\" nil nil \"show this usage display\") (nil \"help\" nil nil \"show this usage display\")
(?r \"reverse\" nil reverse-list \"reverse order while sorting\") (?r \"reverse\" nil reverse-list \"reverse order while sorting\")
:external \"ls\" :external \"ls\"

2
lisp/filesets.el
View file

@ -951,7 +951,7 @@ variable will take effect after rebuilding the menu.
Caveat: Fileset names have to be unique. Caveat: Fileset names have to be unique.
Example definition: Example definition:
'\(\(\"My Wiki\" \\='\(\(\"My Wiki\"
\(:ingroup \"~/Etc/My-Wiki/WikiContents\")) \(:ingroup \"~/Etc/My-Wiki/WikiContents\"))
\(\"My Homepage\" \(\"My Homepage\"
\(:pattern \"~/public_html/\" \"^.+\\\\.html$\") \(:pattern \"~/public_html/\" \"^.+\\\\.html$\")

6
lisp/font-lock.el
View file

@ -683,9 +683,9 @@ end of the current highlighting list.
For example: For example:
(font-lock-add-keywords 'c-mode (font-lock-add-keywords \\='c-mode
'((\"\\\\\\=<\\\\(FIXME\\\\):\" 1 'font-lock-warning-face prepend) \\='((\"\\\\\\=<\\\\(FIXME\\\\):\" 1 \\='font-lock-warning-face prepend)
(\"\\\\\\=<\\\\(and\\\\|or\\\\|not\\\\)\\\\\\=>\" . 'font-lock-keyword-face))) (\"\\\\\\=<\\\\(and\\\\|or\\\\|not\\\\)\\\\\\=>\" . \\='font-lock-keyword-face)))
adds two fontification patterns for C mode, to fontify `FIXME:' words, even in adds two fontification patterns for C mode, to fontify `FIXME:' words, even in
comments, and to fontify `and', `or' and `not' words as keywords. comments, and to fontify `and', `or' and `not' words as keywords.

6
lisp/gnus/gnus-art.el
View file

@ -330,7 +330,7 @@ to match a mail address in the From: header, BANNER is one of a symbol
If ADDRESS matches author's mail address, it will remove things like If ADDRESS matches author's mail address, it will remove things like
advertisements. For example: advertisements. For example:
\((\"@yoo-hoo\\\\.co\\\\.jp\\\\'\" . \"\\n_+\\nDo You Yoo-hoo!\\\\?\\n.*\\n.*\\n\")) \((\"@yoo-hoo\\\\.co\\\\.jp\\\\\\='\" . \"\\n_+\\nDo You Yoo-hoo!\\\\?\\n.*\\n.*\\n\"))
" "
:type '(repeat :type '(repeat
(cons (cons
@ -886,12 +886,12 @@ Here are examples:
;; Specify the altitude of Face images in the From header. ;; Specify the altitude of Face images in the From header.
\(setq gnus-face-properties-alist \(setq gnus-face-properties-alist
'((pbm . (:face gnus-x-face :ascent 80)) \\='((pbm . (:face gnus-x-face :ascent 80))
(png . (:ascent 80)))) (png . (:ascent 80))))
;; Show Face images as pressed buttons. ;; Show Face images as pressed buttons.
\(setq gnus-face-properties-alist \(setq gnus-face-properties-alist
'((pbm . (:face gnus-x-face :relief -2)) \\='((pbm . (:face gnus-x-face :relief -2))
(png . (:relief -2)))) (png . (:relief -2))))
See the manual for the valid properties for various image types. See the manual for the valid properties for various image types.

2
lisp/gnus/gnus-sum.el
View file

@ -1656,7 +1656,7 @@ while still allowing them to affect operations done in other buffers.
For example: For example:
\(setq gnus-newsgroup-variables \(setq gnus-newsgroup-variables
'(message-use-followup-to \\='(message-use-followup-to
(gnus-visible-headers . (gnus-visible-headers .
\"^From:\\\\|^Newsgroups:\\\\|^Subject:\\\\|^Date:\\\\|^To:\"))) \"^From:\\\\|^Newsgroups:\\\\|^Subject:\\\\|^Date:\\\\|^To:\")))
") ")

8
lisp/gnus/nndiary.el
View file

@ -151,15 +151,15 @@ maximum in the reminder is not that painful, I think. Although this
scheme might appear somewhat weird at a first glance, it is very powerful. scheme might appear somewhat weird at a first glance, it is very powerful.
In order to make this clear, here are some examples: In order to make this clear, here are some examples:
- '(0 . day): this is the default value of `nndiary-reminders'. It means - (0 . day): this is the default value of `nndiary-reminders'. It means
pop up the appointments of the day each morning at 00:00. pop up the appointments of the day each morning at 00:00.
- '(1 . day): this means pop up the appointments the day before, at 00:00. - (1 . day): this means pop up the appointments the day before, at 00:00.
- '(6 . hour): for an appointment at 18:30, this would pop up the - (6 . hour): for an appointment at 18:30, this would pop up the
appointment message at 12:00. appointment message at 12:00.
- '(360 . minute): for an appointment at 18:30 and 15 seconds, this would - (360 . minute): for an appointment at 18:30 and 15 seconds, this would
pop up the appointment message at 12:30." pop up the appointment message at 12:30."
:group 'nndiary :group 'nndiary
:type '(repeat (cons :format "%v\n" :type '(repeat (cons :format "%v\n"

4
lisp/gnus/nnmail.el
View file

@ -217,7 +217,7 @@ will try to match against both the From and the To header.
Example: Example:
\(setq nnmail-fancy-expiry-targets \(setq nnmail-fancy-expiry-targets
'((to-from \"boss\" \"nnfolder:Work\") \\='((to-from \"boss\" \"nnfolder:Work\")
(\"Subject\" \"IMPORTANT\" \"nnfolder:IMPORTANT.%Y.%b\") (\"Subject\" \"IMPORTANT\" \"nnfolder:IMPORTANT.%Y.%b\")
(\"from\" \".*\" \"nnfolder:Archive-%Y\"))) (\"from\" \".*\" \"nnfolder:Archive-%Y\")))
@ -465,7 +465,7 @@ GROUP: Mail will be stored in GROUP (a string).
junk: Mail will be deleted. Use with care! Do not submerge in water! junk: Mail will be deleted. Use with care! Do not submerge in water!
Example: Example:
(setq nnmail-split-fancy (setq nnmail-split-fancy
'(| (\"Subject\" \"MAKE MONEY FAST\" junk) \\='(| (\"Subject\" \"MAKE MONEY FAST\" junk)
...other.rules.omitted...)) ...other.rules.omitted...))
FIELD must match a complete field name. VALUE must match a complete FIELD must match a complete field name. VALUE must match a complete

2
lisp/iimage.el
View file

@ -71,7 +71,7 @@ NUM specifies which parenthesized expression in the regexp.
Examples of image filename patterns to match: Examples of image filename patterns to match:
file://foo.png file://foo.png
`file://foo.png' \\=`file://foo.png\\='
\\[\\[foo.gif]] \\[\\[foo.gif]]
<foo.png> <foo.png>
foo.JPG foo.JPG

6
lisp/international/ogonek.el
View file

@ -244,17 +244,17 @@ The functions come in the following groups.
(defun deprefixify-iso8859-2-region (start end) (defun deprefixify-iso8859-2-region (start end)
(interactive \"*r\") (interactive \"*r\")
(ogonek-deprefixify-region start end ?/ \"iso8859-2\")) (ogonek-deprefixify-region start end ?/ \"iso8859-2\"))
(global-set-key \"\\C-cd\" 'deprefixify-iso8859-2-region) ; ctrl-c d (global-set-key \"\\C-cd\" \\='deprefixify-iso8859-2-region) ; ctrl-c d
(defun mazovia-to-iso8859-2 (start end) (defun mazovia-to-iso8859-2 (start end)
(interactive \"*r\") (interactive \"*r\")
(ogonek-recode-region start end \"mazovia\" \"iso8859-2\")) (ogonek-recode-region start end \"mazovia\" \"iso8859-2\"))
(global-set-key \"\\C-cr\" 'mazovia-to-iso8859-2) ; ctrl-c r (global-set-key \"\\C-cr\" \\='mazovia-to-iso8859-2) ; ctrl-c r
(defun prefixify-iso8859-2-region (start end) (defun prefixify-iso8859-2-region (start end)
(interactive \"*r\") (interactive \"*r\")
(ogonek-prefixify-region start end \"iso8859-2\" ?/)) (ogonek-prefixify-region start end \"iso8859-2\" ?/))
(global-set-key \"\\C-cp\" 'prefixify-iso8859-2-region) ; ctrl-c p (global-set-key \"\\C-cp\" \\='prefixify-iso8859-2-region) ; ctrl-c p
Each recoding operation can be called off using the `undo' command.") Each recoding operation can be called off using the `undo' command.")

2
lisp/msb.el
View file

@ -777,7 +777,7 @@ SORT-PREDICATE.
Example: Example:
\(msb--aggregate-alist \(msb--aggregate-alist
'((a . a1) (a . a2) (b . b1) (c . c3) (a . a4) (a . a3) (b . b3) (b . b2)) \\='((a . a1) (a . a2) (b . b1) (c . c3) (a . a4) (a . a3) (b . b3) (b . b2))
(function string=) (function string=)
(lambda (item1 item2) (lambda (item1 item2)
(string< (symbol-name item1) (symbol-name item2)))) (string< (symbol-name item1) (symbol-name item2))))

4
lisp/net/dbus.el
View file

@ -377,7 +377,7 @@ Example:
\(dbus-call-method-asynchronously \(dbus-call-method-asynchronously
:system \"org.freedesktop.Hal\" \"/org/freedesktop/Hal/devices/computer\" :system \"org.freedesktop.Hal\" \"/org/freedesktop/Hal/devices/computer\"
\"org.freedesktop.Hal.Device\" \"GetPropertyString\" 'message \"org.freedesktop.Hal.Device\" \"GetPropertyString\" \\='message
\"system.kernel.machine\") \"system.kernel.machine\")
=> \(:serial :system 2) => \(:serial :system 2)
@ -654,7 +654,7 @@ Example:
\(dbus-register-signal \(dbus-register-signal
:system \"org.freedesktop.Hal\" \"/org/freedesktop/Hal/Manager\" :system \"org.freedesktop.Hal\" \"/org/freedesktop/Hal/Manager\"
\"org.freedesktop.Hal.Manager\" \"DeviceAdded\" 'my-signal-handler) \"org.freedesktop.Hal.Manager\" \"DeviceAdded\" \\='my-signal-handler)
=> \(\(:signal :system \"org.freedesktop.Hal.Manager\" \"DeviceAdded\") => \(\(:signal :system \"org.freedesktop.Hal.Manager\" \"DeviceAdded\")
\(\"org.freedesktop.Hal\" \"/org/freedesktop/Hal/Manager\" my-signal-handler)) \(\"org.freedesktop.Hal\" \"/org/freedesktop/Hal/Manager\" my-signal-handler))

2
lisp/net/tramp.el
View file

@ -1750,7 +1750,7 @@ Example:
(tramp-set-completion-function (tramp-set-completion-function
\"ssh\" \"ssh\"
'((tramp-parse-sconfig \"/etc/ssh_config\") \\='((tramp-parse-sconfig \"/etc/ssh_config\")
(tramp-parse-sconfig \"~/.ssh/config\")))" (tramp-parse-sconfig \"~/.ssh/config\")))"
(let ((r function-list) (let ((r function-list)

10
lisp/obsolete/sregex.el
View file

@ -262,15 +262,15 @@
This is exactly like `sregexq' (q.v.) except that it evaluates all its This is exactly like `sregexq' (q.v.) except that it evaluates all its
arguments, so literal sregex clauses must be quoted. For example: arguments, so literal sregex clauses must be quoted. For example:
(sregex '(or \"Bob\" \"Robert\")) => \"Bob\\\\|Robert\" (sregex \\='(or \"Bob\" \"Robert\")) => \"Bob\\\\|Robert\"
An argument-evaluating sregex interpreter lets you reuse sregex An argument-evaluating sregex interpreter lets you reuse sregex
subexpressions: subexpressions:
(let ((dotstar '(0+ any)) (let ((dotstar \\='(0+ any))
(whitespace '(1+ (syntax ?-))) (whitespace \\='(1+ (syntax ?-)))
(digits '(1+ (char (?0 . ?9))))) (digits \\='(1+ (char (?0 . ?9)))))
(sregex 'bol dotstar \":\" whitespace digits)) => \"^.*:\\\\s-+[0-9]+\"" (sregex \\='bol dotstar \":\" whitespace digits)) => \"^.*:\\\\s-+[0-9]+\""
(sregex--sequence exps nil)) (sregex--sequence exps nil))
(defmacro sregexq (&rest exps) (defmacro sregexq (&rest exps)

14
lisp/org/org-agenda.el
View file

@ -1990,8 +1990,8 @@ the lower-case version of all tags."
"Alist of characters and custom functions for bulk actions. "Alist of characters and custom functions for bulk actions.
For example, this value makes those two functions available: For example, this value makes those two functions available:
'((?R set-category) ((?R set-category)
(?C bulk-cut)) (?C bulk-cut))
With selected entries in an agenda buffer, `B R' will call With selected entries in an agenda buffer, `B R' will call
the custom function `set-category' on the selected entries. the custom function `set-category' on the selected entries.
@ -4937,13 +4937,13 @@ the `regexp' or `notregexp' element.
`todo' and `nottodo' accept as an argument a list of todo `todo' and `nottodo' accept as an argument a list of todo
keywords, which may include \"*\" to match any todo keyword. keywords, which may include \"*\" to match any todo keyword.
(org-agenda-skip-entry-if 'todo '(\"TODO\" \"WAITING\")) (org-agenda-skip-entry-if \\='todo \\='(\"TODO\" \"WAITING\"))
would skip all entries with \"TODO\" or \"WAITING\" keywords. would skip all entries with \"TODO\" or \"WAITING\" keywords.
Instead of a list, a keyword class may be given. For example: Instead of a list, a keyword class may be given. For example:
(org-agenda-skip-entry-if 'nottodo 'done) (org-agenda-skip-entry-if \\='nottodo \\='done)
would skip entries that haven't been marked with any of \"DONE\" would skip entries that haven't been marked with any of \"DONE\"
keywords. Possible classes are: `todo', `done', `any'. keywords. Possible classes are: `todo', `done', `any'.
@ -10005,10 +10005,10 @@ calling the function returns nil. This function takes one
argument: an entry from `org-agenda-get-day-entries'. argument: an entry from `org-agenda-get-day-entries'.
FILTER can also be an alist with the car of each cell being FILTER can also be an alist with the car of each cell being
either 'headline or 'category. For example: either `headline' or `category'. For example:
'((headline \"IMPORTANT\") ((headline \"IMPORTANT\")
(category \"Work\")) (category \"Work\"))
will only add headlines containing IMPORTANT or headlines will only add headlines containing IMPORTANT or headlines
belonging to the \"Work\" category. belonging to the \"Work\" category.

4
lisp/org/org-protocol.el
View file

@ -197,7 +197,7 @@ Possible properties are:
Example: Example:
(setq org-protocol-project-alist (setq org-protocol-project-alist
'((\"http://orgmode.org/worg/\" \\='((\"http://orgmode.org/worg/\"
:online-suffix \".php\" :online-suffix \".php\"
:working-suffix \".org\" :working-suffix \".org\"
:base-url \"http://orgmode.org/worg/\" :base-url \"http://orgmode.org/worg/\"
@ -251,7 +251,7 @@ kill-client - If t, kill the client immediately, once the sub-protocol is
Here is an example: Here is an example:
(setq org-protocol-protocol-alist (setq org-protocol-protocol-alist
'((\"my-protocol\" \\='((\"my-protocol\"
:protocol \"my-protocol\" :protocol \"my-protocol\"
:function my-protocol-handler-function) :function my-protocol-handler-function)
(\"your-protocol\" (\"your-protocol\"

2
lisp/org/ox-html.el
View file

@ -833,7 +833,7 @@ you can reuse them:
For example: For example:
\(setq org-html-table-row-tags \(setq org-html-table-row-tags
(cons '(cond (top-row-p \"<tr class=\\\"tr-top\\\">\") (cons \\='(cond (top-row-p \"<tr class=\\\"tr-top\\\">\")
(bottom-row-p \"<tr class=\\\"tr-bottom\\\">\") (bottom-row-p \"<tr class=\\\"tr-bottom\\\">\")
(t (if (= (mod row-number 2) 1) (t (if (= (mod row-number 2) 1)
\"<tr class=\\\"tr-odd\\\">\" \"<tr class=\\\"tr-odd\\\">\"

2
lisp/outline.el
View file

@ -338,7 +338,7 @@ numbered and unnumbered sections), list them set by set and sorted by level
within each set. For example in texinfo mode: within each set. For example in texinfo mode:
(setq outline-heading-alist (setq outline-heading-alist
'((\"@chapter\" . 2) (\"@section\" . 3) (\"@subsection\" . 4) \\='((\"@chapter\" . 2) (\"@section\" . 3) (\"@subsection\" . 4)
(\"@subsubsection\" . 5) (\"@subsubsection\" . 5)
(\"@unnumbered\" . 2) (\"@unnumberedsec\" . 3) (\"@unnumbered\" . 2) (\"@unnumberedsec\" . 3)
(\"@unnumberedsubsec\" . 4) (\"@unnumberedsubsubsec\" . 5) (\"@unnumberedsubsec\" . 4) (\"@unnumberedsubsubsec\" . 5)

58
lisp/printing.el
View file

@ -1746,14 +1746,14 @@ Examples:
* On GNU or Unix system: * On GNU or Unix system:
'((unix \".\" \"~/bin\" ghostview mpage PATH) ((unix \".\" \"~/bin\" ghostview mpage PATH)
(ghostview \"$HOME/bin/gsview-dir\") (ghostview \"$HOME/bin/gsview-dir\")
(mpage \"$HOME/bin/mpage-dir\") (mpage \"$HOME/bin/mpage-dir\")
) )
* On Windows system: * On Windows system:
'((windows \"c:/applications/executables\" PATH ghostview mpage) ((windows \"c:/applications/executables\" PATH ghostview mpage)
(ghostview \"c:/gs/gsview-dir\") (ghostview \"c:/gs/gsview-dir\")
(mpage \"c:/mpage-dir\") (mpage \"c:/mpage-dir\")
)" )"
@ -1810,8 +1810,8 @@ Where:
SYMBOL It's a symbol to identify a text printer. It's for SYMBOL It's a symbol to identify a text printer. It's for
setting option `pr-txt-name' and for menu selection. setting option `pr-txt-name' and for menu selection.
Examples: Examples:
'prt_06a prt_06a
'my_printer my_printer
COMMAND Name of the program for printing a text file. On MS-DOS and COMMAND Name of the program for printing a text file. On MS-DOS and
MS-Windows systems, if the value is an empty string, then Emacs MS-Windows systems, if the value is an empty string, then Emacs
@ -1838,7 +1838,7 @@ SWITCHES List of sexp's to pass as extra options for text printer
instead of including an explicit switch on this list. instead of including an explicit switch on this list.
Example: Example:
. for lpr . for lpr
'(\"-#3\" \"-l\") (\"-#3\" \"-l\")
nil nil
NAME A string that specifies a text printer name. NAME A string that specifies a text printer name.
@ -1869,13 +1869,13 @@ Examples:
* On GNU or Unix system: * On GNU or Unix system:
'((prt_06a \"lpr\" nil \"prt_06a\") ((prt_06a \"lpr\" nil \"prt_06a\")
(prt_07c nil nil \"prt_07c\") (prt_07c nil nil \"prt_07c\")
) )
* On Windows system: * On Windows system:
'((prt_06a \"print\" nil \"/D:\\\\\\\\printers\\\\prt_06a\") ((prt_06a \"print\" nil \"/D:\\\\\\\\printers\\\\prt_06a\")
(prt_07c nil nil \"/D:\\\\\\\\printers\\\\prt_07c\") (prt_07c nil nil \"/D:\\\\\\\\printers\\\\prt_07c\")
(PRN \"\" nil \"PRN\") (PRN \"\" nil \"PRN\")
(standard \"redpr.exe\" nil \"\") (standard \"redpr.exe\" nil \"\")
@ -1961,8 +1961,8 @@ Where:
SYMBOL It's a symbol to identify a PostScript printer. It's for SYMBOL It's a symbol to identify a PostScript printer. It's for
setting option `pr-ps-name' and for menu selection. setting option `pr-ps-name' and for menu selection.
Examples: Examples:
'prt_06a prt_06a
'my_printer my_printer
COMMAND Name of the program for printing a PostScript file. On MS-DOS COMMAND Name of the program for printing a PostScript file. On MS-DOS
and MS-Windows systems, if the value is an empty string then and MS-Windows systems, if the value is an empty string then
@ -1991,11 +1991,11 @@ SWITCHES List of sexp's to pass as extra options for PostScript printer
instead of including an explicit switch on this list. instead of including an explicit switch on this list.
Example: Example:
. for lpr . for lpr
'(\"-#3\" \"-l\") (\"-#3\" \"-l\")
nil nil
. for gsprint.exe . for gsprint.exe
'(\"-all\" \"-twoup\") (\"-all\" \"-twoup\")
PRINTER-SWITCH A string that specifies PostScript printer name switch. If PRINTER-SWITCH A string that specifies PostScript printer name switch. If
it's necessary to have a space between PRINTER-SWITCH and NAME, it's necessary to have a space between PRINTER-SWITCH and NAME,
@ -2057,9 +2057,9 @@ DEFAULT It's a way to set default values when this entry is selected.
which the current setting inherits the context. Take care with which the current setting inherits the context. Take care with
circular inheritance. circular inheritance.
Examples: Examples:
'(ps-landscape-mode . nil) (ps-landscape-mode . nil)
'(ps-spool-duplex . t) (ps-spool-duplex . t)
'(pr-gs-device . (my-gs-device t)) (pr-gs-device . (my-gs-device t))
This variable should be modified by customization engine. If this variable is This variable should be modified by customization engine. If this variable is
modified by other means (for example, a lisp function), use `pr-update-menus' modified by other means (for example, a lisp function), use `pr-update-menus'
@ -2069,14 +2069,14 @@ Examples:
* On GNU or Unix system: * On GNU or Unix system:
'((lps_06b \"lpr\" nil \"-P\" \"lps_06b\") ((lps_06b \"lpr\" nil \"-P\" \"lps_06b\")
(lps_07c \"lpr\" nil nil \"lps_07c\") (lps_07c \"lpr\" nil nil \"lps_07c\")
(lps_08c nil nil nil \"lps_08c\") (lps_08c nil nil nil \"lps_08c\")
) )
* On Windows system: * On Windows system:
'((lps_06a \"print\" nil \"/D:\" \"\\\\\\\\printers\\\\lps_06a\") ((lps_06a \"print\" nil \"/D:\" \"\\\\\\\\printers\\\\lps_06a\")
(lps_06b \"print\" nil nil \"\\\\\\\\printers\\\\lps_06b\") (lps_06b \"print\" nil nil \"\\\\\\\\printers\\\\lps_06b\")
(lps_07c \"print\" nil \"\" \"/D:\\\\\\\\printers\\\\lps_07c\") (lps_07c \"print\" nil \"\" \"/D:\\\\\\\\printers\\\\lps_07c\")
(lps_08c nil nil nil \"\\\\\\\\printers\\\\lps_08c\") (lps_08c nil nil nil \"\\\\\\\\printers\\\\lps_08c\")
@ -2102,7 +2102,7 @@ Also the gsprint utility comes together with gsview distribution.
As an example of gsprint declaration: As an example of gsprint declaration:
(setq pr-ps-printer-alist (setq pr-ps-printer-alist
'((A \"gsprint\" (\"-all\" \"-twoup\") \"-printer \" \"lps_015\") \\='((A \"gsprint\" (\"-all\" \"-twoup\") \"-printer \" \"lps_015\")
(B \"gsprint\" (\"-all\" \"-twoup\") nil \"-printer lps_015\") (B \"gsprint\" (\"-all\" \"-twoup\") nil \"-printer lps_015\")
;; some other printer declaration ;; some other printer declaration
)) ))
@ -2594,9 +2594,9 @@ DEFAULT It's a way to set default values when this entry is selected.
which the current setting inherits the context. Take care with which the current setting inherits the context. Take care with
circular inheritance. circular inheritance.
Examples: Examples:
'(ps-landscape-mode . nil) (ps-landscape-mode . nil)
'(ps-spool-duplex . t) (ps-spool-duplex . t)
'(pr-gs-device . (my-gs-device t))" (pr-gs-device . (my-gs-device t))"
:type '(repeat :type '(repeat
(list (list
:tag "" :tag ""
@ -2690,8 +2690,8 @@ Where:
SYMBOL It's a symbol to identify a PostScript utility. It's for SYMBOL It's a symbol to identify a PostScript utility. It's for
`pr-ps-utility' variable setting and for menu selection. `pr-ps-utility' variable setting and for menu selection.
Examples: Examples:
'mpage mpage
'psnup psnup
UTILITY Name of utility for processing a PostScript file. UTILITY Name of utility for processing a PostScript file.
See also `pr-path-alist'. See also `pr-path-alist'.
@ -2708,7 +2708,7 @@ MUST-SWITCHES List of sexp's to pass as options to the PostScript utility
program and must be placed before any other switches. program and must be placed before any other switches.
Example: Example:
. for psnup: . for psnup:
'(\"-q\") (\"-q\")
PAPERSIZE It's a format string to specify paper size switch. PAPERSIZE It's a format string to specify paper size switch.
Example: Example:
@ -2752,7 +2752,7 @@ SWITCHES List of sexp's to pass as extra options to the PostScript utility
program. program.
Example: Example:
. for psnup . for psnup
'(\"-q\") (\"-q\")
nil nil
DEFAULT It's a way to set default values when this entry is selected. DEFAULT It's a way to set default values when this entry is selected.
@ -2772,9 +2772,9 @@ DEFAULT It's a way to set default values when this entry is selected.
which the current setting inherits the context. Take care with which the current setting inherits the context. Take care with
circular inheritance. circular inheritance.
Examples: Examples:
'(pr-file-landscape . nil) (pr-file-landscape . nil)
'(pr-file-duplex . t) (pr-file-duplex . t)
'(pr-gs-device . (my-gs-device t)) (pr-gs-device . (my-gs-device t))
This variable should be modified by customization engine. If this variable is This variable should be modified by customization engine. If this variable is
modified by other means (for example, a lisp function), use `pr-update-menus' modified by other means (for example, a lisp function), use `pr-update-menus'
@ -2787,14 +2787,14 @@ Examples:
* On GNU or Unix system: * On GNU or Unix system:
'((mpage \"mpage\" nil \"-b%s\" \"-%d\" \"-l\" \"-t\" \"-T\" \">\" nil) ((mpage \"mpage\" nil \"-b%s\" \"-%d\" \"-l\" \"-t\" \"-T\" \">\" nil)
(psnup \"psnup\" (\"-q\") \"-P%s\" \"-%d\" \"-l\" nil nil \" \" nil (psnup \"psnup\" (\"-q\") \"-P%s\" \"-%d\" \"-l\" nil nil \" \" nil
(pr-file-duplex . nil) (pr-file-tumble . nil)) (pr-file-duplex . nil) (pr-file-tumble . nil))
) )
* On Windows system: * On Windows system:
'((psnup \"c:/psutils/psnup\" (\"-q\") \"-P%s\" \"-%d\" \"-l\" nil nil \" \" ((psnup \"c:/psutils/psnup\" (\"-q\") \"-P%s\" \"-%d\" \"-l\" nil nil \" \"
nil (pr-file-duplex . nil) (pr-file-tumble . nil)) nil (pr-file-duplex . nil) (pr-file-tumble . nil))
) )

2
lisp/progmodes/etags.el
View file

@ -171,7 +171,7 @@ is the symbol being selected.
Example value: Example value:
'((\"Emacs Lisp\" Info-goto-emacs-command-node obarray) ((\"Emacs Lisp\" Info-goto-emacs-command-node obarray)
(\"Common Lisp\" common-lisp-hyperspec common-lisp-hyperspec-obarray) (\"Common Lisp\" common-lisp-hyperspec common-lisp-hyperspec-obarray)
(\"SCWM\" scwm-documentation scwm-obarray))" (\"SCWM\" scwm-documentation scwm-obarray))"
:group 'etags :group 'etags

6
lisp/progmodes/hideshow.el
View file

@ -323,13 +323,13 @@ Hideshow puts a unique overlay on each range of text to be hidden
in the buffer. Here is a simple example of how to use this variable: in the buffer. Here is a simple example of how to use this variable:
(defun display-code-line-counts (ov) (defun display-code-line-counts (ov)
(when (eq 'code (overlay-get ov 'hs)) (when (eq \\='code (overlay-get ov \\='hs))
(overlay-put ov 'display (overlay-put ov \\='display
(format \"... / %d\" (format \"... / %d\"
(count-lines (overlay-start ov) (count-lines (overlay-start ov)
(overlay-end ov)))))) (overlay-end ov))))))
(setq hs-set-up-overlay 'display-code-line-counts) (setq hs-set-up-overlay \\='display-code-line-counts)
This example shows how to get information from the overlay as well This example shows how to get information from the overlay as well
as how to set its `display' property. See `hs-make-overlay' and as how to set its `display' property. See `hs-make-overlay' and

6
lisp/progmodes/idlwave.el
View file

@ -1571,11 +1571,11 @@ Otherwise, if SELECT is non-nil then only an action is created.
Some examples: Some examples:
No spaces before and 1 after a comma No spaces before and 1 after a comma
(idlwave-action-and-binding \",\" '(idlwave-surround 0 1)) (idlwave-action-and-binding \",\" \\='(idlwave-surround 0 1))
A minimum of 1 space before and after `=' (see `idlwave-expand-equal'). A minimum of 1 space before and after `=' (see `idlwave-expand-equal').
(idlwave-action-and-binding \"=\" '(idlwave-expand-equal -1 -1)) (idlwave-action-and-binding \"=\" \\='(idlwave-expand-equal -1 -1))
Capitalize system variables - action only Capitalize system variables - action only
(idlwave-action-and-binding idlwave-sysvar '(capitalize-word 1) t)" (idlwave-action-and-binding idlwave-sysvar \\='(capitalize-word 1) t)"
(if (not (equal select 'noaction)) (if (not (equal select 'noaction))
;; Add action ;; Add action
(let* ((table (if select 'idlwave-indent-action-table (let* ((table (if select 'idlwave-indent-action-table

4
lisp/progmodes/sql.el
View file

@ -2609,8 +2609,8 @@ of the current highlighting list.
For example: For example:
(sql-add-product-keywords 'ms (sql-add-product-keywords \\='ms
'((\"\\\\b\\\\w+_t\\\\b\" . font-lock-type-face))) \\='((\"\\\\b\\\\w+_t\\\\b\" . font-lock-type-face)))
adds a fontification pattern to fontify identifiers ending in adds a fontification pattern to fontify identifiers ending in
`_t' as data types." `_t' as data types."

12
lisp/progmodes/verilog-mode.el
View file

@ -12794,7 +12794,7 @@ Constant signals:
is put into the AUTOSENSE list and is not desired, use the AUTO_CONSTANT is put into the AUTOSENSE list and is not desired, use the AUTO_CONSTANT
declaration anywhere in the module (parenthesis are required): declaration anywhere in the module (parenthesis are required):
/* AUTO_CONSTANT ( `this_is_really_constant_dont_autosense_it ) */ /* AUTO_CONSTANT ( \\=`this_is_really_constant_dont_autosense_it ) */
Better yet, use a parameter, which will be understood to be constant Better yet, use a parameter, which will be understood to be constant
automatically. automatically.
@ -12810,16 +12810,16 @@ OOps!
An example: An example:
always @ (/*AS*/) begin always @ (/*AS*/) begin
/* AUTO_CONSTANT (`constant) */ /* AUTO_CONSTANT (\\=`constant) */
outin = ina | inb | `constant; outin = ina | inb | \\=`constant;
out = outin; out = outin;
end end
Typing \\[verilog-auto] will make this into: Typing \\[verilog-auto] will make this into:
always @ (/*AS*/ina or inb) begin always @ (/*AS*/ina or inb) begin
/* AUTO_CONSTANT (`constant) */ /* AUTO_CONSTANT (\\=`constant) */
outin = ina | inb | `constant; outin = ina | inb | \\=`constant;
out = outin; out = outin;
end end
@ -12827,7 +12827,7 @@ Note in Verilog 2001, you can often get the same result from the new @*
operator. (This was added to the language in part due to AUTOSENSE!) operator. (This was added to the language in part due to AUTOSENSE!)
always @* begin always @* begin
outin = ina | inb | `constant; outin = ina | inb | \\=`constant;
out = outin; out = outin;
end" end"
(save-excursion (save-excursion

10
lisp/ps-print.el
View file

@ -1953,7 +1953,7 @@ If you set option `ps-selected-pages', first the pages are
filtered by option `ps-selected-pages' and then by `ps-even-or-odd-pages'. filtered by option `ps-selected-pages' and then by `ps-even-or-odd-pages'.
For example, if we have: For example, if we have:
(setq ps-selected-pages '(1 4 (6 . 10) (12 . 16) 20)) (setq ps-selected-pages \\='(1 4 (6 . 10) (12 . 16) 20))
Combining with `ps-even-or-odd-pages' and option `ps-n-up-printing', we have: Combining with `ps-even-or-odd-pages' and option `ps-n-up-printing', we have:
@ -2249,9 +2249,9 @@ X, Y, XSCALE, YSCALE and ROTATION may be a floating point number, an integer
number or a string. If it is a string, the string should contain PostScript number or a string. If it is a string, the string should contain PostScript
programming that returns a float or integer value. programming that returns a float or integer value.
For example, if you wish to print an EPS image on all pages do: For example, if you wish to print an EPS image on all pages use:
'((\"~/images/EPS-image.ps\"))" ((\"~/images/EPS-image.ps\"))"
:type '(repeat :type '(repeat
(list (list
(file :tag "EPS File") (file :tag "EPS File")
@ -2300,9 +2300,9 @@ X, Y, FONTSIZE, GRAY and ROTATION may be a floating point number, an integer
number or a string. If it is a string, the string should contain PostScript number or a string. If it is a string, the string should contain PostScript
programming that returns a float or integer value. programming that returns a float or integer value.
For example, if you wish to print text \"Preliminary\" on all pages do: For example, if you wish to print text \"Preliminary\" on all pages use:
'((\"Preliminary\"))" ((\"Preliminary\"))"
:type '(repeat :type '(repeat
(list (list
(string :tag "Text") (string :tag "Text")

2
lisp/server.el
View file

@ -1649,7 +1649,7 @@ only these files will be asked to be saved."
"Contact the Emacs server named SERVER and evaluate FORM there. "Contact the Emacs server named SERVER and evaluate FORM there.
Returns the result of the evaluation, or signals an error if it Returns the result of the evaluation, or signals an error if it
cannot contact the specified server. For example: cannot contact the specified server. For example:
(server-eval-at \"server\" '(emacs-pid)) (server-eval-at \"server\" \\='(emacs-pid))
returns the process ID of the Emacs instance running \"server\"." returns the process ID of the Emacs instance running \"server\"."
(let* ((server-dir (if server-use-tcp server-auth-dir server-socket-dir)) (let* ((server-dir (if server-use-tcp server-auth-dir server-socket-dir))
(server-file (expand-file-name server server-dir)) (server-file (expand-file-name server server-dir))

4
lisp/ses.el
View file

@ -1491,11 +1491,11 @@ by (ROWINCR,COLINCR)."
"Produce a copy of FORMULA where all symbols that refer to cells in row "Produce a copy of FORMULA where all symbols that refer to cells in row
STARTROW or above, and col STARTCOL or above, are altered by adding ROWINCR STARTROW or above, and col STARTCOL or above, are altered by adding ROWINCR
and COLINCR. STARTROW and STARTCOL are 0-based. Example: and COLINCR. STARTROW and STARTCOL are 0-based. Example:
(ses-relocate-formula '(+ A1 B2 D3) 1 2 1 -1) (ses-relocate-formula \\='(+ A1 B2 D3) 1 2 1 -1)
=> (+ A1 B2 C4) => (+ A1 B2 C4)
If ROWINCR or COLINCR is negative, references to cells being deleted are If ROWINCR or COLINCR is negative, references to cells being deleted are
removed. Example: removed. Example:
(ses-relocate-formula '(+ A1 B2 D3) 0 1 0 -1) (ses-relocate-formula \\='(+ A1 B2 D3) 0 1 0 -1)
=> (+ A1 C3) => (+ A1 C3)
Sets `ses-relocate-return' to 'delete if cell-references were removed." Sets `ses-relocate-return' to 'delete if cell-references were removed."
(let (rowcol result) (let (rowcol result)

10
lisp/textmodes/table.el
View file

@ -3349,17 +3349,17 @@ Example:
(progn (progn
(table-insert 16 3 5 1) (table-insert 16 3 5 1)
(table-forward-cell 15) (table-forward-cell 15)
(table-insert-sequence \"D0\" -16 1 1 'center) (table-insert-sequence \"D0\" -16 1 1 \\='center)
(table-forward-cell 16) (table-forward-cell 16)
(table-insert-sequence \"A[0]\" -16 1 1 'center) (table-insert-sequence \"A[0]\" -16 1 1 \\='center)
(table-forward-cell 1) (table-forward-cell 1)
(table-insert-sequence \"-\" 16 0 1 'center)) (table-insert-sequence \"-\" 16 0 1 \\='center))
(progn (progn
(table-insert 16 8 5 1) (table-insert 16 8 5 1)
(table-insert-sequence \"@\" 0 1 2 'right) (table-insert-sequence \"@\" 0 1 2 \\='right)
(table-forward-cell 1) (table-forward-cell 1)
(table-insert-sequence \"64\" 0 1 2 'left))" (table-insert-sequence \"64\" 0 1 2 \\='left))"
(interactive (interactive
(progn (progn
(barf-if-buffer-read-only) (barf-if-buffer-read-only)

4
lisp/textmodes/tildify.el
View file

@ -291,8 +291,8 @@ BEG argument is ignored.
This function is meant to be used to set `tildify-foreach-region-function' This function is meant to be used to set `tildify-foreach-region-function'
variable. For example, for an XML file one might use: variable. For example, for an XML file one might use:
(setq-local tildify-foreach-region-function (setq-local tildify-foreach-region-function
(apply-partially 'tildify-foreach-ignore-environments (apply-partially \\='tildify-foreach-ignore-environments
'((\"<! *--\" . \"-- *>\") (\"<\" . \">\"))))" \\='((\"<! *--\" . \"-- *>\") (\"<\" . \">\"))))"
(let ((beg-re (concat "\\(?:" (mapconcat 'car pairs "\\)\\|\\(?:") "\\)")) (let ((beg-re (concat "\\(?:" (mapconcat 'car pairs "\\)\\|\\(?:") "\\)"))
p end-re) p end-re)
(save-excursion (save-excursion

8
lisp/wid-edit.el
View file

@ -3477,10 +3477,10 @@ themselves. A list, for example, is defined as either nil, or a cons
cell whose cdr itself is a list. The obvious way to translate this cell whose cdr itself is a list. The obvious way to translate this
into a widget type would be into a widget type would be
(define-widget 'my-list 'choice (define-widget \\='my-list \\='choice
\"A list of sexps.\" \"A list of sexps.\"
:tag \"Sexp list\" :tag \"Sexp list\"
:args '((const nil) (cons :value (nil) sexp my-list))) :args \\='((const nil) (cons :value (nil) sexp my-list)))
Here we attempt to define my-list as a choice of either the constant Here we attempt to define my-list as a choice of either the constant
nil, or a cons-cell containing a sexp and my-lisp. This will not work nil, or a cons-cell containing a sexp and my-lisp. This will not work
@ -3489,10 +3489,10 @@ because the `choice' widget does not allow recursion.
Using the `lazy' widget you can overcome this problem, as in this Using the `lazy' widget you can overcome this problem, as in this
example: example:
(define-widget 'sexp-list 'lazy (define-widget \\='sexp-list \\='lazy
\"A list of sexps.\" \"A list of sexps.\"
:tag \"Sexp list\" :tag \"Sexp list\"
:type '(choice (const nil) (cons :value (nil) sexp sexp-list)))" :type \\='(choice (const nil) (cons :value (nil) sexp sexp-list)))"
:format "%{%t%}: %v" :format "%{%t%}: %v"
;; We don't convert :type because we want to allow recursive ;; We don't convert :type because we want to allow recursive
;; data structures. This is slow, so we should not create speed ;; data structures. This is slow, so we should not create speed

2
src/category.c
View file

@ -491,7 +491,7 @@ between C1 and C2.
For instance, to tell that there's a word boundary between Hiragana For instance, to tell that there's a word boundary between Hiragana
and Katakana (both are in the same script `kana'), and Katakana (both are in the same script `kana'),
the element `(?H . ?K) should be in this list. */); the element `(?H . ?K)' should be in this list. */);
Vword_combining_categories = Qnil; Vword_combining_categories = Qnil;