diff options
| author | Glenn Morris | 2012-02-28 00:17:21 -0800 |
|---|---|---|
| committer | Glenn Morris | 2012-02-28 00:17:21 -0800 |
| commit | 44e97401cda5b464505ac798ae7f71dce0d2a06e (patch) | |
| tree | 4d24550756a7e70b8bf593edd241ed0988d60c07 /lisp | |
| parent | a34baa83cc0a770f9a5d845174281122dda91656 (diff) | |
| download | emacs-44e97401cda5b464505ac798ae7f71dce0d2a06e.tar.gz emacs-44e97401cda5b464505ac798ae7f71dce0d2a06e.zip | |
Standardize possessive apostrophe usage in manuals, docs, and comments
Ref: http://lists.gnu.org/archive/html/emacs-devel/2012-02/msg00649.html
Diffstat (limited to 'lisp')
48 files changed, 123 insertions, 98 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5b822cc1cdb..ab70527073a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,24 @@ | |||
| 1 | 2012-02-28 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * shell.el (shell-mode): | ||
| 4 | * progmodes/vhdl-mode.el (wildcard-to-regexp, file-expand-wildcards): | ||
| 5 | * play/landmark.el (landmark-font-lock-face-O): | ||
| 6 | * play/handwrite.el (handwrite): | ||
| 7 | * play/gomoku.el (gomoku-O): | ||
| 8 | * net/browse-url.el (browse-url-browser-display): | ||
| 9 | * international/mule.el (define-charset): | ||
| 10 | * htmlfontify.el (hfy-etags-cmd, hfy-face-attr-for-class): | ||
| 11 | * filesets.el (filesets-find-file-delay): | ||
| 12 | * eshell/em-xtra.el (eshell-xtra): | ||
| 13 | * eshell/em-unix.el (eshell-grep): | ||
| 14 | * emulation/viper.el (viper-mode): | ||
| 15 | * emacs-lisp/regexp-opt.el (regexp-opt-group): | ||
| 16 | * emacs-lisp/easymenu.el (easy-menu-define): | ||
| 17 | * calendar/timeclock.el (timeclock-use-display-time): | ||
| 18 | * bs.el (bs-mode): | ||
| 19 | * bookmark.el (bookmark-save-flag): | ||
| 20 | Doc fix (standardize possessive apostrophe usage). | ||
| 21 | |||
| 1 | 2012-02-27 Chong Yidong <cyd@gnu.org> | 22 | 2012-02-27 Chong Yidong <cyd@gnu.org> |
| 2 | 23 | ||
| 3 | * emulation/viper-cmd.el (viper-intercept-ESC-key): Fix | 24 | * emulation/viper-cmd.el (viper-intercept-ESC-key): Fix |
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 20a4e52810b..33b91fd7db2 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later | 1 | ;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993-1997, 2001-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1993-1997, 2001-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Karl Fogel <kfogel@red-bean.com> | 5 | ;; Author: Karl Fogel <kfogel@red-bean.com> |
| 6 | ;; Maintainer: Karl Fogel <kfogel@red-bean.com> | 6 | ;; Maintainer: Karl Fogel <kfogel@red-bean.com> |
| @@ -65,7 +65,7 @@ | |||
| 65 | --> t means save bookmarks when Emacs is killed. | 65 | --> t means save bookmarks when Emacs is killed. |
| 66 | --> Otherwise, it should be a number that is the frequency with which | 66 | --> Otherwise, it should be a number that is the frequency with which |
| 67 | the bookmark list is saved (i.e.: the number of times which | 67 | the bookmark list is saved (i.e.: the number of times which |
| 68 | Emacs' bookmark list may be modified before it is automatically | 68 | Emacs's bookmark list may be modified before it is automatically |
| 69 | saved.). If it is a number, Emacs will also automatically save | 69 | saved.). If it is a number, Emacs will also automatically save |
| 70 | bookmarks when it is killed. | 70 | bookmarks when it is killed. |
| 71 | 71 | ||
diff --git a/lisp/bs.el b/lisp/bs.el index 4e54ef882fe..64c1183b64d 100644 --- a/lisp/bs.el +++ b/lisp/bs.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; bs.el --- menu for selecting and displaying buffers -*- lexical-binding: t -*- | 1 | ;;; bs.el --- menu for selecting and displaying buffers -*- lexical-binding: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998-2012 Free Software Foundation, Inc. |
| 4 | ;; Author: Olaf Sylvester <Olaf.Sylvester@netsurf.de> | 4 | ;; Author: Olaf Sylvester <Olaf.Sylvester@netsurf.de> |
| 5 | ;; Maintainer: Olaf Sylvester <Olaf.Sylvester@netsurf.de> | 5 | ;; Maintainer: Olaf Sylvester <Olaf.Sylvester@netsurf.de> |
| 6 | ;; Keywords: convenience | 6 | ;; Keywords: convenience |
| @@ -618,7 +618,7 @@ Used from `window-size-change-functions'." | |||
| 618 | (put 'bs-mode 'mode-class 'special) | 618 | (put 'bs-mode 'mode-class 'special) |
| 619 | 619 | ||
| 620 | (define-derived-mode bs-mode nil "Buffer-Selection-Menu" | 620 | (define-derived-mode bs-mode nil "Buffer-Selection-Menu" |
| 621 | "Major mode for editing a subset of Emacs' buffers. | 621 | "Major mode for editing a subset of Emacs's buffers. |
| 622 | \\<bs-mode-map> | 622 | \\<bs-mode-map> |
| 623 | Aside from two header lines each line describes one buffer. | 623 | Aside from two header lines each line describes one buffer. |
| 624 | Move to a line representing the buffer you want to edit and select | 624 | Move to a line representing the buffer you want to edit and select |
diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el index 9b766e17d5c..7f9b46dfd82 100644 --- a/lisp/calendar/timeclock.el +++ b/lisp/calendar/timeclock.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; timeclock.el --- mode for keeping track of how much you work | 1 | ;;; timeclock.el --- mode for keeping track of how much you work |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1999-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: John Wiegley <johnw@gnu.org> | 5 | ;; Author: John Wiegley <johnw@gnu.org> |
| 6 | ;; Created: 25 Mar 1999 | 6 | ;; Created: 25 Mar 1999 |
| @@ -150,7 +150,7 @@ This variable only has effect if set with \\[customize]." | |||
| 150 | (defcustom timeclock-use-display-time t | 150 | (defcustom timeclock-use-display-time t |
| 151 | "If non-nil, use `display-time-hook' for doing modeline updates. | 151 | "If non-nil, use `display-time-hook' for doing modeline updates. |
| 152 | The advantage of this is that one less timer has to be set running | 152 | The advantage of this is that one less timer has to be set running |
| 153 | amok in Emacs' process space. The disadvantage is that it requires | 153 | amok in Emacs's process space. The disadvantage is that it requires |
| 154 | you to have `display-time' running. If you don't want to use | 154 | you to have `display-time' running. If you don't want to use |
| 155 | `display-time', but still want the modeline to show how much time is | 155 | `display-time', but still want the modeline to show how much time is |
| 156 | left, set this variable to nil. Changing the value of this variable | 156 | left, set this variable to nil. Changing the value of this variable |
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index 361ccba10cc..4dc5fe4df21 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-02-28 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * semantic/db.el (semanticdb-search-results-table): | ||
| 4 | Doc fix (standardize possessive apostrophe usage). | ||
| 5 | |||
| 1 | 2012-02-09 Juanma Barranquero <lekktu@gmail.com> | 6 | 2012-02-09 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 7 | ||
| 3 | * ede/auto.el (ede-directory-safe-p, ede-add-project-to-global-list): | 8 | * ede/auto.el (ede-directory-safe-p, ede-add-project-to-global-list): |
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index 1f07867bac5..0ed031019be 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; semantic.el --- Semantic buffer evaluator. | 1 | ;;; semantic.el --- Semantic buffer evaluator. |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1999-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> | 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> |
| 6 | ;; Keywords: syntax tools | 6 | ;; Keywords: syntax tools |
| @@ -623,7 +623,7 @@ was marked unparseable, then do nothing, and return the cache." | |||
| 623 | 623 | ||
| 624 | ;;;; Parse the whole system. | 624 | ;;;; Parse the whole system. |
| 625 | ((semantic-parse-tree-needs-rebuild-p) | 625 | ((semantic-parse-tree-needs-rebuild-p) |
| 626 | ;; Use Emacs' built-in progress-reporter | 626 | ;; Use Emacs's built-in progress-reporter |
| 627 | (let ((semantic--progress-reporter | 627 | (let ((semantic--progress-reporter |
| 628 | (and (>= (point-max) semantic-minimum-working-buffer-size) | 628 | (and (>= (point-max) semantic-minimum-working-buffer-size) |
| 629 | (eq semantic-working-type 'percent) | 629 | (eq semantic-working-type 'percent) |
| @@ -762,7 +762,7 @@ This function returns semantic tags without overlays." | |||
| 762 | ;; Designated to ignore. | 762 | ;; Designated to ignore. |
| 763 | (setq stream (car nontermsym)) | 763 | (setq stream (car nontermsym)) |
| 764 | (if stream | 764 | (if stream |
| 765 | ;; Use Emacs' built-in progress reporter: | 765 | ;; Use Emacs's built-in progress reporter: |
| 766 | (and (boundp 'semantic--progress-reporter) | 766 | (and (boundp 'semantic--progress-reporter) |
| 767 | semantic--progress-reporter | 767 | semantic--progress-reporter |
| 768 | (eq semantic-working-type 'percent) | 768 | (eq semantic-working-type 'percent) |
diff --git a/lisp/cedet/semantic/db-el.el b/lisp/cedet/semantic/db-el.el index ce6f33f0d18..23410b1eb1b 100644 --- a/lisp/cedet/semantic/db-el.el +++ b/lisp/cedet/semantic/db-el.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; semantic/db-el.el --- Semantic database extensions for Emacs Lisp | 1 | ;;; semantic/db-el.el --- Semantic database extensions for Emacs Lisp |
| 2 | 2 | ||
| 3 | ;;; Copyright (C) 2002-2012 Free Software Foundation, Inc. | 3 | ;;; Copyright (C) 2002-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> | 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> |
| 6 | ;; Keywords: tags | 6 | ;; Keywords: tags |
| @@ -132,7 +132,7 @@ For Emacs Lisp system DB, there isn't one." | |||
| 132 | "Convert one TAG, originating from Emacs OBJ, into standardized form. | 132 | "Convert one TAG, originating from Emacs OBJ, into standardized form. |
| 133 | If Emacs cannot resolve this symbol to a particular file, then return nil." | 133 | If Emacs cannot resolve this symbol to a particular file, then return nil." |
| 134 | ;; Here's the idea. For each tag, get the name, then use | 134 | ;; Here's the idea. For each tag, get the name, then use |
| 135 | ;; Emacs' `symbol-file' to get the source. Once we have that, | 135 | ;; Emacs's `symbol-file' to get the source. Once we have that, |
| 136 | ;; we can use more typical semantic searching techniques to | 136 | ;; we can use more typical semantic searching techniques to |
| 137 | ;; get a regularly parsed tag. | 137 | ;; get a regularly parsed tag. |
| 138 | (let* ((type (cond ((semantic-tag-of-class-p tag 'function) | 138 | (let* ((type (cond ((semantic-tag-of-class-p tag 'function) |
diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el index d6e4fff83c8..4e09f9fc3f2 100644 --- a/lisp/cedet/semantic/db.el +++ b/lisp/cedet/semantic/db.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; semantic/db.el --- Semantic tag database manager | 1 | ;;; semantic/db.el --- Semantic tag database manager |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2000-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2000-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> | 5 | ;; Author: Eric M. Ludlam <zappo@gnu.org> |
| 6 | ;; Keywords: tags | 6 | ;; Keywords: tags |
| @@ -205,7 +205,7 @@ If one doesn't exist, create it." | |||
| 205 | ) | 205 | ) |
| 206 | "Table used for search results when there is no file or table association. | 206 | "Table used for search results when there is no file or table association. |
| 207 | Examples include search results from external sources such as from | 207 | Examples include search results from external sources such as from |
| 208 | Emacs' own symbol table, or from external libraries.") | 208 | Emacs's own symbol table, or from external libraries.") |
| 209 | 209 | ||
| 210 | (defmethod semanticdb-refresh-table ((obj semanticdb-search-results-table) &optional force) | 210 | (defmethod semanticdb-refresh-table ((obj semanticdb-search-results-table) &optional force) |
| 211 | "If the tag list associated with OBJ is loaded, refresh it. | 211 | "If the tag list associated with OBJ is loaded, refresh it. |
diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index f12beed3271..22e0ade987d 100644 --- a/lisp/emacs-lisp/authors.el +++ b/lisp/emacs-lisp/authors.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: utf-8;-*- | 1 | ;;; authors.el --- utility for maintaining Emacs's AUTHORS file -*-coding: utf-8;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2000-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2000-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -25,7 +25,7 @@ | |||
| 25 | ;;; Commentary: | 25 | ;;; Commentary: |
| 26 | 26 | ||
| 27 | ;; Use M-x authors RET to create an *Authors* buffer that can used as | 27 | ;; Use M-x authors RET to create an *Authors* buffer that can used as |
| 28 | ;; or merged with Emacs' AUTHORS file. | 28 | ;; or merged with Emacs's AUTHORS file. |
| 29 | 29 | ||
| 30 | ;;; Code: | 30 | ;;; Code: |
| 31 | 31 | ||
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 2ced0e8a466..b3e54b415d8 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el | |||
| @@ -99,7 +99,7 @@ KEYS is expanded with `substitute-command-keys' before it is used. | |||
| 99 | 99 | ||
| 100 | KEYS is nil, a string or a vector; nil or a keyboard equivalent to this | 100 | KEYS is nil, a string or a vector; nil or a keyboard equivalent to this |
| 101 | menu item. | 101 | menu item. |
| 102 | This is a hint that will considerably speed up Emacs' first display of | 102 | This is a hint that will considerably speed up Emacs's first display of |
| 103 | a menu. Use `:key-sequence nil' when you know that this menu item has no | 103 | a menu. Use `:key-sequence nil' when you know that this menu item has no |
| 104 | keyboard equivalent. | 104 | keyboard equivalent. |
| 105 | 105 | ||
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index be8eb77f170..9cbe29bf322 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el | |||
| @@ -862,7 +862,7 @@ run. DEBUGGER-ARGS are the arguments to `debugger'." | |||
| 862 | (make-ert-test-failed :condition condition | 862 | (make-ert-test-failed :condition condition |
| 863 | :backtrace backtrace | 863 | :backtrace backtrace |
| 864 | :infos infos)))) | 864 | :infos infos)))) |
| 865 | ;; Work around Emacs' heuristic (in eval.c) for detecting | 865 | ;; Work around Emacs's heuristic (in eval.c) for detecting |
| 866 | ;; errors in the debugger. | 866 | ;; errors in the debugger. |
| 867 | (incf num-nonmacro-input-events) | 867 | (incf num-nonmacro-input-events) |
| 868 | ;; FIXME: We should probably implement more fine-grained | 868 | ;; FIXME: We should probably implement more fine-grained |
diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el index eed25ecfb85..4fd87209b38 100644 --- a/lisp/emacs-lisp/ewoc.el +++ b/lisp/emacs-lisp/ewoc.el | |||
| @@ -26,7 +26,7 @@ | |||
| 26 | ;;; Commentary: | 26 | ;;; Commentary: |
| 27 | 27 | ||
| 28 | ;; Ewoc Was Once Cookie | 28 | ;; Ewoc Was Once Cookie |
| 29 | ;; But now it's Emacs' Widget for Object Collections | 29 | ;; But now it's Emacs's Widget for Object Collections |
| 30 | 30 | ||
| 31 | ;; As the name implies this derives from the `cookie' package (part | 31 | ;; As the name implies this derives from the `cookie' package (part |
| 32 | ;; of Elib). The changes are pervasive though mostly superficial: | 32 | ;; of Elib). The changes are pervasive though mostly superficial: |
diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el index ac391fed2c2..6d12fe19277 100644 --- a/lisp/emacs-lisp/regexp-opt.el +++ b/lisp/emacs-lisp/regexp-opt.el | |||
| @@ -143,7 +143,7 @@ This means the number of non-shy regexp grouping constructs | |||
| 143 | "Return a regexp to match a string in the sorted list STRINGS. | 143 | "Return a regexp to match a string in the sorted list STRINGS. |
| 144 | If PAREN non-nil, output regexp parentheses around returned regexp. | 144 | If PAREN non-nil, output regexp parentheses around returned regexp. |
| 145 | If LAX non-nil, don't output parentheses if it doesn't require them. | 145 | If LAX non-nil, don't output parentheses if it doesn't require them. |
| 146 | Merges keywords to avoid backtracking in Emacs' regexp matcher." | 146 | Merges keywords to avoid backtracking in Emacs's regexp matcher." |
| 147 | ;; The basic idea is to find the shortest common prefix or suffix, remove it | 147 | ;; The basic idea is to find the shortest common prefix or suffix, remove it |
| 148 | ;; and recurse. If there is no prefix, we divide the list into two so that | 148 | ;; and recurse. If there is no prefix, we divide the list into two so that |
| 149 | ;; \(at least) one half will have at least a one-character common prefix. | 149 | ;; \(at least) one half will have at least a one-character common prefix. |
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index a7cc40cea4b..9e7be0f670d 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; cua-base.el --- emulate CUA key bindings | 1 | ;;; cua-base.el --- emulate CUA key bindings |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Kim F. Storm <storm@cua.dk> | 5 | ;; Author: Kim F. Storm <storm@cua.dk> |
| 6 | ;; Keywords: keyboard emulations convenience cua | 6 | ;; Keywords: keyboard emulations convenience cua |
| @@ -116,7 +116,7 @@ | |||
| 116 | 116 | ||
| 117 | ;; CUA register support | 117 | ;; CUA register support |
| 118 | ;; -------------------- | 118 | ;; -------------------- |
| 119 | ;; Emacs' standard register support is also based on a separate set of | 119 | ;; Emacs's standard register support is also based on a separate set of |
| 120 | ;; "register commands". | 120 | ;; "register commands". |
| 121 | ;; | 121 | ;; |
| 122 | ;; CUA's register support is activated by providing a numeric | 122 | ;; CUA's register support is activated by providing a numeric |
| @@ -134,7 +134,7 @@ | |||
| 134 | 134 | ||
| 135 | ;; CUA rectangle support | 135 | ;; CUA rectangle support |
| 136 | ;; --------------------- | 136 | ;; --------------------- |
| 137 | ;; Emacs' normal rectangle support is based on interpreting the region | 137 | ;; Emacs's normal rectangle support is based on interpreting the region |
| 138 | ;; between the mark and point as a "virtual rectangle", and using a | 138 | ;; between the mark and point as a "virtual rectangle", and using a |
| 139 | ;; completely separate set of "rectangle commands" [C-x r ...] on the | 139 | ;; completely separate set of "rectangle commands" [C-x r ...] on the |
| 140 | ;; region to copy, kill, fill a.s.o. the virtual rectangle. | 140 | ;; region to copy, kill, fill a.s.o. the virtual rectangle. |
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el index 305e3e73be0..eaf88ccdf85 100644 --- a/lisp/emulation/tpu-edt.el +++ b/lisp/emulation/tpu-edt.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; tpu-edt.el --- Emacs emulating TPU emulating EDT | 1 | ;;; tpu-edt.el --- Emacs emulating TPU emulating EDT |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993-1995, 2000-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1993-1995, 2000-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Rob Riepel <riepel@networking.stanford.edu> | 5 | ;; Author: Rob Riepel <riepel@networking.stanford.edu> |
| 6 | ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu> | 6 | ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu> |
| @@ -89,7 +89,7 @@ | |||
| 89 | ;; details. | 89 | ;; details. |
| 90 | 90 | ||
| 91 | ;; Like TPU, Emacs uses multiple buffers. Some buffers are used to hold | 91 | ;; Like TPU, Emacs uses multiple buffers. Some buffers are used to hold |
| 92 | ;; files you are editing; other "internal" buffers are used for Emacs' own | 92 | ;; files you are editing; other "internal" buffers are used for Emacs's own |
| 93 | ;; purposes (like showing you help). Here are some commands for dealing | 93 | ;; purposes (like showing you help). Here are some commands for dealing |
| 94 | ;; with buffers. | 94 | ;; with buffers. |
| 95 | 95 | ||
| @@ -197,7 +197,7 @@ | |||
| 197 | 197 | ||
| 198 | ;; ; Emacs uses Control-s and Control-q. Problems can occur when using | 198 | ;; ; Emacs uses Control-s and Control-q. Problems can occur when using |
| 199 | ;; ; Emacs on terminals that use these codes for flow control (Xon/Xoff | 199 | ;; ; Emacs on terminals that use these codes for flow control (Xon/Xoff |
| 200 | ;; ; flow control). These lines disable Emacs' use of these characters. | 200 | ;; ; flow control). These lines disable Emacs's use of these characters. |
| 201 | ;; (global-unset-key "\C-s") | 201 | ;; (global-unset-key "\C-s") |
| 202 | ;; (global-unset-key "\C-q") | 202 | ;; (global-unset-key "\C-q") |
| 203 | 203 | ||
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index 7cba5441c23..cdeef733bc5 100644 --- a/lisp/emulation/viper-util.el +++ b/lisp/emulation/viper-util.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; viper-util.el --- Utilities used by viper.el | 1 | ;;; viper-util.el --- Utilities used by viper.el |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994-1997, 1999-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1994-1997, 1999-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> | 5 | ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> |
| 6 | ;; Package: viper | 6 | ;; Package: viper |
| @@ -295,7 +295,7 @@ Otherwise return the normal value." | |||
| 295 | result)) | 295 | result)) |
| 296 | 296 | ||
| 297 | ;; Emacs used to count each multibyte character as several positions in the buffer, | 297 | ;; Emacs used to count each multibyte character as several positions in the buffer, |
| 298 | ;; so we had to use Emacs' chars-in-region to count characters. Since 20.3, | 298 | ;; so we had to use Emacs's chars-in-region to count characters. Since 20.3, |
| 299 | ;; Emacs counts multibyte characters as 1 position. XEmacs has always been | 299 | ;; Emacs counts multibyte characters as 1 position. XEmacs has always been |
| 300 | ;; counting each char as just one pos. So, now we can simply subtract beg from | 300 | ;; counting each char as just one pos. So, now we can simply subtract beg from |
| 301 | ;; end to determine the number of characters in a region. | 301 | ;; end to determine the number of characters in a region. |
| @@ -1112,7 +1112,7 @@ Otherwise return the normal value." | |||
| 1112 | lis))) | 1112 | lis))) |
| 1113 | 1113 | ||
| 1114 | 1114 | ||
| 1115 | ;; Smooths out the difference between Emacs' unread-command-events | 1115 | ;; Smooths out the difference between Emacs's unread-command-events |
| 1116 | ;; and XEmacs unread-command-event. Arg is a character, an event, a list of | 1116 | ;; and XEmacs unread-command-event. Arg is a character, an event, a list of |
| 1117 | ;; events or a sequence of keys. | 1117 | ;; events or a sequence of keys. |
| 1118 | ;; | 1118 | ;; |
diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el index d304a247bb8..12c186e234e 100644 --- a/lisp/emulation/viper.el +++ b/lisp/emulation/viper.el | |||
| @@ -87,7 +87,7 @@ | |||
| 87 | ;; facility in the original Vi. | 87 | ;; facility in the original Vi. |
| 88 | ;; First, one can execute any Emacs command while defining a | 88 | ;; First, one can execute any Emacs command while defining a |
| 89 | ;; macro, not just the Vi commands. Second, macros are defined in a | 89 | ;; macro, not just the Vi commands. Second, macros are defined in a |
| 90 | ;; WYSYWYG mode, using an interface to Emacs' WYSIWYG style of defining | 90 | ;; WYSYWYG mode, using an interface to Emacs's WYSIWYG style of defining |
| 91 | ;; macros. Third, in Viper, one can define macros that are specific to | 91 | ;; macros. Third, in Viper, one can define macros that are specific to |
| 92 | ;; a given buffer, a given major mode, or macros defined for all buffers. | 92 | ;; a given buffer, a given major mode, or macros defined for all buffers. |
| 93 | ;; The same macro name can have several different definitions: | 93 | ;; The same macro name can have several different definitions: |
| @@ -561,7 +561,7 @@ and improving upon much of it. | |||
| 561 | use Emacs productively, you are advised to reach user level 3 or higher. | 561 | use Emacs productively, you are advised to reach user level 3 or higher. |
| 562 | 562 | ||
| 563 | At user level 2 or higher, ^X and ^C have Emacs, not Vi, bindings; | 563 | At user level 2 or higher, ^X and ^C have Emacs, not Vi, bindings; |
| 564 | ^Z toggles Vi/Emacs states; ^G is Emacs' keyboard-quit (like ^C in Vi). | 564 | ^Z toggles Vi/Emacs states; ^G is Emacs's keyboard-quit (like ^C in Vi). |
| 565 | 565 | ||
| 566 | 2. Vi exit functions (e.g., :wq, ZZ) work on INDIVIDUAL files -- they | 566 | 2. Vi exit functions (e.g., :wq, ZZ) work on INDIVIDUAL files -- they |
| 567 | do not cause Emacs to quit, except at user level 1 (for a novice). | 567 | do not cause Emacs to quit, except at user level 1 (for a novice). |
diff --git a/lisp/erc/erc-compat.el b/lisp/erc/erc-compat.el index 4057d1eabc2..1fb3930091e 100644 --- a/lisp/erc/erc-compat.el +++ b/lisp/erc/erc-compat.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; erc-compat.el --- ERC compatibility code for XEmacs | 1 | ;;; erc-compat.el --- ERC compatibility code for XEmacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2002-2003, 2005-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2002-2003, 2005-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Alex Schroeder <alex@gnu.org> | 5 | ;; Author: Alex Schroeder <alex@gnu.org> |
| 6 | ;; URL: http://www.emacswiki.org/cgi-bin/wiki/ERC | 6 | ;; URL: http://www.emacswiki.org/cgi-bin/wiki/ERC |
| @@ -70,7 +70,7 @@ See `erc-encoding-coding-alist'." | |||
| 70 | are placed. | 70 | are placed. |
| 71 | Note that this should end with a directory separator.") | 71 | Note that this should end with a directory separator.") |
| 72 | 72 | ||
| 73 | ;; XEmacs' `replace-match' does not replace matching subexpressions in strings. | 73 | ;; XEmacs's `replace-match' does not replace matching subexpressions in strings. |
| 74 | (defun erc-replace-match-subexpression-in-string | 74 | (defun erc-replace-match-subexpression-in-string |
| 75 | (newtext string match subexp start &optional fixedcase literal) | 75 | (newtext string match subexp start &optional fixedcase literal) |
| 76 | "Replace the subexpression SUBEXP of the last match in STRING with NEWTEXT. | 76 | "Replace the subexpression SUBEXP of the last match in STRING with NEWTEXT. |
diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el index 6ac53e30e86..1875506fe9d 100644 --- a/lisp/eshell/em-unix.el +++ b/lisp/eshell/em-unix.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-unix.el --- UNIX command aliases | 1 | ;;; em-unix.el --- UNIX command aliases |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1999-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: John Wiegley <johnw@gnu.org> | 5 | ;; Author: John Wiegley <johnw@gnu.org> |
| 6 | 6 | ||
| @@ -712,7 +712,7 @@ available..." | |||
| 712 | 712 | ||
| 713 | (defun eshell-grep (command args &optional maybe-use-occur) | 713 | (defun eshell-grep (command args &optional maybe-use-occur) |
| 714 | "Generic service function for the various grep aliases. | 714 | "Generic service function for the various grep aliases. |
| 715 | It calls Emacs' grep utility if the command is not redirecting output, | 715 | It calls Emacs's grep utility if the command is not redirecting output, |
| 716 | and if it's not part of a command pipeline. Otherwise, it calls the | 716 | and if it's not part of a command pipeline. Otherwise, it calls the |
| 717 | external command." | 717 | external command." |
| 718 | (if (and maybe-use-occur eshell-no-grep-available) | 718 | (if (and maybe-use-occur eshell-no-grep-available) |
diff --git a/lisp/eshell/em-xtra.el b/lisp/eshell/em-xtra.el index 4f9b921d5ef..3dfb33d37e3 100644 --- a/lisp/eshell/em-xtra.el +++ b/lisp/eshell/em-xtra.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-xtra.el --- extra alias functions | 1 | ;;; em-xtra.el --- extra alias functions |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1999-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: John Wiegley <johnw@gnu.org> | 5 | ;; Author: John Wiegley <johnw@gnu.org> |
| 6 | 6 | ||
| @@ -32,7 +32,7 @@ | |||
| 32 | (eshell-defgroup eshell-xtra nil | 32 | (eshell-defgroup eshell-xtra nil |
| 33 | "This module defines some extra alias functions which are entirely | 33 | "This module defines some extra alias functions which are entirely |
| 34 | optional. They can be viewed as samples for how to write Eshell alias | 34 | optional. They can be viewed as samples for how to write Eshell alias |
| 35 | functions, or as aliases which make some of Emacs' behavior more | 35 | functions, or as aliases which make some of Emacs's behavior more |
| 36 | naturally accessible within Emacs." | 36 | naturally accessible within Emacs." |
| 37 | :tag "Extra alias functions" | 37 | :tag "Extra alias functions" |
| 38 | :group 'eshell-module) | 38 | :group 'eshell-module) |
diff --git a/lisp/eshell/eshell.el b/lisp/eshell/eshell.el index e4478aefd6d..224451eacba 100644 --- a/lisp/eshell/eshell.el +++ b/lisp/eshell/eshell.el | |||
| @@ -140,12 +140,12 @@ | |||
| 140 | ;; paragraph wasn't discovered until two months after I wrote the | 140 | ;; paragraph wasn't discovered until two months after I wrote the |
| 141 | ;; text; it was not intentional). | 141 | ;; text; it was not intentional). |
| 142 | ;; | 142 | ;; |
| 143 | ;; @ Emacs' register and bookmarking facilities can be used for | 143 | ;; @ Emacs's register and bookmarking facilities can be used for |
| 144 | ;; remembering where you've been, and what you've seen -- to varying | 144 | ;; remembering where you've been, and what you've seen -- to varying |
| 145 | ;; levels of persistence. They could perhaps even be tied to | 145 | ;; levels of persistence. They could perhaps even be tied to |
| 146 | ;; specific "moments" during eshell execution, which would include | 146 | ;; specific "moments" during eshell execution, which would include |
| 147 | ;; the environment at that time, as well as other variables. | 147 | ;; the environment at that time, as well as other variables. |
| 148 | ;; Although this would require functionality orthogonal to Emacs' | 148 | ;; Although this would require functionality orthogonal to Emacs's |
| 149 | ;; own bookmarking facilities, the interface used could be made to | 149 | ;; own bookmarking facilities, the interface used could be made to |
| 150 | ;; operate very similarly. | 150 | ;; operate very similarly. |
| 151 | ;; | 151 | ;; |
diff --git a/lisp/files.el b/lisp/files.el index acd04de34ec..8ebb98c001b 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -22,7 +22,7 @@ | |||
| 22 | 22 | ||
| 23 | ;;; Commentary: | 23 | ;;; Commentary: |
| 24 | 24 | ||
| 25 | ;; Defines most of Emacs's file- and directory-handling functions, | 25 | ;; Defines most of Emacs'ss file- and directory-handling functions, |
| 26 | ;; including basic file visiting, backup generation, link handling, | 26 | ;; including basic file visiting, backup generation, link handling, |
| 27 | ;; ITS-id version control, load- and write-hook handling, and the like. | 27 | ;; ITS-id version control, load- and write-hook handling, and the like. |
| 28 | 28 | ||
| @@ -5259,7 +5259,7 @@ non-nil, it is called instead of rereading visited file contents." | |||
| 5259 | (unlock-buffer))) | 5259 | (unlock-buffer))) |
| 5260 | (widen) | 5260 | (widen) |
| 5261 | (let ((coding-system-for-read | 5261 | (let ((coding-system-for-read |
| 5262 | ;; Auto-saved file should be read by Emacs' | 5262 | ;; Auto-saved file should be read by Emacs's |
| 5263 | ;; internal coding. | 5263 | ;; internal coding. |
| 5264 | (if auto-save-p 'auto-save-coding | 5264 | (if auto-save-p 'auto-save-coding |
| 5265 | (or coding-system-for-read | 5265 | (or coding-system-for-read |
diff --git a/lisp/filesets.el b/lisp/filesets.el index cecf14753f4..86ebe47580b 100644 --- a/lisp/filesets.el +++ b/lisp/filesets.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; filesets.el --- handle group of files | 1 | ;;; filesets.el --- handle group of files |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2002-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2002-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Thomas Link <sanobast-emacs@yahoo.de> | 5 | ;; Author: Thomas Link <sanobast-emacs@yahoo.de> |
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| @@ -518,7 +518,7 @@ Caveat: Changes will take effect after rebuilding the menu." | |||
| 518 | This is for calls via `filesets-find-or-display-file' | 518 | This is for calls via `filesets-find-or-display-file' |
| 519 | or `filesets-find-file'. | 519 | or `filesets-find-file'. |
| 520 | 520 | ||
| 521 | Set this to 0, if you don't use XEmacs' buffer tabs." | 521 | Set this to 0, if you don't use XEmacs's buffer tabs." |
| 522 | :set (function filesets-set-default) | 522 | :set (function filesets-set-default) |
| 523 | :type 'number | 523 | :type 'number |
| 524 | :group 'filesets) | 524 | :group 'filesets) |
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 1a7022da012..4222791705b 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; font-lock.el --- Electric font lock mode | 1 | ;;; font-lock.el --- Electric font lock mode |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1992-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Jamie Zawinski | 5 | ;; Author: Jamie Zawinski |
| 6 | ;; Richard Stallman | 6 | ;; Richard Stallman |
| @@ -67,7 +67,7 @@ | |||
| 67 | ;; | 67 | ;; |
| 68 | ;; The syntactic keyword pass places `syntax-table' text properties in the | 68 | ;; The syntactic keyword pass places `syntax-table' text properties in the |
| 69 | ;; buffer according to the variable `font-lock-syntactic-keywords'. It is | 69 | ;; buffer according to the variable `font-lock-syntactic-keywords'. It is |
| 70 | ;; necessary because Emacs' syntax table is not powerful enough to describe all | 70 | ;; necessary because Emacs's syntax table is not powerful enough to describe all |
| 71 | ;; the different syntactic constructs required by the sort of people who decide | 71 | ;; the different syntactic constructs required by the sort of people who decide |
| 72 | ;; that a single quote can be syntactic or not depending on the time of day. | 72 | ;; that a single quote can be syntactic or not depending on the time of day. |
| 73 | ;; (What sort of person could decide to overload the meaning of a quote?) | 73 | ;; (What sort of person could decide to overload the meaning of a quote?) |
diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el index 347f34b3228..975b83370ba 100644 --- a/lisp/gnus/gmm-utils.el +++ b/lisp/gnus/gmm-utils.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gmm-utils.el --- Utility functions for Gnus, Message and MML | 1 | ;;; gmm-utils.el --- Utility functions for Gnus, Message and MML |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2006-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2006-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Reiner Steib <reiner.steib@gmx.de> | 5 | ;; Author: Reiner Steib <reiner.steib@gmx.de> |
| 6 | ;; Keywords: news | 6 | ;; Keywords: news |
| @@ -352,7 +352,7 @@ compatibility with versions of Emacs that lack the variable | |||
| 352 | dir (expand-file-name "../" dir)))) | 352 | dir (expand-file-name "../" dir)))) |
| 353 | (setq image-directory-load-path dir)) | 353 | (setq image-directory-load-path dir)) |
| 354 | 354 | ||
| 355 | ;; If `image-directory-load-path' isn't Emacs' image directory, | 355 | ;; If `image-directory-load-path' isn't Emacs's image directory, |
| 356 | ;; it's probably a user preference, so use it. Then use a | 356 | ;; it's probably a user preference, so use it. Then use a |
| 357 | ;; relative setting if possible; otherwise, use | 357 | ;; relative setting if possible; otherwise, use |
| 358 | ;; `image-directory-load-path'. | 358 | ;; `image-directory-load-path'. |
| @@ -383,7 +383,7 @@ compatibility with versions of Emacs that lack the variable | |||
| 383 | ;; Set it to nil if image is not found. | 383 | ;; Set it to nil if image is not found. |
| 384 | (cond ((file-exists-p (expand-file-name image d2ei)) d2ei) | 384 | (cond ((file-exists-p (expand-file-name image d2ei)) d2ei) |
| 385 | ((file-exists-p (expand-file-name image d1ei)) d1ei))))) | 385 | ((file-exists-p (expand-file-name image d1ei)) d1ei))))) |
| 386 | ;; Use Emacs' image directory. | 386 | ;; Use Emacs's image directory. |
| 387 | (image-directory-load-path | 387 | (image-directory-load-path |
| 388 | (setq image-directory image-directory-load-path)) | 388 | (setq image-directory image-directory-load-path)) |
| 389 | (no-error | 389 | (no-error |
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index 5178220af8f..bbd3c95265d 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gnus-agent.el --- unplugged support for Gnus | 1 | ;;; gnus-agent.el --- unplugged support for Gnus |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 5 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 6 | ;; This file is part of GNU Emacs. | 6 | ;; This file is part of GNU Emacs. |
| @@ -602,7 +602,7 @@ manipulated as follows: | |||
| 602 | (make-mode-line-mouse-map mouse-button mouse-func) | 602 | (make-mode-line-mouse-map mouse-button mouse-func) |
| 603 | 'mouse-face | 603 | 'mouse-face |
| 604 | (if (and (featurep 'xemacs) | 604 | (if (and (featurep 'xemacs) |
| 605 | ;; XEmacs' `facep' only checks for a face | 605 | ;; XEmacs's `facep' only checks for a face |
| 606 | ;; object, not for a face name, so it's useless | 606 | ;; object, not for a face name, so it's useless |
| 607 | ;; to check with `facep'. | 607 | ;; to check with `facep'. |
| 608 | (find-face 'modeline)) | 608 | (find-face 'modeline)) |
diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el index 8f06359ace8..f86b6f837a7 100644 --- a/lisp/gnus/gnus-score.el +++ b/lisp/gnus/gnus-score.el | |||
| @@ -3028,7 +3028,7 @@ If ADAPT, return the home adaptive file instead." | |||
| 3028 | (* (abs score) | 3028 | (* (abs score) |
| 3029 | gnus-score-decay-scale))))))) | 3029 | gnus-score-decay-scale))))))) |
| 3030 | (if (and (featurep 'xemacs) | 3030 | (if (and (featurep 'xemacs) |
| 3031 | ;; XEmacs' floor can handle only the floating point | 3031 | ;; XEmacs's floor can handle only the floating point |
| 3032 | ;; number below the half of the maximum integer. | 3032 | ;; number below the half of the maximum integer. |
| 3033 | (> (abs n) (lsh -1 -2))) | 3033 | (> (abs n) (lsh -1 -2))) |
| 3034 | (string-to-number | 3034 | (string-to-number |
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 09617384049..4a6da2d437c 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mm-decode.el --- Functions for decoding MIME things | 1 | ;;; mm-decode.el --- Functions for decoding MIME things |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 5 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 6 | ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> | 6 | ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> |
| @@ -1493,7 +1493,7 @@ be determined." | |||
| 1493 | (let ((image (mm-get-image handle))) | 1493 | (let ((image (mm-get-image handle))) |
| 1494 | (or (not image) | 1494 | (or (not image) |
| 1495 | (if (featurep 'xemacs) | 1495 | (if (featurep 'xemacs) |
| 1496 | ;; XEmacs' glyphs can actually tell us about their width, so | 1496 | ;; XEmacs's glyphs can actually tell us about their width, so |
| 1497 | ;; let's be nice and smart about them. | 1497 | ;; let's be nice and smart about them. |
| 1498 | (or mm-inline-large-images | 1498 | (or mm-inline-large-images |
| 1499 | (and (<= (glyph-width image) (window-pixel-width)) | 1499 | (and (<= (glyph-width image) (window-pixel-width)) |
diff --git a/lisp/help.el b/lisp/help.el index a38211332c6..1a6aa9d13d2 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -1,7 +1,6 @@ | |||
| 1 | ;;; help.el --- help commands for Emacs | 1 | ;;; help.el --- help commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985-1986, 1993-1994, 1998-2012 | 3 | ;; Copyright (C) 1985-1986, 1993-1994, 1998-2012 Free Software Foundation, Inc. |
| 4 | ;; Free Software Foundation, Inc. | ||
| 5 | 4 | ||
| 6 | ;; Maintainer: FSF | 5 | ;; Maintainer: FSF |
| 7 | ;; Keywords: help, internal | 6 | ;; Keywords: help, internal |
| @@ -24,7 +23,7 @@ | |||
| 24 | 23 | ||
| 25 | ;;; Commentary: | 24 | ;;; Commentary: |
| 26 | 25 | ||
| 27 | ;; This code implements GNU Emacs' on-line help system, the one invoked by | 26 | ;; This code implements GNU Emacs's on-line help system, the one invoked by |
| 28 | ;; `M-x help-for-help'. | 27 | ;; `M-x help-for-help'. |
| 29 | 28 | ||
| 30 | ;;; Code: | 29 | ;;; Code: |
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el index 4c811d885d7..b94d4293fa7 100644 --- a/lisp/htmlfontify.el +++ b/lisp/htmlfontify.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; htmlfontify.el --- htmlize a buffer/source tree with optional hyperlinks | 1 | ;;; htmlfontify.el --- htmlize a buffer/source tree with optional hyperlinks |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2002-2003, 2009-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2002-2003, 2009-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Emacs Lisp Archive Entry | 5 | ;; Emacs Lisp Archive Entry |
| 6 | ;; Package: htmlfontify | 6 | ;; Package: htmlfontify |
| @@ -376,7 +376,7 @@ commands in `hfy-etags-cmd-alist'." | |||
| 376 | "The etags equivalent command to run in a source directory to generate a tags | 376 | "The etags equivalent command to run in a source directory to generate a tags |
| 377 | file for the whole source tree from there on down. The command should emit | 377 | file for the whole source tree from there on down. The command should emit |
| 378 | the etags output on stdout.\n | 378 | the etags output on stdout.\n |
| 379 | Two canned commands are provided - they drive Emacs' etags and | 379 | Two canned commands are provided - they drive Emacs's etags and |
| 380 | exuberant-ctags' etags respectively." | 380 | exuberant-ctags' etags respectively." |
| 381 | :group 'htmlfontify | 381 | :group 'htmlfontify |
| 382 | :tag "etags-command" | 382 | :tag "etags-command" |
| @@ -859,13 +859,13 @@ If CLASS is set, it must be a `defface' alist key [see below], | |||
| 859 | in which case the first face specification returned by `hfy-combined-face-spec' | 859 | in which case the first face specification returned by `hfy-combined-face-spec' |
| 860 | which *doesn't* clash with CLASS is returned.\n | 860 | which *doesn't* clash with CLASS is returned.\n |
| 861 | \(A specification with a class of t is considered to match any class you | 861 | \(A specification with a class of t is considered to match any class you |
| 862 | specify - this matches Emacs' behavior when deciding on which face attributes | 862 | specify - this matches Emacs's behavior when deciding on which face attributes |
| 863 | to use, to the best of my understanding).\n | 863 | to use, to the best of my understanding).\n |
| 864 | If CLASS is nil, then you just get whatever `face-attr-construct' returns, | 864 | If CLASS is nil, then you just get whatever `face-attr-construct' returns, |
| 865 | ie the current specification in effect for FACE.\n | 865 | ie the current specification in effect for FACE.\n |
| 866 | *NOTE*: This function forces any face that is not 'default and which has | 866 | *NOTE*: This function forces any face that is not 'default and which has |
| 867 | no :inherit property to inherit from 'default (this is because 'default | 867 | no :inherit property to inherit from 'default (this is because 'default |
| 868 | is magical in that Emacs' fonts behave as if they inherit implicitly from | 868 | is magical in that Emacs's fonts behave as if they inherit implicitly from |
| 869 | 'default, but no such behavior exists in HTML/CSS).\n | 869 | 'default, but no such behavior exists in HTML/CSS).\n |
| 870 | See also `hfy-display-class' for details of valid values for CLASS." | 870 | See also `hfy-display-class' for details of valid values for CLASS." |
| 871 | (let ((face-spec | 871 | (let ((face-spec |
diff --git a/lisp/image.el b/lisp/image.el index ab3f437a971..162cc8bb0ed 100644 --- a/lisp/image.el +++ b/lisp/image.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; image.el --- image API | 1 | ;;; image.el --- image API |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: FSF | 5 | ;; Maintainer: FSF |
| 6 | ;; Keywords: multimedia | 6 | ;; Keywords: multimedia |
| @@ -163,7 +163,7 @@ compatibility with versions of Emacs that lack the variable | |||
| 163 | dir (expand-file-name "../" dir)))) | 163 | dir (expand-file-name "../" dir)))) |
| 164 | (setq image-directory-load-path dir)) | 164 | (setq image-directory-load-path dir)) |
| 165 | 165 | ||
| 166 | ;; If `image-directory-load-path' isn't Emacs' image directory, | 166 | ;; If `image-directory-load-path' isn't Emacs's image directory, |
| 167 | ;; it's probably a user preference, so use it. Then use a | 167 | ;; it's probably a user preference, so use it. Then use a |
| 168 | ;; relative setting if possible; otherwise, use | 168 | ;; relative setting if possible; otherwise, use |
| 169 | ;; `image-directory-load-path'. | 169 | ;; `image-directory-load-path'. |
| @@ -194,7 +194,7 @@ compatibility with versions of Emacs that lack the variable | |||
| 194 | ;; Set it to nil if image is not found. | 194 | ;; Set it to nil if image is not found. |
| 195 | (cond ((file-exists-p (expand-file-name image d2ei)) d2ei) | 195 | (cond ((file-exists-p (expand-file-name image d2ei)) d2ei) |
| 196 | ((file-exists-p (expand-file-name image d1ei)) d1ei))))) | 196 | ((file-exists-p (expand-file-name image d1ei)) d1ei))))) |
| 197 | ;; Use Emacs' image directory. | 197 | ;; Use Emacs's image directory. |
| 198 | (image-directory-load-path | 198 | (image-directory-load-path |
| 199 | (setq image-directory image-directory-load-path)) | 199 | (setq image-directory image-directory-load-path)) |
| 200 | (no-error | 200 | (no-error |
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index d4dd4e4cf24..7bf15009687 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mule.el --- basic commands for multilingual environment | 1 | ;;; mule.el --- basic commands for multilingual environment |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997-2012 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | 4 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 5 | ;; 2005, 2006, 2007, 2008, 2009, 2010, 2011 | 5 | ;; 2005, 2006, 2007, 2008, 2009, 2010, 2011 |
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| @@ -165,7 +165,7 @@ compatibility. | |||
| 165 | 165 | ||
| 166 | VALUE must be a nonnegative integer that can be used as an invalid | 166 | VALUE must be a nonnegative integer that can be used as an invalid |
| 167 | code point of the charset. If the minimum code is 0 and the maximum | 167 | code point of the charset. If the minimum code is 0 and the maximum |
| 168 | code is greater than Emacs' maximum integer value, `:invalid-code' | 168 | code is greater than Emacs's maximum integer value, `:invalid-code' |
| 169 | should not be omitted. | 169 | should not be omitted. |
| 170 | 170 | ||
| 171 | `:code-offset' | 171 | `:code-offset' |
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index e45bbfe2ca0..039f3dca4a2 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el | |||
| @@ -10,7 +10,7 @@ | |||
| 10 | 10 | ||
| 11 | ;;; Commentary: | 11 | ;;; Commentary: |
| 12 | 12 | ||
| 13 | ;; A replacement for parts of Emacs' sendmail.el (specifically, | 13 | ;; A replacement for parts of sendmail.el (specifically, |
| 14 | ;; it's what handles your outgoing mail after you hit C-c C-c in mail | 14 | ;; it's what handles your outgoing mail after you hit C-c C-c in mail |
| 15 | ;; mode). See below for a list of additional features, including the | 15 | ;; mode). See below for a list of additional features, including the |
| 16 | ;; ability to queue messages for later sending. This replaces | 16 | ;; ability to queue messages for later sending. This replaces |
diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el index 97d9c4eb69d..4a93109e7a4 100644 --- a/lisp/mh-e/mh-compat.el +++ b/lisp/mh-e/mh-compat.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mh-compat.el --- make MH-E compatible with various versions of Emacs | 1 | ;;; mh-compat.el --- make MH-E compatible with various versions of Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2006-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2006-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Bill Wohler <wohler@newt.com> | 5 | ;; Author: Bill Wohler <wohler@newt.com> |
| 6 | ;; Maintainer: Bill Wohler <wohler@newt.com> | 6 | ;; Maintainer: Bill Wohler <wohler@newt.com> |
| @@ -174,7 +174,7 @@ compatibility with versions of Emacs that lack the variable | |||
| 174 | dir (expand-file-name "../" dir)))) | 174 | dir (expand-file-name "../" dir)))) |
| 175 | (setq image-directory-load-path dir)) | 175 | (setq image-directory-load-path dir)) |
| 176 | 176 | ||
| 177 | ;; If `image-directory-load-path' isn't Emacs' image directory, | 177 | ;; If `image-directory-load-path' isn't Emacs's image directory, |
| 178 | ;; it's probably a user preference, so use it. Then use a | 178 | ;; it's probably a user preference, so use it. Then use a |
| 179 | ;; relative setting if possible; otherwise, use | 179 | ;; relative setting if possible; otherwise, use |
| 180 | ;; `image-directory-load-path'. | 180 | ;; `image-directory-load-path'. |
| @@ -205,7 +205,7 @@ compatibility with versions of Emacs that lack the variable | |||
| 205 | ;; Set it to nil if image is not found. | 205 | ;; Set it to nil if image is not found. |
| 206 | (cond ((file-exists-p (expand-file-name image d2ei)) d2ei) | 206 | (cond ((file-exists-p (expand-file-name image d2ei)) d2ei) |
| 207 | ((file-exists-p (expand-file-name image d1ei)) d1ei))))) | 207 | ((file-exists-p (expand-file-name image d1ei)) d1ei))))) |
| 208 | ;; Use Emacs' image directory. | 208 | ;; Use Emacs's image directory. |
| 209 | (image-directory-load-path | 209 | (image-directory-load-path |
| 210 | (setq image-directory image-directory-load-path)) | 210 | (setq image-directory image-directory-load-path)) |
| 211 | (no-error | 211 | (no-error |
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 50423208e34..0bfc8eda3b1 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; browse-url.el --- pass a URL to a WWW browser | 1 | ;;; browse-url.el --- pass a URL to a WWW browser |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1995-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Denis Howe <dbh@doc.ic.ac.uk> | 5 | ;; Author: Denis Howe <dbh@doc.ic.ac.uk> |
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| @@ -297,7 +297,7 @@ Defaults to the value of `browse-url-netscape-arguments' at the time | |||
| 297 | :group 'browse-url) | 297 | :group 'browse-url) |
| 298 | 298 | ||
| 299 | (defcustom browse-url-browser-display nil | 299 | (defcustom browse-url-browser-display nil |
| 300 | "The X display for running the browser, if not same as Emacs'." | 300 | "The X display for running the browser, if not same as Emacs's." |
| 301 | :type '(choice string (const :tag "Default" nil)) | 301 | :type '(choice string (const :tag "Default" nil)) |
| 302 | :group 'browse-url) | 302 | :group 'browse-url) |
| 303 | 303 | ||
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index 275f5f0fcbe..3f24a78cbbe 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; eudc.el --- Emacs Unified Directory Client | 1 | ;;; eudc.el --- Emacs Unified Directory Client |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> | 5 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> |
| 6 | ;; Maintainer: Pavel Janík <Pavel@Janik.cz> | 6 | ;; Maintainer: Pavel Janík <Pavel@Janik.cz> |
| @@ -133,7 +133,7 @@ | |||
| 133 | (setq plist (cdr (cdr plist)))) | 133 | (setq plist (cdr (cdr plist)))) |
| 134 | nil)) | 134 | nil)) |
| 135 | 135 | ||
| 136 | ;; Emacs' plist-get lacks third parameter | 136 | ;; Emacs's plist-get lacks third parameter |
| 137 | (defun eudc-plist-get (plist prop &optional default) | 137 | (defun eudc-plist-get (plist prop &optional default) |
| 138 | "Extract a value from a property list. | 138 | "Extract a value from a property list. |
| 139 | PLIST is a property list, which is a list of the form | 139 | PLIST is a property list, which is a list of the form |
diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el index 46f45c501d2..a79defed295 100644 --- a/lisp/net/secrets.el +++ b/lisp/net/secrets.el | |||
| @@ -78,7 +78,7 @@ | |||
| 78 | ;; (secrets-create-collection "my collection") | 78 | ;; (secrets-create-collection "my collection") |
| 79 | 79 | ||
| 80 | ;; There exists a special collection called "session", which has the | 80 | ;; There exists a special collection called "session", which has the |
| 81 | ;; lifetime of the corresponding client session (aka Emacs' | 81 | ;; lifetime of the corresponding client session (aka Emacs's |
| 82 | ;; lifetime). It is created automatically when Emacs uses the Secret | 82 | ;; lifetime). It is created automatically when Emacs uses the Secret |
| 83 | ;; Service interface, and it is deleted when Emacs is killed. | 83 | ;; Service interface, and it is deleted when Emacs is killed. |
| 84 | ;; Therefore, it can be used to store and retrieve secret items | 84 | ;; Therefore, it can be used to store and retrieve secret items |
| @@ -99,7 +99,7 @@ | |||
| 99 | 99 | ||
| 100 | ;; Secret items can be added or deleted to a collection. In the | 100 | ;; Secret items can be added or deleted to a collection. In the |
| 101 | ;; following examples, we use the special collection "session", which | 101 | ;; following examples, we use the special collection "session", which |
| 102 | ;; is bound to Emacs' lifetime. | 102 | ;; is bound to Emacs's lifetime. |
| 103 | ;; | 103 | ;; |
| 104 | ;; (secrets-delete-item "session" "my item") | 104 | ;; (secrets-delete-item "session" "my item") |
| 105 | ;; (secrets-create-item "session" "my item" "geheim" | 105 | ;; (secrets-create-item "session" "my item" "geheim" |
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el index a8ab13bd528..6b6e81dfaba 100644 --- a/lisp/play/gomoku.el +++ b/lisp/play/gomoku.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gomoku.el --- Gomoku game between you and Emacs | 1 | ;;; gomoku.el --- Gomoku game between you and Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1988, 1994, 1996, 2001-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1988, 1994, 1996, 2001-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Philippe Schnoebelen <phs@lsv.ens-cachan.fr> | 5 | ;; Author: Philippe Schnoebelen <phs@lsv.ens-cachan.fr> |
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| @@ -161,7 +161,7 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces." | |||
| 161 | 161 | ||
| 162 | (defface gomoku-O | 162 | (defface gomoku-O |
| 163 | '((((class color)) (:foreground "red" :weight bold))) | 163 | '((((class color)) (:foreground "red" :weight bold))) |
| 164 | "Face to use for Emacs' O." | 164 | "Face to use for Emacs's O." |
| 165 | :group 'gomoku) | 165 | :group 'gomoku) |
| 166 | 166 | ||
| 167 | (defface gomoku-X | 167 | (defface gomoku-X |
diff --git a/lisp/play/handwrite.el b/lisp/play/handwrite.el index e2aec709b99..d2e307c0145 100644 --- a/lisp/play/handwrite.el +++ b/lisp/play/handwrite.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*- | 1 | ;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 2001-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1996, 2001-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>) | 5 | ;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>) |
| 6 | ;; Created: October 21 1996 | 6 | ;; Created: October 21 1996 |
| @@ -189,7 +189,7 @@ Variables: `handwrite-linespace' (default 12) | |||
| 189 | (setq next-line-add-newlines t) | 189 | (setq next-line-add-newlines t) |
| 190 | (switch-to-buffer ps-buf-name) | 190 | (switch-to-buffer ps-buf-name) |
| 191 | (handwrite-insert-header buf-name) | 191 | (handwrite-insert-header buf-name) |
| 192 | (insert "%%Creator: GNU Emacs' handwrite version " emacs-version "\n") | 192 | (insert "%%Creator: GNU Emacs's handwrite version " emacs-version "\n") |
| 193 | (handwrite-insert-preamble) | 193 | (handwrite-insert-preamble) |
| 194 | (handwrite-insert-info) | 194 | (handwrite-insert-info) |
| 195 | (handwrite-insert-font) | 195 | (handwrite-insert-font) |
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el index a769101ad0b..29bb8a40e8f 100644 --- a/lisp/play/landmark.el +++ b/lisp/play/landmark.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; landmark.el --- neural-network robot that learns landmarks | 1 | ;;; landmark.el --- neural-network robot that learns landmarks |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996-1997, 2000-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1996-1997, 2000-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Terrence Brannon (was: <brannon@rana.usc.edu>) | 5 | ;; Author: Terrence Brannon (was: <brannon@rana.usc.edu>) |
| 6 | ;; Created: December 16, 1996 - first release to usenet | 6 | ;; Created: December 16, 1996 - first release to usenet |
| @@ -210,7 +210,7 @@ | |||
| 210 | 210 | ||
| 211 | (defface landmark-font-lock-face-O '((((class color)) :foreground "red") | 211 | (defface landmark-font-lock-face-O '((((class color)) :foreground "red") |
| 212 | (t :weight bold)) | 212 | (t :weight bold)) |
| 213 | "Face to use for Emacs' O." | 213 | "Face to use for Emacs's O." |
| 214 | :version "22.1" | 214 | :version "22.1" |
| 215 | :group 'landmark) | 215 | :group 'landmark) |
| 216 | 216 | ||
diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el index 634570cf3e4..9c9a8e09d49 100644 --- a/lisp/progmodes/antlr-mode.el +++ b/lisp/progmodes/antlr-mode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; antlr-mode.el --- major mode for ANTLR grammar files | 1 | ;;; antlr-mode.el --- major mode for ANTLR grammar files |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1999-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Christoph.Wedler@sap.com | 5 | ;; Author: Christoph.Wedler@sap.com |
| 6 | ;; Keywords: languages, ANTLR, code generator | 6 | ;; Keywords: languages, ANTLR, code generator |
| @@ -961,7 +961,7 @@ group. The string matched by the first group is highlighted with | |||
| 961 | (antlr-re-search-forward | 961 | (antlr-re-search-forward |
| 962 | "^\\(private\\|public\\|protected\\)\\>[ \t]*\\(\\(\\sw+[ \t]*\\(:\\)?\\)\\)?" | 962 | "^\\(private\\|public\\|protected\\)\\>[ \t]*\\(\\(\\sw+[ \t]*\\(:\\)?\\)\\)?" |
| 963 | limit)) | 963 | limit)) |
| 964 | (1 font-lock-type-face) ; not XEmacs' java level-3 fruit salad | 964 | (1 font-lock-type-face) ; not XEmacs's java level-3 fruit salad |
| 965 | (3 (if (antlr-upcase-p (char-after (match-beginning 3))) | 965 | (3 (if (antlr-upcase-p (char-after (match-beginning 3))) |
| 966 | antlr-tokendef-face | 966 | antlr-tokendef-face |
| 967 | antlr-ruledef-face) nil t) | 967 | antlr-ruledef-face) nil t) |
| @@ -1030,7 +1030,7 @@ not to confuse their context_cache.") | |||
| 1030 | (define-abbrev-table 'antlr-mode-abbrev-table ()) | 1030 | (define-abbrev-table 'antlr-mode-abbrev-table ()) |
| 1031 | 1031 | ||
| 1032 | (defvar antlr-slow-cache-enabling-symbol 'loudly | 1032 | (defvar antlr-slow-cache-enabling-symbol 'loudly |
| 1033 | ;; Emacs' font-lock changes buffer's tick counter, therefore this value should | 1033 | ;; Emacs's font-lock changes buffer's tick counter, therefore this value should |
| 1034 | ;; be a parameter of a font-lock function, but not any other variable of | 1034 | ;; be a parameter of a font-lock function, but not any other variable of |
| 1035 | ;; functions which call `antlr-slow-syntactic-context'. | 1035 | ;; functions which call `antlr-slow-syntactic-context'. |
| 1036 | "If value is a bound symbol, cache will be used even with text changes. | 1036 | "If value is a bound symbol, cache will be used even with text changes. |
| @@ -1113,7 +1113,7 @@ WARNING: this may alter `match-data'." | |||
| 1113 | (or (buffer-syntactic-context) (buffer-syntactic-context-depth)) | 1113 | (or (buffer-syntactic-context) (buffer-syntactic-context-depth)) |
| 1114 | :EMACS | 1114 | :EMACS |
| 1115 | (let ((orig (point)) diff state | 1115 | (let ((orig (point)) diff state |
| 1116 | ;; Arg, Emacs' (buffer-modified-tick) changes with font-lock. Use | 1116 | ;; Arg, Emacs's (buffer-modified-tick) changes with font-lock. Use |
| 1117 | ;; hack that `loudly' is bound during font-locking => cache use will | 1117 | ;; hack that `loudly' is bound during font-locking => cache use will |
| 1118 | ;; increase from 7% to 99.99% during font-locking. | 1118 | ;; increase from 7% to 99.99% during font-locking. |
| 1119 | (tick (or (boundp antlr-slow-cache-enabling-symbol) | 1119 | (tick (or (boundp antlr-slow-cache-enabling-symbol) |
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index d765a960470..c9bf638bb59 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; vhdl-mode.el --- major mode for editing VHDL code | 1 | ;;; vhdl-mode.el --- major mode for editing VHDL code |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1992-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Authors: Reto Zimmermann <reto@gnu.org> | 5 | ;; Authors: Reto Zimmermann <reto@gnu.org> |
| 6 | ;; Rodney J. Whitby <software.vhdl-mode@rwhitby.net> | 6 | ;; Rodney J. Whitby <software.vhdl-mode@rwhitby.net> |
| @@ -2040,7 +2040,7 @@ Ignore byte-compiler warnings you might see." | |||
| 2040 | ;; `wildcard-to-regexp' is included only in XEmacs 21 | 2040 | ;; `wildcard-to-regexp' is included only in XEmacs 21 |
| 2041 | (unless (fboundp 'wildcard-to-regexp) | 2041 | (unless (fboundp 'wildcard-to-regexp) |
| 2042 | (defun wildcard-to-regexp (wildcard) | 2042 | (defun wildcard-to-regexp (wildcard) |
| 2043 | "Simplified version of `wildcard-to-regexp' from Emacs' `files.el'." | 2043 | "Simplified version of `wildcard-to-regexp' from Emacs's `files.el'." |
| 2044 | (let* ((i (string-match "[*?]" wildcard)) | 2044 | (let* ((i (string-match "[*?]" wildcard)) |
| 2045 | (result (substring wildcard 0 i)) | 2045 | (result (substring wildcard 0 i)) |
| 2046 | (len (length wildcard))) | 2046 | (len (length wildcard))) |
| @@ -2087,7 +2087,7 @@ Ignore byte-compiler warnings you might see." | |||
| 2087 | ;; `file-expand-wildcards' undefined (XEmacs) | 2087 | ;; `file-expand-wildcards' undefined (XEmacs) |
| 2088 | (unless (fboundp 'file-expand-wildcards) | 2088 | (unless (fboundp 'file-expand-wildcards) |
| 2089 | (defun file-expand-wildcards (pattern &optional full) | 2089 | (defun file-expand-wildcards (pattern &optional full) |
| 2090 | "Taken from Emacs' `files.el'." | 2090 | "Taken from Emacs's `files.el'." |
| 2091 | (let* ((nondir (file-name-nondirectory pattern)) | 2091 | (let* ((nondir (file-name-nondirectory pattern)) |
| 2092 | (dirpart (file-name-directory pattern)) | 2092 | (dirpart (file-name-directory pattern)) |
| 2093 | (dirs (if (and dirpart (string-match "[[*?]" dirpart)) | 2093 | (dirs (if (and dirpart (string-match "[[*?]" dirpart)) |
diff --git a/lisp/shell.el b/lisp/shell.el index 1ed43863452..7c5ce49a967 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; shell.el --- specialized comint.el for running the shell -*- lexical-binding: t -*- | 1 | ;;; shell.el --- specialized comint.el for running the shell -*- lexical-binding: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1988, 1993-1997, 2000-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1988, 1993-1997, 2000-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Olin Shivers <shivers@cs.cmu.edu> | 5 | ;; Author: Olin Shivers <shivers@cs.cmu.edu> |
| 6 | ;; Simon Marshall <simon@gnu.org> | 6 | ;; Simon Marshall <simon@gnu.org> |
| @@ -471,7 +471,7 @@ to continue it. | |||
| 471 | keep this buffer's default directory the same as the shell's working directory. | 471 | keep this buffer's default directory the same as the shell's working directory. |
| 472 | While directory tracking is enabled, the shell's working directory is displayed | 472 | While directory tracking is enabled, the shell's working directory is displayed |
| 473 | by \\[list-buffers] or \\[mouse-buffer-menu] in the `File' field. | 473 | by \\[list-buffers] or \\[mouse-buffer-menu] in the `File' field. |
| 474 | \\[dirs] queries the shell and resyncs Emacs' idea of what the current | 474 | \\[dirs] queries the shell and resyncs Emacs's idea of what the current |
| 475 | directory stack is. | 475 | directory stack is. |
| 476 | \\[shell-dirtrack-mode] turns directory tracking on and off. | 476 | \\[shell-dirtrack-mode] turns directory tracking on and off. |
| 477 | \(The `dirtrack' package provides an alternative implementation of this | 477 | \(The `dirtrack' package provides an alternative implementation of this |
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 4e8f0a5a82c..09f6b6b7cf2 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el | |||
| @@ -62,7 +62,7 @@ | |||
| 62 | :group 'sgml | 62 | :group 'sgml |
| 63 | :type 'hook) | 63 | :type 'hook) |
| 64 | 64 | ||
| 65 | ;; As long as Emacs' syntax can't be complemented with predicates to context | 65 | ;; As long as Emacs's syntax can't be complemented with predicates to context |
| 66 | ;; sensitively confirm the syntax of characters, we have to live with this | 66 | ;; sensitively confirm the syntax of characters, we have to live with this |
| 67 | ;; kludgy kind of tradeoff. | 67 | ;; kludgy kind of tradeoff. |
| 68 | (defvar sgml-specials '(?\") | 68 | (defvar sgml-specials '(?\") |
diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el index ba4a2766526..16e33889c31 100644 --- a/lisp/vc/diff-mode.el +++ b/lisp/vc/diff-mode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; diff-mode.el --- a mode for viewing/editing context diffs -*- lexical-binding: t -*- | 1 | ;;; diff-mode.el --- a mode for viewing/editing context diffs -*- lexical-binding: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Stefan Monnier <monnier@iro.umontreal.ca> | 5 | ;; Author: Stefan Monnier <monnier@iro.umontreal.ca> |
| 6 | ;; Keywords: convenience patch diff vc | 6 | ;; Keywords: convenience patch diff vc |
| @@ -27,7 +27,7 @@ | |||
| 27 | ;; to the corresponding source file. | 27 | ;; to the corresponding source file. |
| 28 | 28 | ||
| 29 | ;; Inspired by Pavel Machek's patch-mode.el (<pavel@@atrey.karlin.mff.cuni.cz>) | 29 | ;; Inspired by Pavel Machek's patch-mode.el (<pavel@@atrey.karlin.mff.cuni.cz>) |
| 30 | ;; Some efforts were spent to have it somewhat compatible with XEmacs' | 30 | ;; Some efforts were spent to have it somewhat compatible with XEmacs's |
| 31 | ;; diff-mode as well as with compilation-minor-mode | 31 | ;; diff-mode as well as with compilation-minor-mode |
| 32 | 32 | ||
| 33 | ;; Bugs: | 33 | ;; Bugs: |
| @@ -121,7 +121,7 @@ when editing big diffs)." | |||
| 121 | ("{" . diff-file-prev) | 121 | ("{" . diff-file-prev) |
| 122 | ("\C-m" . diff-goto-source) | 122 | ("\C-m" . diff-goto-source) |
| 123 | ([mouse-2] . diff-goto-source) | 123 | ([mouse-2] . diff-goto-source) |
| 124 | ;; From XEmacs' diff-mode. | 124 | ;; From XEmacs's diff-mode. |
| 125 | ("W" . widen) | 125 | ("W" . widen) |
| 126 | ;;("." . diff-goto-source) ;display-buffer | 126 | ;;("." . diff-goto-source) ;display-buffer |
| 127 | ;;("f" . diff-goto-source) ;find-file | 127 | ;;("f" . diff-goto-source) ;find-file |
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el index 87740cdc75a..78a2163f653 100644 --- a/lisp/vc/ediff-util.el +++ b/lisp/vc/ediff-util.el | |||
| @@ -3103,7 +3103,7 @@ Hit \\[ediff-recenter] to reset the windows afterward." | |||
| 3103 | ;; according to context. | 3103 | ;; according to context. |
| 3104 | ;; If DEFAULT-FILE is set, it should be used as the default value. | 3104 | ;; If DEFAULT-FILE is set, it should be used as the default value. |
| 3105 | ;; If DEFAULT-DIR is non-nil, use it as the default directory. | 3105 | ;; If DEFAULT-DIR is non-nil, use it as the default directory. |
| 3106 | ;; Otherwise, use the value of Emacs' variable `default-directory.' | 3106 | ;; Otherwise, use the value of `default-directory.' |
| 3107 | (defun ediff-read-file-name (prompt default-dir default-file &optional no-dirs) | 3107 | (defun ediff-read-file-name (prompt default-dir default-file &optional no-dirs) |
| 3108 | ;; hack default-dir if it is not set | 3108 | ;; hack default-dir if it is not set |
| 3109 | (setq default-dir | 3109 | (setq default-dir |
diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el index 8c397144bf2..9f35fc8f035 100644 --- a/lisp/vc/vc-bzr.el +++ b/lisp/vc/vc-bzr.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; vc-bzr.el --- VC backend for the bzr revision control system | 1 | ;;; vc-bzr.el --- VC backend for the bzr revision control system |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2006-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2006-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Dave Love <fx@gnu.org> | 5 | ;; Author: Dave Love <fx@gnu.org> |
| 6 | ;; Riccardo Murri <riccardo.murri@gmail.com> | 6 | ;; Riccardo Murri <riccardo.murri@gmail.com> |
| @@ -431,7 +431,7 @@ If any error occurred in running `bzr status', then return nil." | |||
| 431 | (skip-chars-forward " \n\t") ;Throw away spaces. | 431 | (skip-chars-forward " \n\t") ;Throw away spaces. |
| 432 | (cons status | 432 | (cons status |
| 433 | ;; "bzr" will output warnings and informational messages to | 433 | ;; "bzr" will output warnings and informational messages to |
| 434 | ;; stderr; due to Emacs' `vc-do-command' (and, it seems, | 434 | ;; stderr; due to Emacs's `vc-do-command' (and, it seems, |
| 435 | ;; `start-process' itself) limitations, we cannot catch stderr | 435 | ;; `start-process' itself) limitations, we cannot catch stderr |
| 436 | ;; and stdout into different buffers. So, if there's anything | 436 | ;; and stdout into different buffers. So, if there's anything |
| 437 | ;; left in the buffer after removing the above status | 437 | ;; left in the buffer after removing the above status |
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index aba14480fa9..aff2df3dc77 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; w32-fns.el --- Lisp routines for 32-bit Windows | 1 | ;;; w32-fns.el --- Lisp routines for 32-bit Windows |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 2001-2012 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1994, 2001-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Geoff Voelker <voelker@cs.washington.edu> | 5 | ;; Author: Geoff Voelker <voelker@cs.washington.edu> |
| 6 | ;; Keywords: internal | 6 | ;; Keywords: internal |
| @@ -161,7 +161,7 @@ You should set this to t when using a non-system shell.\n\n")))) | |||
| 161 | (add-hook 'before-init-hook 'set-default-process-coding-system) | 161 | (add-hook 'before-init-hook 'set-default-process-coding-system) |
| 162 | 162 | ||
| 163 | 163 | ||
| 164 | ;;; Basic support functions for managing Emacs' locale setting | 164 | ;;; Basic support functions for managing Emacs's locale setting |
| 165 | 165 | ||
| 166 | (defvar w32-valid-locales nil | 166 | (defvar w32-valid-locales nil |
| 167 | "List of locale ids known to be supported.") | 167 | "List of locale ids known to be supported.") |