Fix some more docstring etc. quoting problems
Mostly these fixes prevent the transliteration of apostrophes that should stay apostrophes. Also, prefer curved quotes in Bahá’í proper names, as that’s the preferred Bahá’í style and these names are chock-full of non-ASCII characters anyway. * lisp/emacs-lisp/eieio-core.el (eieio-defclass-autoload) (eieio-defclass-internal): * lisp/emacs-lisp/eieio.el (defclass): * lisp/hi-lock.el (hi-lock-mode): Don’t transliterate Lisp apostrophes when generating a doc string or diagnostic. * lisp/international/mule-diag.el (list-coding-systems-1): * lisp/international/ogonek.el (ogonek-jak, ogonek-how): * lisp/mail/sendmail.el (sendmail-query-user-about-smtp): * lisp/vc/ediff-mult.el (ediff-redraw-registry-buffer): * lisp/vc/ediff-ptch.el (ediff-fixup-patch-map): Substitute quotes before putting them in the help buffer.
This commit is contained in:
Paul Eggert
parent
944d77f070
commit
26bd978d87
108 changed files with 389 additions and 382 deletions
|
|
@ -384,9 +384,9 @@ The structure includes the guides lines, bullet, and bullet cue.")
|
|||
|
||||
Entries on the list are lists whose first element is a symbol indicating
|
||||
the change type and subsequent elements are data specific to that change
|
||||
type. Specifically:
|
||||
type. For example:
|
||||
|
||||
'exposure `allout-exposure-from' `allout-exposure-to' `allout-exposure-flag'
|
||||
(exposure ALLOUT-EXPOSURE-FROM ALLOUT-EXPOSURE-TO ALLOUT-EXPOSURE-FLAG)
|
||||
|
||||
The changes are recorded in reverse order, with new values pushed
|
||||
onto the front.")
|
||||
|
|
|
|||
|
|
@ -1551,7 +1551,7 @@ Used by `calculator-paste' and `get-register'."
|
|||
+ - * / \\(div) %(rem) _(-X,postfix) ;(1/X,postfix) ^(exp) L(og)
|
||||
Q(sqrt) !(fact) S(in) C(os) T(an) |(or) #(xor) &(and) ~(not)
|
||||
* >/< repeats last binary operation with its 2nd (1st) arg as postfix op
|
||||
* I inverses next trig function * '/\"/{} - display/display args
|
||||
* I inverses next trig function * \\='/\"/{} - display/display args
|
||||
* D - switch to all-decimal, or toggle deg/rad mode
|
||||
* B/O/H/X - binary/octal/hex mode for i/o (X is a shortcut for H)
|
||||
* i/o - prefix for d/b/o/x - set only input/output modes
|
||||
|
|
|
|||
|
|
@ -1,10 +1,10 @@
|
|||
;;; cal-bahai.el --- calendar functions for the Bahá'í calendar.
|
||||
;;; cal-bahai.el --- calendar functions for the Bahá’í calendar.
|
||||
|
||||
;; Copyright (C) 2001-2015 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: John Wiegley <johnw@gnu.org>
|
||||
;; Keywords: calendar
|
||||
;; Human-Keywords: Bahá'í calendar, Bahá'í, Baha'i, Bahai, calendar, diary
|
||||
;; Human-Keywords: Bahá’í calendar, Bahá’í, Baha'i, Bahai, calendar, diary
|
||||
;; Package: calendar
|
||||
|
||||
;; This file is part of GNU Emacs.
|
||||
|
|
@ -25,9 +25,9 @@
|
|||
;;; Commentary:
|
||||
|
||||
;; This collection of functions implements the features of calendar.el
|
||||
;; and diary-lib.el that deal with the Bahá'í calendar.
|
||||
;; and diary-lib.el that deal with the Bahá’í calendar.
|
||||
|
||||
;; The Bahá'í (http://www.bahai.org) calendar system is based on a
|
||||
;; The Bahá’í (http://www.bahai.org) calendar system is based on a
|
||||
;; solar cycle of 19 months with 19 days each. The four remaining
|
||||
;; "intercalary" days are called the Ayyám-i-Há (days of Há), and are
|
||||
;; placed between the 18th and 19th months. They are meant as a time
|
||||
|
|
@ -59,13 +59,13 @@
|
|||
["Bahá" "Jalál" "Jamál" "‘Aẓamat" "Núr" "Raḥmat" "Kalimát" "Kamál"
|
||||
"Asmá’" "‘Izzat" "Mashíyyat" "‘Ilm" "Qudrat" "Qawl" "Masá’il"
|
||||
"Sharaf" "Sulṭán" "Mulk" "‘Alá’"]
|
||||
"Array of the month names in the Bahá'í calendar.")
|
||||
"Array of the month names in the Bahá’í calendar.")
|
||||
|
||||
(defconst calendar-bahai-epoch (calendar-absolute-from-gregorian '(3 21 1844))
|
||||
"Absolute date of start of Bahá'í calendar = March 21, 1844 AD.")
|
||||
"Absolute date of start of Bahá’í calendar = March 21, 1844 AD.")
|
||||
|
||||
(defun calendar-bahai-leap-year-p (year)
|
||||
"True if Bahá'í YEAR is a leap year in the Bahá'í calendar."
|
||||
"True if Bahá’í YEAR is a leap year in the Bahá’í calendar."
|
||||
(calendar-leap-year-p (+ year 1844)))
|
||||
|
||||
(defconst calendar-bahai-leap-base
|
||||
|
|
@ -74,7 +74,7 @@
|
|||
Used by `calendar-bahai-to-absolute'.")
|
||||
|
||||
(defun calendar-bahai-to-absolute (date)
|
||||
"Compute absolute date from Bahá'í date DATE.
|
||||
"Compute absolute date from Bahá’í date DATE.
|
||||
The absolute date is the number of days elapsed since the (imaginary)
|
||||
Gregorian date Sunday, December 31, 1 BC."
|
||||
(let* ((month (calendar-extract-month date))
|
||||
|
|
@ -95,9 +95,9 @@ Gregorian date Sunday, December 31, 1 BC."
|
|||
day))) ; days so far this month
|
||||
|
||||
(defun calendar-bahai-from-absolute (date)
|
||||
"Bahá'í date (month day year) corresponding to the absolute DATE."
|
||||
"Bahá’í date (month day year) corresponding to the absolute DATE."
|
||||
(if (< date calendar-bahai-epoch)
|
||||
(list 0 0 0) ; pre-Bahá'í date
|
||||
(list 0 0 0) ; pre-Bahá’í date
|
||||
(let* ((greg (calendar-gregorian-from-absolute date))
|
||||
(gmonth (calendar-extract-month greg))
|
||||
(year (+ (- (calendar-extract-year greg) 1844)
|
||||
|
|
@ -116,7 +116,7 @@ Gregorian date Sunday, December 31, 1 BC."
|
|||
|
||||
;;;###cal-autoload
|
||||
(defun calendar-bahai-date-string (&optional date)
|
||||
"String of Bahá'í date of Gregorian DATE.
|
||||
"String of Bahá’í date of Gregorian DATE.
|
||||
Defaults to today's date if DATE is not given."
|
||||
(let* ((bahai-date (calendar-bahai-from-absolute
|
||||
(calendar-absolute-from-gregorian
|
||||
|
|
@ -142,19 +142,19 @@ Defaults to today's date if DATE is not given."
|
|||
|
||||
;;;###cal-autoload
|
||||
(defun calendar-bahai-print-date ()
|
||||
"Show the Bahá'í calendar equivalent of the selected date."
|
||||
"Show the Bahá’í calendar equivalent of the selected date."
|
||||
(interactive)
|
||||
(let ((s (calendar-bahai-date-string (calendar-cursor-to-date t))))
|
||||
(if (string-equal s "")
|
||||
(message "Date is pre-Bahá'í")
|
||||
(message "Bahá'í date: %s" s))))
|
||||
(message "Date is pre-Bahá’í")
|
||||
(message "Bahá’í date: %s" s))))
|
||||
|
||||
(defun calendar-bahai-read-date ()
|
||||
"Interactively read the arguments for a Bahá'í date command.
|
||||
"Interactively read the arguments for a Bahá’í date command.
|
||||
Reads a year, month and day."
|
||||
(let* ((today (calendar-current-date))
|
||||
(year (calendar-read
|
||||
"Bahá'í calendar year (not 0): "
|
||||
"Bahá’í calendar year (not 0): "
|
||||
(lambda (x) (not (zerop x)))
|
||||
(number-to-string
|
||||
(calendar-extract-year
|
||||
|
|
@ -163,19 +163,19 @@ Reads a year, month and day."
|
|||
(completion-ignore-case t)
|
||||
(month (cdr (assoc
|
||||
(completing-read
|
||||
"Bahá'í calendar month name: "
|
||||
"Bahá’í calendar month name: "
|
||||
(mapcar 'list
|
||||
(append calendar-bahai-month-name-array nil))
|
||||
nil t)
|
||||
(calendar-make-alist calendar-bahai-month-name-array
|
||||
1))))
|
||||
(day (calendar-read "Bahá'í calendar day (1-19): "
|
||||
(day (calendar-read "Bahá’í calendar day (1-19): "
|
||||
(lambda (x) (and (< 0 x) (<= x 19))))))
|
||||
(list (list month day year))))
|
||||
|
||||
;;;###cal-autoload
|
||||
(defun calendar-bahai-goto-date (date &optional noecho)
|
||||
"Move cursor to Bahá'í date DATE; echo Bahá'í date unless NOECHO is non-nil."
|
||||
"Move cursor to Bahá’í date DATE; echo Bahá’í date unless NOECHO is non-nil."
|
||||
(interactive (calendar-bahai-read-date))
|
||||
(calendar-goto-date (calendar-gregorian-from-absolute
|
||||
(calendar-bahai-to-absolute date)))
|
||||
|
|
@ -186,8 +186,8 @@ Reads a year, month and day."
|
|||
|
||||
;;;###holiday-autoload
|
||||
(defun holiday-bahai (month day string)
|
||||
"Holiday on MONTH, DAY (Bahá'í) called STRING.
|
||||
If MONTH, DAY (Bahá'í) is visible in the current calendar window,
|
||||
"Holiday on MONTH, DAY (Bahá’í) called STRING.
|
||||
If MONTH, DAY (Bahá’í) is visible in the current calendar window,
|
||||
returns the corresponding Gregorian date in the form of the
|
||||
list (((month day year) STRING)). Otherwise, returns nil."
|
||||
;; Since the calendar window shows 3 months at a time, there are
|
||||
|
|
@ -199,7 +199,7 @@ list (((month day year) STRING)). Otherwise, returns nil."
|
|||
(m (calendar-extract-month bahai-date))
|
||||
(y (calendar-extract-year bahai-date))
|
||||
date)
|
||||
(unless (< m 1) ; Bahá'í calendar doesn't apply
|
||||
(unless (< m 1) ; Bahá’í calendar doesn't apply
|
||||
;; Cf holiday-fixed, holiday-islamic.
|
||||
;; With a +- 3 month calendar window, and 19 months per year,
|
||||
;; month 16 is special. When m16 is central is when the
|
||||
|
|
@ -209,7 +209,7 @@ list (((month day year) STRING)). Otherwise, returns nil."
|
|||
;; To see if other months are visible we can shift the range
|
||||
;; accordingly.
|
||||
(calendar-increment-month m y (- 16 month) 19)
|
||||
(and (> m 12) ; Bahá'í date might be visible
|
||||
(and (> m 12) ; Bahá’í date might be visible
|
||||
(calendar-date-is-visible-p
|
||||
(setq date (calendar-gregorian-from-absolute
|
||||
(calendar-bahai-to-absolute (list month day y)))))
|
||||
|
|
@ -219,9 +219,9 @@ list (((month day year) STRING)). Otherwise, returns nil."
|
|||
|
||||
;;;###holiday-autoload
|
||||
(defun holiday-bahai-new-year ()
|
||||
"Holiday entry for the Bahá'í New Year, if visible in the calendar window."
|
||||
"Holiday entry for the Bahá’í New Year, if visible in the calendar window."
|
||||
(holiday-fixed 3 21
|
||||
(format "Bahá'í New Year (Naw-Ruz) %d"
|
||||
(format "Bahá’í New Year (Naw-Ruz) %d"
|
||||
(- displayed-year (1- 1844)))))
|
||||
|
||||
;;;###holiday-autoload
|
||||
|
|
@ -246,12 +246,12 @@ Only considers the first, ninth, and twelfth days, unless ALL or
|
|||
|
||||
;;;###diary-autoload
|
||||
(defun diary-bahai-list-entries ()
|
||||
"Add any Bahá'í date entries from the diary file to `diary-entries-list'.
|
||||
Bahá'í date diary entries must be prefaced by `diary-bahai-entry-symbol'
|
||||
"Add any Bahá’í date entries from the diary file to `diary-entries-list'.
|
||||
Bahá’í date diary entries must be prefaced by `diary-bahai-entry-symbol'
|
||||
\(normally a `B'). The same diary date forms govern the style of the
|
||||
Bahá'í calendar entries, except that the Bahá'í month names cannot be
|
||||
abbreviated. The Bahá'í months are numbered from 1 to 19 with Bahá being
|
||||
1 and 19 being `Alá. If a Bahá'í date diary entry begins with
|
||||
Bahá’í calendar entries, except that the Bahá’í month names cannot be
|
||||
abbreviated. The Bahá’í months are numbered from 1 to 19 with Bahá being
|
||||
1 and 19 being `Alá. If a Bahá’í date diary entry begins with
|
||||
`diary-nonmarking-symbol', the entry will appear in the diary listing, but
|
||||
will not be marked in the calendar. This function is provided for use with
|
||||
`diary-nongregorian-listing-hook'."
|
||||
|
|
@ -263,7 +263,7 @@ will not be marked in the calendar. This function is provided for use with
|
|||
|
||||
;;;###diary-autoload
|
||||
(defun calendar-bahai-mark-date-pattern (month day year &optional color)
|
||||
"Mark dates in calendar window that conform to Bahá'í date MONTH/DAY/YEAR.
|
||||
"Mark dates in calendar window that conform to Bahá’í date MONTH/DAY/YEAR.
|
||||
A value of 0 in any position is a wildcard. Optional argument COLOR is
|
||||
passed to `calendar-mark-visible-date' as MARK."
|
||||
(calendar-mark-1 month day year 'calendar-bahai-from-absolute
|
||||
|
|
@ -273,7 +273,7 @@ passed to `calendar-mark-visible-date' as MARK."
|
|||
|
||||
;;;###diary-autoload
|
||||
(defun diary-bahai-mark-entries ()
|
||||
"Mark days in the calendar window that have Bahá'í date diary entries.
|
||||
"Mark days in the calendar window that have Bahá’í date diary entries.
|
||||
Marks each entry in `diary-file' (or included files) visible in the calendar
|
||||
window. See `diary-bahai-list-entries' for more information."
|
||||
(diary-mark-entries-1 'calendar-bahai-mark-date-pattern
|
||||
|
|
@ -286,7 +286,7 @@ window. See `diary-bahai-list-entries' for more information."
|
|||
;;;###cal-autoload
|
||||
(defun diary-bahai-insert-entry (arg)
|
||||
"Insert a diary entry.
|
||||
For the Bahá'í date corresponding to the date indicated by point.
|
||||
For the Bahá’í date corresponding to the date indicated by point.
|
||||
Prefix argument ARG makes the entry nonmarking."
|
||||
(interactive "P")
|
||||
(diary-insert-entry-1 nil arg calendar-bahai-month-name-array
|
||||
|
|
@ -296,7 +296,7 @@ Prefix argument ARG makes the entry nonmarking."
|
|||
;;;###cal-autoload
|
||||
(defun diary-bahai-insert-monthly-entry (arg)
|
||||
"Insert a monthly diary entry.
|
||||
For the day of the Bahá'í month corresponding to the date indicated by point.
|
||||
For the day of the Bahá’í month corresponding to the date indicated by point.
|
||||
Prefix argument ARG makes the entry nonmarking."
|
||||
(interactive "P")
|
||||
(diary-insert-entry-1 'monthly arg calendar-bahai-month-name-array
|
||||
|
|
@ -306,7 +306,7 @@ Prefix argument ARG makes the entry nonmarking."
|
|||
;;;###cal-autoload
|
||||
(defun diary-bahai-insert-yearly-entry (arg)
|
||||
"Insert an annual diary entry.
|
||||
For the day of the Bahá'í year corresponding to the date indicated by point.
|
||||
For the day of the Bahá’í year corresponding to the date indicated by point.
|
||||
Prefix argument ARG will make the entry nonmarking."
|
||||
(interactive "P")
|
||||
(diary-insert-entry-1 'yearly arg calendar-bahai-month-name-array
|
||||
|
|
@ -318,8 +318,8 @@ Prefix argument ARG will make the entry nonmarking."
|
|||
;; To be called from diary-list-sexp-entries, where DATE is bound.
|
||||
;;;###diary-autoload
|
||||
(defun diary-bahai-date ()
|
||||
"Bahá'í calendar equivalent of date diary entry."
|
||||
(format "Bahá'í date: %s" (calendar-bahai-date-string date)))
|
||||
"Bahá’í calendar equivalent of date diary entry."
|
||||
(format "Bahá’í date: %s" (calendar-bahai-date-string date)))
|
||||
|
||||
|
||||
(provide 'cal-bahai)
|
||||
|
|
|
|||
|
|
@ -611,7 +611,7 @@ is provided for use with `diary-nongregorian-listing-hook'."
|
|||
"Mark dates in calendar window that conform to Hebrew date MONTH/DAY/YEAR.
|
||||
A value of 0 in any position is a wildcard. Optional argument COLOR is
|
||||
passed to `calendar-mark-visible-date' as MARK."
|
||||
;; FIXME not the same as the Bahai and Islamic cases, so can't use
|
||||
;; FIXME not the same as the Bahá’í and Islamic cases, so can't use
|
||||
;; calendar-mark-1.
|
||||
(with-current-buffer calendar-buffer
|
||||
(if (and (not (zerop month)) (not (zerop day)))
|
||||
|
|
|
|||
|
|
@ -52,7 +52,7 @@
|
|||
["Insert Anniversary" diary-insert-anniversary-entry]
|
||||
["Insert Block" diary-insert-block-entry]
|
||||
["Insert Cyclic" diary-insert-cyclic-entry]
|
||||
("Insert Bahá'í"
|
||||
("Insert Bahá’í"
|
||||
["One time" diary-bahai-insert-entry]
|
||||
["Monthly" diary-bahai-insert-monthly-entry]
|
||||
["Yearly" diary-bahai-insert-yearly-entry])
|
||||
|
|
@ -132,7 +132,7 @@
|
|||
["Astronomical Date" calendar-astro-goto-day-number]
|
||||
["Hebrew Date" calendar-hebrew-goto-date]
|
||||
["Persian Date" calendar-persian-goto-date]
|
||||
["Bahá'í Date" calendar-bahai-goto-date]
|
||||
["Bahá’í Date" calendar-bahai-goto-date]
|
||||
["Islamic Date" calendar-islamic-goto-date]
|
||||
["Julian Date" calendar-julian-goto-date]
|
||||
["Chinese Date" calendar-chinese-goto-date]
|
||||
|
|
|
|||
|
|
@ -1602,7 +1602,7 @@ informative header, and run HOOK."
|
|||
(goto-char (point-min))
|
||||
(when (search-forward "documentclass" nil t)
|
||||
(forward-line 1)
|
||||
;; Eg for some Bahai holidays.
|
||||
;; E.g., for some Bahá’í holidays.
|
||||
;; FIXME latin1 might not always be right.
|
||||
(insert "\\usepackage[latin1]{inputenc}\n"))))
|
||||
(latex-mode)
|
||||
|
|
|
|||
|
|
@ -42,7 +42,7 @@
|
|||
;; can be translated from the (usual) Gregorian calendar to the day of
|
||||
;; the year/days remaining in year, to the ISO commercial calendar, to
|
||||
;; the Julian (old style) calendar, to the Hebrew calendar, to the
|
||||
;; Islamic calendar, to the Bahá'í calendar, to the French
|
||||
;; Islamic calendar, to the Bahá’í calendar, to the French
|
||||
;; Revolutionary calendar, to the Mayan calendar, to the Chinese
|
||||
;; calendar, to the Coptic calendar, to the Ethiopic calendar, and to
|
||||
;; the astronomical (Julian) day number. Times of sunrise/sunset can
|
||||
|
|
@ -53,7 +53,7 @@
|
|||
;; The following files are part of the calendar/diary code:
|
||||
|
||||
;; appt.el Appointment notification
|
||||
;; cal-bahai.el Bahá'í calendar
|
||||
;; cal-bahai.el Bahá’í calendar
|
||||
;; cal-china.el Chinese calendar
|
||||
;; cal-coptic.el Coptic/Ethiopic calendars
|
||||
;; cal-dst.el Daylight saving time rules
|
||||
|
|
@ -375,7 +375,7 @@ When this expression is evaluated, DAY, MONTH, and YEAR are
|
|||
integers appropriate to the relevant date. For example, to
|
||||
display the ISO date:
|
||||
|
||||
(setq calendar-date-echo-text '(format \"ISO date: %s\"
|
||||
(setq calendar-date-echo-text \\='(format \"ISO date: %s\"
|
||||
(calendar-iso-date-string
|
||||
(list month day year))))
|
||||
Changing this variable without using customize has no effect on
|
||||
|
|
@ -655,7 +655,7 @@ causes the diary entry \"Vacation\" to appear from November 1 through
|
|||
November 10, 1990. See the documentation for the function
|
||||
`diary-list-sexp-entries' for more details.
|
||||
|
||||
Diary entries based on the Hebrew, the Islamic and/or the Bahá'í
|
||||
Diary entries based on the Hebrew, the Islamic and/or the Bahá’í
|
||||
calendar are also possible, but because these are somewhat slow, they
|
||||
are ignored unless you set the `diary-nongregorian-listing-hook' and
|
||||
the `diary-nongregorian-marking-hook' appropriately. See the
|
||||
|
|
@ -690,7 +690,7 @@ details, see the documentation for the variable `diary-list-entries-hook'."
|
|||
:group 'diary)
|
||||
|
||||
(defcustom diary-bahai-entry-symbol "B"
|
||||
"Symbol indicating a diary entry according to the Bahá'í calendar."
|
||||
"Symbol indicating a diary entry according to the Bahá’í calendar."
|
||||
:type 'string
|
||||
:group 'diary)
|
||||
|
||||
|
|
@ -1013,9 +1013,9 @@ calendar."
|
|||
:group 'holidays)
|
||||
|
||||
(defcustom calendar-bahai-all-holidays-flag nil
|
||||
"If nil, show only major holidays from the Bahá'í calendar.
|
||||
"If nil, show only major holidays from the Bahá’í calendar.
|
||||
These are the days on which work and school must be suspended.
|
||||
Otherwise, show all the holidays that would appear in a complete Bahá'í
|
||||
Otherwise, show all the holidays that would appear in a complete Bahá’í
|
||||
calendar."
|
||||
:type 'boolean
|
||||
:group 'holidays)
|
||||
|
|
@ -1708,13 +1708,13 @@ remaining in the year, and the ISO week/year numbers:
|
|||
|
||||
(list
|
||||
\"\"
|
||||
'(calendar-hebrew-date-string date)
|
||||
'(let* ((year (calendar-extract-year date))
|
||||
\\='(calendar-hebrew-date-string date)
|
||||
\\='(let* ((year (calendar-extract-year date))
|
||||
(d (calendar-day-number date))
|
||||
(days-remaining
|
||||
(- (calendar-day-number (list 12 31 year)) d)))
|
||||
(format \"%d/%d\" d days-remaining))
|
||||
'(let* ((d (calendar-absolute-from-gregorian date))
|
||||
\\='(let* ((d (calendar-absolute-from-gregorian date))
|
||||
(iso-date (calendar-iso-from-absolute d)))
|
||||
(format \"ISO week %d of %d\"
|
||||
(calendar-extract-month iso-date)
|
||||
|
|
@ -2571,7 +2571,7 @@ DATE is (month day year). Calendars that do not apply are omitted."
|
|||
(unless (string-equal
|
||||
(setq odate (calendar-bahai-date-string date))
|
||||
"")
|
||||
(format "Bahá'í date: %s" odate))
|
||||
(format "Bahá’í date: %s" odate))
|
||||
(format "Chinese date: %s"
|
||||
(calendar-chinese-date-string date))
|
||||
(unless (string-equal
|
||||
|
|
|
|||
|
|
@ -300,7 +300,7 @@ expressions that can involve the keywords `days' (a number), `date'
|
|||
|
||||
(defcustom diary-abbreviated-year-flag t
|
||||
"Interpret a two-digit year DD in a diary entry as either 19DD or 20DD.
|
||||
This applies to the Gregorian, Hebrew, Islamic, and Bahá'í calendars.
|
||||
This applies to the Gregorian, Hebrew, Islamic, and Bahá’í calendars.
|
||||
When the current century is added to a two-digit year, if the result
|
||||
is more than 50 years in the future, the previous century is assumed.
|
||||
If the result is more than 50 years in the past, the next century is assumed.
|
||||
|
|
@ -1531,7 +1531,7 @@ passed to `calendar-mark-visible-date' as MARK."
|
|||
(calendar-mark-month m y month day year color)
|
||||
(calendar-increment-month m y 1)))))
|
||||
|
||||
;; Bahai, Hebrew, Islamic.
|
||||
;; Bahá’í, Hebrew, Islamic.
|
||||
(defun calendar-mark-complex (month day year fromabs &optional color)
|
||||
"Mark dates in the calendar conforming to MONTH DAY YEAR of some system.
|
||||
The function FROMABS converts absolute dates to the appropriate date system.
|
||||
|
|
@ -1561,7 +1561,7 @@ Optional argument COLOR is passed to `calendar-mark-visible-date' as MARK."
|
|||
(calendar-mark-visible-date
|
||||
(calendar-gregorian-from-absolute date) color)))))
|
||||
|
||||
;; Bahai, Islamic.
|
||||
;; Bahá’í, Islamic.
|
||||
(defun calendar-mark-1 (month day year fromabs toabs &optional color)
|
||||
"Mark dates in the calendar conforming to MONTH DAY YEAR of some system.
|
||||
The function FROMABS converts absolute dates to the appropriate date system.
|
||||
|
|
@ -1659,8 +1659,8 @@ on a weekend:
|
|||
&%%(let ((dayname (calendar-day-of-week date))
|
||||
(day (calendar-extract-day date)))
|
||||
(or
|
||||
(and (= day 21) (memq dayname '(1 2 3 4 5)))
|
||||
(and (memq day '(19 20)) (= dayname 5)))
|
||||
(and (= day 21) (memq dayname \\='(1 2 3 4 5)))
|
||||
(and (memq day \\='(19 20)) (= dayname 5)))
|
||||
) UIUC pay checks deposited
|
||||
|
||||
A number of built-in functions are available for this type of
|
||||
|
|
|
|||
|
|
@ -173,15 +173,15 @@ See the documentation for `calendar-holidays' for details."
|
|||
'((holiday-bahai-new-year)
|
||||
(holiday-bahai-ridvan) ; respects calendar-bahai-all-holidays-flag
|
||||
(holiday-fixed 5 23 "Declaration of the Báb")
|
||||
(holiday-fixed 5 29 "Ascension of Bahá'u'lláh")
|
||||
(holiday-fixed 5 29 "Ascension of Bahá’u’lláh")
|
||||
(holiday-fixed 7 9 "Martyrdom of the Báb")
|
||||
(holiday-fixed 10 20 "Birth of the Báb")
|
||||
(holiday-fixed 11 12 "Birth of Bahá'u'lláh")
|
||||
(holiday-fixed 11 12 "Birth of Bahá’u’lláh")
|
||||
(if calendar-bahai-all-holidays-flag
|
||||
(append
|
||||
(holiday-fixed 11 26 "Day of the Covenant")
|
||||
(holiday-fixed 11 28 "Ascension of `Abdu'l-Bahá")))))
|
||||
"Bahá'í holidays.
|
||||
(holiday-fixed 11 28 "Ascension of `Abdu’l-Bahá")))))
|
||||
"Bahá’í holidays.
|
||||
See the documentation for `calendar-holidays' for details."
|
||||
:type 'sexp
|
||||
:group 'holidays)
|
||||
|
|
@ -254,7 +254,7 @@ Several basic functions are provided for this purpose:
|
|||
K>0, and MONTH's last day otherwise.
|
||||
(holiday-hebrew MONTH DAY STRING) a fixed date on the Hebrew calendar
|
||||
(holiday-islamic MONTH DAY STRING) a fixed date on the Islamic calendar
|
||||
(holiday-bahai MONTH DAY STRING) a fixed date on the Bahá'í calendar
|
||||
(holiday-bahai MONTH DAY STRING) a fixed date on the Bahá’í calendar
|
||||
(holiday-julian MONTH DAY STRING) a fixed date on the Julian calendar
|
||||
(holiday-sexp SEXP STRING) SEXP is a Gregorian-date-valued expression
|
||||
in the variable `year'; if it evaluates to
|
||||
|
|
@ -282,11 +282,11 @@ To add the Islamic feast celebrating Mohammed's birthday, use
|
|||
(holiday-islamic 3 12 \"Mohammed's Birthday\")
|
||||
|
||||
since the Islamic months are numbered from 1 starting with Muharram.
|
||||
To add an entry for the Bahá'í festival of Ridvan, use
|
||||
To add an entry for the Bahá’í festival of Ridvan, use
|
||||
|
||||
(holiday-bahai 2 13 \"Festival of Ridvan\")
|
||||
|
||||
since the Bahá'í months are numbered from 1 starting with Bahá.
|
||||
since the Bahá’í months are numbered from 1 starting with Bahá.
|
||||
To add Thomas Jefferson's birthday, April 2, 1743 (Julian), use
|
||||
|
||||
(holiday-julian 4 2 \"Jefferson's Birthday\")
|
||||
|
|
@ -296,7 +296,7 @@ example, to include American presidential elections, which occur on the first
|
|||
Tuesday after the first Monday in November of years divisible by 4, add
|
||||
|
||||
(holiday-sexp
|
||||
'(if (zerop (% year 4))
|
||||
\\='(if (zerop (% year 4))
|
||||
(calendar-gregorian-from-absolute
|
||||
(1+ (calendar-dayname-on-or-before
|
||||
1 (+ 6 (calendar-absolute-from-gregorian
|
||||
|
|
@ -460,7 +460,7 @@ The optional LABEL is used to label the buffer created."
|
|||
(if holiday-islamic-holidays
|
||||
(cons "Islamic" holiday-islamic-holidays))
|
||||
(if holiday-bahai-holidays
|
||||
(cons "Bahá'í" holiday-bahai-holidays))
|
||||
(cons "Bahá’í" holiday-bahai-holidays))
|
||||
(if holiday-oriental-holidays
|
||||
(cons "Oriental" holiday-oriental-holidays))
|
||||
(if holiday-solar-holidays
|
||||
|
|
|
|||
|
|
@ -239,9 +239,9 @@ type is required and the load function used.")
|
|||
"Add PROJAUTO, an EDE autoload definition to `ede-project-class-files'.
|
||||
Optional argument FLAG indicates how this autoload should be
|
||||
added. Possible values are:
|
||||
'generic - A generic project type. Keep this at the very end.
|
||||
'unique - A unique project type for a specific project. Keep at the very
|
||||
front of the list so more generic projects don't get priority."
|
||||
`generic' - A generic project type. Keep this at the very end.
|
||||
`unique' - A unique project type for a specific project. Keep at the very
|
||||
front of the list so more generic projects don't get priority."
|
||||
;; First, can we identify PROJAUTO as already in the list? If so, replace.
|
||||
(let ((projlist ede-project-class-files)
|
||||
(projname (oref projauto name)))
|
||||
|
|
|
|||
|
|
@ -230,8 +230,8 @@ string. INCOMPATIBLE-VERSION can be nil.
|
|||
RESERVED arguments are kept for a later use.
|
||||
Return:
|
||||
- nil if everything is ok.
|
||||
- 'outdated if VERSION is less than MINIMUM.
|
||||
- 'incompatible if VERSION is not backward compatible with MINIMUM.
|
||||
- `outdated' if VERSION is less than MINIMUM.
|
||||
- `incompatible' if VERSION is not backward compatible with MINIMUM.
|
||||
- t if the check failed."
|
||||
(let ((code (if (stringp version)
|
||||
(inversion-decode-version version)
|
||||
|
|
|
|||
|
|
@ -50,7 +50,7 @@
|
|||
|
||||
(require 'find-func)
|
||||
;; For find-function-regexp-alist. It is tempting to replace this
|
||||
;; ‘require‘ by (defvar find-function-regexp-alist) and
|
||||
;; ‘require’ by (defvar find-function-regexp-alist) and
|
||||
;; with-eval-after-load, but model-local.el is typically loaded when a
|
||||
;; semantic autoload is invoked, and something in semantic loads
|
||||
;; find-func.el before mode-local.el, so the eval-after-load is lost.
|
||||
|
|
|
|||
|
|
@ -251,7 +251,7 @@ are found in SEQUENCE.
|
|||
Optional argument THROWSYM specifies a symbol the throw on non-recoverable error.
|
||||
Remaining arguments FLAGS are additional flags to apply when searching.
|
||||
This function knows of flags:
|
||||
'mustbeclassvariable"
|
||||
`mustbeclassvariable'"
|
||||
(let ((s sequence) ; copy of the sequence
|
||||
(tmp nil) ; tmp find variable
|
||||
(tag nil) ; tag return list
|
||||
|
|
@ -263,7 +263,7 @@ This function knows of flags:
|
|||
)
|
||||
;; First order check. Is this wholly contained in the typecache?
|
||||
(setq tmp (semanticdb-typecache-find sequence))
|
||||
|
||||
|
||||
(when tmp
|
||||
(if (or (not tagclass) (semantic-tag-of-class-p tmp tagclass))
|
||||
;; We are effectively done...
|
||||
|
|
@ -709,7 +709,7 @@ Returns nil if no alias was found."
|
|||
(when (eq (semantic-tag-get-attribute (car taglist) :kind) 'alias)
|
||||
(let ((tagname
|
||||
(semantic-analyze-split-name
|
||||
(semantic-tag-name
|
||||
(semantic-tag-name
|
||||
(car (semantic-tag-get-attribute (car taglist) :members))))))
|
||||
(append (if (listp tagname)
|
||||
tagname
|
||||
|
|
|
|||
|
|
@ -112,9 +112,9 @@ in a buffer."
|
|||
Argument CONTEXT is an object specifying the locally derived context.
|
||||
The optional argument FLAGS changes which return options are returned.
|
||||
FLAGS can be any number of:
|
||||
'no-tc - do not apply data-type constraint.
|
||||
'no-longprefix - ignore long multi-symbol prefixes.
|
||||
'no-unique - do not apply unique by name filtering."
|
||||
`no-tc' - do not apply data-type constraint.
|
||||
`no-longprefix' - ignore long multi-symbol prefixes.
|
||||
`no-unique' - do not apply unique by name filtering."
|
||||
(let* ((a context)
|
||||
(desired-type (semantic-analyze-type-constraint a))
|
||||
(desired-class (oref a prefixclass))
|
||||
|
|
|
|||
|
|
@ -137,9 +137,9 @@ to give to the program."
|
|||
"The GCC setup data.
|
||||
This is setup by `semantic-gcc-setup'.
|
||||
This is an alist, and should include keys of:
|
||||
'version - the version of gcc
|
||||
'--host - the host symbol (used in include directories)
|
||||
'--prefix - where GCC was installed.
|
||||
`version' - the version of gcc
|
||||
`--host' - the host symbol (used in include directories)
|
||||
`--prefix' - where GCC was installed.
|
||||
It should also include other symbols GCC was compiled with.")
|
||||
|
||||
;;;###autoload
|
||||
|
|
|
|||
|
|
@ -297,7 +297,7 @@ refreshed when things change. See `semanticdb-ref-test'.
|
|||
Note for overloading: If you opt to overload this function for your
|
||||
major mode, and your routine takes a long time, be sure to call
|
||||
|
||||
(semantic-throw-on-input 'your-symbol-here)
|
||||
(semantic-throw-on-input \\='your-symbol-here)
|
||||
|
||||
so that it can be called from the idle work handler."
|
||||
)
|
||||
|
|
|
|||
|
|
@ -540,7 +540,7 @@ For C/C++ includes located within a project, you can use a special
|
|||
EDE project that will wrap an existing build system. You can do that
|
||||
like this in your .emacs file:
|
||||
|
||||
(ede-cpp-root-project \"NAME\" :file \"FILENAME\" :locate-fcn 'MYFCN)
|
||||
(ede-cpp-root-project \"NAME\" :file \"FILENAME\" :locate-fcn \\='MYFCN)
|
||||
|
||||
See the CEDET manual, the EDE manual, or the commentary in
|
||||
ede/cpp-root.el for more.
|
||||
|
|
|
|||
|
|
@ -173,10 +173,10 @@ recover the cached data with `semantic-get-cache-data'.
|
|||
LIFESPAN indicates how long the data cache will be remembered.
|
||||
The default LIFESPAN is 'end-of-command.
|
||||
Possible Lifespans are:
|
||||
'end-of-command - Remove the cache at the end of the currently
|
||||
executing command.
|
||||
'exit-cache-zone - Remove when point leaves the overlay at the
|
||||
end of the currently executing command."
|
||||
`end-of-command' - Remove the cache at the end of the currently
|
||||
executing command.
|
||||
`exit-cache-zone' - Remove when point leaves the overlay at the
|
||||
end of the currently executing command."
|
||||
;; Check if LIFESPAN is valid before to create any overlay
|
||||
(or lifespan (setq lifespan 'end-of-command))
|
||||
(or (memq lifespan '(end-of-command exit-cache-zone))
|
||||
|
|
|
|||
|
|
@ -271,11 +271,11 @@ search locally, then semanticdb for that tag (when enabled.)")
|
|||
(define-overloadable-function semantic-tag-protection (tag &optional parent)
|
||||
"Return protection information about TAG with optional PARENT.
|
||||
This function returns on of the following symbols:
|
||||
nil - No special protection. Language dependent.
|
||||
'public - Anyone can access this TAG.
|
||||
'private - Only methods in the local scope can access TAG.
|
||||
'protected - Like private for outside scopes, like public for child
|
||||
classes.
|
||||
nil - No special protection. Language dependent.
|
||||
`public' - Anyone can access this TAG.
|
||||
`private' - Only methods in the local scope can access TAG.
|
||||
`protected' - Like private for outside scopes, like public for child
|
||||
classes.
|
||||
Some languages may choose to provide additional return symbols specific
|
||||
to themselves. Use of this function should allow for this.
|
||||
|
||||
|
|
|
|||
|
|
@ -73,11 +73,11 @@ This function overrides `get-local-variables'."
|
|||
(define-mode-local-override semantic-tag-protection javascript-mode (tag &optional parent)
|
||||
"Return protection information about TAG with optional PARENT.
|
||||
This function returns on of the following symbols:
|
||||
nil - No special protection. Language dependent.
|
||||
'public - Anyone can access this TAG.
|
||||
'private - Only methods in the local scope can access TAG.
|
||||
'protected - Like private for outside scopes, like public for child
|
||||
classes.
|
||||
nil - No special protection. Language dependent.
|
||||
`public' - Anyone can access this TAG.
|
||||
`private' - Only methods in the local scope can access TAG.
|
||||
`protected' - Like private for outside scopes, like public for child
|
||||
classes.
|
||||
Some languages may choose to provide additional return symbols specific
|
||||
to themselves. Use of this function should allow for this.
|
||||
|
||||
|
|
@ -114,7 +114,7 @@ This is currently needed for the mozrepl omniscient database."
|
|||
(setq symlist (list (match-string 1 tmp)
|
||||
(substring tmp (1+ (match-end 1)) (length tmp))))
|
||||
(setq symlist (list tmp))))))))
|
||||
|
||||
|
||||
;;; Setup Function
|
||||
;;
|
||||
;; Since javascript-mode is an alias for js-mode, let it inherit all
|
||||
|
|
|
|||
|
|
@ -45,9 +45,9 @@
|
|||
Only the ASK style inserter will query the user for a value.
|
||||
Dictionary value references that ask begin with the ? character.
|
||||
Possible values are:
|
||||
'ask - Prompt in the minibuffer as the value is inserted.
|
||||
'field - Use the dictionary macro name as the inserted value,
|
||||
and place a field there. Matched fields change together.
|
||||
`ask' - Prompt in the minibuffer as the value is inserted.
|
||||
`field' - Use the dictionary macro name as the inserted value,
|
||||
and place a field there. Matched fields change together.
|
||||
|
||||
NOTE: The field feature does not yet work with XEmacs."
|
||||
:group 'srecode
|
||||
|
|
|
|||
|
|
@ -2850,7 +2850,7 @@ then the filename reader will only accept a file that exists.
|
|||
|
||||
A typical use:
|
||||
(interactive (comint-get-source \"Compile file: \" prev-lisp-dir/file
|
||||
'(lisp-mode) t))"
|
||||
\\='(lisp-mode) t))"
|
||||
(let* ((def (comint-source-default prev-dir/file source-modes))
|
||||
(stringfile (comint-extract-string))
|
||||
(sfile-p (and stringfile
|
||||
|
|
|
|||
|
|
@ -477,7 +477,7 @@
|
|||
(defun custom-split-regexp-maybe (regexp)
|
||||
"If REGEXP is a string, split it to a list at `\\|'.
|
||||
You can get the original back from the result with:
|
||||
(mapconcat 'identity result \"\\|\")
|
||||
(mapconcat \\='identity result \"\\|\")
|
||||
|
||||
IF REGEXP is not a string, return it unchanged."
|
||||
(if (stringp regexp)
|
||||
|
|
|
|||
|
|
@ -687,8 +687,8 @@ to put saved Dired buffers automatically into Virtual Dired mode.
|
|||
|
||||
Also useful for `auto-mode-alist' like this:
|
||||
|
||||
(add-to-list 'auto-mode-alist
|
||||
'(\"[^/]\\\\.dired\\\\'\" . dired-virtual-mode))"
|
||||
(add-to-list \\='auto-mode-alist
|
||||
\\='(\"[^/]\\\\.dired\\\\\\='\" . dired-virtual-mode))"
|
||||
(interactive)
|
||||
(dired-virtual (dired-virtual-guess-dir)))
|
||||
|
||||
|
|
|
|||
|
|
@ -91,7 +91,7 @@ spaces. You might want to install ls from GNU Coreutils, which does
|
|||
support this option. Alternatively, you might want to use Emacs's
|
||||
own emulation of \"ls\", by using:
|
||||
(setq ls-lisp-use-insert-directory-program nil)
|
||||
(require 'ls-lisp)
|
||||
(require \\='ls-lisp)
|
||||
This is used by default on MS Windows, which does not have an \"ls\" program.
|
||||
Note that `ls-lisp' does not support as many options as GNU ls, though.
|
||||
For more details, see Info node `(emacs)ls in Lisp'."
|
||||
|
|
|
|||
|
|
@ -219,7 +219,8 @@ It creates an autoload function for CNAME's constructor."
|
|||
;; turn this into a usable self-pointing symbol
|
||||
(when eieio-backward-compatibility
|
||||
(set cname cname)
|
||||
(make-obsolete-variable cname (format "use '%s instead" cname) "25.1"))
|
||||
(make-obsolete-variable cname (format "use \\='%s instead" cname)
|
||||
"25.1"))
|
||||
|
||||
;; Store the new class vector definition into the symbol. We need to
|
||||
;; do this first so that we can call defmethod for the accessor.
|
||||
|
|
@ -338,7 +339,8 @@ See `defclass' for more information."
|
|||
;; turn this into a usable self-pointing symbol; FIXME: Why?
|
||||
(when eieio-backward-compatibility
|
||||
(set cname cname)
|
||||
(make-obsolete-variable cname (format "use '%s instead" cname) "25.1"))
|
||||
(make-obsolete-variable cname (format "use \\='%s instead" cname)
|
||||
"25.1"))
|
||||
|
||||
;; Create a handy list of the class test too
|
||||
(when eieio-backward-compatibility
|
||||
|
|
@ -357,8 +359,9 @@ See `defclass' for more information."
|
|||
(object-of-class-p (car obj) ,cname)))
|
||||
(setq obj (cdr obj)))
|
||||
ans))))
|
||||
(make-obsolete csym (format "use (cl-typep ... '(list-of %s)) instead"
|
||||
cname)
|
||||
(make-obsolete csym (format
|
||||
"use (cl-typep ... \\='(list-of %s)) instead"
|
||||
cname)
|
||||
"25.1")))
|
||||
|
||||
;; Before adding new slots, let's add all the methods and classes
|
||||
|
|
@ -407,7 +410,7 @@ See `defclass' for more information."
|
|||
(progn
|
||||
(set initarg initarg)
|
||||
(make-obsolete-variable
|
||||
initarg (format "use '%s instead" initarg) "25.1"))))
|
||||
initarg (format "use \\='%s instead" initarg) "25.1"))))
|
||||
|
||||
;; The customgroup should be a list of symbols.
|
||||
(cond ((and (null customg) custom)
|
||||
|
|
|
|||
|
|
@ -235,7 +235,8 @@ This method is obsolete."
|
|||
(let ((f (intern (format "%s-child-p" name))))
|
||||
`((defalias ',f ',testsym2)
|
||||
(make-obsolete
|
||||
',f ,(format "use (cl-typep ... '%s) instead" name) "25.1"))))
|
||||
',f ,(format "use (cl-typep ... \\='%s) instead" name)
|
||||
"25.1"))))
|
||||
|
||||
;; When using typep, (typep OBJ 'myclass) returns t for objects which
|
||||
;; are subclasses of myclass. For our predicates, however, it is
|
||||
|
|
|
|||
|
|
@ -234,7 +234,7 @@ of it available such that:
|
|||
|
||||
This variable has three possible values:
|
||||
nil: no packages are hidden;
|
||||
archive: only criteria (a) is used;
|
||||
`archive': only criteria (a) is used;
|
||||
t: both criteria are used.
|
||||
|
||||
This variable has no effect if `package-menu--hide-packages' is
|
||||
|
|
|
|||
|
|
@ -92,7 +92,7 @@ is enclosed by at least one regexp grouping construct.
|
|||
The returned regexp is typically more efficient than the equivalent regexp:
|
||||
|
||||
(let ((open (if PAREN \"\\\\(\" \"\")) (close (if PAREN \"\\\\)\" \"\")))
|
||||
(concat open (mapconcat 'regexp-quote STRINGS \"\\\\|\") close))
|
||||
(concat open (mapconcat \\='regexp-quote STRINGS \"\\\\|\") close))
|
||||
|
||||
If PAREN is `words', then the resulting regexp is additionally surrounded
|
||||
by \\=\\< and \\>.
|
||||
|
|
|
|||
|
|
@ -502,7 +502,7 @@ ALIST is of the form ((key . func) (key . func) ...)
|
|||
Normally, this would be called from a hook to a major mode or
|
||||
on a per buffer basis.
|
||||
Usage:
|
||||
(viper-add-local-keys state '((key-str . func) (key-str . func)...)) "
|
||||
(viper-add-local-keys state \\='((key-str . func) (key-str . func)...)) "
|
||||
|
||||
(let (map)
|
||||
(cond ((eq state 'vi-state)
|
||||
|
|
|
|||
|
|
@ -1100,12 +1100,12 @@ Would expand to:
|
|||
add things to `erc-server-311-functions' instead.\"
|
||||
(do-stuff-with-whois proc parsed))
|
||||
|
||||
(puthash \"311\" 'erc-server-311-functions erc-server-responses)
|
||||
(puthash \"WHOIS\" 'erc-server-WHOIS-functions erc-server-responses)
|
||||
(puthash \"WI\" 'erc-server-WI-functions erc-server-responses)
|
||||
(puthash \"311\" \\='erc-server-311-functions erc-server-responses)
|
||||
(puthash \"WHOIS\" \\='erc-server-WHOIS-functions erc-server-responses)
|
||||
(puthash \"WI\" \\='erc-server-WI-functions erc-server-responses)
|
||||
|
||||
(defalias 'erc-server-WHOIS 'erc-server-311)
|
||||
(defvar erc-server-WHOIS-functions 'erc-server-311
|
||||
(defalias \\='erc-server-WHOIS \\='erc-server-311)
|
||||
(defvar erc-server-WHOIS-functions \\='erc-server-311
|
||||
\"Some non-generic variable documentation.
|
||||
|
||||
Hook called upon receiving a WHOIS server response.
|
||||
|
|
@ -1116,8 +1116,8 @@ Would expand to:
|
|||
|
||||
See also `erc-server-311'.\")
|
||||
|
||||
(defalias 'erc-server-WI 'erc-server-311)
|
||||
(defvar erc-server-WI-functions 'erc-server-311
|
||||
(defalias \\='erc-server-WI \\='erc-server-311)
|
||||
(defvar erc-server-WI-functions \\='erc-server-311
|
||||
\"Some non-generic variable documentation.
|
||||
|
||||
Hook called upon receiving a WI server response.
|
||||
|
|
|
|||
|
|
@ -5203,7 +5203,7 @@ So far the following TYPE/L pairs are supported:
|
|||
|
||||
Event TYPE L
|
||||
|
||||
nickname change 'nick (NEW-NICK)"
|
||||
nickname change `nick' (NEW-NICK)"
|
||||
(erc-log (format "user-change: type: %S nlh: %S l: %S" type nlh l))
|
||||
(cond
|
||||
;; nickname change
|
||||
|
|
|
|||
|
|
@ -172,18 +172,18 @@ PERMISSION BITS (for owner/group/world):
|
|||
|
||||
OWNERSHIP:
|
||||
U owned by effective uid
|
||||
u(UID|'user') owned by UID/user
|
||||
g(GID|'group') owned by GID/group
|
||||
u(UID|\\='user\\=') owned by UID/user
|
||||
g(GID|\\='group\\=') owned by GID/group
|
||||
|
||||
FILE ATTRIBUTES:
|
||||
l[+-]N +/-/= N links
|
||||
a[Mwhms][+-](N|'FILE') access time +/-/= N months/weeks/hours/mins/secs
|
||||
a[Mwhms][+-](N|\\='FILE\\=') access time +/-/= N months/weeks/hours/mins/secs
|
||||
(days if unspecified) if FILE specified,
|
||||
use as comparison basis; so a+'file.c'
|
||||
use as comparison basis; so a+\\='file.c\\='
|
||||
shows files accessed before file.c was
|
||||
last accessed
|
||||
m[Mwhms][+-](N|'FILE') modification time...
|
||||
c[Mwhms][+-](N|'FILE') change time...
|
||||
m[Mwhms][+-](N|\\='FILE\\=') modification time...
|
||||
c[Mwhms][+-](N|\\='FILE\\=') change time...
|
||||
L[kmp][+-]N file size +/-/= N Kb/Mb/blocks
|
||||
|
||||
EXAMPLES:
|
||||
|
|
|
|||
|
|
@ -88,7 +88,7 @@ specification of filenames (for example, in calling `find-file', or
|
|||
some other Lisp function that deals with files, not numbers), add the
|
||||
following in your init file:
|
||||
|
||||
(put 'find-file 'eshell-no-numeric-conversions t)
|
||||
(put \\='find-file \\='eshell-no-numeric-conversions t)
|
||||
|
||||
Any function with the property `eshell-no-numeric-conversions' set to
|
||||
a non-nil value, will be passed strings, not numbers, even when an
|
||||
|
|
|
|||
|
|
@ -412,9 +412,9 @@ Optional SERVICE specifies the port used (default \"discard\").
|
|||
Optional QUIET flag suppresses the \"Pinging...\" message.
|
||||
Optional STRATEGY overrides the three variables above.
|
||||
Returned values:
|
||||
t means that HOST answered.
|
||||
'accept means the relevant variable told us to accept.
|
||||
\"mesg\" means HOST exists, but does not respond for some reason."
|
||||
t means that HOST answered.
|
||||
`accept' means the relevant variable told us to accept.
|
||||
\"mesg\" means HOST exists, but does not respond for some reason."
|
||||
;; Try some (Emory local):
|
||||
;; (ffap-machine-p "ftp" nil nil 'ping)
|
||||
;; (ffap-machine-p "nonesuch" nil nil 'ping)
|
||||
|
|
|
|||
|
|
@ -679,14 +679,14 @@ variables my-ps-viewer, my-pdf-viewer, my-dvi-viewer, my-pic-viewer.
|
|||
In order to view pdf or rtf files in an Emacs buffer, you could use these:
|
||||
|
||||
|
||||
\(\"^.+\\\\.pdf\\\\'\" \"pdftotext\"
|
||||
\(\"^.+\\\\.pdf\\\\\\='\" \"pdftotext\"
|
||||
\((:capture-output t)
|
||||
\(:args (\"%S - | fmt -w \" window-width))
|
||||
\(:ignore-on-read-text t)
|
||||
\(:constraintp (lambda ()
|
||||
\(and \(filesets-which-command-p \"pdftotext\")
|
||||
\(filesets-which-command-p \"fmt\"))))))
|
||||
\(\"^.+\\\\.rtf\\\\'\" \"rtf2htm\"
|
||||
\(\"^.+\\\\.rtf\\\\\\='\" \"rtf2htm\"
|
||||
\((:capture-output t)
|
||||
\(:args (\"%S 2> /dev/null | w3m -dump -T text/html\"))
|
||||
\(:ignore-on-read-text t)
|
||||
|
|
|
|||
|
|
@ -538,12 +538,13 @@ and what they do:
|
|||
dollar-sign character. Hash characters in other contexts will still
|
||||
follow whatever the syntax table says about the hash character.
|
||||
|
||||
(\"\\\\('\\\\).\\\\('\\\\)\"
|
||||
(\"\\\\(\\='\\\\).\\\\(\\='\\\\)\"
|
||||
(1 \"\\\"\")
|
||||
(2 \"\\\"\"))
|
||||
|
||||
gives a pair single-quotes, which surround a single character, a SYNTAX of
|
||||
\"\\\"\" (meaning string quote syntax). Single-quote characters in other
|
||||
gives a pair of apostrophes, which surround a single character, a
|
||||
SYNTAX of \"\\\"\" (meaning string quote syntax). Apostrophes in other
|
||||
|
||||
contexts will not be affected.
|
||||
|
||||
This is normally set via `font-lock-defaults'.")
|
||||
|
|
|
|||
|
|
@ -328,7 +328,7 @@ compatibility with versions of Emacs that lack the variable
|
|||
|
||||
(let* ((load-path (image-load-path-for-library \"mh-e\" \"mh-logo.xpm\"))
|
||||
(image-load-path (cons (car load-path)
|
||||
(when (boundp 'image-load-path)
|
||||
(when (boundp \\='image-load-path)
|
||||
image-load-path))))
|
||||
(mh-tool-bar-folder-buttons-init))"
|
||||
(unless library (error "No library specified"))
|
||||
|
|
|
|||
|
|
@ -195,16 +195,16 @@ this list."
|
|||
"Headers that are only to be displayed if they have interesting data.
|
||||
Possible values in this list are:
|
||||
|
||||
'empty Headers with no content.
|
||||
'newsgroups Newsgroup identical to Gnus group.
|
||||
'to-address To identical to To-address.
|
||||
'to-list To identical to To-list.
|
||||
'cc-list CC identical to To-list.
|
||||
'followup-to Followup-to identical to Newsgroups.
|
||||
'reply-to Reply-to identical to From.
|
||||
'date Date less than four days old.
|
||||
'long-to To and/or Cc longer than 1024 characters.
|
||||
'many-to Multiple To and/or Cc."
|
||||
`empty' Headers with no content.
|
||||
`newsgroups' Newsgroup identical to Gnus group.
|
||||
`to-address' To identical to To-address.
|
||||
`to-list' To identical to To-list.
|
||||
`cc-list' CC identical to To-list.
|
||||
`followup-to' Followup-to identical to Newsgroups.
|
||||
`reply-to' Reply-to identical to From.
|
||||
`date' Date less than four days old.
|
||||
`long-to' To and/or Cc longer than 1024 characters.
|
||||
`many-to' Multiple To and/or Cc."
|
||||
:type '(set (const :tag "Headers with no content." empty)
|
||||
(const :tag "Newsgroups identical to Gnus group." newsgroups)
|
||||
(const :tag "To identical to To-address." to-address)
|
||||
|
|
@ -661,7 +661,7 @@ For instance, if you would like to save articles related to Gnus in
|
|||
the file \"gnus-stuff\", and articles related to VM in \"vm-stuff\",
|
||||
you could set this variable to something like:
|
||||
|
||||
'((\"^Subject:.*gnus\\|^Newsgroups:.*gnus\" \"gnus-stuff\")
|
||||
((\"^Subject:.*gnus\\|^Newsgroups:.*gnus\" \"gnus-stuff\")
|
||||
(\"^Subject:.*vm\\|^Xref:.*vm\" \"vm-stuff\"))
|
||||
|
||||
This variable is an alist where the key is the match and the
|
||||
|
|
|
|||
|
|
@ -194,17 +194,17 @@ are tracked this way by default."
|
|||
"The splitting strategy applied to the keys in `gnus-registry-track-extra'.
|
||||
|
||||
Given a set of unique found groups G and counts for each element
|
||||
of G, and a key K (typically 'sender or 'subject):
|
||||
of G, and a key K (typically `sender' or `subject'):
|
||||
|
||||
When nil, if G has only one element, use it. Otherwise give up.
|
||||
This is the fastest but also least useful strategy.
|
||||
|
||||
When 'majority, use the majority by count. So if there is a
|
||||
When `majority', use the majority by count. So if there is a
|
||||
group with the most articles counted by K, use that. Ties are
|
||||
resolved in no particular order, simply the first one found wins.
|
||||
This is the slowest strategy but also the most accurate one.
|
||||
|
||||
When 'first, the first element of G wins. This is fast and
|
||||
When `first', the first element of G wins. This is fast and
|
||||
should be OK if your senders and subjects don't \"bleed\" across
|
||||
groups."
|
||||
:group 'gnus-registry
|
||||
|
|
|
|||
|
|
@ -122,9 +122,10 @@ This variable can be a list of select methods which Gnus will query with
|
|||
the `ask-server' method in addition to the primary, secondary, and archive
|
||||
servers.
|
||||
|
||||
|
||||
E.g.:
|
||||
(setq gnus-check-new-newsgroups
|
||||
'((nntp \"some.server\") (nntp \"other.server\")))
|
||||
\\='((nntp \"some.server\") (nntp \"other.server\")))
|
||||
|
||||
If this variable is nil, then you have to tell Gnus explicitly to
|
||||
check for new newsgroups with \\<gnus-group-mode-map>\\[gnus-find-new-newsgroups]."
|
||||
|
|
|
|||
|
|
@ -997,7 +997,7 @@ following hook:
|
|||
(mail-header-set-subject
|
||||
header
|
||||
(gnus-simplify-subject
|
||||
(mail-header-subject header) 're-only)))
|
||||
(mail-header-subject header) \\='re-only)))
|
||||
gnus-newsgroup-headers)))"
|
||||
:group 'gnus-group-select
|
||||
:type 'hook)
|
||||
|
|
|
|||
|
|
@ -143,7 +143,7 @@ details."
|
|||
To use, for instance, `untar' to unpack tar files and `zip -x' to
|
||||
unpack zip files, say the following:
|
||||
(setq gnus-uu-user-archive-rules
|
||||
'((\"\\\\.tar$\" \"untar\")
|
||||
\\='((\"\\\\.tar$\" \"untar\")
|
||||
(\"\\\\.zip$\" \"zip -x\")))"
|
||||
:group 'gnus-extract-archive
|
||||
:type '(repeat (group regexp (string :tag "Command"))))
|
||||
|
|
|
|||
|
|
@ -1362,7 +1362,7 @@ If you want to save your mail in one group and the news articles you
|
|||
write in another group, you could say something like:
|
||||
|
||||
\(setq gnus-message-archive-group
|
||||
'((if (message-news-p)
|
||||
\\='((if (message-news-p)
|
||||
\"misc-news\"
|
||||
\"misc-mail\")))
|
||||
|
||||
|
|
@ -2396,7 +2396,7 @@ less space and be faster as a result.
|
|||
This variable can also be a list of visual elements to switch on. For
|
||||
instance, to switch off all visual things except menus, you can say:
|
||||
|
||||
(setq gnus-visual '(menu))
|
||||
(setq gnus-visual \\='(menu))
|
||||
|
||||
Valid elements include `summary-highlight', `group-highlight',
|
||||
`article-highlight', `mouse-face', `summary-menu', `group-menu',
|
||||
|
|
|
|||
|
|
@ -1131,7 +1131,7 @@ Presets to impersonate popular mail agents are found in the
|
|||
message-cite-style-* variables. This variable is intended for
|
||||
use in `gnus-posting-styles', such as:
|
||||
|
||||
((posting-from-work-p) (eval (set (make-local-variable 'message-cite-style) message-cite-style-outlook)))"
|
||||
((posting-from-work-p) (eval (set (make-local-variable \\='message-cite-style) message-cite-style-outlook)))"
|
||||
:version "24.1"
|
||||
:group 'message-insertion
|
||||
:type '(choice (const :tag "Do not override variables" :value nil)
|
||||
|
|
|
|||
|
|
@ -350,10 +350,10 @@ result, `gnus-retrieve-headers' will be called instead."
|
|||
(defcustom nnir-swish++-additional-switches '()
|
||||
"*A list of strings, to be given as additional arguments to swish++.
|
||||
|
||||
Note that this should be a list. Ie, do NOT use the following:
|
||||
Note that this should be a list. I.e., do NOT use the following:
|
||||
(setq nnir-swish++-additional-switches \"-i -w\") ; wrong
|
||||
Instead, use this:
|
||||
(setq nnir-swish++-additional-switches '(\"-i\" \"-w\"))"
|
||||
(setq nnir-swish++-additional-switches \\='(\"-i\" \"-w\"))"
|
||||
:type '(repeat (string))
|
||||
:group 'nnir)
|
||||
|
||||
|
|
@ -399,10 +399,10 @@ This cannot be a server parameter."
|
|||
(defcustom nnir-swish-e-additional-switches '()
|
||||
"*A list of strings, to be given as additional arguments to swish-e.
|
||||
|
||||
Note that this should be a list. Ie, do NOT use the following:
|
||||
Note that this should be a list. I.e., do NOT use the following:
|
||||
(setq nnir-swish-e-additional-switches \"-i -w\") ; wrong
|
||||
Instead, use this:
|
||||
(setq nnir-swish-e-additional-switches '(\"-i\" \"-w\"))
|
||||
(setq nnir-swish-e-additional-switches \\='(\"-i\" \"-w\"))
|
||||
|
||||
This could be a server parameter."
|
||||
:type '(repeat (string))
|
||||
|
|
@ -429,10 +429,10 @@ This could be a server parameter."
|
|||
|
||||
(defcustom nnir-hyrex-additional-switches '()
|
||||
"*A list of strings, to be given as additional arguments for nnir-search.
|
||||
Note that this should be a list. Ie, do NOT use the following:
|
||||
Note that this should be a list. I.e., do NOT use the following:
|
||||
(setq nnir-hyrex-additional-switches \"-ddl ddl.xml -c nnir\") ; wrong !
|
||||
Instead, use this:
|
||||
(setq nnir-hyrex-additional-switches '(\"-ddl\" \"ddl.xml\" \"-c\" \"nnir\"))"
|
||||
(setq nnir-hyrex-additional-switches \\='(\"-ddl\" \"ddl.xml\" \"-c\" \"nnir\"))"
|
||||
:type '(repeat (string))
|
||||
:group 'nnir)
|
||||
|
||||
|
|
@ -471,10 +471,10 @@ arrive at the correct group name, \"mail.misc\"."
|
|||
The switches `-q', `-a', and `-s' are always used, very few other switches
|
||||
make any sense in this context.
|
||||
|
||||
Note that this should be a list. Ie, do NOT use the following:
|
||||
Note that this should be a list. I.e., do NOT use the following:
|
||||
(setq nnir-namazu-additional-switches \"-i -w\") ; wrong
|
||||
Instead, use this:
|
||||
(setq nnir-namazu-additional-switches '(\"-i\" \"-w\"))"
|
||||
(setq nnir-namazu-additional-switches \\='(\"-i\" \"-w\"))"
|
||||
:type '(repeat (string))
|
||||
:group 'nnir)
|
||||
|
||||
|
|
@ -500,10 +500,10 @@ arrive at the correct group name, \"mail.misc\"."
|
|||
(defcustom nnir-notmuch-additional-switches '()
|
||||
"*A list of strings, to be given as additional arguments to notmuch.
|
||||
|
||||
Note that this should be a list. Ie, do NOT use the following:
|
||||
Note that this should be a list. I.e., do NOT use the following:
|
||||
(setq nnir-notmuch-additional-switches \"-i -w\") ; wrong
|
||||
Instead, use this:
|
||||
(setq nnir-notmuch-additional-switches '(\"-i\" \"-w\"))"
|
||||
(setq nnir-notmuch-additional-switches \\='(\"-i\" \"-w\"))"
|
||||
:version "24.1"
|
||||
:type '(repeat (string))
|
||||
:group 'nnir)
|
||||
|
|
|
|||
|
|
@ -83,7 +83,7 @@ If you'd like, for instance, one mail group for mail from the
|
|||
else, you could do something like this:
|
||||
|
||||
(setq nnmail-split-methods
|
||||
'((\"mail.4ad\" \"From:.*4ad\")
|
||||
\\='((\"mail.4ad\" \"From:.*4ad\")
|
||||
(\"mail.junk\" \"From:.*Lars\\\\|Subject:.*buy\")
|
||||
(\"mail.misc\" \"\")))
|
||||
|
||||
|
|
@ -180,7 +180,7 @@ E.g.:
|
|||
(lambda (newsgroup)
|
||||
(cond ((string-match \"private\" newsgroup) 31)
|
||||
((string-match \"junk\" newsgroup) 1)
|
||||
((string-match \"important\" newsgroup) 'never)
|
||||
((string-match \"important\" newsgroup) \\='never)
|
||||
(t 7))))"
|
||||
:group 'nnmail-expire
|
||||
:type '(choice (const :tag "nnmail-expiry-wait" nil)
|
||||
|
|
|
|||
|
|
@ -72,7 +72,7 @@ For instance, if you want Gnus to beep every time you connect
|
|||
to innd, you could say something like:
|
||||
|
||||
\(setq nntp-server-action-alist
|
||||
'((\"innd\" (ding))))
|
||||
\\='((\"innd\" (ding))))
|
||||
|
||||
You probably don't want to do that, though.")
|
||||
|
||||
|
|
|
|||
|
|
@ -362,7 +362,7 @@ Hi-lock: end is found. A mode is excluded if it's in the list
|
|||
(setq hi-lock-archaic-interface-message-used t)
|
||||
(if hi-lock-archaic-interface-deduce
|
||||
(global-hi-lock-mode hi-lock-mode)
|
||||
(warn
|
||||
(warn "%s"
|
||||
"Possible archaic use of (hi-lock-mode).
|
||||
Use (global-hi-lock-mode 1) in .emacs to enable hi-lock for all buffers,
|
||||
use (hi-lock-mode 1) for individual buffers. For compatibility with Emacs
|
||||
|
|
|
|||
|
|
@ -133,10 +133,10 @@ main-content <=MAIN_CONTENT;\\n\" rtfm-section file style rtfm-section file))
|
|||
\(defun rtfm-build-source-docs (section srcdir destdir)
|
||||
(interactive
|
||||
\"s section[eg- emacs / p4-blame]:\\nD source-dir: \\nD output-dir: \")
|
||||
(require 'htmlfontify)
|
||||
(require \\='htmlfontify)
|
||||
(hfy-load-tags-cache srcdir)
|
||||
(let ((hfy-page-header 'rtfm-build-page-header)
|
||||
(hfy-page-footer 'rtfm-build-page-footer)
|
||||
(let ((hfy-page-header \\='rtfm-build-page-header)
|
||||
(hfy-page-footer \\='rtfm-build-page-footer)
|
||||
(rtfm-section section)
|
||||
(hfy-index-file \"index\"))
|
||||
(htmlfontify-run-etags srcdir)
|
||||
|
|
|
|||
|
|
@ -770,7 +770,7 @@ but still contains full information about each coding system."
|
|||
# MNEMONIC-LETTER -- CODING-SYSTEM-NAME
|
||||
# DOC-STRING
|
||||
")
|
||||
(princ "\
|
||||
(princ (substitute-command-keys "\
|
||||
#########################
|
||||
## LIST OF CODING SYSTEMS
|
||||
## Each line corresponds to one coding system
|
||||
|
|
@ -794,7 +794,7 @@ but still contains full information about each coding system."
|
|||
## 0
|
||||
## POST-READ-CONVERSION, PRE-WRITE-CONVERSION = function name to be called
|
||||
##
|
||||
"))
|
||||
")))
|
||||
(dolist (coding-system (sort-coding-systems (coding-system-list 'base-only)))
|
||||
(if (null arg)
|
||||
(print-coding-system-briefly coding-system 'tightly)
|
||||
|
|
|
|||
|
|
@ -133,10 +133,10 @@ znak/ow diakrytycznych. Funkcje te mo/zna pogrupowa/c nast/epuj/aco.
|
|||
`~/.emacs' za/z/ada/c wczytania wybranych funkcji, na dodatek dopiero
|
||||
w chwili ich rzeczywistego u/zycia:
|
||||
|
||||
(autoload 'ogonek-jak \"ogonek\")
|
||||
(autoload 'ogonek-recode-region \"ogonek\")
|
||||
(autoload 'ogonek-prefixify-region \"ogonek\")
|
||||
(autoload 'ogonek-deprefixify-region \"ogonek\")
|
||||
(autoload \\='ogonek-jak \"ogonek\")
|
||||
(autoload \\='ogonek-recode-region \"ogonek\")
|
||||
(autoload \\='ogonek-prefixify-region \"ogonek\")
|
||||
(autoload \\='ogonek-deprefixify-region \"ogonek\")
|
||||
|
||||
Cz/esto wyst/epuj/ace kombinacje wywo/la/n funkcji mo/zna dla wygody
|
||||
skr/oci/c i przypisa/c klawiszom. Oto praktyczne przyk/lady:
|
||||
|
|
@ -144,17 +144,17 @@ znak/ow diakrytycznych. Funkcje te mo/zna pogrupowa/c nast/epuj/aco.
|
|||
(defun deprefixify-iso8859-2-region (start end)
|
||||
(interactive \"*r\")
|
||||
(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)
|
||||
(interactive \"*r\")
|
||||
(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)
|
||||
(interactive \"*r\")
|
||||
(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
|
||||
|
||||
Ka/zd/a operacj/e przekodowania mo/zna w ca/lo/sci odwo/la/c
|
||||
przez wykonanie polecenia `undo'.")
|
||||
|
|
@ -163,7 +163,7 @@ znak/ow diakrytycznych. Funkcje te mo/zna pogrupowa/c nast/epuj/aco.
|
|||
"Display `ogonek-informacja' in an auxiliary *ogonek-jak* buffer."
|
||||
(interactive)
|
||||
(set-buffer (get-buffer-create " *ogonek-jak*"))
|
||||
(insert ogonek-informacja)
|
||||
(insert (substitute-command-keys ogonek-informacja))
|
||||
(switch-to-buffer " *ogonek-jak*")
|
||||
(goto-char (point-min)))
|
||||
|
||||
|
|
@ -233,10 +233,10 @@ The functions come in the following groups.
|
|||
to autoload the needed functions, for example by adding the
|
||||
following lines to your init file:
|
||||
|
||||
(autoload 'ogonek-how \"ogonek\")
|
||||
(autoload 'ogonek-recode-region \"ogonek\")
|
||||
(autoload 'ogonek-prefixify-region \"ogonek\")
|
||||
(autoload 'ogonek-deprefixify-region \"ogonek\")
|
||||
(autoload \\='ogonek-how \"ogonek\")
|
||||
(autoload \\='ogonek-recode-region \"ogonek\")
|
||||
(autoload \\='ogonek-prefixify-region \"ogonek\")
|
||||
(autoload \\='ogonek-deprefixify-region \"ogonek\")
|
||||
|
||||
The most frequent function calls can be abbreviated and assigned to
|
||||
keyboard keys. Here are a few practical examples:
|
||||
|
|
@ -262,7 +262,7 @@ The functions come in the following groups.
|
|||
"Display `ogonek-information' in an auxiliary *recode-how* buffer."
|
||||
(interactive "*")
|
||||
(set-buffer (get-buffer-create " *ogonek-how*"))
|
||||
(insert ogonek-information)
|
||||
(insert (substitute-command-keys ogonek-information))
|
||||
(switch-to-buffer " *ogonek-how*")
|
||||
(goto-char (point-min)))
|
||||
|
||||
|
|
|
|||
|
|
@ -36,7 +36,7 @@
|
|||
"LaTeX-like input method for many characters.
|
||||
These characters are from the charsets used by the `utf-8' coding
|
||||
system, including many technical ones. Examples:
|
||||
\\'a -> á \\`{a} -> à
|
||||
\\\\='a -> á \\\\=`{a} -> à
|
||||
\\pi -> π \\int -> ∫ ^1 -> ¹"
|
||||
|
||||
'(("\t" . quail-completion))
|
||||
|
|
@ -184,7 +184,7 @@ system, including many technical ones. Examples:
|
|||
("\\H" ?̋)
|
||||
("\\H{}" ?˝)
|
||||
("\\U{o}" ?ő) ("\\Uo" ?ő) ;; FIXME: Was it just a typo?
|
||||
|
||||
|
||||
("\\OE" ?Œ) ;; ("{\\OE}" ?Œ)
|
||||
("\\oe" ?œ) ;; ("{\\oe}" ?œ)
|
||||
|
||||
|
|
@ -216,7 +216,7 @@ system, including many technical ones. Examples:
|
|||
(name (if (match-end 1) (capitalize basename) (downcase basename))))
|
||||
(concat "^" (if (> (length name) 1) "\\") name)))
|
||||
"\\`MODIFIER LETTER \\(?:SMALL\\|CAPITA\\(L\\)\\) \\([[:ascii:]]+\\)\\'")
|
||||
|
||||
|
||||
;; ((lambda (name char) (format "^%s" (downcase (match-string 1 name))))
|
||||
;; "\\`MODIFIER LETTER SMALL \\(.\\)\\'")
|
||||
;; ("^\\1" "\\`MODIFIER LETTER CAPITAL \\(.\\)\\'")
|
||||
|
|
@ -694,7 +694,7 @@ system, including many technical ones. Examples:
|
|||
("\\defs" ?≙) ; per fuzz/zed
|
||||
;; ("\\sqrt[3]" ?∛)
|
||||
("\\llbracket" ?\〚) ; stmaryrd
|
||||
("\\rrbracket" ?\〛)
|
||||
("\\rrbracket" ?\〛)
|
||||
;; ("\\lbag" ?\〚) ; fuzz
|
||||
;; ("\\rbag" ?\〛)
|
||||
("\\ldata" ?\《) ; fuzz/zed
|
||||
|
|
|
|||
|
|
@ -222,7 +222,7 @@ current year. The OLD-TIME-FORMAT is used for older files. To use ISO
|
|||
8601 dates, you could set:
|
||||
|
||||
\(setq ls-lisp-format-time-list
|
||||
'(\"%Y-%m-%d %H:%M\"
|
||||
\\='(\"%Y-%m-%d %H:%M\"
|
||||
\"%Y-%m-%d \"))"
|
||||
:type '(list (string :tag "Early time format")
|
||||
(string :tag "Old time format"))
|
||||
|
|
|
|||
|
|
@ -566,7 +566,7 @@ but common in some proprietary systems."
|
|||
"If non-nil and the email has no Sender: header, use this value.
|
||||
May be nil, in which case nothing in particular is done with respect
|
||||
to Sender: lines. By design, will not replace an existing Sender:
|
||||
line, but you can achieve that with a fiddle-plex 'replace action.
|
||||
line, but you can achieve that with a fiddle-plex replace action.
|
||||
NB: it makes no sense to use the value t since there is no sensible
|
||||
default for Sender:.
|
||||
|
||||
|
|
@ -1745,7 +1745,7 @@ applied to a file after you've just read it from disk: for example, a
|
|||
feedmail FQM message file from a queue. You could use something like
|
||||
this:
|
||||
|
||||
\(setq auto-mode-alist \(cons \'\(\"\\\\.fqm$\" . feedmail-vm-mail-mode\) auto-mode-alist\)\)
|
||||
\(setq auto-mode-alist \(cons \\='\(\"\\\\.fqm$\" . feedmail-vm-mail-mode\) auto-mode-alist\)\)
|
||||
"
|
||||
(feedmail-say-debug ">in-> feedmail-vm-mail-mode")
|
||||
(let ((the-buf (current-buffer)))
|
||||
|
|
|
|||
|
|
@ -119,11 +119,11 @@ completed. `pattern' is nil when `mail-directory-requery' is nil.
|
|||
|
||||
The value might look like this:
|
||||
|
||||
'(remote-shell-program \"HOST\" \"-nl\" \"USER\" \"COMMAND\")
|
||||
(remote-shell-program \"HOST\" \"-nl\" \"USER\" \"COMMAND\")
|
||||
|
||||
or like this:
|
||||
|
||||
'(remote-shell-program \"HOST\" \"-n\" \"COMMAND '^\" pattern \"'\")"
|
||||
(remote-shell-program \"HOST\" \"-n\" \"COMMAND \\='^\" pattern \"\\='\")"
|
||||
:type 'sexp
|
||||
:group 'mailalias)
|
||||
(put 'mail-directory-process 'risky-local-variable t)
|
||||
|
|
@ -512,7 +512,7 @@ PREFIX is the string we want to complete."
|
|||
mail-aliases))
|
||||
(if (consp mail-local-names)
|
||||
mail-local-names)
|
||||
(or directory
|
||||
(or directory
|
||||
(when (consp mail-directory-names)
|
||||
mail-directory-names)))
|
||||
(lambda (a b)
|
||||
|
|
|
|||
|
|
@ -525,31 +525,33 @@ This also saves the value of `send-mail-function' via Customize."
|
|||
;; Query the user.
|
||||
(with-temp-buffer
|
||||
(rename-buffer "*Emacs Mail Setup Help*" t)
|
||||
(insert "\
|
||||
(insert (substitute-command-keys "\
|
||||
Emacs is about to send an email message, but it has not been
|
||||
configured for sending email. To tell Emacs how to send email:
|
||||
|
||||
- Type `"
|
||||
- Type `")
|
||||
(propertize "mail client" 'face 'bold)
|
||||
"' to start your default email client and
|
||||
pass it the message text.\n\n")
|
||||
(substitute-command-keys "\
|
||||
' to start your default email client and
|
||||
pass it the message text.\n\n"))
|
||||
(and sendmail-program
|
||||
(executable-find sendmail-program)
|
||||
(insert "\
|
||||
- Type `"
|
||||
(insert (substitute-command-keys "\
|
||||
- Type `")
|
||||
(propertize "transport" 'face 'bold)
|
||||
"' to invoke the system's mail transport agent
|
||||
(the `"
|
||||
(substitute-command-keys "\
|
||||
' to invoke the system's mail transport agent
|
||||
(the `")
|
||||
sendmail-program
|
||||
"' program).\n\n"))
|
||||
(insert "\
|
||||
- Type `"
|
||||
(substitute-command-keys "' program).\n\n")))
|
||||
(insert (substitute-command-keys "\
|
||||
- Type `")
|
||||
(propertize "smtp" 'face 'bold)
|
||||
"' to send mail directly to an \"outgoing mail\" server.
|
||||
(substitute-command-keys "' to send mail directly to an \"outgoing mail\" server.
|
||||
(Emacs may prompt you for SMTP settings).
|
||||
|
||||
Emacs will record your selection and will use it thereafter.
|
||||
To change it later, customize the option `send-mail-function'.\n")
|
||||
To change it later, customize the option `send-mail-function'.\n"))
|
||||
(goto-char (point-min))
|
||||
(display-buffer (current-buffer))
|
||||
(let ((completion-ignore-case t))
|
||||
|
|
|
|||
|
|
@ -104,7 +104,7 @@
|
|||
"Manpage cleaning filter command phrases.
|
||||
This variable contains a list of the following form:
|
||||
|
||||
'((command-string phrase-string*)*)
|
||||
((command-string phrase-string*)*)
|
||||
|
||||
Each phrase-string is concatenated onto the command-string to form a
|
||||
command filter. The (standard) output (and standard error) of the Un*x
|
||||
|
|
|
|||
|
|
@ -162,7 +162,7 @@ compatibility with versions of Emacs that lack the variable
|
|||
|
||||
(let* ((load-path (image-load-path-for-library \"mh-e\" \"mh-logo.xpm\"))
|
||||
(image-load-path (cons (car load-path)
|
||||
(when (boundp 'image-load-path)
|
||||
(when (boundp \\='image-load-path)
|
||||
image-load-path))))
|
||||
(mh-tool-bar-folder-buttons-init))"
|
||||
(unless library (error "No library specified"))
|
||||
|
|
|
|||
|
|
@ -1657,7 +1657,7 @@ using the Emacs 22 command \"emacsclient\" as follows:
|
|||
origMode
|
||||
polltime 10
|
||||
headertime 0
|
||||
command emacsclient --eval '(mh-inc-spool-mh-e)'
|
||||
command emacsclient --eval \\='(mh-inc-spool-mh-e)\\='
|
||||
|
||||
In XEmacs, the command \"gnuclient\" is used in a similar
|
||||
fashion."
|
||||
|
|
|
|||
|
|
@ -154,7 +154,7 @@ If you have the bug (or the real fix :-), please let me know."
|
|||
"Drag out a secondary selection, then paste it at the current point.
|
||||
|
||||
To test this function, evaluate:
|
||||
(global-set-key [M-down-mouse-1] 'mouse-drag-secondary-pasting)
|
||||
(global-set-key [M-down-mouse-1] \\='mouse-drag-secondary-pasting)
|
||||
put the point at one place, then click and drag over some other region."
|
||||
(interactive "e")
|
||||
;; Work-around: We see and react to each part of a multi-click event
|
||||
|
|
|
|||
|
|
@ -206,7 +206,7 @@ about which direction is natural. Perhaps it has to do with which
|
|||
hemisphere you're in.)
|
||||
|
||||
To test this function, evaluate:
|
||||
(global-set-key [down-mouse-2] 'mouse-drag-throw)"
|
||||
(global-set-key [down-mouse-2] \\='mouse-drag-throw)"
|
||||
(interactive "e")
|
||||
;; we want to do save-selected-window, but that requires 19.29
|
||||
(let* ((start-posn (event-start start-event))
|
||||
|
|
@ -266,7 +266,7 @@ Drag scrolling is identical to the \"hand\" option in MacPaint, or the
|
|||
middle button in Tk text widgets.
|
||||
|
||||
To test this function, evaluate:
|
||||
(global-set-key [down-mouse-2] 'mouse-drag-drag)"
|
||||
(global-set-key [down-mouse-2] \\='mouse-drag-drag)"
|
||||
(interactive "e")
|
||||
;; we want to do save-selected-window, but that requires 19.29
|
||||
(let* ((start-posn (event-start start-event))
|
||||
|
|
|
|||
|
|
@ -439,7 +439,7 @@ For example, adding to the default a specific translation of an ange-ftp
|
|||
address to an HTTP URL:
|
||||
|
||||
(setq browse-url-filename-alist
|
||||
'((\"/webmaster@webserver:/home/www/html/\" .
|
||||
\\='((\"/webmaster@webserver:/home/www/html/\" .
|
||||
\"http://www.acme.co.uk/\")
|
||||
(\"^/\\(ftp@\\|anonymous@\\)?\\([^:]+\\):/*\" . \"ftp://\\2/\")
|
||||
(\"^/\\([^:@]+@\\)?\\([^:]+\\):/*\" . \"ftp://\\1\\2/\")
|
||||
|
|
|
|||
|
|
@ -489,7 +489,7 @@ structure predicate for the type of element you want to retrieve.
|
|||
For example, to retrieve a message named \"foo\" when other
|
||||
elements named \"foo\" exist in the WSDL you could use:
|
||||
|
||||
(soap-wsdl-get \"foo\" WSDL 'soap-message-p)
|
||||
(soap-wsdl-get \"foo\" WSDL \\='soap-message-p)
|
||||
|
||||
If USE-LOCAL-ALIAS-TABLE is not nil, `soap-local-xmlns' will be
|
||||
used to resolve the namespace alias."
|
||||
|
|
|
|||
|
|
@ -137,7 +137,7 @@ the external program knows about the root certificates you
|
|||
consider trustworthy, e.g.:
|
||||
|
||||
\(setq tls-program
|
||||
'(\"gnutls-cli --x509cafile /etc/ssl/certs/ca-certificates.crt -p %p %h\"
|
||||
\\='(\"gnutls-cli --x509cafile /etc/ssl/certs/ca-certificates.crt -p %p %h\"
|
||||
\"gnutls-cli --x509cafile /etc/ssl/certs/ca-certificates.crt -p %p %h --protocols ssl3\"
|
||||
\"openssl s_client -connect %h:%p -CAfile /etc/ssl/certs/ca-certificates.crt -no_ssl2 -ign_eof\"))"
|
||||
:type '(choice (const :tag "Always" t)
|
||||
|
|
|
|||
|
|
@ -972,14 +972,14 @@ checked via the following code:
|
|||
(erase-buffer)
|
||||
(let ((proc (start-process (buffer-name) (current-buffer)
|
||||
\"ssh\" \"-l\" user host \"wc\" \"-c\")))
|
||||
(when (memq (process-status proc) '(run open))
|
||||
(when (memq (process-status proc) \\='(run open))
|
||||
(process-send-string proc (make-string sent ?\\ ))
|
||||
(process-send-eof proc)
|
||||
(process-send-eof proc))
|
||||
(while (not (progn (goto-char (point-min))
|
||||
(re-search-forward \"\\\\w+\" (point-max) t)))
|
||||
(accept-process-output proc 1))
|
||||
(when (memq (process-status proc) '(run open))
|
||||
(when (memq (process-status proc) \\='(run open))
|
||||
(setq received (string-to-number (match-string 0)))
|
||||
(delete-process proc)
|
||||
(message \"Bytes sent: %s\\tBytes received: %s\" sent received)
|
||||
|
|
|
|||
|
|
@ -336,7 +336,7 @@ If nil, means information for all faces will be saved.")
|
|||
With arg, turn Fast Lock mode on if and only if arg is positive and the buffer
|
||||
is associated with a file. Enable it automatically in your `~/.emacs' by:
|
||||
|
||||
(setq font-lock-support-mode 'fast-lock-mode)
|
||||
(setq font-lock-support-mode \\='fast-lock-mode)
|
||||
|
||||
If Fast Lock mode is enabled, and the current buffer does not contain any text
|
||||
properties, any associated Font Lock cache is used if its timestamp matches the
|
||||
|
|
@ -538,7 +538,7 @@ If the same file has different cache file names when edited on different
|
|||
machines, e.g., on one machine the cache file name has the prefix `#home',
|
||||
perhaps due to automount, try putting in your `~/.emacs' something like:
|
||||
|
||||
(setq directory-abbrev-alist (cons '(\"^/home/\" . \"/\") directory-abbrev-alist))
|
||||
(setq directory-abbrev-alist (cons \\='(\"^/home/\" . \"/\") directory-abbrev-alist))
|
||||
|
||||
Emacs automagically removes the common `/tmp_mnt' automount prefix by default.
|
||||
|
||||
|
|
|
|||
|
|
@ -466,7 +466,7 @@ See also `lazy-lock-stealth-load'."
|
|||
With arg, turn Lazy Lock mode on if and only if arg is positive. Enable it
|
||||
automatically in your `~/.emacs' by:
|
||||
|
||||
(setq font-lock-support-mode 'lazy-lock-mode)
|
||||
(setq font-lock-support-mode \\='lazy-lock-mode)
|
||||
|
||||
For a newer font-lock support mode with similar functionality, see
|
||||
`jit-lock-mode'. Eventually, Lazy Lock mode will be deprecated in
|
||||
|
|
|
|||
|
|
@ -165,9 +165,9 @@ Uses `symbol-completion-symbol-function' and
|
|||
used something like this in a major mode which provides symbol
|
||||
completion:
|
||||
|
||||
(if (featurep 'hippie-exp)
|
||||
(set (make-local-variable 'hippie-expand-try-functions-list)
|
||||
(cons 'symbol-completion-try-complete
|
||||
(if (featurep \\='hippie-exp)
|
||||
(set (make-local-variable \\='hippie-expand-try-functions-list)
|
||||
(cons \\='symbol-completion-try-complete
|
||||
hippie-expand-try-functions-list)))"
|
||||
(when (and symbol-completion-symbol-function
|
||||
symbol-completion-completions-function)
|
||||
|
|
|
|||
|
|
@ -497,7 +497,7 @@ are prefix commands. For the dispatcher to display useful information, you
|
|||
should provide a description for the prefix, like
|
||||
|
||||
(setq org-agenda-custom-commands
|
||||
'((\"h\" . \"HOME + Name tag searches\") ; describe prefix \"h\"
|
||||
\\='((\"h\" . \"HOME + Name tag searches\") ; describe prefix \"h\"
|
||||
(\"hl\" tags \"+HOME+Lisa\")
|
||||
(\"hp\" tags \"+HOME+Peter\")
|
||||
(\"hk\" tags \"+HOME+Kim\")))"
|
||||
|
|
@ -1932,7 +1932,7 @@ list as second element:
|
|||
For example, to display a 16px horizontal space for Emacs
|
||||
category, you can use:
|
||||
|
||||
(\"Emacs\" '(space . (:width (16))))"
|
||||
(\"Emacs\" \\='(space . (:width (16))))"
|
||||
:group 'org-agenda-line-format
|
||||
:version "24.1"
|
||||
:type '(alist :key-type (string :tag "Regexp matching category")
|
||||
|
|
@ -2538,7 +2538,7 @@ For example, if you have a custom agenda command \"p\" and you
|
|||
want this command to be accessible only from plain text files,
|
||||
use this:
|
||||
|
||||
'((\"p\" ((in-file . \"\\.txt\"))))
|
||||
\\='((\"p\" ((in-file . \"\\.txt\"))))
|
||||
|
||||
Here are the available contexts definitions:
|
||||
|
||||
|
|
@ -2556,7 +2556,7 @@ accessible if there is at least one valid check.
|
|||
You can also bind a key to another agenda custom command
|
||||
depending on contextual rules.
|
||||
|
||||
'((\"p\" \"q\" ((in-file . \"\\.txt\"))))
|
||||
\\='((\"p\" \"q\" ((in-file . \"\\.txt\"))))
|
||||
|
||||
Here it means: in .txt files, use \"p\" as the key for the
|
||||
agenda command otherwise associated with \"q\". (The command
|
||||
|
|
@ -9596,7 +9596,7 @@ This is a command that has to be installed in `calendar-mode-map'."
|
|||
"Hebrew: " (calendar-hebrew-date-string date) " (until sunset)\n"
|
||||
"Islamic: " (calendar-islamic-date-string date) " (until sunset)\n"
|
||||
"French: " (calendar-french-date-string date) "\n"
|
||||
"Baha'i: " (calendar-bahai-date-string date) " (until sunset)\n"
|
||||
"Bahá’í: " (calendar-bahai-date-string date) " (until sunset)\n"
|
||||
"Mayan: " (calendar-mayan-date-string date) "\n"
|
||||
"Coptic: " (calendar-coptic-date-string date) "\n"
|
||||
"Ethiopic: " (calendar-ethiopic-date-string date) "\n"
|
||||
|
|
|
|||
|
|
@ -460,7 +460,7 @@ For example, if you have a capture template \"c\" and you want
|
|||
this template to be accessible only from `message-mode' buffers,
|
||||
use this:
|
||||
|
||||
'((\"c\" ((in-mode . \"message-mode\"))))
|
||||
((\"c\" ((in-mode . \"message-mode\"))))
|
||||
|
||||
Here are the available contexts definitions:
|
||||
|
||||
|
|
@ -478,7 +478,7 @@ accessible if there is at least one valid check.
|
|||
You can also bind a key to another agenda custom command
|
||||
depending on contextual rules.
|
||||
|
||||
'((\"c\" \"d\" ((in-mode . \"message-mode\"))))
|
||||
((\"c\" \"d\" ((in-mode . \"message-mode\"))))
|
||||
|
||||
Here it means: in `message-mode buffers', use \"c\" as the
|
||||
key for the capture template otherwise associated with \"d\".
|
||||
|
|
|
|||
|
|
@ -303,7 +303,7 @@ part."
|
|||
|
||||
(defun org-protocol-flatten-greedy (param-list &optional strip-path replacement)
|
||||
"Greedy handlers might receive a list like this from emacsclient:
|
||||
'((\"/dir/org-protocol:/greedy:/~/path1\" (23 . 12)) (\"/dir/param\")
|
||||
((\"/dir/org-protocol:/greedy:/~/path1\" (23 . 12)) (\"/dir/param\"))
|
||||
where \"/dir/\" is the absolute path to emacsclients working directory. This
|
||||
function transforms it into a flat list using `org-protocol-flatten' and
|
||||
transforms the elements of that list as follows:
|
||||
|
|
@ -347,7 +347,7 @@ returned list."
|
|||
|
||||
(defun org-protocol-flatten (l)
|
||||
"Greedy handlers might receive a list like this from emacsclient:
|
||||
'( (\"/dir/org-protocol:/greedy:/~/path1\" (23 . 12)) (\"/dir/param\")
|
||||
((\"/dir/org-protocol:/greedy:/~/path1\" (23 . 12)) (\"/dir/param\"))
|
||||
where \"/dir/\" is the absolute path to emacsclients working directory.
|
||||
This function transforms it into a flat list."
|
||||
(if (null l) ()
|
||||
|
|
@ -365,9 +365,9 @@ link's URL to the `kill-ring'.
|
|||
|
||||
The location for a browser's bookmark has to look like this:
|
||||
|
||||
javascript:location.href='org-protocol://store-link://'+ \\
|
||||
javascript:location.href=\\='org-protocol://store-link://\\='+ \\
|
||||
encodeURIComponent(location.href)
|
||||
encodeURIComponent(document.title)+'/'+ \\
|
||||
encodeURIComponent(document.title)+\\='/\\='+ \\
|
||||
|
||||
Don't use `escape()'! Use `encodeURIComponent()' instead. The title of the page
|
||||
could contain slashes and the location definitely will.
|
||||
|
|
@ -396,16 +396,16 @@ The sub-protocol used to reach this function is set in
|
|||
This function detects an URL, title and optional text, separated
|
||||
by `/'. The location for a browser's bookmark looks like this:
|
||||
|
||||
javascript:location.href='org-protocol://capture://'+ \\
|
||||
encodeURIComponent(location.href)+'/' \\
|
||||
encodeURIComponent(document.title)+'/'+ \\
|
||||
javascript:location.href=\\='org-protocol://capture://\\='+ \\
|
||||
encodeURIComponent(location.href)+\\='/\\=' \\
|
||||
encodeURIComponent(document.title)+\\='/\\='+ \\
|
||||
encodeURIComponent(window.getSelection())
|
||||
|
||||
By default, it uses the character `org-protocol-default-template-key',
|
||||
which should be associated with a template in `org-capture-templates'.
|
||||
But you may prepend the encoded URL with a character and a slash like so:
|
||||
|
||||
javascript:location.href='org-protocol://capture://b/'+ ...
|
||||
javascript:location.href=\\='org-protocol://capture://b/\\='+ ...
|
||||
|
||||
Now template ?b will be used."
|
||||
(if (and (boundp 'org-stored-links)
|
||||
|
|
@ -455,7 +455,7 @@ in `org-protocol-project-alist'.
|
|||
|
||||
The location for a browser's bookmark should look like this:
|
||||
|
||||
javascript:location.href='org-protocol://open-source://'+ \\
|
||||
javascript:location.href=\\='org-protocol://open-source://\\='+ \\
|
||||
encodeURIComponent(location.href)"
|
||||
;; As we enter this function for a match on our protocol, the return value
|
||||
;; defaults to nil.
|
||||
|
|
|
|||
|
|
@ -166,10 +166,10 @@ other-frame Use `switch-to-buffer-other-frame' to display edit buffer.
|
|||
(const reorganize-frame)))
|
||||
|
||||
(defvar org-src-mode-hook nil
|
||||
"Hook run after Org switched a source code snippet to its Emacs mode.
|
||||
"Hook run after Org switched a source code snippet to its Emacs mode.
|
||||
This hook will run
|
||||
|
||||
- when editing a source code snippet with \"C-c '\".
|
||||
- when editing a source code snippet with `\\[org-src-mode-map]'.
|
||||
- When formatting a source code snippet for export with htmlize.
|
||||
|
||||
You may want to use this hook for example to turn off `outline-minor-mode'
|
||||
|
|
@ -226,7 +226,7 @@ the existing edit buffer."
|
|||
(define-minor-mode org-src-mode
|
||||
"Minor mode for language major mode buffers generated by org.
|
||||
This minor mode is turned on in two situations:
|
||||
- when editing a source code snippet with \"C-c '\".
|
||||
- when editing a source code snippet with `\\[org-src-mode-map]'.
|
||||
- When formatting a source code snippet for export with htmlize.
|
||||
There is a mode hook, and keybindings for `org-edit-src-exit' and
|
||||
`org-edit-src-save'")
|
||||
|
|
|
|||
|
|
@ -545,8 +545,8 @@ slightly, to make sure a beginning of line in the first line is included.
|
|||
SEPARATOR specifies the field separator in the lines. It can have the
|
||||
following values:
|
||||
|
||||
'(4) Use the comma as a field separator
|
||||
'(16) Use a TAB as field separator
|
||||
(4) Use the comma as a field separator
|
||||
(16) Use a TAB as field separator
|
||||
integer When a number, use that many spaces as field separator
|
||||
nil When nil, the command tries to be smart and figure out the
|
||||
separator in the following way:
|
||||
|
|
|
|||
|
|
@ -1982,7 +1982,7 @@ file identifier are
|
|||
filename matches the regexp. If you want to
|
||||
use groups here, use shy groups.
|
||||
|
||||
Example: (\"\\.x?html\\'\" . \"firefox %s\")
|
||||
Example: (\"\\.x?html\\\\='\" . \"firefox %s\")
|
||||
(\"\\(?:xhtml\\|html\\)\" . \"firefox %s\")
|
||||
to open *.html and *.xhtml with firefox.
|
||||
|
||||
|
|
@ -1998,7 +1998,7 @@ file identifier are
|
|||
In a custom lisp form, you can access the group matches with
|
||||
(match-string n link).
|
||||
|
||||
Example: (\"\\.pdf::\\(\\d+\\)\\'\" . \"evince -p %1 %s\")
|
||||
Example: (\"\\.pdf::\\(\\d+\\)\\\\='\" . \"evince -p %1 %s\")
|
||||
to open [[file:document.pdf::5]] with evince at page 5.
|
||||
|
||||
`directory' Matches a directory
|
||||
|
|
@ -12222,13 +12222,13 @@ With a triple \\[universal-argument] prefix, circumvent any state blocking.
|
|||
With a numeric prefix arg of 0, inhibit note taking for the change.
|
||||
|
||||
For calling through lisp, arg is also interpreted in the following way:
|
||||
'none -> empty state
|
||||
\"\"(empty string) -> switch to empty state
|
||||
'done -> switch to DONE
|
||||
'nextset -> switch to the next set of keywords
|
||||
'previousset -> switch to the previous set of keywords
|
||||
\"WAITING\" -> switch to the specified keyword, but only if it
|
||||
really is a member of `org-todo-keywords'."
|
||||
`none' -> empty state
|
||||
\"\" (empty string) -> switch to empty state
|
||||
`done' -> switch to DONE
|
||||
`nextset' -> switch to the next set of keywords
|
||||
`previousset' -> switch to the previous set of keywords
|
||||
\"WAITING\" -> switch to the specified keyword, but only if it
|
||||
really is a member of `org-todo-keywords'."
|
||||
(interactive "P")
|
||||
(if (and (org-region-active-p) org-loop-over-headlines-in-active-region)
|
||||
(let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level)
|
||||
|
|
|
|||
|
|
@ -1060,7 +1060,7 @@ keywords are understood:
|
|||
Menu entry for the export dispatcher. It should be a list
|
||||
like:
|
||||
|
||||
'(KEY DESCRIPTION-OR-ORDINAL ACTION-OR-MENU)
|
||||
(KEY DESCRIPTION-OR-ORDINAL ACTION-OR-MENU)
|
||||
|
||||
where :
|
||||
|
||||
|
|
@ -1084,17 +1084,17 @@ keywords are understood:
|
|||
If it is an alist, associations should follow the
|
||||
pattern:
|
||||
|
||||
'(KEY DESCRIPTION ACTION)
|
||||
(KEY DESCRIPTION ACTION)
|
||||
|
||||
where KEY, DESCRIPTION and ACTION are described above.
|
||||
|
||||
Valid values include:
|
||||
|
||||
'(?m \"My Special Back-end\" my-special-export-function)
|
||||
(?m \"My Special Back-end\" my-special-export-function)
|
||||
|
||||
or
|
||||
|
||||
'(?l \"Export to LaTeX\"
|
||||
(?l \"Export to LaTeX\"
|
||||
\(?p \"As PDF file\" org-latex-export-to-pdf)
|
||||
\(?o \"As PDF file and open\"
|
||||
\(lambda (a s v b)
|
||||
|
|
@ -1105,7 +1105,7 @@ keywords are understood:
|
|||
or the following, which will be added to the previous
|
||||
sub-menu,
|
||||
|
||||
'(?l 1
|
||||
(?l 1
|
||||
\((?B \"As TEX buffer (Beamer)\" org-beamer-export-as-latex)
|
||||
\(?P \"As PDF file (Beamer)\" org-beamer-export-to-pdf)))
|
||||
|
||||
|
|
|
|||
|
|
@ -634,7 +634,7 @@ move into or out of sexps (not even normal expression parentheses).
|
|||
|
||||
If point is already at the earliest statement within braces or parens,
|
||||
this function doesn't move back into any whitespace preceding it; it
|
||||
returns 'same in this case.
|
||||
returns `same' in this case.
|
||||
|
||||
Stop at statement continuation tokens like \"else\", \"catch\",
|
||||
\"finally\" and the \"while\" in \"do ... while\" if the start point
|
||||
|
|
@ -656,19 +656,19 @@ start of the definition in a \"#define\". Also stop at start of
|
|||
macros before leaving them.
|
||||
|
||||
Return:
|
||||
'label if stopped at a label or \"case...:\" or \"default:\";
|
||||
'same if stopped at the beginning of the current statement;
|
||||
'up if stepped to a containing statement;
|
||||
'previous if stepped to a preceding statement;
|
||||
'beginning if stepped from a statement continuation clause to
|
||||
`label' if stopped at a label or \"case...:\" or \"default:\";
|
||||
`same' if stopped at the beginning of the current statement;
|
||||
`up' if stepped to a containing statement;
|
||||
`previous' if stepped to a preceding statement;
|
||||
`beginning' if stepped from a statement continuation clause to
|
||||
its start clause; or
|
||||
'macro if stepped to a macro start.
|
||||
Note that 'same and not 'label is returned if stopped at the same
|
||||
`macro' if stepped to a macro start.
|
||||
Note that `same' and not `label' is returned if stopped at the same
|
||||
label without crossing the colon character.
|
||||
|
||||
LIM may be given to limit the search. If the search hits the limit,
|
||||
point will be left at the closest following token, or at the start
|
||||
position if that is less ('same is returned in this case).
|
||||
position if that is less (`same' is returned in this case).
|
||||
|
||||
NOERROR turns off error logging to `c-parsing-error'.
|
||||
|
||||
|
|
|
|||
|
|
@ -926,14 +926,14 @@ following elements. The car of each element describes the type of the
|
|||
operator group, and the cdr is a list of the operator tokens in it.
|
||||
The operator group types are:
|
||||
|
||||
'prefix Unary prefix operators.
|
||||
'postfix Unary postfix operators.
|
||||
'postfix-if-paren
|
||||
`prefix' Unary prefix operators.
|
||||
`postfix' Unary postfix operators.
|
||||
`postfix-if-paren'
|
||||
Unary postfix operators if and only if the chars have
|
||||
parenthesis syntax.
|
||||
'left-assoc Binary left associative operators (i.e. a+b+c means (a+b)+c).
|
||||
'right-assoc Binary right associative operators (i.e. a=b=c means a=(b=c)).
|
||||
'right-assoc-sequence
|
||||
`left-assoc' Binary left associative operators (i.e. a+b+c means (a+b)+c).
|
||||
`right-assoc' Binary right associative operators (i.e. a=b=c means a=(b=c)).
|
||||
`right-assoc-sequence'
|
||||
Right associative operator that constitutes of a
|
||||
sequence of tokens that separate expressions. All the
|
||||
tokens in the group are in this case taken as
|
||||
|
|
|
|||
|
|
@ -833,7 +833,7 @@ string in the mode line), and a semicolon or comma is typed (see
|
|||
no arguments, and should return one of the following values:
|
||||
|
||||
nil -- no determination made, continue checking
|
||||
'stop -- do not insert a newline, and stop checking
|
||||
`stop' -- do not insert a newline, and stop checking
|
||||
(anything else) -- insert a newline, and stop checking
|
||||
|
||||
If every function in the list is called with no determination made,
|
||||
|
|
|
|||
|
|
@ -724,7 +724,7 @@ mode-compile.el.
|
|||
If your Emacs does not default to `cperl-mode' on Perl files, and you
|
||||
want it to: put the following into your .emacs file:
|
||||
|
||||
(defalias 'perl-mode 'cperl-mode)
|
||||
(defalias \\='perl-mode \\='cperl-mode)
|
||||
|
||||
Get perl5-info from
|
||||
$CPAN/doc/manual/info/perl5-old/perl5-info.tar.gz
|
||||
|
|
|
|||
|
|
@ -1322,7 +1322,7 @@ which see."
|
|||
0 - contains the last symbol read from the buffer.
|
||||
1 - contains the string last displayed in the echo area for variables,
|
||||
or argument string for functions.
|
||||
2 - 'function if function args, 'variable if variable documentation.")
|
||||
2 - `function' if function args, `variable' if variable documentation.")
|
||||
|
||||
(defun elisp-eldoc-documentation-function ()
|
||||
"`eldoc-documentation-function' (which see) for Emacs Lisp."
|
||||
|
|
|
|||
|
|
@ -1425,7 +1425,7 @@ single - statement is not continued.
|
|||
begin - current line is the first in a continued statement.
|
||||
end - current line is the last in a continued statement
|
||||
middle - current line is neither first nor last in a continued statement.
|
||||
Comment lines embedded amongst continued lines return 'middle."
|
||||
Comment lines embedded amongst continued lines return `middle'."
|
||||
(let (pcont cont)
|
||||
(save-excursion
|
||||
(setq pcont (if (f90-previous-statement) (f90-line-continued))))
|
||||
|
|
|
|||
|
|
@ -817,15 +817,15 @@ Variables controlling indentation style and extra features:
|
|||
Amount of extra indentation for text in full-line comments (default 0).
|
||||
`fortran-comment-indent-style'
|
||||
How to indent the text in full-line comments. Allowed values are:
|
||||
nil don't change the indentation
|
||||
fixed indent to `fortran-comment-line-extra-indent' beyond the
|
||||
nil don't change the indentation
|
||||
`fixed' indent to `fortran-comment-line-extra-indent' beyond the
|
||||
value of either
|
||||
`fortran-minimum-statement-indent-fixed' (fixed format) or
|
||||
`fortran-minimum-statement-indent-tab' (TAB format),
|
||||
depending on the continuation format in use.
|
||||
relative indent to `fortran-comment-line-extra-indent' beyond the
|
||||
`relative' indent to `fortran-comment-line-extra-indent' beyond the
|
||||
indentation for a line of code.
|
||||
(default 'fixed)
|
||||
(default `fixed')
|
||||
`fortran-comment-indent-char'
|
||||
Single-character string to be inserted instead of space for
|
||||
full-line comment indentation (default \" \").
|
||||
|
|
|
|||
|
|
@ -2065,7 +2065,7 @@ a GDB/MI reply message."
|
|||
(defun gdbmi-bnf-gdb-prompt ()
|
||||
"Implementation of the following GDB/MI output grammar rule:
|
||||
gdb-prompt ==>
|
||||
'(gdb)' nl
|
||||
`(gdb)' nl
|
||||
|
||||
nl ==>
|
||||
CR | CR-LF"
|
||||
|
|
@ -2085,7 +2085,7 @@ a GDB/MI reply message."
|
|||
"Implementation of the following GDB/MI output grammar rule:
|
||||
|
||||
result-record ==>
|
||||
[ token ] '^' result-class ( ',' result )* nl
|
||||
[ token ] `^' result-class ( `,' result )* nl
|
||||
|
||||
token ==>
|
||||
any sequence of digits."
|
||||
|
|
@ -2110,16 +2110,16 @@ a GDB/MI reply message."
|
|||
exec-async-output | status-async-output | notify-async-output
|
||||
|
||||
exec-async-output ==>
|
||||
[ token ] '*' async-output
|
||||
[ token ] `*' async-output
|
||||
|
||||
status-async-output ==>
|
||||
[ token ] '+' async-output
|
||||
[ token ] `+' async-output
|
||||
|
||||
notify-async-output ==>
|
||||
[ token ] '=' async-output
|
||||
[ token ] `=' async-output
|
||||
|
||||
async-output ==>
|
||||
async-class ( ',' result )* nl"
|
||||
async-class ( `,' result )* nl"
|
||||
|
||||
(gdbmi-bnf-result-and-async-record-impl))
|
||||
|
||||
|
|
@ -2130,13 +2130,13 @@ a GDB/MI reply message."
|
|||
console-stream-output | target-stream-output | log-stream-output
|
||||
|
||||
console-stream-output ==>
|
||||
'~' c-string
|
||||
`~' c-string
|
||||
|
||||
target-stream-output ==>
|
||||
'@' c-string
|
||||
`@' c-string
|
||||
|
||||
log-stream-output ==>
|
||||
'&' c-string"
|
||||
`&' c-string"
|
||||
(when (< gdbmi-bnf-offset (length gud-marker-acc))
|
||||
(if (and (member (aref gud-marker-acc gdbmi-bnf-offset) '(?~ ?@ ?&))
|
||||
(string-match (concat "\\([~@&]\\)\\(" gdb--string-regexp "\\)\n")
|
||||
|
|
|
|||
|
|
@ -152,7 +152,7 @@ This variable can have 3 values:
|
|||
nil Arrows just move the cursor
|
||||
t Arrows force the cursor back to the current command line and
|
||||
walk the history
|
||||
'cmdline When the cursor is in the current command line, arrows walk the
|
||||
`cmdline' When the cursor is in the current command line, arrows walk the
|
||||
history. Everywhere else in the buffer, arrows move the cursor."
|
||||
:group 'idlwave-shell-general-setup
|
||||
:type '(choice
|
||||
|
|
@ -439,15 +439,13 @@ Value decides about the method which is used to mark the line. Valid values
|
|||
are:
|
||||
|
||||
nil Do not mark the line
|
||||
'arrow Use the overlay arrow
|
||||
'face Use `idlwave-shell-stop-line-face' to highlight the line.
|
||||
`arrow' Use the overlay arrow
|
||||
`face' Use `idlwave-shell-stop-line-face' to highlight the line.
|
||||
t Use what IDLWAVE thinks is best. Will be a face where possible,
|
||||
otherwise the overlay arrow.
|
||||
The overlay-arrow has the disadvantage to hide the first chars of a line.
|
||||
Since many people do not have the main block of IDL programs indented,
|
||||
a face highlighting may be better.
|
||||
In Emacs 21, the overlay arrow is displayed in a special area and never
|
||||
hides any code, so setting this to 'arrow on Emacs 21 sounds like a good idea."
|
||||
a face highlighting may be better."
|
||||
:group 'idlwave-shell-highlighting-and-faces
|
||||
:type '(choice
|
||||
(const :tag "No marking" nil)
|
||||
|
|
@ -494,10 +492,10 @@ where IDL is stopped, when in Electric Debug Mode."
|
|||
"Non-nil means, mark breakpoints in the source files.
|
||||
Valid values are:
|
||||
nil Do not mark breakpoints.
|
||||
'face Highlight line with `idlwave-shell-breakpoint-face'.
|
||||
'glyph Red dot at the beginning of line. If the display does not
|
||||
support glyphs, will use 'face instead.
|
||||
t Glyph when possible, otherwise face (same effect as 'glyph)."
|
||||
`face' Highlight line with `idlwave-shell-breakpoint-face'.
|
||||
`glyph' Red dot at the beginning of line. If the display does not
|
||||
support glyphs, will use `face' instead.
|
||||
t Glyph when possible, otherwise face (same effect as `glyph')."
|
||||
:group 'idlwave-shell-highlighting-and-faces
|
||||
:type '(choice
|
||||
(const :tag "No marking" nil)
|
||||
|
|
@ -3911,7 +3909,7 @@ Elements of the alist have the form:
|
|||
|
||||
(defun idlwave-shell-module-source-query (module &optional type)
|
||||
"Determine the source file for a given module.
|
||||
Query as a function if TYPE set to something beside 'pro."
|
||||
Query as a function if TYPE set to something beside `pro'."
|
||||
(if module
|
||||
(idlwave-shell-send-command
|
||||
(format "print,(routine_info('%s',/SOURCE%s)).PATH" module
|
||||
|
|
|
|||
|
|
@ -376,7 +376,7 @@ The following values are allowed:
|
|||
|
||||
nil Don't scan any buffers.
|
||||
t Scan all `idlwave-mode' buffers in the current editing session.
|
||||
current Scan only the current buffer, but no other buffers."
|
||||
`current' Scan only the current buffer, but no other buffers."
|
||||
:group 'idlwave-routine-info
|
||||
:type '(choice
|
||||
(const :tag "No buffer" nil)
|
||||
|
|
@ -5833,15 +5833,15 @@ to override IDLWAVE's idea of what should be completed at point.
|
|||
Possible values are:
|
||||
|
||||
0 <=> query for the completion type
|
||||
1 <=> 'procedure
|
||||
2 <=> 'procedure-keyword
|
||||
3 <=> 'function
|
||||
4 <=> 'function-keyword
|
||||
5 <=> 'procedure-method
|
||||
6 <=> 'procedure-method-keyword
|
||||
7 <=> 'function-method
|
||||
8 <=> 'function-method-keyword
|
||||
9 <=> 'class
|
||||
1 <=> `procedure'
|
||||
2 <=> `procedure-keyword'
|
||||
3 <=> `function'
|
||||
4 <=> `function-keyword'
|
||||
5 <=> `procedure-method'
|
||||
6 <=> `procedure-method-keyword'
|
||||
7 <=> `function-method'
|
||||
8 <=> `function-method-keyword'
|
||||
9 <=> `class'
|
||||
|
||||
As a special case, the universal argument C-u forces completion of
|
||||
function names in places where the default would be a keyword.
|
||||
|
|
|
|||
|
|
@ -402,11 +402,11 @@ Only used in ( If -> Then ; Else) and ( Disj1 ; Disj2 ) style expressions."
|
|||
(defcustom prolog-parse-mode 'beg-of-clause
|
||||
"The parse mode used (decides from which point parsing is done).
|
||||
Legal values:
|
||||
'beg-of-line - starts parsing at the beginning of a line, unless the
|
||||
previous line ends with a backslash. Fast, but has
|
||||
problems detecting multiline /* */ comments.
|
||||
'beg-of-clause - starts parsing at the beginning of the current clause.
|
||||
Slow, but copes better with /* */ comments."
|
||||
`beg-of-line' - starts parsing at the beginning of a line, unless the
|
||||
previous line ends with a backslash. Fast, but has
|
||||
problems detecting multiline /* */ comments.
|
||||
`beg-of-clause' - starts parsing at the beginning of the current clause.
|
||||
Slow, but copes better with /* */ comments."
|
||||
:version "24.1"
|
||||
:group 'prolog-indentation
|
||||
:type '(choice (const :value beg-of-line)
|
||||
|
|
@ -1209,7 +1209,7 @@ using the commands `send-region', `send-string' and \\[prolog-consult-region].
|
|||
Commands:
|
||||
Tab indents for Prolog; with argument, shifts rest
|
||||
of expression rigidly with the current line.
|
||||
Paragraphs are separated only by blank lines and '%%'. '%'s start comments.
|
||||
Paragraphs are separated only by blank lines and `%%'. `%'s start comments.
|
||||
|
||||
Return at end of buffer sends line as input.
|
||||
Return not at end copies rest of line to end and sends it.
|
||||
|
|
|
|||
|
|
@ -2979,7 +2979,7 @@ This is a wrapper over `buffer-substring' that takes care of
|
|||
different transformations for the code sent to be evaluated in
|
||||
the python shell:
|
||||
1. When optional argument NOMAIN is non-nil everything under an
|
||||
\"if __name__ == '__main__'\" block will be removed.
|
||||
\"if __name__ == \\='__main__\\='\" block will be removed.
|
||||
2. When a subregion of the buffer is sent, it takes care of
|
||||
appending extra empty lines so tracebacks are correct.
|
||||
3. When the region sent is a substring of the current buffer, a
|
||||
|
|
|
|||
|
|
@ -4361,7 +4361,7 @@ Usage:
|
|||
;;; --> \" := \" [[ --> [ --CR --> comment-out code
|
||||
.. --> \" => \" ] --> ) --- --> horizontal line
|
||||
,, --> \" <= \" ]] --> ] ---- --> display comment
|
||||
== --> \" == \" '' --> \\\"
|
||||
== --> \" == \" \\='\\=' --> \\\"
|
||||
|
||||
|
||||
WORD COMPLETION:
|
||||
|
|
@ -4808,7 +4808,7 @@ Usage:
|
|||
automatically recognized as VHDL source files. To add an extension
|
||||
\".xxx\", add the following line to your Emacs start-up file (`.emacs'):
|
||||
|
||||
\(push '(\"\\\\.xxx\\\\'\" . vhdl-mode) auto-mode-alist)
|
||||
\(push \\='(\"\\\\.xxx\\\\\\='\" . vhdl-mode) auto-mode-alist)
|
||||
|
||||
|
||||
HINTS:
|
||||
|
|
|
|||
|
|
@ -390,8 +390,8 @@ elements is negated."
|
|||
"Go to the location of ITEM and display the buffer.
|
||||
WINDOW controls how the buffer is displayed:
|
||||
nil -- switch-to-buffer
|
||||
'window -- pop-to-buffer (other window)
|
||||
'frame -- pop-to-buffer (other frame)"
|
||||
`window' -- pop-to-buffer (other window)
|
||||
`frame' -- pop-to-buffer (other frame)"
|
||||
(let* ((marker (save-excursion
|
||||
(xref-location-marker (xref-item-location item))))
|
||||
(buf (marker-buffer marker)))
|
||||
|
|
|
|||
|
|
@ -203,7 +203,7 @@ the user is done with the current expansion list.")
|
|||
)
|
||||
"List of functions to periodically call stealthily.
|
||||
This list is of the form:
|
||||
'( (\"NAME\" FUNCTION ...)
|
||||
( (\"NAME\" FUNCTION ...)
|
||||
...)
|
||||
where NAME is the name of the major display mode these functions are
|
||||
for, and the remaining elements FUNCTION are functions to call in order.
|
||||
|
|
@ -458,9 +458,9 @@ items is reached."
|
|||
(defcustom speedbar-directory-button-trim-method 'span
|
||||
"Indicates how the directory button will be displayed.
|
||||
Possible values are:
|
||||
'span - span large directories over multiple lines.
|
||||
'trim - trim large directories to only show the last few.
|
||||
nil - no trimming."
|
||||
`span' - span large directories over multiple lines.
|
||||
`trim' - trim large directories to only show the last few.
|
||||
nil - no trimming."
|
||||
:group 'speedbar
|
||||
:type '(radio (const :tag "Span large directories over multiple lines."
|
||||
span)
|
||||
|
|
|
|||
|
|
@ -86,7 +86,7 @@ or if your init file contains a line of this form:
|
|||
(setq inhibit-startup-echo-area-message \"YOUR-USER-NAME\")
|
||||
If your init file is byte-compiled, use the following form
|
||||
instead:
|
||||
(eval '(setq inhibit-startup-echo-area-message \"YOUR-USER-NAME\"))
|
||||
(eval \\='(setq inhibit-startup-echo-area-message \"YOUR-USER-NAME\"))
|
||||
Thus, someone else using a copy of your init file will see the
|
||||
startup message unless he personally acts to inhibit it."
|
||||
:type '(choice (const :tag "Don't inhibit")
|
||||
|
|
|
|||
|
|
@ -388,7 +388,7 @@ It consists of pairs (REGEXP . DICTIONARY). If REGEXP is found
|
|||
in the message headers, `ispell-local-dictionary' will be set to
|
||||
DICTIONARY if `ispell-local-dictionary' is not buffer-local.
|
||||
E.g. you may use the following value:
|
||||
'((\"^Newsgroups:[ \\t]*de\\\\.\" . \"deutsch8\")
|
||||
((\"^Newsgroups:[ \\t]*de\\\\.\" . \"deutsch8\")
|
||||
(\"^To:[^\\n,]+\\\\.de[ \\t\\n,>]\" . \"deutsch8\"))"
|
||||
:type '(repeat (cons regexp string))
|
||||
:group 'ispell)
|
||||
|
|
@ -484,7 +484,7 @@ The function must take one string argument and return a string."
|
|||
"When non-nil ispell uses framepop to display choices in a dedicated frame.
|
||||
You can set this variable to dynamically use framepop if you are in a
|
||||
window system by evaluating the following on startup to set this variable:
|
||||
(and window-system (condition-case () (require 'framepop) (error nil)))"
|
||||
(and window-system (condition-case () (require \\='framepop) (error nil)))"
|
||||
:type 'boolean
|
||||
:group 'ispell)
|
||||
|
||||
|
|
|
|||
|
|
@ -1153,9 +1153,9 @@ path."
|
|||
"Sorting of the entries found in BibTeX databases by reftex-citation.
|
||||
Possible values:
|
||||
nil Do not sort entries.
|
||||
'author Sort entries by author name.
|
||||
'year Sort entries by increasing year.
|
||||
'reverse-year Sort entries by decreasing year."
|
||||
`author' Sort entries by author name.
|
||||
`year' Sort entries by increasing year.
|
||||
`reverse-year' Sort entries by decreasing year."
|
||||
:group 'reftex-citation-support
|
||||
:type '(choice (const :tag "not" nil)
|
||||
(const :tag "by author" author)
|
||||
|
|
|
|||
|
|
@ -2138,15 +2138,15 @@ for completion and choices.
|
|||
|
||||
(a) If user selects bullets or #, it's just added.
|
||||
(b) If user selects enumerations, a further prompt is given. User needs to
|
||||
input a starting item, for example 'e' for 'A)' style.
|
||||
input a starting item, for example `e' for `A)' style.
|
||||
|
||||
The position of the new list is arranged according to whether or not the
|
||||
current line and the previous line are blank lines.
|
||||
|
||||
2. When continuing a list, one thing needs to be noticed:
|
||||
|
||||
List style alphabetical list, such as 'a.', and roman numerical list, such as
|
||||
'i.', have some overlapping items, for example 'v.' The function can deal with
|
||||
List style alphabetical list, such as `a.', and roman numerical list, such as
|
||||
`i.', have some overlapping items, for example `v.' The function can deal with
|
||||
the problem elegantly in most situations. But when those overlapped list are
|
||||
preceded by a blank line, it is hard to determine which type to use
|
||||
automatically. The function uses alphabetical list by default. If you want
|
||||
|
|
|
|||
|
|
@ -2066,7 +2066,7 @@ Images in many formats can be inlined with <img src=\"URL\">.
|
|||
If you mainly create your own documents, `sgml-specials' might be
|
||||
interesting. But note that some HTML 2 browsers can't handle `''.
|
||||
To work around that, do:
|
||||
(eval-after-load \"sgml-mode\" '(aset sgml-char-names ?\\=' nil))
|
||||
(eval-after-load \"sgml-mode\" \\='(aset sgml-char-names ?\\=' nil))
|
||||
|
||||
\\{html-mode-map}"
|
||||
(setq-local sgml-display-text html-display-text)
|
||||
|
|
|
|||
|
|
@ -1407,7 +1407,7 @@ level in the Texinfo file; when looking for the `Previous' pointer,
|
|||
the section found will be at the same or higher hierarchical level in
|
||||
the Texinfo file; when looking for the `Up' pointer, the section found
|
||||
will be at some level higher in the Texinfo file. The fourth argument
|
||||
\(one of `next’, `previous’, or `up'\) specifies whether to find the
|
||||
\(one of `next', `previous', or `up'\) specifies whether to find the
|
||||
`Next', `Previous', or `Up' pointer."
|
||||
(let ((case-fold-search t))
|
||||
(cond ((eq direction 'next)
|
||||
|
|
|
|||
|
|
@ -160,7 +160,7 @@ a simple pass through function could be used:
|
|||
(setq-local tildify-foreach-region-function
|
||||
(lambda (cb beg end) (funcall cb beg end)))
|
||||
or better still:
|
||||
(setq-local tildify-foreach-region-function 'funcall)
|
||||
(setq-local tildify-foreach-region-function \\='funcall)
|
||||
See `tildify-foreach-ignore-environments' function for other ways to use the
|
||||
variable."
|
||||
:version "25.1"
|
||||
|
|
|
|||
|
|
@ -235,7 +235,7 @@ Optional arguments are:
|
|||
ARG any arguments to the ACTION command,
|
||||
OUTPUT-FORMAT is the file format to output (default is jpeg),
|
||||
ACTION-PREFIX is the symbol to place before the ACTION command
|
||||
(defaults to '-' but can sometimes be '+')."
|
||||
(defaults to `-' but can sometimes be `+')."
|
||||
(call-process thumbs-conversion-program nil nil nil
|
||||
(or action-prefix "-")
|
||||
action
|
||||
|
|
|
|||
|
|
@ -294,9 +294,9 @@ Typically it should contain something like this:
|
|||
|
||||
(tree-widget-set-parent-theme \"my-parent-theme\")
|
||||
(tree-widget-set-image-properties
|
||||
(if (featurep 'xemacs)
|
||||
'(:ascent center)
|
||||
'(:ascent center :mask (heuristic t))
|
||||
(if (featurep \\='xemacs)
|
||||
\\='(:ascent center)
|
||||
\\='(:ascent center :mask (heuristic t))
|
||||
))"
|
||||
(or name (setq name (or tree-widget-theme "default")))
|
||||
(unless (string-equal name (tree-widget-theme-name))
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Reference in a new issue