diff options
Diffstat (limited to 'lisp/obsolete')
| -rw-r--r-- | lisp/obsolete/iso-acc.el | 6 | ||||
| -rw-r--r-- | lisp/obsolete/iswitchb.el | 4 | ||||
| -rw-r--r-- | lisp/obsolete/landmark.el | 2 | ||||
| -rw-r--r-- | lisp/obsolete/lmenu.el | 6 | ||||
| -rw-r--r-- | lisp/obsolete/old-whitespace.el | 2 | ||||
| -rw-r--r-- | lisp/obsolete/otodo-mode.el | 4 | ||||
| -rw-r--r-- | lisp/obsolete/pgg-gpg.el | 2 | ||||
| -rw-r--r-- | lisp/obsolete/pgg-pgp.el | 2 | ||||
| -rw-r--r-- | lisp/obsolete/pgg-pgp5.el | 10 | ||||
| -rw-r--r-- | lisp/obsolete/scribe.el | 8 | ||||
| -rw-r--r-- | lisp/obsolete/sregex.el | 10 | ||||
| -rw-r--r-- | lisp/obsolete/tpu-edt.el | 6 | ||||
| -rw-r--r-- | lisp/obsolete/vc-arch.el | 2 | ||||
| -rw-r--r-- | lisp/obsolete/vi.el | 10 |
14 files changed, 37 insertions, 37 deletions
diff --git a/lisp/obsolete/iso-acc.el b/lisp/obsolete/iso-acc.el index 499a9da1040..c612849c685 100644 --- a/lisp/obsolete/iso-acc.el +++ b/lisp/obsolete/iso-acc.el @@ -55,7 +55,7 @@ ;; ;; If the pseudo-accent is followed by anything else than a ;; self-insert-command, the dead-key code is terminated, the -;; pseudo-accent inserted 'as is' and the bell is rung to signal this. +;; pseudo-accent inserted ‘as is’ and the bell is rung to signal this. ;; ;; Function `iso-accents-mode' can be used to enable the iso accents ;; minor mode, or disable it. @@ -272,7 +272,7 @@ See the function `iso-accents-mode'." (defcustom iso-accents-enable '(?' ?` ?^ ?\" ?~ ?/) "List of accent keys that become prefixes in ISO Accents mode. -The default is (?' ?\\=` ?^ ?\" ?~ ?/), which contains all the supported +The default is (?\\=' ?\\=` ?^ ?\" ?~ ?/), which contains all the supported accent keys. If you set this variable to a list in which some of those characters are missing, the missing ones do not act as accents. @@ -346,7 +346,7 @@ the language you choose)." "Toggle ISO Accents mode, in which accents modify the following letter. This permits easy insertion of accented characters according to ISO-8859-1. When Iso-accents mode is enabled, accent character keys -\(\\=`, ', \", ^, / and ~) do not self-insert; instead, they modify the following +\(\\=`, \\=', \", ^, / and ~) do not self-insert; instead, they modify the following letter key so that it inserts an ISO accented letter. You can customize ISO Accents mode to a particular language diff --git a/lisp/obsolete/iswitchb.el b/lisp/obsolete/iswitchb.el index e0d78e1bcf6..61f9d7f741f 100644 --- a/lisp/obsolete/iswitchb.el +++ b/lisp/obsolete/iswitchb.el @@ -389,8 +389,8 @@ See documentation of `walk-windows' for useful values." This hook is run during minibuffer setup if `iswitchb' is active. For instance: -\(add-hook 'iswitchb-minibuffer-setup-hook - '\(lambda () (set (make-local-variable 'max-mini-window-height) 3))) +\(add-hook \\='iswitchb-minibuffer-setup-hook + \\='\(lambda () (set (make-local-variable \\='max-mini-window-height) 3))) will constrain the minibuffer to a maximum height of 3 lines when iswitchb is running." :type 'hook diff --git a/lisp/obsolete/landmark.el b/lisp/obsolete/landmark.el index cd397ae752a..39684a781cc 100644 --- a/lisp/obsolete/landmark.el +++ b/lisp/obsolete/landmark.el @@ -866,7 +866,7 @@ If the game is finished, this command requests for another game." (move-to-column (+ landmark-x-offset (* landmark-square-width (1- x))))) (defun landmark-plot-square (square value) - "Draw 'X', 'O' or '.' on SQUARE depending on VALUE, leave point there." + "Draw ‘X’, ‘O’ or ‘.’ on SQUARE depending on VALUE, leave point there." (or (= value 1) (landmark-goto-square square)) (let ((inhibit-read-only t)) diff --git a/lisp/obsolete/lmenu.el b/lisp/obsolete/lmenu.el index e4886ab633d..97643826a9f 100644 --- a/lisp/obsolete/lmenu.el +++ b/lisp/obsolete/lmenu.el @@ -160,9 +160,9 @@ The syntax, more precisely: active-p := <t, nil, or a form to evaluate to decide whether this button should be selectable> name := <string> - partition := 'nil' - button := '[' name callback active-p ']' - dialog := '(' name [ button ]+ [ partition [ button ]+ ] ')'" + partition := `nil' + button := `[' name callback active-p `]' + dialog := `(' name [ button ]+ [ partition [ button ]+ ] `)'" (let ((name (car data)) (tail (cdr data)) converted diff --git a/lisp/obsolete/old-whitespace.el b/lisp/obsolete/old-whitespace.el index 4619a5852a7..00b32145728 100644 --- a/lisp/obsolete/old-whitespace.el +++ b/lisp/obsolete/old-whitespace.el @@ -259,7 +259,7 @@ These are mostly programming and documentation modes. But you may add other modes that you want whitespaces checked in by adding something like the following to your `.emacs': -\(setq whitespace-modes (cons 'my-mode (cons 'my-other-mode +\(setq whitespace-modes (cons \\='my-mode (cons \\='my-other-mode whitespace-modes))\) Or, alternately, you can use the Emacs `customize' command to set this." diff --git a/lisp/obsolete/otodo-mode.el b/lisp/obsolete/otodo-mode.el index 04b881094df..be067f80a06 100644 --- a/lisp/obsolete/otodo-mode.el +++ b/lisp/obsolete/otodo-mode.el @@ -648,7 +648,7 @@ If point is on an empty line, insert the entry there." (forward-line (1- todo-previous-line)) (let ((item (todo-item-string-start))) (setq todo-previous-answer - (y-or-n-p (concat "More important than '" item "'? "))))) + (y-or-n-p (format-message "More important than ‘%s’? " item))))) todo-previous-answer) (defalias 'todo-ask-p 'todo-more-important-p) @@ -734,7 +734,7 @@ If point is on an empty line, insert the entry there." Number of entries for each category is given by NOF-PRIORITIES which defaults to `todo-show-priorities'. -If CATEGORY-PR-PAGE is non-nil, a page separator '^L' is inserted +If CATEGORY-PR-PAGE is non-nil, a page separator `^L' is inserted between each category. INTERACTIVE should be non-nil if this function is called interactively." diff --git a/lisp/obsolete/pgg-gpg.el b/lisp/obsolete/pgg-gpg.el index 5b405e40c2c..cd29c613aab 100644 --- a/lisp/obsolete/pgg-gpg.el +++ b/lisp/obsolete/pgg-gpg.el @@ -122,7 +122,7 @@ (insert-file-contents output-file-name))) (set-buffer errors-buffer) (if (memq status '(stop signal)) - (error "%s exited abnormally: '%s'" program exit-status)) + (error "%s exited abnormally: ‘%s’" program exit-status)) (if (= 127 exit-status) (error "%s could not be found" program)))) (if passphrase-with-newline diff --git a/lisp/obsolete/pgg-pgp.el b/lisp/obsolete/pgg-pgp.el index af2b2aa7aed..ee7af04c447 100644 --- a/lisp/obsolete/pgg-pgp.el +++ b/lisp/obsolete/pgg-pgp.el @@ -99,7 +99,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"." (pgg-convert-lbt-region (point-min)(point-max) 'LF) (if (memq status '(stop signal)) - (error "%s exited abnormally: '%s'" program exit-status)) + (error "%s exited abnormally: ‘%s’" program exit-status)) (if (= 127 exit-status) (error "%s could not be found" program)) diff --git a/lisp/obsolete/pgg-pgp5.el b/lisp/obsolete/pgg-pgp5.el index 97caedbe5b3..d87c6fd9020 100644 --- a/lisp/obsolete/pgg-pgp5.el +++ b/lisp/obsolete/pgg-pgp5.el @@ -35,22 +35,22 @@ :group 'pgg) (defcustom pgg-pgp5-pgpe-program "pgpe" - "PGP 5.* 'pgpe' executable." + "PGP 5.* `pgpe' executable." :group 'pgg-pgp5 :type 'string) (defcustom pgg-pgp5-pgps-program "pgps" - "PGP 5.* 'pgps' executable." + "PGP 5.* `pgps' executable." :group 'pgg-pgp5 :type 'string) (defcustom pgg-pgp5-pgpk-program "pgpk" - "PGP 5.* 'pgpk' executable." + "PGP 5.* `pgpk' executable." :group 'pgg-pgp5 :type 'string) (defcustom pgg-pgp5-pgpv-program "pgpv" - "PGP 5.* 'pgpv' executable." + "PGP 5.* `pgpv' executable." :group 'pgg-pgp5 :type 'string) @@ -115,7 +115,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"." (pgg-convert-lbt-region (point-min)(point-max) 'LF) (if (memq status '(stop signal)) - (error "%s exited abnormally: '%s'" program exit-status)) + (error "%s exited abnormally: ‘%s’" program exit-status)) (if (= 127 exit-status) (error "%s could not be found" program)) diff --git a/lisp/obsolete/scribe.el b/lisp/obsolete/scribe.el index 68b2208063b..e28e0aba091 100644 --- a/lisp/obsolete/scribe.el +++ b/lisp/obsolete/scribe.el @@ -50,7 +50,7 @@ :group 'scribe) (defcustom scribe-electric-quote nil - "Non-nil makes insert of double quote use \\=`\\=` or '' depending on context." + "Non-nil makes insert of double quote use \\=`\\=` or \\='\\=' depending on context." :type 'boolean :group 'scribe) @@ -124,7 +124,7 @@ Interesting variables: Non-nil makes Scribe mode use a different style of paragraph separation. `scribe-electric-quote' - Non-nil makes insert of double quote use \\=`\\=` or '' depending on context. + Non-nil makes insert of double quote use \\=`\\=` or \\='\\=' depending on context. `scribe-electric-parenthesis' Non-nil makes an open-parenthesis char (one of `([<{') @@ -265,8 +265,8 @@ to skip backward." (forward-char -1)) (defun scribe-insert-quote (count) - "Insert \\=`\\=`, '' or \" according to preceding character. -If `scribe-electric-quote' is non-nil, insert \\=`\\=`, '' or \" according + "Insert \\=`\\=`, \\='\\=' or \" according to preceding character. +If `scribe-electric-quote' is non-nil, insert \\=`\\=`, \\='\\=' or \" according to preceding character. With numeric arg N, always insert N \" characters. Else just insert \"." (interactive "P") diff --git a/lisp/obsolete/sregex.el b/lisp/obsolete/sregex.el index 80b2c92be09..0a15f50be28 100644 --- a/lisp/obsolete/sregex.el +++ b/lisp/obsolete/sregex.el @@ -338,15 +338,15 @@ computed (i.e., non-constant) values in `sregexq' expressions. So automatically quote its values. Literal sregex clauses must be explicitly quoted like so: - (sregex '(or \"Bob\" \"Robert\")) => \"Bob\\\\|Robert\" + (sregex \\='(or \"Bob\" \"Robert\")) => \"Bob\\\\|Robert\" but computed clauses can be included easily, allowing for the reuse of common clauses: - (let ((dotstar '(0+ any)) - (whitespace '(1+ (syntax ?-))) - (digits '(1+ (char (?0 . ?9))))) - (sregex 'bol dotstar \":\" whitespace digits)) => \"^.*:\\\\s-+[0-9]+\" + (let ((dotstar \\='(0+ any)) + (whitespace \\='(1+ (syntax ?-))) + (digits \\='(1+ (char (?0 . ?9))))) + (sregex \\='bol dotstar \":\" whitespace digits)) => \"^.*:\\\\s-+[0-9]+\" Here are the clauses allowed in an `sregex' or `sregexq' expression: diff --git a/lisp/obsolete/tpu-edt.el b/lisp/obsolete/tpu-edt.el index 981426581c2..adf6122f299 100644 --- a/lisp/obsolete/tpu-edt.el +++ b/lisp/obsolete/tpu-edt.el @@ -873,7 +873,7 @@ With argument, fill and justify." (set-frame-width (selected-frame) width)) (defun tpu-toggle-newline-and-indent nil - "Toggle between 'newline and indent' and 'simple newline'." + "Toggle between ‘newline and indent’ and ‘simple newline’." (interactive) (cond (tpu-newline-and-indent-p (setq tpu-newline-and-indent-string "") @@ -1124,7 +1124,7 @@ if ARG is omitted or nil." M-x help-for-help <CR> p <CR> - Where `M-x' might be any of `Gold-KP7', 'Do', or 'ESC-x'. + Where `M-x' might be any of `Gold-KP7', `Do', or `ESC-x'. When you successfully invoke this part of the Emacs help facility, you will see a buffer named `*Finder*' listing a number of topics. Look for @@ -1313,7 +1313,7 @@ kill modified buffers without asking." (if tpu-regexp-p "en" "dis")))) (defun tpu-regexp-prompt (prompt) - "Read a string, adding 'RE' to the prompt if tpu-regexp-p is set." + "Read a string, adding ‘RE ’ to the prompt if tpu-regexp-p is set." (let ((re-prompt (concat (if tpu-regexp-p "RE ") prompt))) (read-from-minibuffer re-prompt nil nil nil 'tpu-regexp-prompt-hist))) diff --git a/lisp/obsolete/vc-arch.el b/lisp/obsolete/vc-arch.el index 8b2454b1ea6..e6540ce74d9 100644 --- a/lisp/obsolete/vc-arch.el +++ b/lisp/obsolete/vc-arch.el @@ -315,7 +315,7 @@ Only the value `maybe' can be trusted :-(." (declare-function vc-exec-after "vc-dispatcher" (code)) (defun vc-arch-dir-status-files (dir _files callback) - "Run 'tla inventory' for DIR and pass results to CALLBACK. + "Run `tla inventory' for DIR and pass results to CALLBACK. CALLBACK expects (ENTRIES &optional MORE-TO-COME); see `vc-dir-refresh'." (let ((default-directory dir)) diff --git a/lisp/obsolete/vi.el b/lisp/obsolete/vi.el index 40d2e22eda2..2375eb509be 100644 --- a/lisp/obsolete/vi.el +++ b/lisp/obsolete/vi.el @@ -428,16 +428,16 @@ Major differences between this mode and real vi : - Search patterns with line offset (e.g. /pat/+3 or /pat/z.) are not supported. - Ex commands are not implemented; try ':' to get some hints. - - No line undo (i.e. the 'U' command), but multi-undo is a standard feature. + - No line undo (i.e. the `U' command), but multi-undo is a standard feature. * Modifications - The stopping positions for some point motion commands (word boundary, - pattern search) are slightly different from standard 'vi'. + pattern search) are slightly different from standard `vi'. Also, no automatic wrap around at end of buffer for pattern searching. - Since changes are done in two steps (deletion then insertion), you need to undo twice to completely undo a change command. But this is not needed for undoing a repeated change command. - - No need to set/unset 'magic', to search for a string with regular expr + - No need to set/unset `magic', to search for a string with regular expr in it just put a prefix arg for the search commands. Replace cmds too. - ^R is bound to incremental backward search, so use ^L to redraw screen. @@ -520,7 +520,7 @@ set sw=n M-x set-variable vi-shift-width n " (defun vi-goto-insert-state (repetition &optional prefix-code do-it-now-p) "Go into insert state, the text entered will be repeated if REPETITION > 1. If PREFIX-CODE is given, do it before insertion begins if DO-IT-NOW-P is T. -In any case, the prefix-code will be done before each 'redo-insert'. +In any case, the prefix-code will be done before each `redo-insert'. This function expects `overwrite-mode' being set properly beforehand." (if do-it-now-p (apply (car prefix-code) (cdr prefix-code))) (setq vi-ins-point (point)) @@ -832,7 +832,7 @@ Possible prefix-arg cases are nil, INTEGER, (nil . CHAR) or (INTEGER . CHAR)." (defun vi-goto-mark (mark-char &optional line-flag) "Go to marked position or line (if line-flag is given). -Goto mark '@' means jump into and pop the top mark on the mark ring." +Goto mark ‘@’ means jump into and pop the top mark on the mark ring." (cond ((char-equal mark-char last-command-event) ; `` or '' (exchange-point-and-mark) (if line-flag (back-to-indentation))) ((char-equal mark-char ?@) ; jump and pop mark |